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

Linting, haddocking

Browse Source
This commit is contained in:
justin
2021-04-29 15:31:07 +02:00
parent 750a67ea6e
commit 6a38950501
34 changed files with 506 additions and 441 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/Picture.hs
+2 -2
View File
@@ -34,12 +34,12 @@ fixedCoordPictures w = pictures
, customMouseCursor w
]
where
scaler = setDepth (-1) . scale (2 / _windowX w) (2 / _windowY w)
scaler = setDepth (-1) . scale (2 / getWindowX w) (2 / getWindowY w)
customMouseCursor :: World -> Picture
customMouseCursor w =
setDepth (-1)
. scale (2 /_windowX w) (2/ _windowY w)
. scale (2 /getWindowX w) (2/ getWindowY w)
. uncurry translate (_mousePos w)
$ pictures [ line [(-5,0),(5,0)] , line [(0,-5),(0,5)] ]