Add shrinkability and cursed items

2021-11-18 18:30:22 +00:00
parent 147d6098ab
commit a546d070f0
82 changed files with 273 additions and 233 deletions
@@ -4,6 +4,7 @@ module ShapePicture
    , translateSPz
    , rotateSP
    , SPic
+    , noPic
    , _spShape
    , _spPicture
    )
@@ -16,6 +17,9 @@ import Data.Bifunctor

 type SPic =  (Shape, Picture)

+noPic :: Shape -> SPic
+noPic sh = (sh,mempty)
+
 _spShape :: SPic -> Shape
 _spShape = fst
 _spPicture :: SPic -> Picture