5 import ThreeDimensional
7 data Face = Face { v0 :: Point,
13 instance Show Face where
15 " v0: " ++ (show (v0 f)) ++ "\n" ++
16 " v1: " ++ (show (v1 f)) ++ "\n" ++
17 " v2: " ++ (show (v2 f)) ++ "\n" ++
18 " v3: " ++ (show (v3 f)) ++ "\n"
20 instance ThreeDimensional Face where
21 center f = ((v0 f) + (v1 f) + (v2 f) + (v3 f)) `scale` (1/4)
22 -- Too lazy to implement this right now.
23 contains_point _ _ = False
26 -- tetrahedron0 :: Face -> Tetrahedron
28 -- Tetrahedron c v0' v1' v2' v3'
36 -- tetrahedron1 :: Face -> Tetrahedron
38 -- Tetrahedron c v0' v1' v2' v3'
47 -- tetrahedron2 :: Face -> Tetrahedron
49 -- Tetrahedron c v0' v1' v2' v3'
58 -- tetrahedron3 :: Face -> Tetrahedron
60 -- Tetrahedron c v0' v1' v2' v3'
68 -- tetrahedrons :: Cube -> [Tetrahedron]
71 -- [tetrahedron0 f0, tetrahedron1 f0, tetrahedron2 f0, tetrahedron3 f0],
72 -- [tetrahedron0 f1, tetrahedron1 f1, tetrahedron2 f1, tetrahedron3 f2],
73 -- [tetrahedron0 f2, tetrahedron1 f2, tetrahedron2 f2, tetrahedron3 f2],
74 -- [tetrahedron0 f3, tetrahedron1 f3, tetrahedron2 f3, tetrahedron3 f3],
75 -- [tetrahedron0 f4, tetrahedron1 f4, tetrahedron2 f4, tetrahedron3 f4],
76 -- [tetrahedron0 f5, tetrahedron1 f5, tetrahedron2 f5, tetrahedron3 f5] ]