Fix---at least partially---level generation bug

2021-03-28 18:51:39 +02:00
parent bacaded2a5
commit 1c11d82878
10 changed files with 214 additions and 72 deletions
@@ -613,19 +613,10 @@ data PlacementSpot = PS
    , _psRot :: Float
    , _psType :: PSType
    }
-data Room = Room
-    { _rmPolys  :: [Poly]
-    , _rmLinks  :: [(Point2,Float)]
-    , _rmPath :: [(Point2, Point2)]
-    , _rmPS :: [PlacementSpot]
-    , _rmBound :: Poly
-    }

 data SubNode a = SN a | InLink | OutLink

-data RoomLink = RL {_rlPos :: Point2, _rlRot :: Float}

-makeLenses ''RoomLink
 makeLenses ''World
 makeLenses ''Cloud
 makeLenses ''Creature
@@ -652,7 +643,6 @@ makeLenses ''PressPlate
 makeLenses ''Button
 makeLenses ''PSType
 makeLenses ''PlacementSpot
-makeLenses ''Room

 numColor :: Int -> Color
 numColor 0  = (1,0,0,1)