4 ;;; Gacela, a GNU Guile extension for fast games development
5 ;;; Copyright (C) 2017 by Javier Sancho Fernandez <jsf at jsancho dot org>
7 ;;; This program is free software: you can redistribute it and/or modify
8 ;;; it under the terms of the GNU General Public License as published by
9 ;;; the Free Software Foundation, either version 3 of the License, or
10 ;;; (at your option) any later version.
12 ;;; This program is distributed in the hope that it will be useful,
13 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;;; GNU General Public License for more details.
17 ;;; You should have received a copy of the GNU General Public License
18 ;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
20 (use-modules (gacela))
23 (define get-pressed-scene #f)
25 (set! get-pressed-scene
26 (let* ((up (image "up.bmp"))
27 (down (image "down.bmp"))
28 (left (image "left.bmp"))
29 (right (image "right.bmp"))
30 (press (image "press.bmp"))
34 (cond ((key-down? 'up)
43 (set! actived press))))
47 (window ((resolution '(640 480)))
49 (display-scene (get-pressed-scene)))))