Remove item picture field, handled by outside function

src/Dodge/Default/Item.hs

@@ -16,7 +16,7 @@ defaultItem = Item
     , _itInvColor = yellow
     , _itInvSize = 1
     , _itPos = VoidItm
-    , _itDimension = ItemDimension 0 0 (const mempty)
+    , _itDimension = ItemDimension 2 0
     , _itConsumption = NoConsumption
     , _itUse = NoUse
     , _itAttachment = NoItAttachment

src/Dodge/Default/Weapon.hs

@@ -8,11 +8,6 @@ import Dodge.Default.Item
 import Dodge.Default.AimParams
 --import Dodge.Item.Draw
 import Picture
-import ShapePicture
-import Shape
---import Geometry.Vector3D
-import Geometry
---import Dodge.TweakBullet
 
 import qualified Data.Map.Strict as M
 import Control.Lens
@@ -103,7 +98,6 @@ defaultWeapon :: Item
 defaultWeapon = defaultItem 
     & itConsumption .~ defaultLoadable
     & itUse .~ defaultrUse
-    & itDimension .~ defItDimCol white
     & itInvColor .~ white
     & itType . iyModules .~ M.fromList 
         [(ModBullet, EMPTYMODULE)
@@ -122,19 +116,6 @@ defaultItemValue = ItemValue 10 MundaneItem
 defaultCraftable :: Item
 defaultCraftable = defaultItem 
     { _itInvColor = green
-    , _itDimension = defItDimCol green
-    }
-defItDim :: ItemDimension
-defItDim = ItemDimension
-    { _dimRad = 2
-    , _dimCenter = V3 0 0 0
-    , _dimSPic = const $ noPic $ colorSH green $ upperPrismPoly 3 $ square 4
-    }
-defItDimCol :: Color -> ItemDimension
-defItDimCol col = ItemDimension
-    { _dimRad = 2
-    , _dimCenter = V3 0 0 0
-    , _dimSPic = const $ noPic $ colorSH col $ upperPrismPoly 3 $ square 4
     }
 defBulletShooter :: ItemParams
 defBulletShooter = BulletShooter