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

Cleanup

Browse Source
This commit is contained in:
justin
2021-11-28 22:38:26 +00:00
parent 8c5777a1af
commit 8832a73d86
9 changed files with 21 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Zone.hs
+2 -2
View File
@@ -97,7 +97,7 @@ wallsDoubleScreen cfig w
_ -> IM.empty
(x,y) = zoneOfPoint $ _cameraCenter w
n = ceiling (wh / (_cameraZoom w * zoneSize)) * 2
wh = max (getWindowX cfig) (getWindowY cfig)
wh = max (_windowX cfig) (_windowY cfig)
xs = [x - n .. x + n]
ys = [y - n .. y + n]
@@ -114,7 +114,7 @@ wallsOnScreen cfig w
_ -> IM.empty
(x,y) = zoneOfPoint $ _cameraCenter w
n = ceiling (wh / (_cameraZoom w * zoneSize))
wh = max (getWindowX cfig) (getWindowY cfig)
wh = max (_windowX cfig) (_windowY cfig)
xs = [x - n .. x + n]
ys = [y - n .. y + n]