From c2a4f0636569978a40cb5c98875d798624909eb2 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 7 Jun 2014 19:57:06 -0400 Subject: 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. --- 2d/mouse.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to '2d/mouse.scm') diff --git a/2d/mouse.scm b/2d/mouse.scm index 0942d9a..388b139 100644 --- a/2d/mouse.scm +++ b/2d/mouse.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 (mouse-move-hook mouse-press-hook mouse-click-hook @@ -47,9 +47,9 @@ (define-signal mouse-position (hook->signal mouse-move-hook - null-vector2 + #(0 0) (lambda (x y) - (vector2 x y)))) + (vector x y)))) (define-signal mouse-x (signal-map vx mouse-position)) (define-signal mouse-y (signal-map vy mouse-position)) -- cgit v1.2.3