Start to add basic gibbing

2022-06-03 18:00:07 +01:00
parent b50e53f400
commit dd985c6a49
7 changed files with 60 additions and 11 deletions
@@ -49,6 +49,7 @@ import Shape
 import Data.Tile

 --import qualified Data.Vector as V
+import qualified Linear.Quaternion as Q
 import GHC.Generics
 import Control.Lens
 import Control.Monad.State
@@ -836,6 +837,19 @@ data Prop
        , _pjID :: Int
        , _pjUpdate :: Prop -> World -> World
        }
+    | PropZ
+        { _pjPos :: Point2
+        , _pjStartPos :: Point2
+        , _pjVel :: Point2
+        , _prDraw :: Prop -> SPic
+        , _pjID :: Int
+        , _pjUpdate :: Prop -> World -> World
+        , _pjPosZ :: Float
+        , _pjVelZ :: Float
+        , _pjTimer :: Int
+        , _pjQuat  :: Q.Quaternion Float
+        , _pjQuatSpin  :: Q.Quaternion Float
+        }
    | Drone
        { _pjPos :: Point2
        , _pjStartPos :: Point2