papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: Tapis de Sierpinski Sam 29 Juin 2019 - 1:47 | |
| Ce code bien qu’il puisse être lancé par l’interpréteur (l’affichage peut durer une minute ou plus !), il est plutôt destiné pour le compilateur (affichage instantané !) - Code:
-
rem ============================================================================
rem Tapis de Sierpinski
rem Papydall - Samedi 29 Juin 2019
rem Wikipédia : Tapis de Sierpinski
rem https://fr.wikipedia.org/wiki/Tapis_de_Sierpi%C5%84ski
rem ============================================================================
dim order,side,x,y,x0,y0,cote
width 0,800 : height 0,800
picture 10 : full_space 10 : 2d_target_is 10 : color 10,0,0,0
caption 0,"Tapis de Sierpinski"
order = 5
side = power(3,order)
x0 = 30 : y0 = 10 : cote = 15/order
2d_fill_color 255,255,255
for y = 0 to side-1
for x = 0 to side-1
2d_pen_color 255,255,0
if (odd(x) = 0) or (odd(y) = 0)
2d_pen_color 255,0,0
end_if
if (odd(x) = 0) and (odd(y) = 0)
2d_pen_color 0,255,0
end_if
if (odd(x) = 1) and (odd(y) = 1)
2d_pen_color 0,0,255
end_if
if incarpet(x,y) = 1
2d_rectangle x0+x*cote,y0+y*cote , x0+cote*(x+1),y0+cote*(y+1)
end_if
next x
next y
end
rem ============================================================================
FNC incarpet(x,y)
repeat
if (mod(x,3) = 1) and (mod(y,3) = 1) then result 0 : exit_fnc
x = int(x/3)
y = int(y/3)
until (x = 0) and (y = 0)
result 1
END_FNC
rem ============================================================================
- Résultat:
| |
|
Calendrier
