 
 M: dinput-game-input-backend reset-mouse
     +mouse-device+ get [ f MOUSE-BUFFER-SIZE read-device-buffer ]
-    [ 2drop ] [ ] with-acquisition ;
+    [ 2drop ] [ ] with-acquisition
+    +mouse-state+ get
+        0 >>dx
+        0 >>dy
+        0 >>scroll-dx
+        0 >>scroll-dy
+        drop ;

math.rectangles accessors math alien alien.strings
io.encodings.utf16 io.encodings.utf16n continuations
byte-arrays game-input.dinput.keys-array game-input
ui.backend.windows windows.errors ;
IN: game-input.dinput

CONSTANT: MOUSE-BUFFER-SIZE 16

    GUID_SysMouse device-for-guid
    [ configure-mouse ]
    [ +mouse-device+ set-global ] bi
    0 0 0 0 8 f <array> mouse-state boa
    +mouse-state+ set-global
    MOUSE-BUFFER-SIZE "DIDEVICEOBJECTDATA" <c-array>
    +mouse-buffer+ set-global ;

