papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: Pour entretenir la discussion Jeu 29 Mai 2014 - 1:50 | |
|  Un code pour le compilateur.  - Code:
-
rem ============================================================================
rem Fractale
rem ============================================================================
dim a(2),b(2),c(2),d(2),e(2),f(2),p(2),x,y,j,pk,newx,newy,k
full_space 0 : color 0,0,0,0 : caption 0,"<CLICK> pour terminer"
data .917, -.224, .332, .867, .159, -.029, .8
data -.178, -.153, .143, -.191, .93, .18, 1
for j = 1 to 2
read a(j) : read b(j) : read c(j) : read d(j) : read e(j) : read f(j) : read p(j)
next j
repeat
pk = rnd(1)
if pk <= p(1) then k = 1 : else : k = 2
newx = a(k) * x + b(k) * y + e(k) : newy = c(k) * x + d(k) * y + f(k)
x = newx : y = newy
2d_pen_color rnd(255),rnd(255),rnd(255)
2d_point 100+x*400, 600-y*450 : 2d_point 800 -x*400, 600-y*450
2d_point 700+x*400, 600-y*450 : 2d_point 1400-x*400,600-y*450
until scancode <> 0
rem ============================================================================
L'interpréteur peut aussi le digérer mais beaucoup plus lentement.  | |
|
Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: Pour entretenir la discussion Jeu 29 Mai 2014 - 9:25 | |
| Merci Papydall, très joli, donc comme à chaque fois que j'aime et que, je fais ma variation sur le même thème (colorisation + adaptation à mon écran qui ne va pas jusqu'à 1400 comme les votre) Code: - Code:
-
rem ============================================================================
rem Fractale
rem ============================================================================
dim a(2),b(2),c(2),d(2),e(2),f(2),p(2),x,y,j,pk,newx,newy,k
full_space 0 : color 0,0,0,0 : caption 0,"<CLICK> pour terminer"
data .917, -.224, .332, .867, .159, -.029, .8
data -.178, -.153, .143, -.191, .93, .18, 1
for j = 1 to 2
read a(j) : read b(j) : read c(j) : read d(j) : read e(j) : read f(j) : read p(j)
next j
repeat
pk = rnd(1)
if pk <= p(1) then k = 1 : else : k = 2
newx = a(k) * x + b(k) * y + e(k) : newy = c(k) * x + d(k) * y + f(k)
x = newx : y = newy
2d_pen_color abs(x*150),abs(y*150),abs(y*150)
2d_point 100+x*400, 600-y*450 : 2d_point 800 -x*400, 600-y*450
2d_point 600+x*400, 600-y*450 : 2d_point 1300-x*400,600-y*450
until scancode <> 0
rem ============================================================================ (Edité: avec le code, c'est mieux ...) | |
|
Calendrier