Add possible cosmetic pipes to tanks

src/Dodge/Render/ShapePicture.hs

@@ -33,7 +33,7 @@ worldSPic :: Configuration -> World -> SPic
 worldSPic cfig w = 
     (extraShapes w, extraPics cfig w)
     <> foldMap (dbArg _prDraw) (filtOn _prPos _props)
-    <> foldMap (dbArg _blDraw) (filtOn _blPos _blocks)
+    <> foldMap (shiftDraw _blPos _blDir _blDraw) (filtOn _blPos _blocks)
     <> foldMap (dbArg _cpPict) (filtOn _cpPos _corpses)
     <> foldMap ((($ w) . ($ cfig)) . dbArg _crPict) (filtOn _crPos _creatures)
     <> foldMap floorItemSPic (filtOn _flItPos _floorItems)
@@ -43,6 +43,12 @@ worldSPic cfig w =
     filtOn f g = IM.filter (pointIsClose . f) (g w)
     pointIsClose = cullPoint cfig w
 
+shiftDraw :: (a -> Point2) -> (a -> Float) -> (a -> a -> SPic) -> a -> SPic
+shiftDraw fpos fdir fdraw x = uncurryV translateSPf (fpos x)
+    . rotateSP (fdir x)
+    $ fdraw x x
+
+
 cullPoint :: Configuration -> World -> Point2 -> Bool
 cullPoint cfig w p 
     | debugOn Close_shape_culling cfig = pointInPolygon p (_boundBox w)