Improve speed of polygon rendering by folding tree type

app/Main.hs

@@ -27,7 +27,7 @@ import System.Random
 
 import qualified SDL as SDL
 import qualified SDL.Mixer as Mix
-import Graphics.Rendering.OpenGL hiding (color,scale)
+import Graphics.Rendering.OpenGL hiding (color,scale,translate,rotate)
 --Mix.openAudio Mix.defaultAudio 256 >> 
 
 initWorld = initialWorld 
@@ -37,7 +37,7 @@ initWorld = initialWorld
     }
 
 pps = [(0,0),(50,0),(0,25)]
-ppt = [(0,0),(-50,0),(20,25)]
+ppt = [(0,0),(-0.50,0),(0.20,0.25)]
 
 main :: IO ()
 main = do
@@ -50,6 +50,7 @@ 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 (polygon [(0,0),(0,-0.5),(-0.5,-0.5),(-0.5,0.0)])
                       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)]