Add possible cosmetic pipes to tanks

2022-06-19 10:17:03 +01:00
parent bae0f7dcad
commit 55d2fcc8d0
13 changed files with 70 additions and 16 deletions
@@ -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