optimization with new graphics library

src/Main.hs

@@ -2,7 +2,7 @@ module Main where
 
 import Linear as L
 
-import Data.Matrix as M
+import Data.Matrix as M hiding ((<->))
 import qualified Data.Vector as V
 import Data.Maybe
 
@@ -76,19 +76,21 @@ main = do
         return Nothing
       _ -> return Nothing
     outputs <- withMVar state draw
-    withMVar state (\s -> when (not (stop s)) $ do
+    image <- withMVar state (\s -> do
-      let foutput = V.toList $
+      let foutput =
-            V.foldl (\acc a -> acc V.++ a V.++ V.singleton '\n')
+            V.foldl (\acc a -> acc <-> a)
-              V.empty
+              emptyImage
               ( outputs
               -- V.++ V.singleton (V.fromList $ show char)
               -- V.++ V.singleton (V.fromList $ show (pos s) ++ " " ++ show (rot s))
-              V.++ V.singleton (V.empty)
+              V.++ V.singleton (emptyImage)
-              V.++ V.singleton (V.empty)
+              V.++ V.singleton (emptyImage)
-              V.++ V.singleton (V.empty)
+              V.++ V.singleton (emptyImage)
               )
-      deepseq foutput (putStr foutput)
+      pure foutput
       )
+    let picture = picForImage image
+    update vty picture
     -- threadDelay msdelay
   -- hSetEcho stdin True
   -- showCursor
@@ -114,17 +116,17 @@ handleInput char state = do
         _ -> state
   return nstate
 
-draw :: State -> IO (V.Vector (V.Vector Char))
+draw :: State -> IO (V.Vector Image)
 draw (State ppos prot _ _ vty) = do
   (w, h) <- displayBounds (outputIface vty)
-  let dims@(dw, dh) = (w, (h - 4))
+  let dims@(dw, dh) = (w, h - 4)
-      out = (V.generate (fromIntegral dh)
+      out = V.generate (fromIntegral dh)
-        ((\mh ->
+        ((\mh -> string defAttr $  V.toList $
           V.map
           (\mw -> drawPixel prot ppos dims (mw, mh))
           (V.generate (fromIntegral dw) fromIntegral)
           ) . fromIntegral)
-        ) `using` parVector
+        `using` parVector
   return out
 
 drawPixel :: Double -> V2 Double -> (Int, Int) -> (Double, Double) -> Char