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))
22 (define (tick) (* 3000000 (get-internal-real-time)))
23 (define (waggle) (* 200 (cos (* pi (tick)))))
24 (define (wiggle) (* 300 (sin (* pi (tick)))))
27 (window ((resolution '(640 480)))
28 (move (image "homer.png")
32 (window ((resolution '(640 480)))
33 (move (image "marge.png")