X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela%2Fimage.scm;h=1fdeaf61441826351c459f4c1ca1c18bef0dfa0b;hp=6a9710101009f7014360f0ca2ab21c69f2fa3655;hb=f3487d80c29eb9a6ecc23686c5010bffb364af22;hpb=175c9f81e24f9cb82e2d28ce9460f471d390b9fd

diff --git a/gacela/image.scm b/gacela/image.scm
index 6a97101..1fdeaf6 100644
--- a/gacela/image.scm
+++ b/gacela/image.scm
@@ -17,18 +17,26 @@
 
 (define-module (gacela image)
   #:use-module (gacela scene)
-  #:use-module ((sdl2 surface) #:prefix sdl2:)
+  #:use-module (gacela game)
+  #:use-module ((sdl2 image) #:prefix sdl2:)
+  #:use-module ((sdl2 render) #:prefix sdl2:)
   #:export (import-bitmap
 	    move-xy))
 
 (define-syntax-rule (import-bitmap filename)
   (make-scene
    "bitmap"
-   (let ((surface (sdl2:load-bmp filename)))
+   (let ((image (sdl2:load-image filename))
+	 (texture #f))
      (let ((a 0))
        (lambda ()
-	 (set! a (+ a 1))
-	 (format #t "Steps: ~a~%" a))))))
+	 (if (not texture)
+	     (set! texture (sdl2:surface->texture %sdl-renderer image)))
+	 ;; (set! a (+ a 1))
+	 ;; (format #t "~a steps with texture ~a~%" a texture))))))
+	 (sdl2:clear-renderer %sdl-renderer)
+	 (sdl2:render-copy %sdl-renderer texture)
+	 (sdl2:present-renderer %sdl-renderer))))))
 
 (define-syntax-rule (move-xy x y scene)
   (make-scene