"Source: Text/Geometry/Scheme.text";
"Line: 8040";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 8040
// Example: H122E69 ()
print "Example: H122E69";
ei := GetEchoInput();
SetEchoInput(true);
K := Rationals();
A<x,y> := AffineSpace(K,2);
J := LinearSystem(A,5);
p := [A![1,1],A![-1,1],A![1,-1],A![-1,-1]];
m := [[2,1,1],[2,1,1],[2,1,1],[2,1,1]];
t := [[[1,2],[1,0]],[[1,3],[1,0]],[[1,4],[1,0]],[[1,5],[1,0]]];
L := LinearSystem(J,p,m,t);
f := Sections(L)[1];
f;
C := Curve(A,f);
{ResolutionGraph(C, q) : q in p};
SetEchoInput(ei);
