#%Format: latex
#% This file is marked for TeX processing
#[caption]"Computing $\pi_1$ for sextics with a type $\bE_8$ point"
#================================================================
#: The computation of the fundamental groups of plane sextics with a%
#: type $\bE_8$ singularity.
#: We use the three type~$\tA$ regions closest to the insertion,%
#: \viz. $\reg_-(e\ra\zeta)$ for $\zeta=1$, $\x^2$, and $\x^2\y\x^2$.%
#: Their widths, in the order listed, are the parameters.
#----------------------------------------------------------------
Reread("pi1sc.txt");   #: (see \file{pi1sc})
#: Relations at infinity and regions to be used
fixed := [rho^3/(G.1*G.2^2), G.2*G.1*G.2^-1/G.3, G.1*G.2^3/(G.2^3*G.1)];
list := [[], x^2, x^2*y*x^2];
#: This function handles irreducible curves%
#: (see \kwd{AA} and \kwd{DS} in \file{pi1sc})
size := function(arg) return Size(DS(AA(list, arg))); end;
#: For reducible curves, we consider the quotient by%
#: the central element $\Ga_2^3$
size2 := function(arg) return Size(DS(AA(list, arg), [G.2^3])); end;
#================================================================
#[endinput]
