- -- Too lazy to implement this right now.
- contains_point _ _ = False
-
--- | The top (in the direction of z) 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 back (in the direction of x) 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 (in the direction of -z) 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 front (in the direction of -x) 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 left (in the direction of -y) 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)