Move main to allow for new executables

2021-08-11 17:54:48 +02:00
parent b74bb45a4c
commit 4bbe5d0cf1
64 changed files with 521 additions and 345 deletions
@@ -15,13 +15,13 @@ door :: Room
 door = defaultRoom
    { _rmPolys = [rectNSWE 40 0 0 40]
    , _rmLinks = lnks
-    , _rmPath  = [((V2 20 35),(V2 20 5))]
+    , _rmPath  = [(V2 20 35,V2 20 5)]
 -- door extends into side walls (for shadows as rendered 12/03)
    , _rmPS    = [sPS (V2 0 20) 0 $ PutAutoDoor (V2 0 0) (V2 40 0)]
    , _rmBound = [] 
    }
-    where lnks = [((V2 20 35),0)
-                 ,((V2 20  5),pi)
+    where lnks = [(V2 20 35,0)
+                 ,(V2 20  5,pi)
                 ]