diff options
Diffstat (limited to 'Demos/Pong')
-rw-r--r-- | Demos/Pong/Main.hs | 2 | ||||
-rw-r--r-- | 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 = | |||
89 | let pmin = 0 :: Float | 89 | let pmin = 0 :: Float |
90 | pmax = 1 :: Float | 90 | pmax = 1 :: Float |
91 | in do | 91 | in do |
92 | immSetColour (vec4 0.6 0.35 0.6 1.0) | 92 | immSetColour (vec4 0.0 0.25 0.41 1.0) |
93 | immDrawQuads2d [ | 93 | immDrawQuads2d [ |
94 | (vec2 pmin pmin | 94 | (vec2 pmin pmin |
95 | ,vec2 pmax pmin | 95 | ,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) | |||
24 | 24 | ||
25 | -- Configuration | 25 | -- Configuration |
26 | 26 | ||
27 | padSize = vec2 0.07 0.02 | 27 | padSize = vec2 0.07 0.015 |
28 | ballSize = 0.012 :: Float | 28 | ballSize = 0.012 :: Float |
29 | ballSpeed = 0.7 :: Float | 29 | ballSpeed = 0.7 :: Float |
30 | initialBallVelocity = vec2 1 1 | 30 | initialBallVelocity = vec2 1 1 |