"To iterate is human, to recurse is divine"

 

Le Diamant

Cet hexagone est composé de facettes aux figures géométriques variées ; dont des petits hexagones. Suivant la 'génération' demandée, nous obtenons plus ou moins de facettes. Ce petit propos n'est pas là pour énoncer des truismes, mais bien plus afin d'attirer votre attention sur des risques que je signalerais en développant une autre fractale.

Le Diamant a un côté Pavage, Mosaïque pouvant rimer avec les pages consacrées à Michel Schmidt-Chevalier, comme avec d'autres parties comprises dans Papy Logo sur lesquelles nous reviendrons plus loin.


pour diamant :cote :n

teste :n = 0
sivrai [ ]

sifaux
[
av :cote / 2
diamant :cote / 2 :n - 1
av :cote * 1.5 tg 120
diamant :cote / 2 :n - 1
repete 2
[ fcc hasard 256 av :cote tg 60
diamant :cote / 2 :n - 1 ]
av :cote td 240
]

fin

Et on demande : td 90 ;je n'indique plus les ve ct

donne "cote 150 ;côté à régler
donne "n 4 ;génération à régler

diamant :cote :n
av :cote * 2 tg 180
diamant :cote :n ;à vous d'expérimenter si nous aurions pu écrire la procédure d'appel suivante :
;
pour dodiamant :cote :n
;
diamant :cote :n
;
av :cote * 2 tg 180
;
diamant :cote :n
;
fin
;et demander, lancer : td 90 dodiamant 150 4 (?)


Et on demande : td 90
donne "cote 120 ;côté à régler
donne "n 6 ;génération à régler

diamant :cote :n
av :cote * 2 tg 180
diamant :cote :n ;ou une procédure semblable à celle indiquée pour
;l'exemple précédent. Procédure dans un Logo plus châtié sans ces "barbaresques" 'donne' ...
:-)

Maintenant, au programme, justement, ajoutons la ligne fuchsia de mon cru (septembre 2002 - LOL), demandons la même réalisation que l'exemple ci-dessus, et, alors, là !... Ce Diamant se nomme Wampa ! {Rien à voir, chère Marie-Cécile (élève de Martial Rèbe), avec le poisson nommé Wanda !... [A Fish called Wanda de Charles Crichton, d'après un sujet de John Cleese et Charles Crichton (1988), avec John Cleese, Jamie Lee Curtis, Kevin Kline, Michael Palin, Maria Aitken, Tom Georgeson.]}

 Fractals part 1

 Fractals part 5