Working dynamic shadows using shape vertices buffer

src/Dodge/Item/Equipment.hs

@@ -16,7 +16,7 @@ magShield = defaultEquipment
     , _itMaxStack = 1
     , _itAmount = 1
     , _itFloorPict = (,) emptySH $ onLayer FlItLayer $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
-    , _itEquipPict = \_ _ -> (,) emptySH $ blank
+    , _itEquipPict = \_ _ -> (,) emptySH blank
     , _itID = Nothing
     }
 flameShield :: Item 

src/Dodge/Item/Weapon.hs

@@ -440,15 +440,18 @@ spreadGun = defaultGun
         ]
     , _wpSpread = spreadGunSpread
     , _wpRange = 20
-    , _itFloorPict = (,) emptySH $ onLayer FlItLayer spreadGunPic
+    , _itFloorPict = spreadGunPic
     , _itAimingSpeed = 1
     , _itAimingRange = 0
-    , _itEquipPict = pictureWeaponOnAim $ (,) emptySH spreadGunPic
+    , _itEquipPict = pictureWeaponOnAim $ spreadGunPic
     , _wpAmmo = basicBullet
     , _wpNumBarrels = 50
     }
-spreadGunPic :: Picture
-spreadGunPic = color green $ pictures [ polygon $ map toV2[(-3,0),(3,6),(3,-6)] ]
+spreadGunPic :: SPic
+spreadGunPic = 
+    ( colorSH green $ upperPrismPoly 5 $ map toV2[(-3,0),(3,6),(3,-6)]
+    , mempty
+    )
 multGun :: Item
 multGun = defaultGun 
     { _itName = "MULTGUN"
@@ -1111,7 +1114,7 @@ autoSonar = defaultEquipment
     , _itMaxStack = 1
     , _itAmount = 1
     , _itFloorPict = (,) emptySH $ onLayer FlItLayer $ color yellow $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
-    , _itEquipPict = \_ _ -> (,) emptySH $ blank
+    , _itEquipPict = \_ _ -> (,) emptySH blank
     , _itEffect = autoSonarEffect
     , _itID = Nothing
     , _itAimingSpeed = 1
@@ -1128,7 +1131,7 @@ autoRadar = defaultEquipment
     , _itMaxStack = 1
     , _itAmount = 1
     , _itFloorPict = (,) emptySH $ onLayer FlItLayer $ color yellow $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
-    , _itEquipPict = \_ _ -> (,) emptySH $ blank
+    , _itEquipPict = \_ _ -> (,) emptySH blank
     , _itEffect = autoRadarEffect
     , _itID = Nothing
     , _itAimingSpeed = 1

src/Dodge/Item/Weapon/AutoGun.hs

@@ -9,14 +9,13 @@ import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Item.Weapon.InventoryDisplay
 import Dodge.Item.Weapon.AmmoParams
 import Dodge.Item.Data
-import Dodge.Picture.Layer
 import Dodge.Item.Draw
 import Dodge.Item.Weapon.Bullet
 import Dodge.Item.Weapon.TriggerType
 import Dodge.SoundLogic.LoadSound
 import Picture
 import Geometry
---import ShapePicture
+import ShapePicture
 import Shape
 
 import qualified Data.Sequence as Seq
@@ -51,20 +50,23 @@ autoGun = defaultAutoGun
     , _wpSpread = autogunSpread
     , _wpRange = 20
     , _itHammer = HammerUp
-    , _itFloorPict = (,) emptySH $ onLayer FlItLayer autoGunPic
+    , _itFloorPict = autoGunPic
     , _itAimingSpeed = 0.4
     , _itAimingRange = 1
     , _itZoom = defaultItZoom 
     , _itAimZoom = defaultItZoom {_itZoomFac = 1.5}
-    , _itEquipPict = pictureWeaponOnAim $ (,) emptySH autoGunPic
+    , _itEquipPict = pictureWeaponOnAim autoGunPic
     , _itEffect = wpRecock
     , _itAttachment = ItCharMode $ Seq.fromList "MS"
     , _itScroll   = scrollCharMode
     , _itInvDisplay = basicWeaponDisplay
     , _wpAmmo = basicBullet    
     }
-autoGunPic :: Picture
-autoGunPic = color red $ polygon $ rectNESW 4 12 (-4) (-12)
+autoGunPic :: SPic
+autoGunPic =
+    ( colorSH red $ upperPrismPoly 5 $ rectNESW 4 12 (-4) (-12)
+    , mempty
+    )
 
 autogunSpread :: Float
 autogunSpread = 0.07

src/Dodge/Item/Weapon/TriggerType.hs

@@ -308,7 +308,7 @@ withTempLight time rad col eff item cr = eff item cr
 
 modClock :: Int -> ChainEffect -> ChainEffect
 modClock n chainEff eff it cr w
-    | _frameClock w `mod` n == 0 = (chainEff eff) it cr w
+    | _frameClock w `mod` n == 0 = chainEff eff it cr w
     | otherwise = eff it cr w
 
 withMuzFlareI :: ChainEffect