From c6bcfacc7a1e43357bb547ee68f7393f6ffed215 Mon Sep 17 00:00:00 2001 From: jgk Date: Fri, 12 Feb 2021 16:38:17 +0100 Subject: [PATCH] Improve picture rendering structure --- app/Main.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index edcbd9c29..26d39c4de 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -73,7 +73,11 @@ main = do (initializeWorld $ generateFromTree lev1 $ initWorld) (-- \((bs:fs:ts:_),tes) 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 ) handleEvent