UI adjustments.

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