From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 6 May 2011 22:09:27 +0000 (-0400)
Subject: Move some dead code out of Face and add it to Cube where it now belongs.
X-Git-Tag: 0.0.1~336
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=3cba7ca0c0b39cfd132a3b6ee255c377041cefb5;p=spline3.git

Move some dead code out of Face and add it to Cube where it now belongs.
---

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