Tweak pipes and girders

src/Dodge/Creature/Inanimate.hs

@@ -37,7 +37,7 @@ colorLamp
 colorLamp col h = defaultInanimate
     { _crUpdate = initialiseColorLamp col h
     , _crHP = 100
-    , _crPict = picAtCrPosNoRot (lampPic h)
+    , _crPict = picAtCrPosNoRot (lampCrPic h)
     , _crRad = 3
     , _crMass = 3
     }
@@ -46,14 +46,13 @@ lamp :: Float -> Creature
 lamp h = defaultInanimate
     { _crUpdate = initialiseLamp h
     , _crHP = 100
-    , _crPict = picAtCrPosNoRot (lampPic h)
+    , _crPict = picAtCrPosNoRot (lampCrPic h)
     , _crRad = 3
     , _crMass = 3
     }
 -- it is not clear that any of the attempts with Foldl help at all here
-lampPic :: Float -> Picture
---{-# INLINE lampPic #-}
-lampPic h = pictures 
+lampCrPic :: Float -> Picture
+lampCrPic h = pictures 
     [ setLayer 1 (setDepth h . color white $ circleSolid 3)
     , concatMap (polyToTris . map f) $ boxXYZnobase 5 5 (h-1)
     ]