papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: ascii art mandelbrot drawing Jeu 12 Jan 2023 - 21:57 | |
| - Code:
-
rem ============================================================================
rem ascii art mandelbrot drawing
rem ============================================================================
dim x,y,x1,y1,i1,i2,i3,r1,r2,r3,s1,s2,z1,z2,a,b,n
font_name 0,"terminal" : color 0,0,0,0 : font_color 0,255,255,0
x1 = 59 : y1 = 21
i1 = -1 : i2 = 1
r1 = -2 : r2 = 1
s1 = (r2-r1)/x1 : s2 = (i2-i1)/y1
print : print : print
for y = 0 to y1
i3 = i1+s2*y
for x = 0 to x1
r3 = r1+s1*x : z1 = r3 : z2 = i3
for n = 0 to 29
a = z1*z1 : b = z2*z2
if a+b > 4 then exit_for
z2 = 2*z1*z2+i3 : z1 = a-b+r3
next n
print chr$(62-n);
next x
print
next y
end
rem ============================================================================
 | |
|
jean_debord
Nombre de messages : 1266
Age : 70
Localisation : Limoges
Date d'inscription : 21/09/2008
| | Sujet: Re: ascii art mandelbrot drawing Dim 22 Jan 2023 - 11:03 | |
| Bonjour papydall,
Merci pour ce programme. Il fonctionne très bien.
La méthode est intéressante car on ne calcule qu'un point par caractère donc le temps de calcul est divisé par la taille du caractère, soit 128 pour un caractère de 8x16 pixels.
On pourrait ajouter des couleurs. Le caractère serait choisi en fonction de la distance entre le point et l'ensemble de Mandelbrot. La teinte et la saturation seraient choisies comme dans les programmes précédents de FBCroco.
J'espère pouvoir fournir bientôt un programme pour le crocodile. | |
|
papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: ascii art mandelbrot drawing Dim 22 Jan 2023 - 14:06 | |
| Merci Jean! Une légère modification pour centrer l'image. - Code:
-
rem ============================================================================
rem ascii art mandelbrot drawing
rem ============================================================================
dim x,y,x1,y1,i1,i2,i3,r1,r2,r3,s1,s2,z1,z2,a,b,n
font_name 0,"terminal" : color 0,0,0,0 : font_color 0,255,255,0
x1 = 59 : y1 = 21
i1 = -1 : i2 = 1
r1 = -2 : r2 = 1
s1 = (r2-r1)/x1 : s2 = (i2-i1)/y1
print : print : print : print : print
for y = 0 to y1
i3 = i1+s2*y
print string$(15," ");
for x = 0 to x1
r3 = r1+s1*x : z1 = r3 : z2 = i3
for n = 0 to 29
a = z1*z1 : b = z2*z2
if a+b > 4 then exit_for
z2 = 2*z1*z2+i3 : z1 = a-b+r3
next n
print chr$(62-n);
next x
print
next y
end
rem ============================================================================
 | |
|
Contenu sponsorisé
| | Sujet: Re: ascii art mandelbrot drawing | |
| |
|
Calendrier