From d28e3bef6cf4529d636b047438de6cdfe0dcfd90 Mon Sep 17 00:00:00 2001 From: justin Date: Thu, 20 Nov 2025 17:09:54 +0000 Subject: [PATCH] Make picture shader inputs multiples of 4 --- src/Preload/Render.hs | 4 ++-- src/Shader/Poke.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Preload/Render.hs b/src/Preload/Render.hs index b7d0bd824..dbb8c3030 100644 --- a/src/Preload/Render.hs +++ b/src/Preload/Render.hs @@ -105,9 +105,9 @@ preloadRender = do putStrLn "Setup 2D shaders" 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]) - cslist <- makeShaderVBO "picture/charArray" [vert, frag] (toFloatVAs [4, 4, 3]) + cslist <- makeShaderVBO "picture/charArray" [vert, frag] (toFloatVAs [4, 4, 4]) shadV <- MV.new 4 zipWithM_ (MV.write shadV) diff --git a/src/Shader/Poke.hs b/src/Shader/Poke.hs index 8bfbc974e..32d460b9b 100644 --- a/src/Shader/Poke.hs +++ b/src/Shader/Poke.hs @@ -501,8 +501,8 @@ pokeStride :: ShadNum -> Int {-# INLINE pokeStride #-} pokeStride PolyShad = 7 + 1 --pokeStride TextShad = 11 -pokeStride TextShad = 10 + 1 -pokeStride ArcShad = 10 + 1 +pokeStride TextShad = 10 + 2 +pokeStride ArcShad = 10 + 2 pokeStride EllShad = 7 + 1 poke34 :: Ptr Float -> Point3 -> Point4 -> IO ()