Move main to allow for new executables

2021-08-11 17:54:48 +02:00
parent b74bb45a4c
commit 4bbe5d0cf1
64 changed files with 521 additions and 345 deletions
@@ -50,7 +50,7 @@ diagonalLinesRect pa pb w d ang = zip lhsPoints $ map findDiPoint lhsPoints

 highPipe :: Float -> Point2 -> Point2 -> [Polyhedra]
 highPipe h x@(V2 xx xy) y = 
-    [ Polyhedron . map (map ( (,orange) . (+.+.+ (V3 xx xy h)))) 
+    [ Polyhedron . map (map ( (,orange) . (+.+.+ V3 xx xy h))) 
        $ boxABC (V3 a b 0) (V3 a' b' 0) (V3 0 0 5)
    ]
  where