X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=examples%2F03-key-presses%2F03-key-presses.scm;h=ed8a65d8ea24d210f780a7702a591035c71c077d;hp=06fa1868ab8c1e8271646eb30e6de8b36293f399;hb=e1e0e1c4a98a9b27391eeef40dea40a59d983710;hpb=7ecc9a91bf7d9fa65cee7456fc1db5c573ddd4fa

diff --git a/examples/03-key-presses/03-key-presses.scm b/examples/03-key-presses/03-key-presses.scm
index 06fa186..ed8a65d 100644
--- 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 ()