Tweak pillar room

src/Dodge/Item/Weapon.hs

@@ -530,10 +530,10 @@ multGun = defaultGun
     }
 multGunSPic :: Item -> SPic
 multGunSPic it = 
-    ( (colorSH red $
-        upperPrismPoly 2 (rectNESW 4 8 (-4) (-12)) ++
+    ( colorSH red (
+        upperPrismPoly 2 (rectNESW 4 8 (-4) (-12)) <>
         translateSHf 8 0 (concatMap barrel [12,7,2,-3,-8] <> 
-            (upperPrismPoly 2 $ map toV2 [(-1.5,12),(-2,12),(-2,-12),(-1.5,-12)])
+            upperPrismPoly 2 (map toV2 [(-1.5,12),(-2,12),(-2,-12),(-1.5,-12)])
             )
     ) <> bulletClip am
     , mempty
@@ -566,21 +566,21 @@ longGun = defaultGun
         , withMuzFlareI
         ]
     , _wpRange = 200
-    , _itFloorPict = \_ -> longGunSPic
+    , _itFloorPict = longGunSPic
     , _itAimingSpeed = 0.2
     , _itAimingRange = 1
     , _itZoom       = defaultItZoom 
     , _itAimZoom    = defaultItZoom {_itZoomMax = 0.5, _itZoomMin = 0.5}
-    , _itEquipPict = pictureWeaponOnAim $ \_ -> longGunSPic
+    , _itEquipPict = pictureWeaponOnAim longGunSPic
     , _itScroll = zoomLongGun
     , _itAttachment = ItScope (V2 0 0) 0 1 False
     , _itEffect = itemLaserScopeEffect
     , _wpAmmo = hvBullet
     , _itAimStance = TwoHandTwist
     }
-longGunSPic :: SPic
-longGunSPic =
-    ( colorSH orange $ upperPrismPoly 5 $ rectNESW 2 12 (-2) (-12)
+longGunSPic :: Item -> SPic
+longGunSPic _ =
+    ( colorSH orange $ upperPrismPoly 5 $ rectWH 12 2
     , mempty
     )