diff options
Diffstat (limited to 'src/game.scm')
| -rw-r--r-- | src/game.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/game.scm b/src/game.scm index 28211e9..a7f1695 100644 --- a/src/game.scm +++ b/src/game.scm @@ -19,7 +19,7 @@ (define +vsync?+ (member "--vsync" (command-line-arguments))) (sdl2:set-main-ready!) -(sdl2:init! '(video)) +(sdl2:init! '(video joystick)) (ttf:init!) (img:init! '(png)) @@ -45,6 +45,10 @@ (define *font* (ttf:open-font "DejaVuSans.ttf" 12)) (define *text-color* (sdl2:make-color 255 255 255)) +(pp (sdl2:num-joysticks)) +(define *joystick* (if (> (sdl2:num-joysticks) 0) + (sdl2:joystick-open! 0) + #f)) (set! (sdl2:render-draw-color *renderer*) +background-color+) (sdl2:render-clear! *renderer*) @@ -67,7 +71,7 @@ (sdl2:delay! 10))) -(format #t "chicken env: ~a" (get-environment-variable "CHICKEN_ENV")) +(sdl2:joystick-close *joystick*) -(format #t "hello world") +(format #t "Bye!\n") |