diff --git a/wrap.fnl b/wrap.fnl index 3bb7f4e..825e3da 100644 --- a/wrap.fnl +++ b/wrap.fnl @@ -4,6 +4,8 @@ (love.graphics.newCanvas w h))) (var scale 1) +(love.mouse.setGrabbed true) +(love.mouse.setRelativeMode true) ;; set the first mode (var (mode mode-name) nil) @@ -18,8 +20,8 @@ ; THIS IS WHERE WE SET THE START MODE ; ################################### ; (set-mode :ray-cast-vectors) - (set-mode :mode-intro) - ; (set-mode :raycaster) + ; (set-mode :mode-intro) + (set-mode :raycaster) ; ################################### (canvas:setFilter "nearest" "nearest") (when (~= :web (. args 1)) (repl.start))) @@ -42,6 +44,9 @@ (when mode.update (safely #(mode.update dt set-mode)))) +(fn love.mousemoved [x y dx dy istouch] + (safely #(mode.mousemoved x y dx dy istouch))) + (fn love.keypressed [key] (if (and (love.keyboard.isDown "lctrl" "rctrl" "capslock") (= key "q")) (love.event.quit)