Add muzzle flare

src/Dodge/Data.hs

@@ -303,6 +303,7 @@ data Item
         , _itWorldTrigger :: Maybe (Int -> World -> Bool)
         , _itAimStance :: AimStance
         , _wpNumBarrels :: Int
+        , _itDimension  :: ItemDimension
         }
     | Consumable
         { _itName :: String
@@ -377,6 +378,13 @@ data Item
         }
      | NoItem
 
+data ItemDimension = ItemDimension
+    { _itDim    :: Point3 -- length width height
+    , _itHandle :: Point3
+    , _itCenter :: Point3
+    , _muzzleLength :: Float
+    }
+
 data ReloadType = ActiveReload | PassiveReload SoundID
 
 data ItEffect = NoItEffect
@@ -762,18 +770,4 @@ makeLenses ''Intention
 makeLenses ''Door
 makeLenses ''Block
 makeLenses ''Zone
-numColor :: Int -> Color
-numColor 0  = toV4 (1,0,0,1) 
-numColor 1  = toV4 (0,1,0,1) 
-numColor 2  = toV4 (0,0,1,1) 
-numColor 3  = toV4 (1,1,0,1)  
-numColor 4  = toV4 (0,1,1,1) 
-numColor 5  = toV4 (1,0,1,1)  
-numColor 6  = toV4 (1,0,0.5,1) 
-numColor 7  = toV4 (0.5,0,1,1)  
-numColor 8  = toV4 (0,0.5,1,1) 
-numColor 9  = toV4 (0,1,0.5,1) 
-numColor 10 = toV4 (0.5,1,0,1)
-numColor 11 = toV4 (1,0.5,0,1)  
-numColor 12 = toV4 (1,1,1,1) 
-numColor _  = toV4 (1,1,1,1) 
+makeLenses ''ItemDimension