X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2Ffran.scm;h=79c005542f946154d0c85415a31e9fde800bcf7e;hb=5b1cbb2ff0da50c9de944d81941da58669631e0a;hp=9b18db8b947093be2d02c3e63b7d195d0a0ee9e1;hpb=175c9f81e24f9cb82e2d28ce9460f471d390b9fd;p=gacela.git

diff --git a/examples/fran.scm b/examples/fran.scm
index 9b18db8..79c0055 100644
--- a/examples/fran.scm
+++ b/examples/fran.scm
@@ -22,16 +22,16 @@
 
 ;;; Reactive positions
 
-(define (waggle) (cos (* pi (current-time))))
-(define (wiggle) (sin (* pi (current-time))))
-
+(define (tick) (* 3000000 (get-internal-real-time)))
+(define (waggle) (* 200 (+ 1 (cos (* pi (tick))))))
+(define (wiggle) (* 300 (+ 1 (sin (* pi (tick))))))
 
 ;;; 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)