"Source: Text/Geometry/GrdRng.text";
"Line: 910";
"Date: Mon Jan 20 11:08:12 2020";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/GrdRng.text, line: 910
// Example: H125E4 ()
print "Example: H125E4";
ei := GetEchoInput();
SetEchoInput(true);
p := Point(3,[1,2]);
C := Curve(1/3,p,4,3);
C;
TransverseIndex(C);
assert $1 eq 3;
IsCanonical(C);
assert $1;
MagicNumber(C);       
SetEchoInput(ei);
