(define (ballon-tourne)
(local [(define LARG 110 )
(define HAUT 110 )
(define SCENE (carre 100 100 'outline "black"))
(define BALLON ( circle 5 'solid "red"))
(define X0 (/ LARG 2))
(define Y0 (/ HAUT 2 ))
(define O ( X0 Y0 ))
(define M ( XM YM ))
(define P ((+ X0 30) Y0))
(define t (angle OP OM ))
(define INIT 0)
(define dT 5)
(define (suivant t)
((+ X0 (* cos dT 30)( - Y0 (* sin dT )))))
(define (dessiner t)
(place-image BALLON ( (+ X0 ( * cos t 30))(- Y0 (*sin t)))))
(define (final? t)
(= t 700))]
(big-bang INIT
(on-tick suivant)
(on-draw dessiner)
(stop-when final?))))can you correct me :
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
