From 3cba7ca0c0b39cfd132a3b6ee255c377041cefb5 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Fri, 6 May 2011 18:09:27 -0400 Subject: [PATCH] Move some dead code out of Face and add it to Cube where it now belongs. --- src/Face.hs | 60 ----------------------------------------------------- 1 file changed, 60 deletions(-) diff --git a/src/Face.hs b/src/Face.hs index bc1dfee..3f1c223 100644 --- a/src/Face.hs +++ b/src/Face.hs @@ -21,63 +21,3 @@ instance ThreeDimensional Face where center f = ((v0 f) + (v1 f) + (v2 f) + (v3 f)) `scale` (1/4) -- Too lazy to implement this right now. contains_point _ _ = False - - --- tetrahedron0 :: Face -> Tetrahedron --- tetrahedron0 f = --- Tetrahedron c v0' v1' v2' v3' --- where --- c = cube f --- v0' = v0 f --- v1' = v1 f --- v2' = center f --- v3' = center c - --- tetrahedron1 :: Face -> Tetrahedron --- tetrahedron1 f = --- Tetrahedron c v0' v1' v2' v3' --- where --- c = cube f --- v0' = v1 f --- v1' = v2 f --- v2' = center f --- v3' = center c - - --- tetrahedron2 :: Face -> Tetrahedron --- tetrahedron2 f = --- Tetrahedron c v0' v1' v2' v3' --- where --- c = cube f --- v0' = v2 f --- v1' = v3 f --- v2' = center f --- v3' = center c - - --- tetrahedron3 :: Face -> Tetrahedron --- tetrahedron3 f = --- Tetrahedron c v0' v1' v2' v3' --- where --- c = cube f --- v0' = v3 f --- v1' = v0 f --- v2' = center f --- v3' = center c - --- tetrahedrons :: Cube -> [Tetrahedron] --- tetrahedrons c = --- concat [ --- [tetrahedron0 f0, tetrahedron1 f0, tetrahedron2 f0, tetrahedron3 f0], --- [tetrahedron0 f1, tetrahedron1 f1, tetrahedron2 f1, tetrahedron3 f2], --- [tetrahedron0 f2, tetrahedron1 f2, tetrahedron2 f2, tetrahedron3 f2], --- [tetrahedron0 f3, tetrahedron1 f3, tetrahedron2 f3, tetrahedron3 f3], --- [tetrahedron0 f4, tetrahedron1 f4, tetrahedron2 f4, tetrahedron3 f4], --- [tetrahedron0 f5, tetrahedron1 f5, tetrahedron2 f5, tetrahedron3 f5] ] --- where --- f0 = face0 c --- f1 = face1 c --- f2 = face2 c --- f3 = face3 c --- f4 = face4 c --- f5 = face5 c -- 2.43.2