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(-)

(limited to 'Demos')

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