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

Improve picture rendering structure

Browse Source
This commit is contained in:
justin
2021-02-12 16:38:17 +01:00
parent d6f46a7fcc
commit c6bcfacc7a
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/Main.hs
+5 -1
View File
@@ -73,7 +73,11 @@ main = do
(initializeWorld $ generateFromTree lev1 $ initWorld) (initializeWorld $ generateFromTree lev1 $ initWorld)
(-- \((bs:fs:ts:_),tes) w -> --do render setparams w egFade (-- \((bs:fs:ts:_),tes) w -> --do render setparams w egFade
\preData w -> --do render setparams w egFade \preData w -> --do render setparams w egFade
renderPicture preData (draw blank w) --renderPicture preData (draw blank w)
renderPicture' preData (pictures' [--scale' 0.5 0.9 $ polygon' [(0,0),(0,0.5),(0.5,0.5),(0.5,0.0)]
scale' 0.0005 0.0005 $ text' "asdf"
]
)
-- renderTex'' preData tSh -- renderTex'' preData tSh
) )
handleEvent handleEvent