aboutsummaryrefslogtreecommitdiff
path: root/Demos/Pong
diff options
context:
space:
mode:
Diffstat (limited to 'Demos/Pong')
-rw-r--r--Demos/Pong/Main.hs2
-rw-r--r--Demos/Pong/Pong.hs2
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
27padSize = vec2 0.07 0.02 27padSize = vec2 0.07 0.015
28ballSize = 0.012 :: Float 28ballSize = 0.012 :: Float
29ballSpeed = 0.7 :: Float 29ballSpeed = 0.7 :: Float
30initialBallVelocity = vec2 1 1 30initialBallVelocity = vec2 1 1