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

Tweak cursor

Browse Source
This commit is contained in:
justin
2021-03-26 11:51:22 +01:00
parent e3e54165a9
commit c4ce354382
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Rendering.hs
+1 -2
View File
@@ -52,8 +52,7 @@ customMouseCursor w =
setDepth (-1) setDepth (-1)
. scale (2 /_windowX w) (2/ _windowY w) . scale (2 /_windowX w) (2/ _windowY w)
. uncurry translate (_mousePos w) . uncurry translate (_mousePos w)
$ circleSolid 5 $ pictures [ line [(-5,0),(5,0)] , line [(0,-5),(0,5)] ]
testPic :: World -> [Picture] testPic :: World -> [Picture]
testPic w = [blank] testPic w = [blank]