Add muzzle flare

src/Dodge/Default/Weapon.hs

@@ -7,6 +7,8 @@ import Dodge.Item.Attachment.Data
 import Dodge.Item.Data
 import Picture
 import ShapePicture
+
+import Linear.V3
 defaultGun :: Item
 defaultGun = Weapon 
     { _itName = "default"
@@ -47,7 +49,16 @@ defaultGun = Weapon
     , _itWorldTrigger = Nothing
     , _itAimStance = OneHand
     , _wpNumBarrels = 1
+    , _itDimension = defaultItemDimension
     }
+defaultItemDimension :: ItemDimension
+defaultItemDimension = ItemDimension
+    { _itDim = V3 4 4 4
+    , _itHandle = V3 2 2 2
+    , _itCenter = V3 2 2 2
+    , _muzzleLength = 5 -- how much the item projects out from the cr radius when aiming
+    }
+
 defaultAutoGun :: Item
 defaultAutoGun = defaultGun 
     { _itInvDisplay = basicWeaponDisplay