]> git.jsancho.org Git - gacela.git/blob - examples/05-animations/05-animations.scm
Scale support variations over time
[gacela.git] / examples / 05-animations / 05-animations.scm
1 #!/usr/bin/env guile
2 !#
3
4 ;;; Gacela, a GNU Guile extension for fast games development
5 ;;; Copyright (C) 2017 by Javier Sancho Fernandez <jsf at jsancho dot org>
6 ;;;
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.
11 ;;;
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.
16 ;;;
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/>.
19
20 (use-modules (gacela))
21
22 (define (tick) (* 3000000 (get-internal-real-time)))
23 (define (waggle) (* 200 (cos (* pi (tick)))))
24 (define (wiggle) (* 300 (sin (* pi (tick)))))
25
26 (display-scene
27  (window ((resolution '(640 480)))
28    (move (image "homer.png")
29          wiggle 0)))
30
31 (display-scene
32  (window ((resolution '(640 480)))
33    (move (image "marge.png")
34          0 waggle)))