lafontaine - graphical logo interpreter
 
À propos | Nouvelles | Captures d'écran | Exemples | Téléchargements | Liens | English

Exemples >
voici une liste d'exemples simples qui, je l'espère, vous aidera à écrire vos premiers programmes.

Envoyez-moi vos meilleures réalisations, je pourrais les afficher sur cette page
 
On débute avec un carré tout simple <source>
carré VE
AV 50
TD 90

AV 50
TD 90

AV 50
TD 90

AV 50
haut
On continue avec un cercle <source>
cercle VE
REPETE 180 [ AV 1 TD 2 ]
haut
On complique: un tore maintenant <source>
tore //procédure "cercle"
POUR cercle
  REPETE 90 [AV 1 TD 4]
FIN

VE
FPOS [ 300 400 ]
REPETE 90
[
  //appel de la procédure "cercle"
  cercle
  AV 4 TD 4
]
haut
Un peut plus intéressant: le logo olympique <source>
logo olympique POUR cercle
  REPETE 180 [ AV 1 TD 2 ]
FIN

POUR place
  LC
  TD 90
  AV 60
  TG 90
  BC
FIN

VE
FPOS [ 230 400 ]

//dessin du 1er anneau (bleu)
COULEUR bleu
cercle
place

//dessin du 2d anneau (noir)
COULEUR noir
cercle
place
 //dessin du 3ème anneau (rouge)
COULEUR rouge
cercle

LC
TG 90
AV 88
TG 90
AV 35
TG 180
BC

//dessin du 4ème anneau (jaune)
COULEUR jaune
cercle
place

//dessin du 5ème anneau (vert)
COULEUR vert
cercle
haut
Dessinez des étoiles placées aléatoirement <source>
étoiles aléatoires //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
haut