Allow for items to cast shadows

src/Dodge/Item/Weapon/AutoGun.hs

@@ -16,6 +16,8 @@ import Dodge.Item.Weapon.TriggerType
 import Dodge.SoundLogic.LoadSound
 import Picture
 import Geometry
+import ShapePicture
+import Shape
 
 import qualified Data.Sequence as Seq
 
@@ -49,12 +51,12 @@ autoGun = defaultAutoGun
     , _wpSpread = autogunSpread
     , _wpRange = 20
     , _itHammer = HammerUp
-    , _itFloorPict = onLayer FlItLayer autoGunPic
+    , _itFloorPict = SPic emptySH $ onLayer FlItLayer autoGunPic
     , _itAimingSpeed = 0.4
     , _itAimingRange = 1
     , _itZoom = defaultItZoom 
     , _itAimZoom = defaultItZoom {_itZoomFac = 1.5}
-    , _itEquipPict = pictureWeaponOnAim autoGunPic
+    , _itEquipPict = pictureWeaponOnAim $ SPic emptySH autoGunPic
     , _itEffect = wpRecock
     , _itAttachment = ItCharMode $ Seq.fromList "MS"
     , _itScroll   = scrollCharMode

src/Dodge/Item/Weapon/Bezier.hs

@@ -18,6 +18,8 @@ import Dodge.Picture.Layer
 import Dodge.SoundLogic.LoadSound
 import Picture
 import Geometry
+import ShapePicture
+import Shape
 
 --import System.Random
 import Data.Maybe
@@ -35,8 +37,8 @@ bezierGun = defaultGun
         . withRecoilI 40
         . torqueBefore 0.05
         ]
-    , _itFloorPict = onLayer FlItLayer bezierGunPic
-    , _itEquipPict = pictureWeaponOnAim bezierGunPic
+    , _itFloorPict = SPic emptySH $ onLayer FlItLayer bezierGunPic
+    , _itEquipPict = pictureWeaponOnAim $ SPic emptySH bezierGunPic
     , _itAttachment = NoItAttachment
     , _itScroll   = \_ _ -> removeItTarget
     , _itHammer = HammerUp

src/Dodge/Item/Weapon/Grenade.hs

@@ -14,6 +14,8 @@ import Dodge.Default.Shell
 --import Dodge.Default
 import Picture
 import Geometry
+import ShapePicture
+import Shape
 
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
@@ -38,7 +40,7 @@ moveGrenade time dir pID w = case hitWl of
     updatedWorld = updateV $ set (projectiles . ix pID . pjPos) finalPos
                             $ set (projectiles .ix pID. pjDraw) 
                     (\ _ -> onLayer PtLayer $ uncurryV translate newPos 
-                                     $ rotate dir $ grenadePic time)
+                                     $ rotate dir $ _spPicture $ grenadePic time)
                         $ set (projectiles .ix pID.pjUpdate) (\_ -> moveGrenade (time-1) dir pID) w
     pj     = _projectiles w IM.! pID
     oldPos = _pjPos pj
@@ -49,8 +51,8 @@ moveGrenade time dir pID w = case hitWl of
     updateV = maybe id (setV . snd) hitWl
 
 
-grenadePic :: Int -> Picture
-grenadePic x = pictures 
+grenadePic :: Int -> SPic
+grenadePic x = SPic emptySH $ pictures 
     [ color (dark $ dark green) $ circleSolid 5
     , color green $ arc (degToRad $ (179 * fromIntegral x / 50) - 180 ) 
                         (degToRad $ 180 - (179 * fromIntegral x / 50) ) 
@@ -71,13 +73,13 @@ throwGrenade explosion cr w = setWp $ removePict $ over projectiles addG w
         { _pjPos = p
         , _pjStartPos = p
         , _pjVel = v
-        , _pjDraw = \_ -> onLayer PtLayer $ uncurryV translate p $ grenadePic 0
+        , _pjDraw = \_ -> onLayer PtLayer $ uncurryV translate p $ _spPicture $ grenadePic 0
         , _pjID = i
         , _pjUpdate = \_ -> moveGrenade fuseTime dir i
         , _pjPayload = explosion
         }
     j = _crInvSel cr
-    removePict = set (creatures . ix n . crInv . ix j . itEquipPict) $ \ _ _ -> blank
+    removePict = set (creatures . ix n . crInv . ix j . itEquipPict) $ \ _ _ -> SPic emptySH blank
     i = newProjectileKey w
     --(_, g) = randomR (-grenadeAccA,grenadeAccA::Float) (_randGen w)
     --(_, _) = randomR (1 - 2*grenadeAccL,1+grenadeAccL::Float) g

src/Dodge/Item/Weapon/Launcher.hs

@@ -22,6 +22,8 @@ import Geometry.Vector3D
 import Picture
 import qualified IntMapHelp as IM
 import Padding
+import ShapePicture
+import Shape
 
 import Data.Maybe
 import Control.Lens
@@ -48,10 +50,10 @@ launcher = defaultGun
         ]
     , _wpSpread = 0.02
     , _wpRange = 20
-    , _itFloorPict = onLayer FlItLayer launcherPic
+    , _itFloorPict = SPic emptySH $ onLayer FlItLayer launcherPic
     , _itAimingSpeed = 0.2
     , _itAimingRange = 0.5
-    , _itEquipPict = pictureWeaponOnAim launcherPic
+    , _itEquipPict = pictureWeaponOnAim $ SPic emptySH launcherPic
     , _itHammer = NoHammer
     , _itEffect = NoItEffect
     , _wpAmmo = defaultShellAmmo