diff options
| author | 3gg <3gg@shellblade.net> | 2024-08-20 20:03:46 -0700 |
|---|---|---|
| committer | 3gg <3gg@shellblade.net> | 2024-08-20 20:03:46 -0700 |
| commit | ef065d147c156a61d98b01b044662e55fb609061 (patch) | |
| tree | d50be192d7c5321cc10a716b8587ec43bfbde250 /Demos/Pong | |
| parent | 87065dc4abe2e987da18e6735b00ef88a940372a (diff) | |
UI adjustments.
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 |