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

Make picture shader inputs multiples of 4

Browse Source
This commit is contained in:
justin
2025-11-20 17:09:54 +00:00
parent d0aef5cf39
commit d28e3bef6c
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Preload/Render.hs
+2 -2
View File
@@ -105,9 +105,9 @@ preloadRender = do
putStrLn "Setup 2D shaders" putStrLn "Setup 2D shaders"
bslist <- makeShaderVBO "dualTwoD/basic" [vert, frag] (toFloatVAs [4, 4]) bslist <- makeShaderVBO "dualTwoD/basic" [vert, frag] (toFloatVAs [4, 4])
aslist <- makeShaderVBO "dualTwoD/arc" [vert, frag] (toFloatVAs [4, 4, 3]) aslist <- makeShaderVBO "dualTwoD/arc" [vert, frag] (toFloatVAs [4, 4, 4])
eslist <- makeShaderVBO "dualTwoD/ellipse" [vert, geom, frag] (toFloatVAs [4, 4]) eslist <- makeShaderVBO "dualTwoD/ellipse" [vert, geom, frag] (toFloatVAs [4, 4])
cslist <- makeShaderVBO "picture/charArray" [vert, frag] (toFloatVAs [4, 4, 3]) cslist <- makeShaderVBO "picture/charArray" [vert, frag] (toFloatVAs [4, 4, 4])
shadV <- MV.new 4 shadV <- MV.new 4
zipWithM_ zipWithM_
(MV.write shadV) (MV.write shadV)
src/Shader/Poke.hs
+2 -2
View File
@@ -501,8 +501,8 @@ pokeStride :: ShadNum -> Int
{-# INLINE pokeStride #-} {-# INLINE pokeStride #-}
pokeStride PolyShad = 7 + 1 pokeStride PolyShad = 7 + 1
--pokeStride TextShad = 11 --pokeStride TextShad = 11
pokeStride TextShad = 10 + 1 pokeStride TextShad = 10 + 2
pokeStride ArcShad = 10 + 1 pokeStride ArcShad = 10 + 2
pokeStride EllShad = 7 + 1 pokeStride EllShad = 7 + 1
poke34 :: Ptr Float -> Point3 -> Point4 -> IO () poke34 :: Ptr Float -> Point3 -> Point4 -> IO ()