Tweak equipment draw

src/Dodge/Default/Weapon.hs

@@ -3,8 +3,12 @@ module Dodge.Default.Weapon
 import Dodge.Data
 import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Item.Weapon.InventoryDisplay
+import Dodge.Item.Draw
 import Picture
 import ShapePicture
+import Shape
+import Geometry.Vector3D
+import Geometry
 
 import Linear.V3
 defaultGun :: Item
@@ -30,12 +34,15 @@ defaultGun = Weapon
     , _wpSpread = 0.02
     , _wpRange = 20
     , _itHammer = HammerUp
-    , _itFloorPict = const emptyBlank
+    , _itFloorPict = const $ noPic $ colorSH green (prismPoly 
+        (map (addZ 3) $ rectNESW 3 3 (-3) (-3))
+        (map (addZ 0) $ rectNESW 5 3 (-5) (-7))
+        )
     , _itAimingSpeed = 1
     , _itAimingRange = 0
     , _itZoom    = ItZoom 20 0.2 1
     , _itAimZoom = ItZoom 20 0.2 1
-    , _itEquipPict = \_ _ -> emptyBlank
+    , _itEquipPict = pictureWeaponOnAim
     , _itScroll = \_ _ -> id
     , _itAttachment = NoItAttachment
     , _itID = Nothing