Improve picture rendering structure

2021-02-12 16:38:17 +01:00
parent d6f46a7fcc
commit c6bcfacc7a
1 changed files with 5 additions and 1 deletions
@@ -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