From 175c9f81e24f9cb82e2d28ce9460f471d390b9fd Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Fri, 9 Sep 2016 19:27:39 +0200
Subject: [PATCH] Fran example using scenes

---
 examples/blue.bmp | Bin 0 -> 6538 bytes
 examples/fran.scm |  17 ++++++++---------
 examples/red.bmp  | Bin 0 -> 6538 bytes
 3 files changed, 8 insertions(+), 9 deletions(-)
 create mode 100644 examples/blue.bmp
 create mode 100644 examples/red.bmp

diff --git a/examples/blue.bmp b/examples/blue.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..a2e5b0d5dc4335071cedc0ba057de9079b1a8c37
GIT binary patch
literal 6538
zcmeH{F>ZrE5JfjhnZ{D8G?B}c909pW<t7&aDQzTrHynW@_y`=uNAMBIe+iQUCGxIW
z7A!IH_X4}~|KAyw-Tv_GzT=?(PvN!4o!hzxW;Flw_ycbH=$!lgx!v3QhfVm7_r43)
zb!!D~paPrj#chR5$a`?jGv?+9bn#LMwa^Ghq3yvn&zLI&)~4`kzAEYA<t%g;z#7()
zGo?@ZRrXpwzJ|WdCme9aj7)sBa1w^Pq4#jW1!s(arxC8H*?->Qf^)1#`oLaedNa>(
z!hLP8H_9!AlVF^&N4U{ID>QQDv_fo8Lq0Un3JLa82~+fS=noCFLTZ?*cILH}zmOUh
ziE3y5s3Dp@L7i*Ca#M|H`t*3Kb<GU^&_w%EWLk5a!5^AvUy9Uc!``1(-h9r;()}&H
zzr3SMJ|CR%C4XNyKZQJ=1$%d=9??S6H&UMw-?MA}>2W2bs396?p&1gXY8YBO+XMS4
zg_F=t1h~-%t(|$~TT=^D^chaL(HIk%@*5$hN4VgGJ4V36Ug<|S5^%s3%bV?wK9oW$
zTvJPO$c1BUPtDVC+=x3DD#6#M`67p0IHnHsSxBoE8sRA58F0-r<_aN|ufO(<SNfIp
RKJdad&zM_dt-vi;;0x&&QqTYZ

literal 0
HcmV?d00001

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 0000000000000000000000000000000000000000..8859e4bc671d459b0d5ade8f4e6b5ec49344b42d
GIT binary patch
literal 6538
zcmeH{F>Zq}7=>v&c8S!fo5zkE0cGjbr56FIYbEw99DyU`2pokY<Ou2eTK+0Ri44S;
zL<05I#P<K*=if@UAG_D&_u1+HxAfNOA#uqQD_Vbf{u3X&=a?k_f64a!^UD^7j*mk(
zuKU&w+(8F6`a(D<m9kE}GsoHzM<5rLT&kp6+DlC*-kD=9m)IMF)woLK!E%s}9<hhL
z)Xd50<X?1IL%90f#)$`BNx&zSUnR9tKX>eBJn+IZ1R_4QG^J;k*zv;iT1M`Hvxa0d
zW<2pGV@e-4sw<>cGSAQ>-eiz9mN8RJBZX$_`;kG`7(UKZN^{(6pN|Z(#`G{&?~Jt(
z-<Tfek$Pu*^pMOUcTArv$!cSbWDdDwr+xJTd}NaC>tU)r`vv&OB-_WAX-~5NADLv|
zJKwF}uTzif1@4zjvVHf<cl?%rU*ONhc#w3MC?bnYU+-)^)7~Z$8$BS4Ow0F;+;J(z
z=ph+ok?G?)UC*??kyJFR$RO)9d&oQIDWq1KixF=!#`ezmooXv-j(f%vZ!#=z%9yIY
zmO?V(g(u!qnEEyNaMo6m;Z?!|uTX5p>f~8SjWnf~)KH5DUgjHe+{ibRN@*ykaZy7p
x9wC{|c^PM}tV*h-y#zDjojKNWDHhiyRwstE<A8;C=3?~f9Md|tb|6#-egNHD^O*nu

literal 0
HcmV?d00001

-- 
2.39.2