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