Refactoring, add screen when generating level

2021-05-03 14:44:27 +02:00
parent 2bf23db935
commit 6e6757499c
19 changed files with 342 additions and 118 deletions
@@ -17,6 +17,7 @@ data PSType = PutCrit Creature
    | PutAutoDoor Point2 Point2
    | PutBlock [Int] Color [Point2]
    | PutLineBlock Wall Float Float Point2 Point2
+    | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
    | PutDoubleDoor Color (World -> Bool) Point2 Point2
    | PutDoor Color (World -> Bool) [(Point2,Point2)]
    | PutBtDoor Color Point2 Float Point2 Point2
@@ -30,7 +31,6 @@ data PSType = PutCrit Creature
        , _collectiveFunction :: [Int] -> State StdGen [PSType]
        }
    | LabelPS { _psLabel :: Int, _ps :: PSType}
-    | PutWindow { _pwPoly :: [Point2] , _pwColor :: Color }
 data PlacementSpot = PS
    { _psPos :: Point2
    , _psRot :: Float