Site hosted by Angelfire.com: Build your free website today!

H. Construire un générateur de couleurs aléatoire : Exemple de code

pour tire_couleur
  bidon.fcouleur (liste hasard 256 hasard 256 hasard 256)
end
On doit utiliser les parenthèses rondes () lorsque le rapporteur a plus de deux paramètres.

pour coul_aléat :c
  lc
  tire_couleur
  repete 4[av :c+2 peins re :c+2 dr 90]
  dr 45
  tire_couleur
  repete 4[av :c+2 peins re :c+2 dr 90]
  dr 22.5
  tire_couleur
  repete 4[av 4 peins re 4 dr 90]
  dr 45
  tire_couleur
  repete 4[av 4peins re 4 dr 90]
  tire_couleur
  repete 4[av 2*:c peins re 2*:c dr 90]
  dr 45
  tire_couleur
  repete 4[av 2*:c peins re 2*:c dr 90]
  fcap 0
end

pour rosace_aléat :c
  bc
  repete 8 [octogone :c dr 45]
  coul_aléat :c
end
pour au_boulot_ter
  rosace_aléat premier boitequestion [Côté] [Longueur du côté ?]
end
pour début_ter
  ct
  bouton.crée "Ecran [rosace] [Tracer rosace] -360 -40 120 25 [au_boulot_ter]
  bouton.crée "Ecran [effacer] [Effacer] -360 -75 120 25 [vg]
  origine
end

<RETOUR>