"Source: Text/Geometry/Scheme.text";
"Line: 8014";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 8014
// Example: H122E68 ()
print "Example: H122E68";
ei := GetEchoInput();
SetEchoInput(true);
K := Rationals();
A<x,y> := AffineSpace(K, 2);
s6 := Sections(LinearSystem(A, 6));
s := [q : q in s6 | q eq Evaluate(q, [-x,y]) and q eq Evaluate(q, [x,-y])];
J := LinearSystem(A, s);
p := [A![0,0], A![0,0], A![1,1], A![2/10,7/10], A![7/10,2/10]];
m := [[4,2], [4,2], [1,1], [1], [1]];
t := [[[1,0]], [[0,1]], [[1,-1]], [], []];
L := LinearSystem(J, p, m, t);
f := Sections(L)[1];
C := Curve(A, f);
ResolutionGraph(C, A![0,0]);
SetEchoInput(ei);
