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/Pong')
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