WHAT
A SHOW ! Un spectacle Logo produit par Olivier S.C.
WHAT
A SHOW !  |
 |
 |
 |
|
 |
POUR SPI :C :A :I
;;simple spirale dont la taille C s'incrémente
SI :C > 5 [FCC CC + 1]
SI :C > 280 [STOP]
AV :C TD :A
SPI :C + :I :A :I
FIN
POUR SPIA :C :A :I :II ;;la même transformée en série
de spirales avec
;;la valeur angle A s'incrémentant
SI :A > 355 [STOP]
SPI :C :A :I
ATTENDS 12 VE CT
SPIA :C :A + :II :I :II
FIN
POUR PL
;;des questions ?!...
SPIA 1 15 1 5
FIN
POUR RIA :T
;;la Couronne ou rond "vide" (à ne pas confondre avec
le cercle
;;dans la Géométrie Tortue). Humour incompréhensible
pour certains "enseignants" ...
REPETE 360 [LC AV :T BC AV 2 LC RE :T + 2 TD 1 BC FCC CC + 1]
FIN
POUR CIBI :T
;;la précédente procédure, répétée
et décrémentée. Une "cible".
SI :T < 10 [STOP]
RIA :T
CIBI :T - 10
FIN
POUR RI :T
;;ceci est peut-être identique à ... mais : il y a une différence.
Une grosse différence !
REPETE 360 [LC AV :T BC AV 2 LC RE :T + 2 TD 1 BC]
FIN
POUR CIB :T
;;Oui : une grosse différence. Cherchez bien !...
SI :T < 10 [STOP]
SI :T < 180 [FCC CC + 1]
RI :T
CIB :T - 10
FIN
POUR COURN :T2
;;de plus en plus "fort" !... Tout est dans le choix des couleurs.
;;Je travail sur fond noir.
FCC 0 REPETE 360 [AV :T2 RE :T2 TD 1]
FIN
POUR COURC :T1
;;Ah oui : ici, ce sont des ronds "pleins" (coloriés).
REPETE 360 [AV :T1 RE :T1 TD 1 FCC CC + 1]
FIN
POUR BOTH :T1 :T2
;;vous ne parlez pas anglais ou quoi ?!...
SI ET :T1 < 20 :T2 < 10 [STOP]
COURC :T1
COURN :T2
DONNE "T2 :T1 - 10
BOTH :T1 - 20 :T2 - 20
FIN
POUR ZIVA
;;vas-y dans une autre "langue". Papy Logo est surtout <<sur
le terrain>> ...
VE CT BOTH 180 170
FIN
POUR O1
;;Pourquoi cette procédure d'appel différente ? Il faut
aussi chercher par soi-même !...
VE CT
CIB 180
ATTENDS 3 VE CT FCFG 15 CIBI 170 FCFG 0
FIN
POUR ET8
;;on passe aux étoiles. A 8 branches, à 5 branches. Chercher
celle à 12 branches
;;non utilisée ici en sachant que la 'règle' suivie est, toujours,
celle des 360° ou de ses multiples.
REPETE 8 [AV 170 TD 135]
FIN
POUR ET5
REPETE 5 [AV 170 TD 144]
FIN
POUR DAV :X
;;David, on se comprend ? Logo, c'est aussi une ouverture sur un <culture
générale>.
;;Anyway : c'est l'étoile à 5 branches avec, ici, une variable.
REPETE 5 [AV :X TD 144]
FIN
POUR VAD :X :CO
;;DAV à l'envers, banane ! CO pour couleurs (15, 16 sur
le P_Logo utilisé ici).
SI :X < 0 [STOP]
SI :CO = 15 [DONNE "CO 1]
FCC :CO DAV :X
VAD :X - 10 :CO + 1
FIN
POUR BO1
;;beautiful, quoi. Tss !...
VE CT ET8 ATTENDS 12 VE CT ET5
ATTENDS 12 VE CT
REPETE 12 [DAV 170 TD 30]
ATTENDS 14 VE CT
REPETE 12 [VAD 170 3 TD 30]
FIN
POUR POLY :NC :T
;;le polygones réguliers bases de plusieurs programmes en ces pages
:
;;dans la Compilation, par exemple.
REPETE :NC [AV :T TD 360 / :NC]
FIN
POUR ROS :X :NC :T
;;avec ces polygones, on construit des Rosaces. Les enfants aiment !
REPETE :X [POLY :NC :T TD 360 / :X]
FIN
POUR ROSA :X :NC :T
;;si on en a besoin en couleurs ...
REPETE :X [POLY :NC :T TD 360 / :X FCC CC + 1]
FIN
POUR ROSI :Z :Y :C :W
;;à vous de décomposer afin de comprendre le pourquoi des
choses.
;;J'aide suffisamment en soulignant les parties différentes par des
couleurs tout aussi différentes.
;;Les visiteurs qui m'intéressent ne sont pas ceux se contentant
de Copier/Coller.
;;Décortiquer pour apprendre. Courage et fraternité !
REPETE :Z [POLY :Y :C AV :W TD 360 / :Z]
FIN
POUR ROSIA :Z :Y :C :W ;;Comment ça : mon humour est agressif ? Même
pas vraie, na !
REPETE :Z [POLY :Y :C AV :W TD 360 / :Z FCC CC + 1]
FIN
POUR MN
;;minute in french, Sir !
ATTENDS 22
FIN
POUR FOO1
;;don't you know Foo Bar de Quux alias Foobar Quux ? A long long story.
;;A "salade russe" with S.F., Pascal, Lisp, Logo, the
CMIRH, the
M.I.T. and so, and so
!...
VE FCFG 0 CT
ROSA 90 5 113 MN VE CT
FCC 2 ROS 60 3 166 MN VE CT
FCC 1 ROS 30 12 42 MN FCC 0 ROS 30 12 42
;;Celle qui s'efface !
MN VE CT FCC 5 ROSI 36 3 142 11 FCC 8 ROSI 36 3 122 9
FCC 10 ROSI 36 3 92 7 FCC 9 ROSI 36 3 52 5 MN VE CT
LC TG 90 AV 60 TD 90 BC
ROSIA 30 10 72 18
LC TD 90 AV 85 TG 90 AV 10 BC
ROSA 12 3 52
FIN
POUR FOO2
REPETE 120 [AV 5 TD 3 FCC CC + 1]
FIN
POUR BAR1
CT REPETE 36 [FOO2 TD 10 FCC 0]
FCFG 1 MN FCFG 2 MN FCFG 3 MN FCFG 4 MN FCFG 5 MN FCFG 6 MN
FCFG 7 MN FCFG 8 MN FCFG 9
MN FCFG 10 MN FCFG 11 MN FCFG 12 MN FCFG 13 MN FCFG 14 MN
FCFG 15 MN FCFG 0
FIN
POUR CCURVE :LONG :PROFONDEUR ;;there is the CCURVE FRACTAL you was looking for
;;dear Kirsten !...
SI :PROFONDEUR < -1 [AV :LONG STOP]
TG 45
FCC CC + 1
CCURVE :LONG / 1.4142 :PROFONDEUR - 1
TD 90
CCURVE :LONG / 1.4142 :PROFONDEUR - 1
TG 45
FIN
POUR O :T :P ;;O
... Olivier,
banane !
CCURVE :T :P
FIN
POUR RO :X
;;une rosace de fractal. Oui : je sais ! Non : ne me remerciez pas !
;;"Au fait" : vous êtes allez voir
les mosaïques de
mon père ; rien à voir !...
CT REPETE :X [O 30 8 TD 360 / :X]
FIN
POUR FBQ :P
;;C'est bon : vous avez réussit à revenir ici ?!... FBQ
: les initiales de ?...
SI :P > 9 [STOP]
O 120 :P
RECYCLE ATTENDS 10 VE CT
FBQ :P + 1
FIN
POUR QBF
;;QBF, n'est-ce-pas, n'est pas forcément FBQ à l'envers,
mais : un de ses anagrammes
!
FBQ 1 ATTENDS 14 RO 12
FIN
POUR GRIB
;;gribouillage ou nom d'un artiste célèbrement inconnu
?...
REPETE 1000 [AV 3 TD HASARD 360 FCC HASARD 14]
FIN
POUR PIET
;;bon, là, si vous ne savez pas... C'est le prénom du suivant.
REPETE 100 [AV HASARD 50 TD 90 FCC HASARD 14]
FIN
POUR MONDRIAN
;;ça vaut le coup de saisir ce 'mot' dans un bon moteur de recherche
...
CT
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 14]
FIN
POUR BAR2 ;;phonétiquement
(in french) bar de ou car nous avons un bar1 ? Faut suivre !...
ENR CT GRIB ATTENDS 12 VE CT
PIET ATTENDS 12 VE CT MONDRIAN
FIN
POUR SPIT :A :CO
;;une série de spirales bien particulières !
;;A pour angle(s) et CO pour couleur(s).
SI :CO > 14 [DONNE "CO 0]
SI :A > 3000 [STOP]
FCC :CO AV 5 TD :A
SPIT :A + 7 :CO + 1
FIN
POUR SPIT2 :A :CO
SI :CO > 14 [DONNE "CO 0]
SI :A > 9000 [STOP]
FCC :CO AV 5 TD :A
SPIT2 :A + 11 :CO + 1
FIN
POUR SPIT3 :A :CO
SI :CO > 14 [DONNE "CO 0]
SI :A > 7000 [STOP]
FCC :CO AV 5 TD :A
SPIT3 :A + 13 :CO + 1
FIN
POUR QUUX
CT SPIT 0 0 ATTENDS 13 VE CT
SPIT2 0 0 ATTENDS 13 VE CT SPIT3 0 0
FIN
POUR DOODLE :N
;;du Lewis Carroll ?... "Retour" aux fractales.
AV :N / 3
TD 90 AV :N / 3
TG 90 AV :N / 3
TG 90 AV :N / 3
TD 90 AV :N / 3
FIN
POUR DOODLE_S :N
SI :N < 5 [STOP]
TD 90 DOODLE :N / 3
TG 90 DOODLE :N / 3
TG 90 DOODLE :N / 3
TD 90 DOODLE :N / 3
FIN
POUR CARPET
;;il n'est pas beau mon tapis ?...
CARP 170 0
FIN
POUR AS
;;As de coeur. C'est pas de l'anglais, là, malpropres !...
VE CT
REPETE 3 [CARPET TG 120]
FIN
POUR CARP :N :CO
SI :N < 6 [STOP]
SI :CO > 14 [DONNE "CO 0]
FCC :CO
REPETE 4 [DOODLE_S :N TG 90]
CARP :N - 2 :CO + 1
FIN
POUR RAD :R
;;radius. C'est chic, non ?!...
REPETE 720 [AV :R * 0.001745 TD 1 DONNE "R :R + 1 FCC HASARD
14]
LC ORIGINE BC
FIN
POUR SHELL
;;pas le coquillage de Vénus ; le shell
d'Unix !...
VE CT
RAD 10 RAD 100
RAD 5 RAD 50
FIN
POUR ARBA :LONG :ANG :PROF
SI :PROF = 0 [STOP]
DONNE "TMPL HASARD :LONG
DONNE "ANGL HASARD :ANG
AV :TMPL TG :ANGL AV :TMPL
FCC CC + 1
ARBA :LONG :ANG :PROF - 1
RE :TMPL TD 2 * :ANGL AV :TMPL
ARBA :LONG :ANG :PROF - 1
RE :TMPL TG :ANGL RE :TMPL
FIN
POUR ZOU
;;... allez, zou, on y va ...
ENR CT ARBA 10 125 9
FIN
POUR BYE
;;on dit au-revoir, bye bye, ciao, esenleme ...
VT EC [THAT'S ALL FOLKS !]
FIN
POUR SHOW
;;le programme lançant tous les autres.
VT FEN CT ME 2
JOUE "DOREMIFASO
EC [========== A Papy Logo's Production -------- Olivier Schmidt-Chevalier
======]
O1 ATTENDS 13 ZIVA ATTENDS 13 FOO1 ATTENDS 13 BO1 ATTENDS 13 VE BAR1
JOUE "LASIDODO ATTENDS 13 VE CT PL ATTENDS 13 RECYCLE QBF ATTENDS 13
RECYCLE BAR2
JOUE "MIREDODOSO ATTENDS 13 RECYCLE VE QUUX ATTENDS 13 RECYCLE AS ATTENDS
13 SHELL
ATTENDS 13 RECYCLE REPETE 5 [ZOU ATTENDS 13 VE CT] ATTENDS 13
RECYCLE O 100 9 ATTENDS 13 VE CT LC RE 60 BC CARP 200 0 ATTENDS 13 VE CT
REPETE 5 [PIET MONDRIAN] ATTENDS 22 RECYCLE JOUE "SOFAMIREDO VE
RAMENEIMAGE "VILAGOSC.PCX ATTENDS 22 LC FPOS [0 -170] JOUE "MIDOMIDOMIDORE
REPETE 90 [TD 1 ATTENDS 5] REPETE 60 [AV 1 ATTENDS 3] BC BYE
FIN
SHOW ;;CTRL Q : on sort de l'Editeur
et le Show se lance automatiquement ! Moderne !
 |
 |