//dessine une étoile POUR etoile :x :y :long :col REPETE 9 [ FPOS [20+:x 20+:y] FCC :col AV :long TD 40 ] FIN //dessine nb étoiles POUR etoiles :nb REPETE :nb [ DONNE "x HASARD 350 DONNE "y HASARD 350 DONNE "long HASARD 25 DONNE "col HASARD 15 etoile :x :y :long :col ] FIN VE etoiles 40 FPOS [150 50] ECRIT "Etoiles