justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Revert pictures to using lists rather than streams of Verx

Browse Source
This commit is contained in:
justin
2022-07-10 09:30:00 +01:00
parent dc803b64b0
commit 21f814ede1
5 changed files with 30 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Shader/Poke.hs
+2 -2
View File
@@ -31,7 +31,7 @@ pokeVerxs
-> UMV.MVector (PrimState IO) Int
-> Picture
-> IO ()
pokeVerxs vbos count = S.mapM_ (pokeVerx vbos count)
pokeVerxs vbos count = S.mapM_ (pokeVerx vbos count) . S.each
pokeVerx :: MV.MVector (PrimState IO) FullShader -> UMV.MVector (PrimState IO) Int -> Verx -> IO ()
pokeVerx vbos offsets Verx{_vxPos=thePos,_vxCol=theCol,_vxExt=ext,_vxShadNum=theShadNum} = do
@@ -204,7 +204,7 @@ pokeLayVerxs
-> UMV.MVector (PrimState IO) Int
-> Picture
-> IO ()
pokeLayVerxs vbos counts = S.mapM_ (pokeLayVerx vbos counts)
pokeLayVerxs vbos counts = S.mapM_ (pokeLayVerx vbos counts) . S.each
pokeLayVerx :: MV.MVector (PrimState IO) FullShader -> UMV.MVector (PrimState IO) Int -> Verx -> IO ()
--{-# INLINE pokeLayVerx #-}