Complete stritifying points

src/Dodge/Floor.hs

@@ -3,7 +3,7 @@ The tree of rooms that make up a level. -}
 module Dodge.Floor
     ( levx
     ) where
---import Geometry
+import Geometry.Data
 --import Picture
 import Dodge.Data
 --import Dodge.Room
@@ -51,9 +51,9 @@ roomTreex = do
             ,[Corridor]
             ,[Corridor]
             ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
-                & rmPS %~ ([sPS (0,50) 0 $ PutCrit armourChaseCrit 
-                            ,sPS (50,25) 0 $ PutCrit armourChaseCrit 
-                            ,sPS (50,0) 0 $ PutCrit armourChaseCrit 
+                & rmPS %~ ([sPS (V2 0 50) 0 $ PutCrit armourChaseCrit 
+                            ,sPS (V2 50 25) 0 $ PutCrit armourChaseCrit 
+                            ,sPS (V2 50 0) 0 $ PutCrit armourChaseCrit 
                             ]++)
              ]
             --,[Corridor]
@@ -61,7 +61,7 @@ roomTreex = do
             --    & rmPS %~ ([swarmPS 0 (x,y) 0 swarmCrit | x <- [-20,-19.5.. 20] , y <- [200,202] ]++)
             -- ]
             ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
-                & rmPS %~ ([sPS (0,50) 0 $ PutCrit pistolCrit ]++)
+                & rmPS %~ ([sPS (V2 0 50) 0 $ PutCrit pistolCrit ]++)
              ]
             ,[Corridor]
             ,[Corridor]