Reimplement text rendering, slow

app/Main.hs

@@ -1,6 +1,81 @@
 module Main where
 
-import Lib
+import Loop
+import EventHelper
+import Shaders
+import Render
+import Shapes
+
+import Dodge.Rendering
+import Dodge.RenderPicture
+import Dodge.Picture
+import Dodge.Prototypes
+import Dodge.Data
+import Dodge.Initialisation
+import Dodge.Rooms
+import Dodge.Layout
+import Dodge.LoadSound
+import Dodge.Update
+import Dodge.KeyEvents
+import Dodge.Preload
+
+import Control.Concurrent
+import Control.Lens
+ 
+import System.Random
+
+import qualified SDL as SDL
+import qualified SDL.Mixer as Mix
+import Graphics.Rendering.OpenGL hiding (color,scale)
+--Mix.openAudio Mix.defaultAudio 256 >> 
+
+initWorld = initialWorld 
+    { _randGen = mkStdGen 2
+    , _windowX = 800
+    , _windowY = 600
+    }
+
+pps = [(0,0),(50,0),(0,25)]
+ppt = [(0,0),(-50,0),(20,25)]
+
+tSh = TextShape 
+        [((0.0,0.0,0),(1,0,1,1),(s,1))
+        ,((0.5,0.0,0),(1,1,1,1),(e,1))
+        ,((0.5,1.0,0),(1,1,1,1),(e,0))
+        ,((0.0,1.0,0),(1,1,1,1),(s,0))
+        ]
+    where x = 1/128
+          s = 20 * x
+          e = s + x
+tSh' = TShape' 
+        [0.0,0.0,0,1,0,1,1,s,1
+        ,0.5,0.0,0,1,1,1,1,e,1
+        ,0.5,1.0,0,1,1,1,1,e,0
+        ,0.0,1.0,0,1,1,1,1,s,0
+        ] TriangleFan
+    where x = 1/128
+          s = 20 * x
+          e = s + x
+tSha = TShape' 
+    [0.0,0.0,0,1,1,1,1
+    ,50 ,0.0,0,1,1,1,1
+    ,50 ,50 ,0,1,1,1,1
+    ,0.0,1.0,0,1,1,1,1
+    ] TriangleFan
 
 main :: IO ()
-main = someFunc
+main = do
+--    loadedSounds <- loadSounds
+    setupLoop 
+        "windowName"
+        800 600
+        doPreload'
+        (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)
+          --              renderTex'' preData tSh
+        )
+        handleEvent
+        (\w -> Just $ update w)
+    Mix.closeAudio