NSC faviconWHAT A SHOW !
Un spectacle Logo produit par Olivier S.C.

 Hit-Parade

 tv et pixels

 

 Coucou !

 Mailing to Papy Logo

 
 Pedagologic referencie cette page

 Contenu Papy Logo


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 !

 that's all folks