]> git.jsancho.org Git - gacela.git/blob - examples/04-stretch-images/04-stretch-images.scm
Merge branch 'release/0.4'
[gacela.git] / examples / 04-stretch-images / 04-stretch-images.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 (display-scene
23  (window ((resolution '(640 480)))
24    (stretch
25     (bitmap "stretch.bmp")
26     2)))