From ef065d147c156a61d98b01b044662e55fb609061 Mon Sep 17 00:00:00 2001 From: 3gg <3gg@shellblade.net> Date: Tue, 20 Aug 2024 20:03:46 -0700 Subject: UI adjustments. --- Demos/Pong/Main.hs | 2 +- Demos/Pong/Pong.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Demos/Pong/Main.hs b/Demos/Pong/Main.hs index c863a55..21fcb0c 100644 --- a/Demos/Pong/Main.hs +++ b/Demos/Pong/Main.hs @@ -89,7 +89,7 @@ renderBackground = let pmin = 0 :: Float pmax = 1 :: Float in do - immSetColour (vec4 0.6 0.35 0.6 1.0) + immSetColour (vec4 0.0 0.25 0.41 1.0) immDrawQuads2d [ (vec2 pmin pmin ,vec2 pmax pmin diff --git a/Demos/Pong/Pong.hs b/Demos/Pong/Pong.hs index b05bb24..dd8855b 100644 --- a/Demos/Pong/Pong.hs +++ b/Demos/Pong/Pong.hs @@ -24,7 +24,7 @@ import Data.Monoid (mconcat) -- Configuration -padSize = vec2 0.07 0.02 +padSize = vec2 0.07 0.015 ballSize = 0.012 :: Float ballSpeed = 0.7 :: Float initialBallVelocity = vec2 1 1 -- cgit v1.2.3