Add indicator light to switch doors

2021-11-16 12:57:13 +00:00
parent a7f2b5f3ea
commit f530952612
9 changed files with 117 additions and 20 deletions
@@ -142,6 +142,13 @@ girder = girderCol orange
 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)
+  where
+    z1 = b -.-.- a
+
 pipePP :: Float -> Point3 -> Point3 -> Shape
 pipePP w a b = prismPoly
    (map ((+.+.+ a) . rotateToZ z1 . addZ 0) $ polyCirc 4 w)