Further strictifying

2021-07-30 00:23:02 +02:00
parent bd8ef3f416
commit 2d8b27746c
33 changed files with 228 additions and 211 deletions
@@ -15,13 +15,13 @@ door :: Room
 door = defaultRoom
    { _rmPolys = [rectNSWE 40 0 0 40]
    , _rmLinks = lnks
-    , _rmPath  = [((20,35),(20,5))]
+    , _rmPath  = [((V2 20 35),(V2 20 5))]
 -- door extends into side walls (for shadows as rendered 12/03)
-    , _rmPS    = [sPS (0,20) 0 $ PutAutoDoor (0,0) (40,0)]
+    , _rmPS    = [sPS (V2 0 20) 0 $ PutAutoDoor (V2 0 0) (V2 40 0)]
    , _rmBound = [] 
    }
-    where lnks = [((20,35),0)
-                 ,((20, 5),pi)
+    where lnks = [((V2 20 35),0)
+                 ,((V2 20  5),pi)
                 ]