"To iterate is human, to recurse is divine"

Pour Vauban

Le sieur Sébastien Le Prestre de Vauban, maréchal de France (1633-1707) n'aurait rien à voir avec le thème de ces pages, ne serait-ce ses fortifications et votre imagination. Georges Noël, lui, nomme sa fractale : Napperon.

A cette dernière, j'ai ajouté les couleurs (dont le fond) ; une vision, donc, psychédélique d'une forteresse. Nous sommes, là, en pleine "politique" du chaos !

Pour Napperon :cote :sens :n ;codage du sens = direct 1 inverse -1
teste :n = 0

sivrai av :cote

sifaux
[
fcc hasard 256
tg (45 * :sens)
Napperon :cote / racine 2 :sens :n - 1
td (90 * :sens)
Napperon :cote/ racine 2 :sens :n - 1
tg (45 * :sens)
]
fin

Et on demande : ve fcc 255 remplis td 90
repete 2 [Napperon 110 1 12 td 180]
;attention à votre choix de paramètres !

Autour de "Andromeda Blues"

La frise de base de Georges Noël n'est pas la même spirale fractale utilisée dans ma rosace portant le nom titre de ce chapitre ; mais elle m'y fait furieusement penser. J'ajoute les lève-crayon et baisse-crayon sans lesquelles la frise est gâchée.

pour frise :n
teste :n>0.1
sivrai
[
av :n
tg 30
frise ((:n*9)/10)
]
fin

Et on demande : repete 3 [frise 36 lc fpos [0 0] bc] ;choix entre fpos [0 0] et la primitive Origine

Puis, pour la Rosace de ladite frise :
repete 36 [repete 3 [frise 36 lc fpos [0 0] bc] td 10 fcc hasard 256]
;j'ai demandé vraiment 36 'frise' ? Pas plus ? Pas moins ?...

Du côté d'Ephèse

Ici, encore, le nom choisi participe de mes propres associations d'idées ; la procédure est, à nouveau, un "Napperon". La dentelle pour Georges Noël, la mosaïque pour moi. Sans oublier le petit séjour passé en Turquie !

Ici, comme pour "Vauban" et d'autres courbes rencontrées dans les pages précédentes, on revient à l'angle droit et à une récursivité élégante.

Pour Napperon :cote :sens :n ;cote: dimension de base
;sens = direct 1 inverse -1, n = génération
teste :n = 0

sivrai av :cote

sifaux
[ Napperon :cote / 3 :sens :n - 1
tg (90 * :sens)
Napperon :cote / 3 -:sens :n - 1
td (90 * :sens)
Napperon :cote / 3 :sens :n - 1
td (90 * :sens)
Napperon :cote / 3 -:sens :n - 1
tg (90 * :sens)
Napperon :cote / 3 :sens :n - 1
]
fin

Et on demande : Repete 4 [Napperon 150 1 3 td 90]

Et pour la Rosace : repete 36 [Repete 4 [Napperon 150 1 3 td 90] td 10 fcc hasard 256]