Add tank furniture, stop autorotate when aiming

src/Dodge/Room/Foreground.hs

@@ -127,3 +127,19 @@ girder h d w x y = colorSH red $ mconcat $
     yt = y -.- n
     ps = divideLineExact d xb yb
     qs = divideLineExact d xt yt
+
+robotArm :: Shape
+robotArm = undefined
+
+pipePP :: Float -> Point3 -> Point3 -> Shape
+pipePP w a b = prismPoly
+    (map ((+.+.+ a) . addZ 0) $ polyCirc 4 w)
+    (map ((+.+.+ b) . addZ 0) $ polyCirc 4 w)
+
+tankTopPipe :: Shape
+tankTopPipe = colorSH orange $ 
+    upperPrismPoly 31 (polyCirc 4 20)
+    <> prismPoly 
+        (map (addZ 41) $ polyCirc 4 5)
+        (map (addZ 31) $ polyCirc 4 20)
+--    <> pipePP 5 (V3 0 0 51) (V3 0 0 41)