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
@@ -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