L'EFFET MIROIR - "DREI"


(-; Vous avez lu les conventions ? Il vaudrait mieux !... ;-)

 

Cette merveille ne fonctionne pas avec tous les LOGO et, personnellement, je ne l'ai pas essayée "en" P_LOGO version pour DOS que j'utilise en ce moment sur Compatibles (Pentium). Elle ne fonctionnerait pas, non plus, sur toutes les machines, ou, peut-être, sous Windows (?...). Dans certaines versions, il faut ajouter des PH, avec d'autres, il est nécessaire de définir XCOR et YCOR comme, respectivement, PREMIER et DERNIER de POSITION.

Imaginez un écran virtuellement divisé en 4 zones depuis le centre (le ORIGINE de la Tortue, soit POSITION 0 0) : nord-est, sud-est, sud-ouest, nord-ouest (dans le sens des aiguilles d'une montre ...). Là, 4 Tortues agissent ; 3 "copiant" en miroir ce que fait "l'original". Ceci n'a rien à voir avec les Lutins !

POUR VA :X
REPETE :X [AV 1 POINT XCOR 0 - YCOR POINT 0 - !
XCOR YCOR POINT 0 - XCOR 0 - YCOR]
FIN
;;où faut-il et où ne faut-il pas d'espace ? Voir aussi ci-dessus ...
;;Au sujet des espaces : quand le "-" indique-t-il une soustraction, quand marque-t-il un "négatif" ?...
;;Afin de réellement comprendre, il faut se référer à la procédure Manpower.

Alors : LC FPOS [33 33] BC VA 58 TD 90 VA 43
sera forcément différent d'un : VE VA 58 TD 90 VA 43

POUR DREI :X :N ;;cette procédure aurait-elle des points communs avec celle de l'Arbre ?...
SI EGAL? :N 0 [STOP]
AVANCE :X
DREI :X / 3 :N - 1
GAUCHE 60 AVANCE :X
DREI :X / 3 :N - 1
RECULE :X DROITE 120 AVANCE :X
DREI :X / 3 :N - 1
RECULE :X GAUCHE 60 RECULE :X
FIN

Des exemples de plus en plus indicibles (voir aussi à Fractales dans le Contenu de Papy Logo) :

DREI 30 1
DREI 30 2
DREI 30 3
REPETE 12 [DREI 30 3 DROITE 30]
REPETE 36 [DREI 30 3 DROITE 10]
REPETE 360 [DREI 30 3 DROITE 1 FCC CC + 1]

Et si, dans DREI, vous remplaciez les AVANCE par des VA (défini ci-dessus) et que vous lanciez :

LC FPOS [33 33] BC REPETE 12 [DREI 30 3 TD 30 FCC CC + 1]

En fait, le VA peut remplacer les AVANCE de bien des procédures ; et alors !... Particulièrement avec ARBRE, SPI(rales), FRACTALES (ces dernières, que nous verront plus loin en ces pages). And so and so ...

"Mais" : si, dans vos programmes, se trouvent des RECULE ; seront-ils pris en compte et, où ?...



FRACTALES

Certaines des procédures qui vont suivre figurent déjà dans la page What a Show ; ne faisons pas de ce Site un labyrinthe et ne craignons pas les répétitions.

KALEIDOSCOPEment votre .... Papy Logo !

POUR FRACT :X ;;un exemple sur, environ, 360 ...
SI :X < 0 [STOP]
AV :X TD 90
FRACT :X - 1
AV :X * 2 TG 90
FRACT :X - 1
FIN

POUR KO :T
SI :T < 5 [STOP]
KO :T / 3
AV :T TG 60 KO :T / 3
AV :T TD 120 KO :T / 3
AV :T TG 60 KO :T / 3
FIN

POUR KO1 :T
SI :T < 5 [AV :T STOP]
KO1 :T / 3
TG 60 KO1 :T / 3
TD 120 KO1 :T / 3
TG 60 KO1 :T / 3
FIN

POUR KOCH :X ;;Alexander von Koch. Voir aussi Benoît Mandelbrojt (donc : à Jacques M.)
CT
REPETE :X [KO1 30 KO 30 TD 360 / :X]
FIN

 POUR SIMAK :X
SI :X < 0 [STOP]
VA :X TD 90
FCC 1 SIMAK :X - 1
VA :X + 2 TD 90
FCC 2 SIMAK :X - 1
VA :X * 2 TG 90
FCC 3 SIMAK :X - 1
FIN

 My name is Jenkins

 POUR SIMAK_OSC :X
SI :X < 0 [STOP]
VA :X TD 90
FCC 1 SIMAK_OSC :X - 1
VA :X * 2 TD 180
FCC 2 SIMAK_OSC :X - 1
VA :X + 2 TD 90
FCC 3 SIMAK_OSC :X - 1
FIN

Tellement mieux lorsque lancées alors que la Tortue (cachée ?) et en FPOS [0 0] ; pour le VA, voir MIROIR ci-dessus.

Clifford D. Simak (03.08.1904 - 25.04.1988). La réalisation se rapporte plus à son roman "Les fleures pourpres" ; on peut la voire dans les fractals en images du Site de Papy Logo.



SIMULATION FICHIER

De tous temps il s'est trouvé des "pédagogues" tristes pour ne voir, dans LOGO, que la Tortue alors que, dans les étages du CMIRH, le langage de Seymour Papert "conduisait" des magnétoscopes et, ailleurs, des robots comme des machines-outils. Ce sont les mêmes qui, 10 ans après ne juraient, pour l'informatique à l'école, que par la PAO avant de succomber à la mode du Multimédia tout en ignorant MicroWorlds. C'est déjà pour eux que j'écrivais cette série de procédures au moment où, au Centre, je m'occupais des stagiaires en insertion.

Cette simulation d'un Fichier, avec Menu, est présenté à titre d'exemple et aurait besoin d'être re-créée sous un Logo plus récent. Cette version a été écrite avec la version du langage pour Goupil ; mais, laquelle ? Le projet avorté de DiaLogo aurait permis une adaptation plus élégante avec des primitives particulières ; à l'époque, ce n'était pas le cas et il fallait tout créer.

POUR MENU
EC [S.....................POUR SAISIR]
EC [L.....................POUR LIRE]
EC [C.....................POUR CONSULTER]
EC [D.....................POUR DEBUTER (initialiser à 0)]
EC [F.....................POUR SORTIR]
EC CAR 7
;;ou CAR 13 : voir code ASCII, Barre d'espace ou Entrée ?...
EC [VOTRE CHOIX ?]
DONNE "Z PREMIER LL
;;lisliste, je ne devrais pas avoir à le dire à nouveau ;-)
SI EGAL? :Z "S [FICHIER]
SI EGAL? :Z "L [LECTURE MENU]
SI EGAL? :Z "C [RESUME]
SI EGAL? :Z "D [INIT MENU]
SI EGAL? :Z "F [STOP]
FIN

