(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?)
(set! actived press))))
actived)))
-(define press (bitmap "press.bmp"))
-
(display-scene
(window ((resolution '(640 480)))
(lambda ()