Move towards removing renderStrategy data

src/Dodge/Render/Picture.hs

@@ -19,6 +19,8 @@ import Control.Lens
 import Data.Maybe
 import Data.List (partition)
 import qualified Data.IntMap.Lazy as IM
+import Foreign.Ptr
+import Foreign.Storable
 
 worldPictures :: World -> Picture
 worldPictures w = 
@@ -209,6 +211,38 @@ wallsAndWindows w
     f wl = (_wlLine wl, _wlColor wl)
     (wins,wls) = partition _wlIsSeeThrough . IM.elems $ wallsDoubleScreen w
 
+wallsToList :: [((Point2,Point2),Point4)] -> [Float]
+wallsToList = concatMap (\(((a,b),(c,d)),(e,f,g,h)) -> [a,b,c,d,e,f,g,h])
+
+pokePoint3s :: Ptr Float -> [Point3] -> IO Int
+pokePoint3s ptr vals0 = go vals0 0
+  where
+    go [] n = return n
+    go ( (a,b,c):vals) n = do
+        pokeElemOff ptr (off 0) a
+        pokeElemOff ptr (off 1) b
+        pokeElemOff ptr (off 2) c
+        go vals (n+1)
+      where
+        off i = n*3 + i
+
+pokeWalls :: Ptr Float -> [((Point2,Point2),Point4)] -> IO Int
+pokeWalls ptr vals0 = go vals0 0
+  where
+    go [] n = return n
+    go ( (((a,b),(c,d)),(e,f,g,h)):vals) n = do
+        pokeElemOff ptr (off 0) a
+        pokeElemOff ptr (off 1) b
+        pokeElemOff ptr (off 2) c
+        pokeElemOff ptr (off 3) d
+        pokeElemOff ptr (off 4) e
+        pokeElemOff ptr (off 5) f
+        pokeElemOff ptr (off 6) g
+        pokeElemOff ptr (off 7) h
+        go vals (n+1)
+      where
+        off i = n*8 + i
+
 lightsForGloom :: World -> [(Point3,Float,Float)]
 lightsForGloom w = map getLS (IM.elems $ _lightSources w) ++ map getTLS (_tempLightSources w)
   where