justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Make anti-clockwise what were clockwise shapes, cleanup flash module-ing

Browse Source
This commit is contained in:
justin
2024-10-04 00:59:08 +01:00
parent ac550bc6a4
commit 075429088b
18 changed files with 128 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Placement/PlaceSpot/Block.hs
+1 -1
View File
@@ -69,7 +69,7 @@ plLineBlock basePane blwidth a b gw =
blockCenPs = snd $ evenOddSplit psOnLine
numBlocks = length blockCenPs
is = [0 .. numBlocks - 1]
cornerPoints = reverse $ rectWH halfBlockWidth depth -- goes clockwise around the block
cornerPoints = 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/Placement/PlaceSpot/Block.hs.orig
+1 -1
View File
@@ -68,7 +68,7 @@ plLineBlock basePane blwidth a b gw = ( 0
blockCenPs = snd $ evenOddSplit psOnLine
numBlocks = length blockCenPs
is = [0.. numBlocks - 1]
cornerPoints = reverse $ rectWH halfBlockWidth depth -- goes clockwise around the block
cornerPoints = 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 $ _walls gw