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