diff options
| author | David Thompson <dthompson2@worcester.edu> | 2020-11-16 17:23:16 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-11-16 17:27:10 -0500 |
| commit | ba0c8932395a05187824ce2835eb33331967a45a (patch) | |
| tree | 22eaafd293bf1212fb969125e2162740bebf46a3 /examples | |
| parent | f2f23c968ccc3e16163ad561cb3395bd2e02f966 (diff) | |
Remove scancode argument from key-press and key-release handlers.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/audio.scm | 2 | ||||
| -rw-r--r-- | examples/model.scm | 2 | ||||
| -rw-r--r-- | examples/tiled.scm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/examples/audio.scm b/examples/audio.scm index c9885a2..4ea697f 100644 --- a/examples/audio.scm +++ b/examples/audio.scm @@ -49,7 +49,7 @@ Q - quit") (draw-text status-message status-position)) (draw-text instructions instructions-position)) -(define (key-press key scancode modifiers repeat?) +(define (key-press key modifiers repeat?) (match key ('q (abort-game)) ('space (source-toggle music-source)) diff --git a/examples/model.scm b/examples/model.scm index d345988..f7ef9f7 100644 --- a/examples/model.scm +++ b/examples/model.scm @@ -56,7 +56,7 @@ (set! y-rotation (+ y-rotation 0.03)) (matrix4-rotate-y! model-matrix y-rotation)) -(define (key-press key scancode modifiers repeat?) +(define (key-press key modifiers repeat?) (cond ((eq? key 'q) (abort-game)) diff --git a/examples/tiled.scm b/examples/tiled.scm index e1bf22a..c64f7b6 100644 --- a/examples/tiled.scm +++ b/examples/tiled.scm @@ -20,7 +20,7 @@ (draw-text text text-position)) (define inc 8.0) -(define (key-press key scancode modifiers repeat?) +(define (key-press key modifiers repeat?) (match key ('up (set-vec2-y! camera (- (vec2-y camera) inc))) ('down (set-vec2-y! camera (+ (vec2-y camera) inc))) |