+tetrahedron15 :: Cube -> Tetrahedron
+tetrahedron15 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (down_face c)
+ v2' = Face.v3 (down_face c)
+ v3' = Face.v0 (down_face c)
+ fv' = rotate ccwy $ rotate cwz $ Tetrahedron.fv (tetrahedron0 c)
+
+
+tetrahedron16 :: Cube -> Tetrahedron
+tetrahedron16 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (right_face c)
+ v2' = Face.v0 (right_face c)
+ v3' = Face.v1 (right_face c)
+ fv' = rotate ccwz (Tetrahedron.fv (tetrahedron0 c))
+
+
+tetrahedron17 :: Cube -> Tetrahedron
+tetrahedron17 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (right_face c)
+ v2' = Face.v1 (right_face c)
+ v3' = Face.v2 (right_face c)
+ fv' = rotate ccwz $ rotate cwy $ Tetrahedron.fv (tetrahedron0 c)
+
+
+tetrahedron18 :: Cube -> Tetrahedron
+tetrahedron18 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (right_face c)
+ v2' = Face.v2 (right_face c)
+ v3' = Face.v3 (right_face c)
+ fv' = rotate ccwz $ rotate cwy
+ $ rotate cwy
+ $ Tetrahedron.fv (tetrahedron0 c)
+
+
+tetrahedron19 :: Cube -> Tetrahedron
+tetrahedron19 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (right_face c)
+ v2' = Face.v3 (right_face c)
+ v3' = Face.v0 (right_face c)
+ fv' = rotate ccwz $ rotate ccwy
+ $ Tetrahedron.fv (tetrahedron0 c)
+
+
+tetrahedron20 :: Cube -> Tetrahedron
+tetrahedron20 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (left_face c)
+ v2' = Face.v0 (left_face c)
+ v3' = Face.v1 (left_face c)
+ fv' = rotate cwz (Tetrahedron.fv (tetrahedron0 c))
+
+
+tetrahedron21 :: Cube -> Tetrahedron
+tetrahedron21 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (left_face c)
+ v2' = Face.v1 (left_face c)
+ v3' = Face.v2 (left_face c)
+ fv' = rotate cwz $ rotate ccwy $ Tetrahedron.fv (tetrahedron0 c)
+
+
+tetrahedron22 :: Cube -> Tetrahedron
+tetrahedron22 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (left_face c)
+ v2' = Face.v2 (left_face c)
+ v3' = Face.v3 (left_face c)
+ fv' = rotate cwz $ rotate ccwy
+ $ rotate ccwy
+ $ Tetrahedron.fv (tetrahedron0 c)
+
+
+tetrahedron23 :: Cube -> Tetrahedron
+tetrahedron23 c =
+ Tetrahedron fv' v0' v1' v2' v3'
+ where
+ v0' = center c
+ v1' = center (left_face c)
+ v2' = Face.v3 (left_face c)
+ v3' = Face.v0 (left_face c)
+ fv' = rotate cwz $ rotate cwy
+ $ Tetrahedron.fv (tetrahedron0 c)
+
+
+tetrahedra :: Cube -> [Tetrahedron]
+tetrahedra c =