Reorganise weapons

src/Dodge/Item/Weapon/BulletGun/Clip.hs

@@ -0,0 +1,12 @@
+module Dodge.Item.Weapon.BulletGun.Clip where
+import Dodge.Data
+import Shape
+import Geometry
+import Data.Maybe
+import Control.Lens
+
+makeClipAt :: Float -> Point3 -> Item -> Shape
+makeClipAt r p it = translateSH p . overPosSH (rotate3z r) $ upperPrismPoly 1 $ rectNSEW 0 (-y) (-2) 2
+  where
+    y = fromIntegral y' * 0.3
+    y' = fromMaybe 0 $ it ^? itConsumption . ammoLoaded