Unify world shape and picture into spic

2021-11-01 02:00:12 +00:00
parent 86fdfd260e
commit da346bc3a0
9 changed files with 266 additions and 158 deletions
@@ -538,6 +538,7 @@ data Prop
        }
    | LinearShockwave 
        { _prDraw :: Prop -> SPic
+        , _pjPos :: Point2
        , _pjID :: Int
        , _pjUpdate :: Prop -> World -> World
        , _pjPoints :: [(Point2,Point2)]