Anneaux civilisationnels

 

Vus par Jean-François Lucas

 

Cliquez sur Précédente afin de revenir ici si vous allez visiter les liens proposés.

La suite de procédure est écrite dans le Logo de Jean-François Lucas ; version du langage que vous pourrez télécharger sur son Site dont vous trouverez un lien ici. JFL est un collègue de travail dont je parle dans moultes pages de cette section Papy Logo de la NSC. Vous remarquerez la manière bien particulière de JFL d'écrire ses programmes. Les différences entre les deux versions du langage sont criantes. J'utilise une version DOS (téléchargeable ici) ; JFL a écrit pour Windows. P_Logo offre16 couleurs ; JFL en propose 256. Enfin, ici, vous découvrirez un must de sa version du langage : les choix quand à l'épaisseur de la mine du crayon.

Le résultat est remarquable !

pour planette ;;la planète de JFL plane, c'est net !
repete 360
[
fcc 32 + hasard 45
av 58 re 58
tg 1
]
fin

pour couronne
fec 3 ; fixe l'épaisseur du crayon à 3
repete 360
[
lc av 68 bc ; positionne sur le début de la couronne
av 6 ; dessine la couronne
lc re 74 ; revient au début
fcc 132 + hasard 45 ; choisi une couleur au hasard parmi une autre gamme
tg 1 ; prépare le suivant
]
fin

pour satellite
fec 8 ; fixe l'épaisseur du crayon à 8
repete 12
[
lc av 92 bc
fcc 132 + hasard 45 ; choisi une couleur au hasard parmi une autre gamme
cercle 6
lc re 92
td 30
]
fin

pour lune
donne "nuance hasard 256
donne "memo_pos pos
repete 360
[
fcc :nuance + hasard 45
av hasard 15
fpos :memo_pos
tg 1
]
fin

pour lunes
fec 1 ; fixe l'épaisseur du crayon à 1
fcap 15
repete 12
[
lc av 112 bc
lune
lc re 112
td 30
]
fin

pour couronne2
fec 3 ; fixe l'épaisseur du crayon à 3
repete 360
[
lc av 140 bc ;positionne sur le début de la couronne
fcc 2 + hasard 45 ; choisi une couleur au hasard parmi une autre gamme
tg 45
av 12 lc re 12 ; dessine la couronne
td 45
lc re 140 ; revient au début
tg 1 ; prépare le suivant
]
fin

pour couronne3
fec 2 ; fixe l'épaisseur du crayon à 1
repete 2345
[
fcc hasard 256
lc origine
fcap hasard 360
lc av 170 bc
av (1000/(4+hasard 500))
]
fin

pour tout
ct
planette
couronne
satellite
lunes
couronne2
couronne3
fin

tout

 Quelques explications

 La version de Papy Logo

 Les versions de Baby Logo

 La version de Jean-François L.

La version, avec Terragen, de Laurent Farines

 Une version à six mains

 La version "bijoux" de Loleap