Fix winding of corner points for line blocks

src/Dodge/Placement/PlaceSpot/Block.hs

@@ -69,7 +69,7 @@ plLineBlock basePane blwidth a b gw =
     blockCenPs = snd $ evenOddSplit psOnLine
     numBlocks = length blockCenPs
     is = [0 .. numBlocks - 1]
-    cornerPoints = rectWH halfBlockWidth depth -- goes clockwise around the block
+    cornerPoints = reverse $ rectWH halfBlockWidth depth -- goes clockwise around the block
     cornersAt p = fmap ((p +.+) . rotateV (argV (b -.- a))) cornerPoints
     linesAt p = loopPairs $ cornersAt p
     wlid = IM.newKey $ gw ^. cWorld . lWorld . walls

src/Dodge/Room/LasTurret.hs

@@ -22,13 +22,14 @@ import LensHelp
 import RandomHelp
 
 cenLasTur :: Room
-cenLasTur =
-    roomNgon 8 200 & rmPmnts
-        .~ [ putLasTurret 0.02
---        .~ [ putTurret autoRifle 0.02
-           , heightWallPS (resetPLUse $ rprBoolShift (const . isInLnk) (shiftInBy 100)) 30 covershape
-           , mntLightLnkCond $ rprBool $ const . isInLnk
-           ]
+cenLasTur = roomNgon 8 200 & rmPmnts .~ 
+    [ putLasTurret 0.02
+    , heightWallPS 
+        (resetPLUse $ rprBoolShift (const . isInLnk) (shiftInBy 100)) 
+        30 
+        covershape
+    , mntLightLnkCond $ rprBool $ const . isInLnk
+    ]
   where
     covershape = rectNSWE 10 (-10) (-20) 20