(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 [email protected].
For more options, visit https://groups.google.com/d/optout.
