{-# 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,Quaternion Float)]}
    | NoAmmoPosition
makeLenses ''AmmoPosition