13 lines
347 B
Haskell
13 lines
347 B
Haskell
{-# 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
|