Change import-bitmap with bitmap

diff --git a/examples/01-hello-world/01-hello-world.scm b/examples/01-hello-world/01-hello-world.scm
index cdad143f017f5dd5bc422b0b407779a3af2dc6b6..cc5e0f3a506094116925b08b072cc16c0afeedf4 100644 (file)
--- a/examples/01-hello-world/01-hello-world.scm
+++ b/examples/01-hello-world/01-hello-world.scm
@@ -21,4 +21,4 @@
 
 (display-scene
  (window '(#:resolution (640 480))
-        (import-bitmap "hello-world.bmp")))
+        (bitmap "hello-world.bmp")))

diff --git a/examples/02-event-driven-programming/02-event-driven-programming.scm b/examples/02-event-driven-programming/02-event-driven-programming.scm
index 0044ac53160b33c7fc31663b4fc75e4fbd68b905..2fcd3ababc46925c9ad0f78d8b1a4c0860ee4ef1 100644 (file)
--- a/examples/02-event-driven-programming/02-event-driven-programming.scm
+++ b/examples/02-event-driven-programming/02-event-driven-programming.scm
@@ -21,4 +21,4 @@
 
 (display-scene
  (window '(#:resolution (640 480))
-        (import-bitmap "x.bmp")))
+        (bitmap "x.bmp")))

diff --git a/examples/fran.scm b/examples/fran.scm
index 964bbbccf21450f0dd68633fd66f7acbec1f366f..79c005542f946154d0c85415a31e9fde800bcf7e 100644 (file)
--- a/examples/fran.scm
+++ b/examples/fran.scm
@@ -28,10 +28,10 @@
 
 ;;; First example
 
-(define red (import-bitmap "red.bmp"))
+(define red (bitmap "red.bmp"))
 (define left-right-red (move-xy wiggle 0 red))
 (run-scene left-right-red)
 
-(define blue (import-bitmap "blue.bmp"))
+(define blue (bitmap "blue.bmp"))
 (define up-down-blue (move-xy 0 waggle blue))
 (run-scene up-down-blue)

diff --git a/gacela/image.scm b/gacela/image.scm
index 370bbd179cdf0415e340d3ba66d2b58df4b79ea9..b1ee674bbe501fe38e8b514277665d49c3c2485d 100644 (file)
--- 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))