Add possible cosmetic pipes to tanks

src/Dodge/Placement/Instance/Pipe.hs

@@ -1,5 +1,12 @@
 module Dodge.Placement.Instance.Pipe where
 import Shape
+import Geometry
+import Quaternion
 
 verticalPipe :: Float -> Shape
-verticalPipe = flip upperPrismPoly $ polyCirc  4 5
+verticalPipe = flip upperPrismPoly $ polyCirc 2 5
+
+horPipe :: Float -> Point2 -> Point2 -> Shape
+horPipe h x y = translateSH (x `v2z` h) $ overPosSH (rotateToZ (V3 xd yd 0)) $ verticalPipe (dist x y)
+  where
+    V2 xd yd = x -.- y

src/Dodge/Placement/Instance/Tank.hs

@@ -26,7 +26,7 @@ tankShape baseshape facade col col'
     = sps0 $ PutBlock bl wl $ reverse baseshape
   where
     bl = defaultBlock
-        & blDraw .~ (\bl' -> (noPic $ uncurryV translateSHf (_blPos bl') $ rotateSH (_blRot bl') $ colorSH col (upperPrismPoly 31 $ reverse baseshape) <> facade col col'))
+        & blDraw .~ const (noPic $ colorSH col (upperPrismPoly 31 $ reverse baseshape) <> facade col col')
         & blDeath .~ const id
     wl = defaultWall 
         & wlDraw .~ False