Add wire to central laser room

2021-11-21 19:14:17 +00:00
parent 2f3896345d
commit afeb9d2b64
9 changed files with 57 additions and 35 deletions
@@ -143,9 +143,11 @@ robotArm :: Shape
 robotArm = undefined

 barPP :: Float -> Point3 -> Point3 -> Shape
-barPP w a b = prismPoly
-    (map ((+.+.+ a) . rotateToZ z1 . addZ 0) $ polyCirc 2 w)
-    (map ((+.+.+ b) . rotateToZ z1 . addZ 0) $ polyCirc 2 w)
+barPP w a b 
+    | a == b = mempty
+    | otherwise = prismPoly
+        (map ((+.+.+ a) . rotateToZ z1 . addZ 0) $ polyCirc 2 w)
+        (map ((+.+.+ b) . rotateToZ z1 . addZ 0) $ polyCirc 2 w)
  where
    z1 = b -.-.- a