From 9d18f0b8e8389ff2e44a710960b3d7406035746b Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 21 Apr 2018 20:08:26 -0400
Subject: Invert Y coordinate in mouse motion event.

Reported-By: Christopher Howard <christopher.howard@qlfiles.net>

* chickadee.scm (run-game): Invert the Y coordinate received from
SDL's mouse motion event.
---
 chickadee.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chickadee.scm b/chickadee.scm
index f847915..3e9a4dc 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -120,7 +120,7 @@
        ((mouse-motion-event? event)
         (run-hook mouse-move-hook
                   (mouse-motion-event-x event)
-                  (mouse-motion-event-y event)
+                  (invert-y (mouse-motion-event-y event))
                   (mouse-motion-event-x-rel event)
                   (- (mouse-motion-event-y-rel event))
                   (mouse-motion-event-buttons event)))
-- 
cgit v1.2.3