X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela%2Fimage.scm;h=b1ee674bbe501fe38e8b514277665d49c3c2485d;hb=5a8e5314cceaa73d438c0b3f7a2fdb26ea9b3a2c;hp=370bbd179cdf0415e340d3ba66d2b58df4b79ea9;hpb=2a08d93dcd9a52442e59c185ac85d4344e716650;p=gacela.git 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))