Allow for bullet drag

2021-12-02 18:29:46 +00:00
parent 85ededc158
commit 8b8d75b016
35 changed files with 362 additions and 228 deletions
@@ -5,6 +5,7 @@ module ShapePicture
    , rotateSP
    , SPic
    , noPic
+    , noShape
    , _spShape
    , _spPicture
    )
@@ -20,6 +21,9 @@ type SPic =  (Shape, Picture)
 noPic :: Shape -> SPic
 noPic sh = (sh,mempty)

+noShape :: Picture -> SPic
+noShape pic = (mempty,pic)
+
 _spShape :: SPic -> Shape
 _spShape = fst
 _spPicture :: SPic -> Picture