Refactoring

2021-05-03 23:59:20 +02:00
parent b826299cbd
commit e21178b688
20 changed files with 830 additions and 731 deletions
@@ -21,7 +21,7 @@ corridor = Room
    lnks = 
        [((20,70)  ,0)
        ,((20,70), pi/6)
-        ,((20,70), 0-pi/6)
+        ,((20,70), negate $ pi/6)
        ,((20,10)    ,pi)
        ]
 corridorN :: Room