Fix wall bug, refactor placements

2021-09-30 15:35:35 +01:00
parent eb393708c4
commit c88f88004d
17 changed files with 54 additions and 80 deletions
@@ -104,3 +104,7 @@ projV3
 projV3 = undefined


+onXY :: (Point2 -> Point2) -> Point3 -> Point3
+onXY f (V3 x y z) = V3 x' y' z
+  where
+    V2 x' y' = f (V2 x y)