"Source: Text/Geometry/Scheme.text";
"Line: 5153";
"Date: Fri May 26 16:23:18 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Scheme.text, line: 5153
// Example: H119E35 ()
print "Example: H119E35";
ei := GetEchoInput();
SetEchoInput(true);
P2<X,Y,Z>:=ProjectiveSpace(Rationals(),2);
C:=Curve(P2,
     X^4-2*X^3*Y-X^2*Y^2-2*X^2*Y*Z+2*X*Y^3+2*X*Y^2*Z+Y^4-7*Y^3*Z+Y^2*Z^2);
omega:=CanonicalDivisor(C);
Degree(omega); //genus 0 curve
assert $1 eq -2;
L:=Basis(-omega);
L;
mp:=ProjectiveMap(L,P2); //anticanonical embedding
mp;
mp(C);
SetEchoInput(ei);
