X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela%2Fimage.scm;fp=gacela%2Fimage.scm;h=b1ee674bbe501fe38e8b514277665d49c3c2485d;hp=370bbd179cdf0415e340d3ba66d2b58df4b79ea9;hb=8f7ad6cdbc41a4a10ec133c6e6029928bd304025;hpb=ee72c2bc37b7d06fbf90b27fa8e45e6f2d4e27bc diff --git a/gacela/image.scm b/gacela/image.scm index 370bbd1..b1ee674 100644 --- a/gacela/image.scm +++ b/gacela/image.scm @@ -22,10 +22,10 @@ #:use-module ((sdl2 image) #:prefix sdl2:) #:use-module ((sdl2 render) #:prefix sdl2:) #:use-module ((sdl2 surface) #:prefix sdl2:) - #:export (import-bitmap + #:export (bitmap move-xy)) -(define (import-bitmap filename) +(define (bitmap filename) (make-scene "bitmap" (let ((image (sdl2:load-image filename))