"Source: Text/Geometry/Scheme.text";
"Line: 5199";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 5199
// Example: H122E35 ()
print "Example: H122E35";
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);
