Added call to FIXDELAUNAY@ at end of WiggledTriangulation; fixes the …

…"c.cell" error
gap-packages · Jul 29, 2013 · 153b218 · 153b218
1 parent 6c84cd1
commit 153b218
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/gap/hurwitz.gi b/gap/hurwitz.gi
@@ -441,9 +441,11 @@ InstallMethod(BranchedCoveringByMonodromy, "(IMG) for a spider and a homomorphis
                     points := []);
         data.points{cv} := [[[P1zero,d]],[[P1infinity,d]]];
     elif Length(cv)=3 then # tricritical
-        data := TRICRITICAL@(d,List(cv,i->gens[i]^monodromy));
-        if data<>fail then
-            data.map := CompositionP1Map(MoebiusMap(values{cv}),data.map);
+        t := TRICRITICAL@(d,List(cv,i->gens[i]^monodromy));
+        if t<>fail then
+            data := rec(map := CompositionP1Map(MoebiusMap(values{cv}),t.map),
+                        points := []);
+            data.points{cv} := t.points;
         fi;
 #    elif d=3 then # quadricritical, but degree 3
 #        p := QUADRICRITICAL@(perm{cv},values{cv});

diff --git a/gap/triangulations.gi b/gap/triangulations.gi
@@ -637,7 +637,9 @@ InstallMethod(WiggledTriangulation, [IsSphereTriangulation,IsObject],
         for i in [1..Length(r.f)] do SetPos(r.f[i], P1Image(movement,Pos(t!.f[i]))); od;
     fi;
 
-    return Objectify(TYPE_TRIANGULATION, r);
+    r := Objectify(TYPE_TRIANGULATION, r);
+    FIXDELAUNAY@(r);
+    return r;
 end);
 
 InstallMethod(ShallowCopy, [IsSphereTriangulation],