- -- Too lazy to implement this right now.
- contains_point _ _ = False
-
--- The top face of the cube.
-face0 :: Cube -> Face
-face0 c = Face c v0' v1' v2' v3'
- where
- g = grid c
- delta = (1/2)*(h g)
- v0' = (center c) + (-delta, delta, delta)
- v1' = (center c) + (delta, delta, delta)
- v2' = (center c) + (delta, -delta, delta)
- v3' = (center c) + (-delta, -delta, delta)
-
--- The right face of the cube.
-face1 :: Cube -> Face
-face1 c = Face c v0' v1' v2' v3'
- where
- g = grid c
- delta = (1/2)*(h g)
- v0' = (center c) + (delta, delta, delta)
- v1' = (center c) + (delta, delta, -delta)
- v2' = (center c) + (delta, -delta, -delta)
- v3' = (center c) + (delta, -delta, delta)
-
-
--- The bottom face of the cube.
-face2 :: Cube -> Face
-face2 c = Face c v0' v1' v2' v3'
- where
- g = grid c
- delta = (1/2)*(h g)
- v0' = (center c) + (delta, delta, -delta)
- v1' = (center c) + (-delta, delta, -delta)
- v2' = (center c) + (-delta, -delta, -delta)
- v3' = (center c) + (delta, -delta, -delta)
-
-
--- The left face of the cube.
-face3 :: Cube -> Face
-face3 c = Face c v0' v1' v2' v3'
- where
- g = grid c
- delta = (1/2)*(h g)
- v0' = (center c) + (-delta, delta, -delta)
- v1' = (center c) + (-delta, delta, delta)
- v2' = (center c) + (-delta, -delta, delta)
- v3' = (center c) + (-delta, -delta, -delta)
-
-
--- The front face of the cube.
-face4 :: Cube -> Face
-face4 c = Face c v0' v1' v2' v3'
- where
- g = grid c
- delta = (1/2)*(h g)
- v0' = (center c) + (-delta, -delta, delta)
- v1' = (center c) + (delta, -delta, delta)
- v2' = (center c) + (delta, -delta, -delta)
- v3' = (center c) + (-delta, -delta, -delta)