X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCube.hs;h=53bf10547ccd67297f2ba0f2ff83861090ac681d;hb=cbbeea229379dddceef60795197ebbe0e924257c;hp=d873a379ddfca39eba80bf7cb3022b258addfacc;hpb=408f4da9058366cd8047592aa96f97bcc348d329;p=spline3.git

diff --git a/src/Cube.hs b/src/Cube.hs
index d873a37..53bf105 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -280,6 +280,7 @@ tetrahedron5 c =
       v3' = v2 (top_face c)
       fv' = rotate (Tetrahedron.fv (tetrahedron0 c)) ccwx
 
+tetrahedron6 :: Cube -> Tetrahedron
 tetrahedron6 c =
     Tetrahedron fv' v0' v1' v2' v3'
     where
@@ -289,6 +290,7 @@ tetrahedron6 c =
       v3' = v3 (top_face c)
       fv' = rotate (Tetrahedron.fv (tetrahedron0 c)) (ccwx . ccwx)
 
+tetrahedron7 :: Cube -> Tetrahedron
 tetrahedron7 c =
     Tetrahedron fv' v0' v1' v2' v3'
     where