Commit before changing links

src/Dodge/Room/Data.hs

@@ -31,4 +31,8 @@ data Room = Room
     , _rmViewpoints :: [Point2]
     , _rmRandPSs :: [State StdGen (Point2,Float)]
     }
+data RoomPos 
+    = Link     (Point2,Float)
+    | UsedLink (Point2,Float)
+    | LinkInt  Int (Point2,Float)
 makeLenses ''Room

src/Dodge/Room/RoadBlock.hs

@@ -81,7 +81,7 @@ lasTunnel = defaultRoom
     { _rmPolys  = polys
     , _rmBound  = polys
     , _rmLinks  = [(V2 20 190,1.5* pi),(V2 0 20,0.5* pi)]
-    , _rmPS     = [putLasTurret & placementSpot .~ PS (V2 10 240) (1.5*pi)
+    , _rmPS     = [putLasTurret & plSpot .~ PS (V2 10 240) (1.5*pi)
         , lowWall (rectNSEW 65 40 0 25)
         , mountLightV (V2 50 10) (V3 40 20 50)
         ]

src/Dodge/Room/Start.hs

@@ -38,7 +38,7 @@ startRoom = do
             , tankSquare (dim orange) 50 50
             , tankSquare (dim orange) 50 120
             , lightSensor (V2 (0.8*w) (0.25*h)) 0
-            , putLasTurret & placementSpot .~ PS (V2 (0.8*w) (0.8*h)) 0
+            , putLasTurret & plSpot .~ PS (V2 (0.8*w) (0.8*h)) 0
             , sps0 $ PutForeground $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
             ] ++
             )