Implement simple sweep light

2021-09-26 23:38:32 +01:00
parent c0480f0ad6
commit d9ad55ec50
6 changed files with 66 additions and 5 deletions
@@ -489,6 +489,13 @@ data Prop
        , _pjUpdate :: Prop -> World -> World
        , _pjTime :: Int
        }
+    | ShapeProp
+        { _pjPos :: Point2
+        , _pjID :: Int
+        , _pjRot :: Float
+        , _pjUpdate :: Prop -> World -> World
+        , _prDraw :: Prop -> SPic
+        }
    | Shell 
        { _pjPos :: Point2
        , _pjStartPos :: Point2