Add possible cosmetic pipes to tanks

src/Dodge/Placement/PlaceSpot/Block.hs

@@ -85,7 +85,7 @@ placeLineBlock basePane blockWidth depth a b gw = ( 0
     insertBlock (i,p) = over blocks $ IM.insert (i+blid) Block 
         { _blID = i + blid, _blWallIDs = IS.fromList $ ksAtI i
         , _blHP = 1000, _blShadows = shadowsAt i
-        , _blRot = 0    -- THIS IS NOT SENSIBLE. TODO rethink block positioning
+        , _blDir = 0    -- THIS IS NOT SENSIBLE. TODO rethink block positioning
         , _blFootprint = cornersAt p -- TODO check winding (clockwise, anticlockwise)
         , _blPos = p, _blDraw = const mempty , _blDeath = makeBlockDebris}
     insertBlocks = flip (foldr insertBlock) $ zip is blockCenPs