Rename bitmap -> image and stretch -> scale

[gacela.git] / examples / 03-key-presses / 03-key-presses.scm

diff --git a/examples/03-key-presses/03-key-presses.scm b/examples/03-key-presses/03-key-presses.scm
index 06fa1868ab8c1e8271646eb30e6de8b36293f399..ed8a65d8ea24d210f780a7702a591035c71c077d 100644 (file)
--- a/examples/03-key-presses/03-key-presses.scm
+++ b/examples/03-key-presses/03-key-presses.scm
@@ -23,11 +23,11 @@
 (define get-pressed-scene #f)
 
 (set! get-pressed-scene
-  (let* ((up (bitmap "up.bmp"))
-        (down (bitmap "down.bmp"))
-        (left (bitmap "left.bmp"))
-        (right (bitmap "right.bmp"))
-        (press (bitmap "press.bmp"))
+  (let* ((up (image "up.bmp"))
+        (down (image "down.bmp"))
+        (left (image "left.bmp"))
+        (right (image "right.bmp"))
+        (press (image "press.bmp"))
         (actived press))
     (lambda ()
       (if (any-key-down?)
@@ -43,8 +43,6 @@
                 (set! actived press))))
       actived)))
 
-(define press (bitmap "press.bmp"))
-
 (display-scene
  (window ((resolution '(640 480)))
    (lambda ()