POUR INIT
DONNE "FICHE []
;;vide, nil (j'adore la placer celle-là ! LOL, comme dirait Hélène...)
RECYCLE ;;ceci, par contre, prouve bien l'ancienneté de la version !...
FIN

POUR SAISIE
VT EC [ENTREZ VOTRE PRENOM]
;;utilisation du mot "entrez" non gratuite (c'est un métier !)
DONNE "P LL VT ;;pourquoi, ici LL et ailleurs PREMIER LL ?
;;Type de réponse que l'on ne trouve plus dans aucun IUFM ...
;;La "pédagogie" fout le camp mon pauvre Papy Logo... LOL !

EC [ENTREZ VOTRE NOM]
DONNE "N LL VT
EC [ENTREZ VOTRE AGE]
DONNE "A PREMIER LL VT
EC [ENTREZ LE NUMERO ET LE NOM DE VOTRE RUE]
DONNE "AD LL VT
EC [ENTREZ VOTRE CODE POSTAL ET VOTRE VILLE]
DONNE "AD1 LL VT
EC [ENTREZ VOTRE NUMERO DE TELEPHONE]
DONNE "T LL VT
EC [ENTREZ VOTRE PROFESSION]
DONNE "PRO LL VT
EC [ENTREZ L'ADRESSE COMPLETE DE VOTRE EMPLOYEUR]
DONNE "AE LL VT
EC [ENTREZ LE NUMERO DE TELEPHONE DE VOTRE TRAVAIL]
DONNE "TE LL VT
GARDER :N :P :A :AD :AD1 :T :PRO :AE :TE

;;pas le même ordre que celui de la saisie ? But : why ?
FIN

POUR GARDER :N :P :A :AD :AD1 :T :PRO :AE :TE
DONNE "FICH METD PH PH PH PH PH PH PH PH PH :N :P :A
!
:AD :AD1 :T :PRO :AE :TE :FICH
FIN

POUR FICHIER
VT INVERSE
;;ce Inverse et ce Normal, c'était quoi comme Primitives ?
;;Couleur du texte, de l'écran ?...
EC [TAPEZ SUR LA BARRE D'ESPACE POUR COMMENCER] NORMAL
REPETE 3 [EC CAR 7]
;;ou 13 pour P_Logo ?
DONNE "R LISCAR
SI EGAL? :R CAR 32 [SAISIE]
;;et lui, c'est lequel ; quelle touche ?...
REPETE 3 [EC CAR 7] ;;sigh
EC [UNE AUTRE FICHE ? (O/N)]
DONNE "W PREMIER LL
SI EGAL? :W "N [MENU STOP] [FICHIER]
FIN

POUR LECTURE
EC PH :N :P
EC PH :A "ANS
EC CAR 7
;;ne craques pas, ma biche !
EC PH :AD :AD1
EC :T EC CAR 7
;;m'énerve !...
EC :PRO EC " ;;écris rien, quoi !... Ligne "blanche"
EC :AE
EC :TE
FIN

POUR RESUME
VT EC :FICH
EC CAR 7 MENU
;;Maaaiiiiis eeeeuuuuuuhh !!!
FIN

REMARQUES : la toute première fois, lancer MENU et choisir l'option DEBUTER. Le programme lance alors INIT qui renvoie à MENU où on fait le choix SAISIR qui renvoie à FICHIER puis à SAISIE. FICHIER offre de continuer ou non (je ne testais pas le cas des utilisateurs incultes), soit on retombe sur lui-même, soit on retrouve MENU. De MENU, on peut, alors choisir soit LECTURE, soit RESUME. Les deux options ramènent à MENU. Afin de sortir, taper F.

Ce programme n'est qu'une démonstration et est fait pour fonctionner sans disquette ; tout dépend de votre machine (place mémoire - question ne se posant plus lors ; quoi que...). Afin de mieux voir comment il fonctionne, entrez deux fiches et demandez un résumé (CONSULTER).



 

 

 

 

  Contenu PL

 Suite

 Sommaire

 Bibliographie