Cleanup tesla arcs

2022-03-24 08:05:58 +00:00
parent 64be9ee7a8
commit 11d954674c
8 changed files with 111 additions and 196 deletions
@@ -91,7 +91,7 @@ addZ z (V2 x y) = V3 x y z

 v2z :: Point2 -> Float -> Point3
 {-# INLINE v2z #-}
-v2z (V2 x y) z = V3 x y z
+v2z (V2 x y) = V3 x y

 stripZ :: Point3 -> Point2
 {-# INLINE stripZ #-}