Add mouse query procedures.

* chickadee.scm (mouse-x, mouse-y, mouse-button-pressed?,
mouse-button-released?): New procedures.

1 files changed, 23 insertions, 2 deletions

diff --git a/chickadee.scm b/chickadee.scm
index 73aeae9..9e230a3 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -25,8 +25,9 @@
   #:use-module (sdl2)
   #:use-module (sdl2 events)
   #:use-module (sdl2 input game-controller)
-  #:use-module ((sdl2 input keyboard) #:prefix sdl2:)
   #:use-module (sdl2 input joystick)
+  #:use-module ((sdl2 input keyboard) #:prefix sdl2:)
+  #:use-module ((sdl2 input mouse) #:prefix sdl2:)
   #:use-module (sdl2 input text)
   #:use-module (sdl2 mixer)
   #:use-module (sdl2 video)
@@ -37,7 +38,11 @@
   #:use-module (chickadee render gl)
   #:use-module (chickadee render gpu)
   #:use-module (chickadee render viewport)
-  #:export (key-pressed?
+  #:export (mouse-x
+            mouse-y
+            mouse-button-pressed?
+            mouse-button-released?
+            key-pressed?
             key-released?
             current-window
             run-game)
@@ -51,6 +56,22 @@
   "Return #t if KEY is not currently being pressed."
   (sdl2:key-released? key))
 
+(define (mouse-x)
+  "Return the current X coordinate of the mouse cursor."
+  (sdl2:mouse-x))
+
+(define (mouse-y)
+  "Return the current Y coordinate of the mouse cursor."
+  (sdl2:mouse-y))
+
+(define (mouse-button-pressed? button)
+  "Return #t if BUTTON is currently being pressed."
+  (sdl2:mouse-button-pressed? button))
+
+(define (mouse-button-released? button)
+  "Return #t if BUTTON is not currently being pressed."
+  (sdl2:mouse-button-released? button))
+
 (define *controllers* (make-hash-table))
 
 (define (lookup-controller joystick-id)