diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-06-07 19:57:06 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-06-07 19:57:06 -0400 |
| commit | c2a4f0636569978a40cb5c98875d798624909eb2 (patch) | |
| tree | ca0d993826c0adde719e3a88aec255626281340d /2d/keyboard.scm | |
| parent | def69615603e49bb17b09c7352295578f9dd67af (diff) | |
Replace vector2 module with a more generic vector module.
* 2d/vector2.scm: Delete it.
* 2d/vector.scm: New file.
* Makefile.am (SOURCES): s/vector2/vector.
* 2d/font.scm:
* 2d/keyboard.scm:
* 2d/mouse.scm:
* 2d/rect.scm:
* 2d/shader.scm:
* 2d/sprite.scm:
* 2d/texture.scm:
* 2d/transform.scm:
* 2d/window.scm:
* examples/2048/2048:
* examples/animation.scm:
* examples/coroutine.scm:
* examples/font.scm:
* examples/particles.scm:
* examples/simple.scm:
* examples/tilemap.scm: Use vectors instead of defunct vector2.
Diffstat (limited to '2d/keyboard.scm')
| -rw-r--r-- | 2d/keyboard.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/2d/keyboard.scm b/2d/keyboard.scm index d46fb76..97bc20a 100644 --- a/2d/keyboard.scm +++ b/2d/keyboard.scm @@ -25,7 +25,7 @@ #:use-module ((sdl sdl) #:prefix SDL:) #:use-module (2d event) #:use-module (2d signal) - #:use-module (2d vector2) + #:use-module (2d vector) #:export (key-press-hook key-release-hook key-last-down @@ -75,10 +75,10 @@ KEY is pressed or #f otherwise." (define (key-directions up down left right) (signal-map (lambda (up? down? left? right?) - (vector2 (+ (if left? -1 0) - (if right? 1 0)) - (+ (if up? -1 0) - (if down? 1 0)))) + (vector (+ (if left? -1 0) + (if right? 1 0)) + (+ (if up? -1 0) + (if down? 1 0)))) (key-down? up) (key-down? down) (key-down? left) |