Allow for items to cast shadows

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