aboutsummaryrefslogtreecommitdiff
path: root/Demos
diff options
context:
space:
mode:
author3gg <3gg@shellblade.net>2024-08-20 20:03:46 -0700
committer3gg <3gg@shellblade.net>2024-08-20 20:03:46 -0700
commitef065d147c156a61d98b01b044662e55fb609061 (patch)
treed50be192d7c5321cc10a716b8587ec43bfbde250 /Demos
parent87065dc4abe2e987da18e6735b00ef88a940372a (diff)
UI adjustments.HEADmain
Diffstat (limited to 'Demos')
-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