Refector

src/Dodge/Creature/Stance/Data.hs

@@ -0,0 +1,25 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Creature.Stance.Data
+  where
+import Geometry.Data
+
+import Control.Lens
+data Stance = Stance 
+    {_carriage :: Carriage
+    ,_posture  :: Posture
+    }
+  deriving (Eq,Show)
+data Carriage 
+    = Walking { _stepCycle :: Int, _stepToAdd :: Int }
+    | Standing
+    | Floating
+    | Flying
+    | Boosting Point2
+  deriving (Eq,Show)
+data Posture = Aiming | AtEase
+  deriving (Eq,Show)
+
+makeLenses ''Stance
+makeLenses ''Carriage
+makeLenses ''Posture