En hommage à Benoît Mandelbrot, un mathématicien qui a marqué notre époque, voici la fractale de Mandelbrot en Linotte !
La version 1.2.4 de l'Atelier est nécessaire pour faire fonctionner ce livre !
La version 1.2.4 de l'Atelier est nécessaire pour faire fonctionner ce livre !
Code:
Fractale Mandelbrot :
Grands rôles :
zonex est un nombre valant -2
zoney est un nombre valant -2
zonew est un nombre valant 4
zoneh est un nombre valant 4
fond est une toile, hauteur vaut 500, largeur vaut 500
ligne est une ligne, transparence vaut 50, taille vaut 1, couleur vaut "sable", y1 vaut 0, y2 vaut 500
crayon est un crayon, couleur vaut "rouge",pointe vaut "non"
Dessine :
Rôles :
§verre est un cercle, transparence vaut 50, taille vaut 10, couleur vaut "gris acier", rayon vaut 25, plein vaut "non"
§tige est une ligne, transparence vaut 50, taille vaut 10, couleur vaut "queue-de-vache clair", x1 vaut -60, x2 vaut -25, y1 vaut -60, y2 vaut -25
§loupe est un mégalithe, transparence vaut 50
Actions :
fusionne verre & tige dans loupe
tant que 1 est différent de 2, lis
efface la toile
efface crayon
projette fond & crayon & ligne
parcours fractale
projette loupe
tant que touche est différent de "clique", lis
déplace loupe vers sourisx + 25 et sourisy + 25
temporise
ferme
efface loupe
("effet zoom !")
taille@verre vaut 1
déplace verre vers sourisx + 25 et sourisy + 25
projette verre
pour chaque 30, lis
taille@verre vaut joker
rayon@verre vaut joker * 10
attends 0.
01 secondes
ferme
efface verre
parcours zoom avec sourisx, sourisy
ferme
Fractale :
Rôles :
x & y & a & b est un nombre vide
c1 & c2 & c3 est un nombre
Actions :
Pour x de 0 à largeur@fond, lis
x1@ligne vaut x
x2@ligne vaut x
pour y de 0 à hauteur@fond, lis
a vaut zonex + x * zonew / (largeur@fond)
b vaut zoney + y * zoneh / (hauteur@fond)
si converge(a,b) est vrai alors lis
c1 vaut abs(entier(a * 55))
c3 vaut 255 - abs(entier(a * 55))
c2 vaut entier(abs(b * 255))
couleur@crayon vaut "" + c1 + " " + c2 + " " + c3
pique crayon à x et y
ferme
ferme
ferme
reviens
Converge :
Rôles :
*a est un nombre
*b est un nombre
§x est un nombre
§y est un nombre
§ynew est un nombre
§xnew est un nombre
Actions :
pour chaque 30, lis
xnew = x * x - y * y + a
ynew = 2 * x * y + b
si ((abs xnew) sup 2) ou ((abs ynew) sup 2) est vrai alors retourne faux
x vaut xnew
y vaut ynew
ferme
retourne vrai
Zoom :
Rôles :
*newx est un nombre
*newy est un nombre
§scale est un nombre
Actions :
scale vaut zonew / (largeur@fond)
zonex vaut zonex + newx * scale
zoney vaut zoney + newy * scale
zonew vaut 50 * scale
zoneh vaut 50 * scale
reviens
" title="Smile" />.