"Source: Text/Geometry/AlgSrf.text";
"Line: 2542";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/AlgSrf.text, line: 2542
// Example: H126E12 ()
print "Example: H126E12";
ei := GetEchoInput();
SetEchoInput(true);
P<a,b,c,d> := ProjectiveSpace(Rationals(),3);
S := Surface(P, a^6+2*a^5*b-2*a^4*b^2+2*a^2*b^4+b^6+a^4*d^2+2*a^3*b*d^2+
  a^2*b^2*d^2-a*b^3*d^2-2*b^4*d^2-a^2*b*d^3-2*a*b^2*d^3+2*a^2*d^4+b^2*d^4-
  c^2*d^4-a*d^5);
dsds := ResolveSingularSurface(S);
#dsds; // only one singular point at [0,0,1,0]
l1,l2 := ExceptionalDivisors(S);
l1;
l2;
SetEchoInput(ei);
