From ed08221048ecc7f8f504a038ec8d16a252c14d1d Mon Sep 17 00:00:00 2001 From: IC Rainbow Date: Wed, 19 Apr 2023 22:20:42 +0300 Subject: [PATCH] Tweak renderGeometry example once again To make blending controls more apparent. --- examples/RenderGeometry.hs | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/examples/RenderGeometry.hs b/examples/RenderGeometry.hs index cc1c4b0..0ded2e0 100644 --- a/examples/RenderGeometry.hs +++ b/examples/RenderGeometry.hs @@ -33,28 +33,25 @@ main = do } SDL.showWindow window - -- SDL.windowOpacity window $= 0.5 renderer <- SDL.createRenderer window (-1) SDL.defaultRenderer - -- _ <- SDL.glCreateContext window - let - l = fromIntegral screenWidth * 0.33 - t = fromIntegral screenHeight * 0.33 - r = fromIntegral screenWidth * 0.66 - b = fromIntegral screenHeight * 0.66 + tl = fromIntegral screenWidth * 0.1 + tt = fromIntegral screenHeight * 0.1 + tr = fromIntegral screenWidth * 0.9 + tb = fromIntegral screenHeight * 0.9 triVertices = V.fromList [ SDL.Vertex - (FPoint l b) + (FPoint tl tb) (Color 0xFF 0 0 255) (FPoint 0 0) , SDL.Vertex - (FPoint r b) + (FPoint tr tb) (Color 0 0xFF 0 255) (FPoint 0 1) , SDL.Vertex - (FPoint r t) + (FPoint (tl/2 + tr/2) tt) (Color 0 0 0xFF 255) (FPoint 1 1) ]