From: Javier Sancho <jsf@jsancho.org>
Date: Fri, 9 Sep 2016 17:27:39 +0000 (+0200)
Subject: Fran example using scenes
X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=commitdiff_plain;h=175c9f81e24f9cb82e2d28ce9460f471d390b9fd

Fran example using scenes
---

diff --git a/examples/blue.bmp b/examples/blue.bmp
new file mode 100644
index 0000000..a2e5b0d
Binary files /dev/null and b/examples/blue.bmp differ
diff --git a/examples/fran.scm b/examples/fran.scm
index 291a543..9b18db8 100644
--- a/examples/fran.scm
+++ b/examples/fran.scm
@@ -22,17 +22,16 @@
 
 ;;; Reactive positions
 
-(define PI 3.14159265)
-(define (waggle) (cos (* PI (current-time))))
-(define (wiggle) (sin (* PI (current-time))))
+(define (waggle) (cos (* pi (current-time))))
+(define (wiggle) (sin (* pi (current-time))))
 
 
 ;;; First example
 
-(define charlotte (importBitmap "charlotte.bmp"))
-(define leftRightCharlotte (moveXY wiggle 0 charlotte))
-(leftRightCharlotte)
+(define red (import-bitmap "red.bmp"))
+(define left-right-red (move-xy wiggle 0 red))
+(run-scene left-right-red)
 
-(define pat (importBitmap "pat.bmp"))
-(define upDownPat (moveXY 0 waggle pat))
-(upDownPat)
+(define blue (import-bitmap "blue.bmp"))
+(define up-down-blue (move-xy 0 waggle blue))
+(run-scene up-down-blue)
diff --git a/examples/red.bmp b/examples/red.bmp
new file mode 100644
index 0000000..8859e4b
Binary files /dev/null and b/examples/red.bmp differ