Add various helpers for creating polyhedra

2021-06-27 18:53:06 +02:00
parent 06f22a3ea5
commit 089dcc3f5d
14 changed files with 155 additions and 65 deletions
@@ -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 #-}