Try to add compute shaders

src/Dodge/Floor.hs

@@ -15,6 +15,12 @@ import Dodge.Tree
 import LensHelp
 import RandomHelp
 
+startWorldTreeTest :: Annotation
+startWorldTreeTest  =
+    OnwardList $
+            [ IntAnno $ AnTree . startRoom
+            ]
+
 initialAnoTree :: Annotation
 initialAnoTree =
     OnwardList $
@@ -103,4 +109,5 @@ initialAnoTree =
 
 -- | A test level tree.
 initialRoomTree :: State (StdGen, Int) (MetaTree Room String)
-initialRoomTree = annoToRoomTree initialAnoTree
+--initialRoomTree = annoToRoomTree initialAnoTree
+initialRoomTree = annoToRoomTree startWorldTreeTest