Images in development

[gacela.git] / gacela / image.scm

diff --git a/gacela/image.scm b/gacela/image.scm
index 6a9710101009f7014360f0ca2ab21c69f2fa3655..1fdeaf61441826351c459f4c1ca1c18bef0dfa0b 100644 (file)
--- 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