5 (use-modules (gacela gacela))
8 (set-game-properties! #:title "Guybrush")
11 (guy (load-texture "guybrush.png"))
13 (y (+ (- (/ (assoc-ref (get-game-properties) 'height) 2))
14 (/ (assoc-ref (get-texture-properties guy) 'height) 2))))
16 (cond ((key? 'left) (set! x (- x 10))))
17 (cond ((key? 'right) (set! x (+ x 10))))