Simplify MetaTrees

2022-06-13 10:25:06 +01:00
parent 768b86d393
commit 31e7f4290e
6 changed files with 97 additions and 84 deletions
@@ -126,8 +126,7 @@ rot90Around cen p = cen +.+ vNormal (p -.- cen)
 roomMiniIntro :: RandomGen g => State g (MetaTree Room)
 roomMiniIntro = do
    midroom <- join $ takeOne [miniTree2] --,glassLesson]
-    rToOnward "roomMiniIntro" 
-        midroom
+    rToOnward "roomMiniIntro" midroom

 roomCenterPillar :: RandomGen g => State g Room
 roomCenterPillar = shuffleLinks . restrictInLinks ((\p -> dist p (V2 120 0) < 10) . fst)