Remove item picture field, handled by outside function

src/Dodge/Item/Weapon/Shatter.hs

@@ -17,11 +17,7 @@ import Dodge.Default.Weapon
 --import Dodge.Item.Draw
 import Dodge.Item.Weapon.TriggerType
 --import Dodge.SoundLogic.LoadSound
-import Picture
 import Geometry
-import ShapePicture
-import Shape
---import Sound.Data
 import LensHelp
 
 --import qualified Data.IntMap.Strict as IM
@@ -38,15 +34,7 @@ shatterGun = defaultWeapon
         , useAmmoAmount 1
         ]
     & itUse . useAim . aimStance .~ TwoHandFlat
-    & itDimension . dimSPic .~ shatterGunSPic
 
-shatterGunSPic :: Item -> SPic
-shatterGunSPic _ = noPic $ colorSH blue $
-       upperPrismPoly 5 (rectNESW xb    8 xa    0)
-    <> upperPrismPoly 5 (rectNESW (-xa) 8 (-xb) 0)
-  where
-    xa = 1
-    xb = 9
 shootShatter :: Item -> Creature -> World -> World
 shootShatter it cr w = maybe w (uncurry $ shatterWall w sp ep) $ sequence 
     $ collidePointWallsFilterStream canshatter sp ep w
@@ -65,3 +53,4 @@ shatterWall w sp ep p wl = w
     & makeDebrisDirected 1 2 (pi/2) (argV $ vNormal $ uncurry (-.-) $ _wlLine wl) (_wlMaterial wl) 
         (_wlColor wl) p
     & damageWall (Damage SHATTERING 1000 sp p ep NoDamageEffect) wl
+