1 ;;; Gacela, a GNU Guile extension for fast games development
2 ;;; Copyright (C) 2016 by Javier Sancho Fernandez <jsf at jsancho dot org>
4 ;;; This program is free software: you can redistribute it and/or modify
5 ;;; it under the terms of the GNU General Public License as published by
6 ;;; the Free Software Foundation, either version 3 of the License, or
7 ;;; (at your option) any later version.
9 ;;; This program is distributed in the hope that it will be useful,
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 ;;; GNU General Public License for more details.
14 ;;; You should have received a copy of the GNU General Public License
15 ;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
18 (define-module (gacela image)
19 #:use-module (gacela scene)
20 #:use-module (gacela game)
21 #:use-module ((sdl2) #:prefix sdl2:)
22 #:use-module ((sdl2 image) #:prefix sdl2:)
23 #:use-module ((sdl2 render) #:prefix sdl2:)
24 #:use-module ((sdl2 surface) #:prefix sdl2:)
30 (define (bitmap filename)
33 (let ((image (sdl2:load-image filename))
39 (set! texture (sdl2:surface->texture %sdl-renderer image))
40 (set! w/2 (/ (sdl2:surface-width image) 2))
41 (set! h/2 (/ (sdl2:surface-height image) 2)))
42 (gl-enable (oes-framebuffer-object texture-2d))
43 (sdl2:bind-texture texture)
44 (gl-begin (begin-mode quads)
45 (gl-texture-coordinates 0 0)
46 (gl-vertex (- w/2) h/2 0)
47 (gl-texture-coordinates 1 0)
49 (gl-texture-coordinates 1 1)
50 (gl-vertex w/2 (- h/2) 0)
51 (gl-texture-coordinates 0 1)
52 (gl-vertex (- w/2) (- h/2) 0))
53 (gl-disable (oes-framebuffer-object texture-2d))))))
55 (define (move-xy x y scene)
56 (define (to-integer n)
57 (inexact->exact (round n)))
61 (let ((xy (list (to-integer (if (procedure? x) (x) x))
62 (to-integer (if (procedure? y) (y) y)))))
63 (display-scene scene #:xy xy)))))
65 (define* (stretch scene x #:optional (y x) (z y))
70 (display-scene scene))))