Et après, on passe à Micro World ?...

 


[Attention : cliquez sur Précédent pour revenir ici si vous explorez les liens proposés ;
sauf pour les liens envoyant sur les images (illustrations, réalisations) ]


Curiosité : Jean-François Lucas est l'auteur d'un article sur le langage et la pédagogie Logo paru dans la revue (de l'Education Nationale française ?) EPI N° 97 de mars 2000, article dans lequel Papy Logo (OSC, ex du CMIRH) est mentionné.

En début de page "Autres sites", vous trouverez
Epinet ainsi qu'un lien directe vers ledit article.


Les fenêtres multiples de Windows sont un problème à contourner si l'on veut obtenir un aussi beau spectacle qu'avec le plein écran de DOS ... Je sais, c'est possible, mais cela demande une manipulation ; et, d'ailleurs, Jean-François LUCAS a-t-il créé la Primitive MIXECRAN (ME 25, par exemple dans Logo Musique) et, surtout, Windows le permettrait-il ?...

Commençons par des spirales, même (et surtout) si ces procédures se retrouvent dans la version JFLogo du SHOW donnée plus bas. Un bon apprentissage, un excellent 'débogage' serait de lire et de comparer les procédures équivalentes données ailleurs dans ce Site et écrites en P_Logo. Et, 'justement', en MAJUSCULES, ce que je n'ai pas eu à (trop) transformer de P_Logo à JFLogo :

pour venoir ;;procédure provisoire en attendant la
;;primitive FixeCouleurFondEcran (FCFG)
ve fcc 255 remplis
fin

Pour att ;;une procédure ne peut-être appelée que si elle est connue
;;de JFLogo. Ex.: att doit se trouver avant SPIA qui l'appelle
repete 6600000 [] ;;rien, liste vide, NIL !
{never mind, it's just for ... ;-)}
fin

POUR SPI :C :A :I
teste (:c > 195)
sivrai [ ]
sifaux [AV :C TD :A
fcc hasard 256
SPI :C + :I :A :I] ;;voir une réalisation (87 Ko)
FIN

POUR SPIA :C :A :I :II
teste (:a > 360)
sivrai [ ]
sifaux [SPI :C :A :I
att venoir ct
SPIA :C :A + :II :I :II]
FIN

POUR PL
venoir
SPIA 0.1 15 0.1 5
FIN

Passons à la tentative, incomplète, de la traduction du What a Show (mes excuses pour les répétitions ; étaient-elle inutiles ?...) :


pour venoir ;;procédure provisoire en attendant la
;;primitive FixeCouleurFondEcran
ve fcc 255 remplis
fin

Pour att ;;une procédure ne peut-être appelée que si elle est connue
;;de JFLogo. Ex.: att doit se trouver avant rosy qui l'appelle
repete 6600000 []
fin

pour musi ;;adaptation de "Rencontre du 3e. type" écrite par Jean-François lui-même !
joue "c_re joue "c_mi
joue "c_do joue "b_do7 joue "silence
joue "c_sol
fin

pour dep ;;pas un VE, un ORIGINE ...
lc fpos [0 0] bc
fin

Pour figure :nc :t ;;des polygones réguliers
repete :nc [av :t td 360 / :nc]
fin

Pour rosa :x :nc :t ;;voir une rosace (28 Ko)
repete :x [figure :nc :t td 360 / :x fcc hasard 256]
fin

pour rosapp :x :nc :t
teste (:t < 5)
sivrai []
sifaux
[rosa :x :nc :t
rosapp :x :nc :t - 5]
fin

pour rosy
rosapp 30 3 220 att venoir ct
rosapp 10 4 200 att venoir ct
rosapp 20 5 105 att venoir ct
rosapp 18 6 85 att venoir ct
rosapp 12 8 75 att venoir ct
rosapp 10 10 55 att venoir ct
rosapp 12 12 55
fin

Pour Grib ;;on veut le voir !... (52 Ko)
repete 1000 [av 3 td hasard 360 fcc hasard 256]
fin

Pour Piet
repete 100 [av hasard 50 td 90 fcc hasard 256]
fin

Pour Mondrian ;;Piet Mondrian en images dans la version P_Logo
;;à voir dans la page
Fractales
repete 100 [repete 2 [av hasard 50 td 90 av hasard 20 td 90] av hasard 100 td 90 av hasard 100 tg 90 fcc hasard 256]
fin

POUR SPI :C :A :I
teste (:c > 280)
sivrai []
sifaux [AV :C TD :A
fcc hasard 256
SPI :C + :I :A :I]
FIN

POUR SPIA :C :A :I :II
teste (:a > 355)
sivrai []
sifaux [SPI :C :A :I
att venoir ct
SPIA :C :A + :II :I :II]
FIN

POUR PL
SPIA 1 15 1 5
FIN

POUR RIA :T
REPETE 360 [LC AV :T BC AV 2 LC RE :T + 2 TD 1 BC FCC hasard 256]
FIN

POUR CIBI :T ;;et ça donne quoi ? (8 Ko)
teste (:t < 10)
sivrai []
sifaux [RIA :T
CIBI :T - 10]
FIN

Pour show ;;a Papy Logo's Production : 1989 pour P_Logo Atari
;;1995 pour P_Logo Compatibles
;;1999 pour début 'portage' en JFLogo
venoir ct
rosy musi venoir ct cibi 220 musi venoir ct pl musi att venoir ct
repete 60 [mondrian dep td 360 / 120] musi venoir ct
repete 30 [piet dep td 360 / 30] musi venoir ct
repete 30 [grib dep td 360 / 60] musi ;;att venoir ct
fin


Et, comme en France, tout fini en musique, voici la partie musicale de mon programme (souhaitant les anniversaires) écrit en P_Logo transposé par Jean-François himself ! Remarquez la 'note' SILENCE.
Et, enfin, la sortie musicale est bien supérieure !...

Fichier à enregistrer en .mus - quoique ceci ne soit pas obligatoire.

Pour Fleur (sic) donc !

joue "n_do ;jo
joue "n_do ;yeux
joue "b_re ;a
joue "b_do ;ni
joue "b_fa ;ver
joue "b_mi ;saire
joue "silence ;
joue "n_do ;jo
joue "n_do ;yeux
joue "b_re ;a
joue "b_do ;ni
joue "b_sol ;ver
joue "b_fa ;saire
joue "silence ;
joue "n_do ;jo
joue "n_do ;yeux
joue "b_la ;a
joue "b_sol ;ni
joue "b_fa ;ver
joue "b_mi ;saire
joue "r_re ;Fleur
joue "silence ;
joue "n_fa ;jo
joue "n_fa ;yeux
joue "b_mi ;a
joue "b_do ;ni
joue "b_re ;ver
joue "r_do ;saire



 

 Voir d'autres réalisations en JFLogo

 

 Retour au Contenu de Papy Logo

 Hit-Parade