Add various helpers for creating polyhedra

src/Geometry/Vector.hs

@@ -35,36 +35,6 @@ a *.* (x2, y2) =
     !y = a * y2
   in (x, y)
 
-infixl 6 +.+.+, -.-.-
-infixl 7 *.*.*
-
-{- | 3D coordinate-wise addition.  -}
-(+.+.+) :: Point3 -> Point3 -> Point3
-{-# INLINE (+.+.+) #-}
-(x1, y1, z1) +.+.+ (x2, y2, z2) =
-  let
-    !x = x1 + x2
-    !y = y1 + y2
-    !z = z1 + z2
-  in (x, y, z)
-{- | 3D coordinate-wise subtraction.  -}
-(-.-.-) :: Point3 -> Point3 -> Point3
-{-# INLINE (-.-.-) #-}
-(x1, y1, z1) -.-.- (x2, y2, z2) =
-  let
-    !x = x1 - x2
-    !y = y1 - y2
-    !z = z1 - z2
-  in (x, y, z)
-{- | 3D scalar multiplication.  -}
-(*.*.*) :: Point3 -> Point3 -> Point3
-{-# INLINE (*.*.*) #-}
-(x1, y1, z1) *.*.* (x2, y2, z2) =
-  let
-    !x = x1 * x2
-    !y = y1 * y2
-    !z = z1 * z2
-  in (x, y, z)
 {- | Normalize a vector to length 1.  -}
 normalizeV :: Point2 -> Point2
 {-# INLINE normalizeV #-}

src/Geometry/Vector3D.hs

@@ -0,0 +1,42 @@
+{-# LANGUAGE BangPatterns #-}
+module Geometry.Vector3D
+    where
+import Geometry.Data
+
+infixl 6 +.+.+, -.-.-
+infixl 7 *.*.*
+
+{- | 3D coordinate-wise addition.  -}
+(+.+.+) :: Point3 -> Point3 -> Point3
+{-# INLINE (+.+.+) #-}
+(x1, y1, z1) +.+.+ (x2, y2, z2) =
+  let
+    !x = x1 + x2
+    !y = y1 + y2
+    !z = z1 + z2
+  in (x, y, z)
+{- | 3D coordinate-wise subtraction.  -}
+(-.-.-) :: Point3 -> Point3 -> Point3
+{-# INLINE (-.-.-) #-}
+(x1, y1, z1) -.-.- (x2, y2, z2) =
+  let
+    !x = x1 - x2
+    !y = y1 - y2
+    !z = z1 - z2
+  in (x, y, z)
+{- | 3D scalar multiplication.  -}
+(*.*.*) :: Point3 -> Point3 -> Point3
+{-# INLINE (*.*.*) #-}
+(x1, y1, z1) *.*.* (x2, y2, z2) =
+  let
+    !x = x1 * x2
+    !y = y1 * y2
+    !z = z1 * z2
+  in (x, y, z)
+
+crossProd :: Point3 -> Point3 -> Point3
+crossProd (x,y,z) (a,b,c) = 
+    ( y * c - z * b
+    , z * a - x * c
+    , x * b - y * a
+    )