From 8f7ad6cdbc41a4a10ec133c6e6029928bd304025 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Sun, 12 Feb 2017 13:12:47 +0100 Subject: [PATCH] Change import-bitmap with bitmap --- examples/01-hello-world/01-hello-world.scm | 2 +- .../02-event-driven-programming.scm | 2 +- examples/fran.scm | 4 ++-- gacela/image.scm | 4 ++-- 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/examples/01-hello-world/01-hello-world.scm b/examples/01-hello-world/01-hello-world.scm index cdad143..cc5e0f3 100644 --- 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 0044ac5..2fcd3ab 100644 --- 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 964bbbc..79c0055 100644 --- 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 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)) -- 2.39.2