Olivier Schmidt-Chevalier - 2001

L'ensemble de procédures qui suit entre tout a fait dans mon acceptation de la notion de Logo-Lego tant de fois mentionnée ; créer un mot, puis un autre, un suivant, continuer et, enfin, construire une phrase. Peut-être pas dans sa forme d'écriture, mais, dans son esprit, le programme ci-dessous participe bien de cette idée. En tant que petite animation - l'envole d'un oiseau depuis un champ de blés et de fleurs -, cette ancienne réalisation (qui ne fonctionne pas tel que sous P_Logo, d'où les bugs dans la capture d'écran) me fait, lors, plus songer à un projet à porter sous MicroWorlds ; mais là ...

POUR OIS ;;oiseau
TG 45 AV 12 RE 12 TD 90 AV 12 RE 12 TG 45
FIN

POUR EFOIS ;;effacer oiseau
FCC - (CF + 1) OIS
FIN

POUR VOLE ;;oiseau vole
REPETE 20 [FCC 5 OIS EFOIS LC AV 5 BC] ;;coul. = Magenta
FIN

POUR ARCD :N :P ;;arc de cercle droit
REPETE :N [AV :P TD 1]
FIN

POUR PETAL :N :P
ARCD :N :P
TD 180 - :N
ARCD :N :P
FIN

POUR FLEUR ;;un tournesol (disons !...), jaune et vert
FCC 3 REPETE 12 [PETAL 30 .5]
RE 15 FCC 2 RE 25 AV 10 TD 20
PETAL 20 1
FIN

POUR SECT ;;un arc de cercle
REPETE 12 [AV 1 TD 3]
FIN

POUR RAY ;;RAYons du ...
LC TG 90 AV 5 BC AV 20
LC RE 25 TD 90 BC
FIN

POUR SOL ;;...SOLeil
FCC 15 REPETE 10 [SECT RAY] ;;orange
FIN

POUR FEUILLE
TD 45 AV 8 RE 8
TG 90 AV 8 RE 8 TD 45
FIN

POUR EPI ;;de blés, va avec le précédent
AV 20 REPETE 4 [FEUILLE AV 5] RE 40
FIN

POUR SEMER ;;les espaces entre épis
TD 90 LC AV 16 TG 90 BC
FIN

POUR BLE ;;le champ de blés
FCC 3 REPETE 11 [EPI SEMER] ;;jaune
FIN

POUR CHAMP ;;début et partie du décor
CT LC TG 90 AV 150 TD 90 RE 55 BC
FCC 2 TD 90 ;;vert
REPETE 5 [AV 300 RE 300 LC TD 90 AV 1 TG 90 BC]
LC AV 15 TG 90 AV .5 BC BLE ;;avance point 5 ("dot" 5) ;-)
FIN

POUR DEB ;;on ne charge que paysage et on a, ici,
RAMENE "PAYS1 ;;le reste du chargement automatisé
RAMENE "PAYS2
RAMENE "PAYS3
PAYSA ;;le programme démarre automatiquement
FIN

POUR PAYSA ;;celui qui assemble tous les autres
FEN CT FCFG 0 ;;avec les derniers éléments. (fond noir).
CHAMP LC TD 90 AV 20 TG 90 AV 35 BC
REPETE 3 [FLEUR LC FCAP 0 TD 90 AV 25 TG 90 AV 30 BC]
LC FPOS [-100 60] BC
SOL FCAP 0
REPETE 15 [LC FPOS [100 0] BC VOLE]
FIN

DEB ;;cf. seconde remarque de la procédure DEB [Remarque 2001 : mauvaises couleurs et petites erreurs de calcul (racines fleurs). Créé sous Logo d'ACT pour i286, le portage en P_Logo DOS oblige à trouver une astuce non recherchée pour ce qui est de l'envol de l'oiseau (affiché, ici, comme oiseaux superposés)] {Cette suite de procédure, afin de montrer d'autres possibilités du langage ; devenues inutiles (?) mais : bonnes à savoir !}

Contenu PL

Précédente

Suite