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