Rmove overlay framebuffer, directly draw overlay instead

2023-04-11 16:55:00 +01:00
parent d79216555b
commit 33a6e471ae
8 changed files with 123 additions and 137 deletions
@@ -15,6 +15,11 @@ import Dodge.Tree
 import LensHelp
 import RandomHelp

+-- | A test level tree.
+initialRoomTree :: State (StdGen, Int) (MetaTree Room String)
+initialRoomTree = annoToRoomTree initialAnoTree
+--initialRoomTree = annoToRoomTree startWorldTreeTest
+
 startWorldTreeTest :: Annotation
 startWorldTreeTest  =
    OnwardList $
@@ -106,8 +111,3 @@ initialAnoTree =
              --    ,[Corridor]
              AnTree $ randomFourCornerRoom [] >>= rToOnward "randomFourCornerRoom" . pure . cleatOnward
            ]
-
-- | A test level tree.
-initialRoomTree :: State (StdGen, Int) (MetaTree Room String)
--initialRoomTree = annoToRoomTree initialAnoTree
-initialRoomTree = annoToRoomTree startWorldTreeTest