Fix winding of corner points for line blocks

2025-04-02 18:13:45 +01:00
parent 836a3d9dd3
commit c43aa91f1c
4 changed files with 10 additions and 15 deletions
@@ -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