Couple loop with preload to allow for time "profiling"

src/Picture/Render.hs

@@ -398,6 +398,12 @@ renderPicture' pdata rot zoom (tranx,trany) (winx,winy) wallPoints lightPoints p
     blendFuncSeparate    $= ((SrcAlphaSaturate, OneMinusSrcAlpha), (Zero,One))
     renderTree pdata rot zoom (tranx,trany) (winx,winy) $ picToFTree 2 pic
 -- reset uniforms (hacky for now)
+    idmat <- (newMatrix RowMajor [1,0,0,0
+                                 ,0,1,0,0
+                                 ,0,0,1,0
+                                 ,0,0,0,1
+                                 ]
+             ) :: IO (GLmatrix GLfloat)
     forM_ [_basicShader      pdata
           ,_textShader       pdata
           ,_circShader       pdata
@@ -411,6 +417,7 @@ renderPicture' pdata rot zoom (tranx,trany) (winx,winy) wallPoints lightPoints p
         uniform (snd shad !! 1)  $= (1::Float)
         uniform (snd shad !! 2)  $= (0::Float)
         uniform (snd shad !! 3)  $= Vector2 (0::Float) 0
+        uniform (snd shad !! 4)  $= idmat
     
 
 bufferOffset :: Integral a => a -> Ptr b