X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=examples%2Ffran.scm;h=964bbbccf21450f0dd68633fd66f7acbec1f366f;hp=9b18db8b947093be2d02c3e63b7d195d0a0ee9e1;hb=2a08d93dcd9a52442e59c185ac85d4344e716650;hpb=f3487d80c29eb9a6ecc23686c5010bffb364af22

diff --git a/examples/fran.scm b/examples/fran.scm
index 9b18db8..964bbbc 100644
--- a/examples/fran.scm
+++ b/examples/fran.scm
@@ -22,9 +22,9 @@
 
 ;;; 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