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:)
28 (define (bitmap filename)
31 (let ((image (sdl2:load-image filename))
34 (lambda* (#:key (xy '(0 0)))
36 (set! texture (sdl2:surface->texture %sdl-renderer image)))
37 (sdl2:clear-renderer %sdl-renderer)
38 (sdl2:render-copy %sdl-renderer texture #:dest-rect (sdl2:make-rect (car xy) (cadr xy) (sdl2:surface-width image) (sdl2:surface-height image)))
39 (sdl2:present-renderer %sdl-renderer))))))
41 (define (move-xy x y scene)
42 (define (to-integer n)
43 (inexact->exact (round n)))
47 (let ((xy (list (to-integer (if (procedure? x) (x) x))
48 (to-integer (if (procedure? y) (y) y)))))
49 (display-scene scene #:xy xy)))))