From 09623556859dba8d3c8681867f6f5739e153a888 Mon Sep 17 00:00:00 2001 From: andromeda Date: Thu, 20 Aug 2026 23:30:29 +0200 Subject: it drawsgit status -vgit status -vgit status -vgit status -vgit status -vgit status -v --- Shaders.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Shaders.hs') diff --git a/Shaders.hs b/Shaders.hs index 2e1201f..e86279c 100644 --- a/Shaders.hs +++ b/Shaders.hs @@ -25,7 +25,7 @@ vertex :: ShaderModule "main" VertexShader VertexDefs _ vertex = shader do i <- get @"gl_VertexIndex" (Vec2 x y) <- let' $ atv3v2f vertices i (Vec2 0 0) - put @"gl_Position" (Vec4 x y 0.0 1.0) + put @"gl_Position" (Vec4 x y 0 1) type FragmentDefs = '[ "main" ':-> EntryPoint '[ OriginUpperLeft ] Fragment @@ -34,7 +34,7 @@ type FragmentDefs = fragment :: ShaderModule "main" FragmentShader FragmentDefs _ fragment = shader do - put @"out_color" (Vec4 1.0 1.0 0.0 1.0) + put @"out_color" (Vec4 1.0 0.0 1.0 1.0) atv3v2f :: Code (V 3 (V 2 Float)) -> Code Word32 -> Code (V 2 Float) -> Code (V 2 Float) atv3v2f (Vec3 x y z) i d = -- cgit v1.3.1