Implement magazine drawing using ammo positioning function

src/Dodge/Item/AmmoPosition.hs

@@ -0,0 +1,12 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Item.AmmoPosition where
+
+import Linear.Quaternion (Quaternion (..))
+import Control.Lens
+import Geometry.Data
+
+data AmmoPosition
+    = Magazine {_amposPos :: Point3, _amposDir :: Quaternion Float}
+    | Bullets {_amPosDirs :: [(Point3,Point3)]}
+    | NoAmmoPosition
+makeLenses ''AmmoPosition