Les N insectes amoureux

Sujet: re:Les N insectes amoureux Dim 11 Mar 2012 - 23:11

bonsoir
je ne resiste pas au plaisir de faire colorise
mon code en noiret blanc

Code:: dim beta,gama,f,fx,fy ,R,dx,dy
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
dim bx1,by1,beta1,r2 ,tx,ty
height 0,850
width 0,850
R=400
x0=400
y0=400
' Angle de depart
beta=140/57.29 :gama=40/57.29
' 2d_circle x0,y0,r
2d_circle x0,y0,5
' demi petit cote gama ne depass pas 90
' gama= 0/57
' 2d_flood 10,10,100,50,200
for x=1 to 40000
beta=beta+0.5/57.29
if key_down_code =27 then end
rem XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxxx
bx=x0+(sin(beta+gama)*r )
by=y0+(cos(beta+gama)*r)
' 2d_circle bx,by,10
bx1=bx +(sin(beta+gama+beta1)*r2 )
by1=by+ (cos(beta+gama+beta1)*r2)
2d_line tx,ty,bx1,by1
beta1=beta1+5/57.29
tx=bx1
ty=by1
r=r-0.01
r2=r2 +0.003
2d_circle bx1,by1,1
rem XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
display

next x

bonne soiree

Sujet: Re: Les N insectes amoureux Dim 11 Mar 2012 - 23:53

Ben une colorisation aussi puisque j'aime bien la couleur (mais le noir et blanc, je respecte aussi Wink

)
Ca donnerait ça en couleur par exemple:

Code:: dim beta,gama,r,x,bx1,by1,beta1,r2 ,tx,ty,bx,by, x0,y0
height 0,850 : width 0,850
R=400 : x0=400 : y0=400
' Angle de depart
beta=140/57.29 :gama=40/57.29
for x=1 to 40000
beta=beta+0.5/57.29
if key_down_code =27 then end
' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
bx=x0+(sin(beta+gama)*r) : by =y0+(cos(beta+gama)*r)
bx1=bx +(sin(beta+gama+beta1)*r2) : by1=by+ (cos(beta+gama+beta1)*r2)
2d_pen_color int(x/180),0,int(x/180) : 2d_line tx,ty,bx1,by1
beta1=beta1+5/57.29 : tx=bx1 : ty=by1: r=r-0.01 : r2=r2+0.003 : display
' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
next x

Sujet: Les insectes amoureux Lun 12 Mar 2012 - 1:06

Salut Sergeauze, salut Jicehel.
Chapeau ! Le moins que l’on puisse dire c’est …. Magnifique ! Et la couleur par Jicehel ajoute une touche de beauté. Ah les maths ! : En connaitre une partie c’est excellent.
Savoir s’en servir c’est parfait !

Sujet: re:Les N insectes amoureux Lun 12 Mar 2012 - 18:09

salut à tous
C'est vrai ce que tu dis.Je trouve une certaine beauté
à toutes ces creations et je me mets à apprecier les maths !!!
Et à plus tard

Sujet: Re: Les N insectes amoureux Lun 12 Mar 2012 - 23:50

Bon, je viens de rebooter une nouvelle fois ma box, je devrais avoir le temps de poster une petite création, histoire d'avoir notre courbe quotidienne Wink

Code:: label fin
dim a,b,x,y
width 0,600:height 0,350:color 0,0,0,0
for b=1 to 5 step 0.12
for a=8 to 11 step .01
x= hsin(a)/200 * cos(x)
y= sin(a)*50
2d_pen_color abs(255 - ((b-1)*100)),100 + (b-3)*20,255 -b*42
2d_point 300-x*hsin(b/2),100-y:2d_point 300-x*hsin(b/2),200+y
if key_down_code = 27 then goto fin
display
next a
next b
wait 500
for a= 7 to 13 step 0.0005
x= hsin(a)/200 * cos(x)
y= sin(a)*50
2d_pen_color abs(155 - a*5),abs(200-y),abs(255 - a*6)
2d_point x+300,100-y:2d_point x+300,200+y
if key_down_code = 27 then goto fin
display
next a
fin:
for b=1 to 2
wait 300
for a=1 to 160
if b=1 then 2d_pen_color a,rnd(255), 255-a
if b=2 then 2d_pen_color 0,0,0
2D_line 1,a,600,320 - a : 2D_line 1,320-a,600,a
2D_line 1,a,600,a : 2D_line 1,320-a,600,320 -a
wait 50
next a
next b
end

Sujet: les insectes amoureux Mar 13 Mar 2012 - 2:33

Ok, Jicehel.
Moi aussi je participe avec ce napperon de dentelle.
Quant à la couleur, c'est....

Code:: ' ****************************************************
' *
' * L'esthétique polaire
' * par Papydall
' *
' ****************************************************
dim titre$ : titre$ = "L'esthétique polaire"
caption 0,"Papydall vous présente " + titre$
width 0,700 : height 0,700
dim pi : pi = 4*atn(1)
dim a,b,x,y,xc,yc,n,p,r ,x0,y0
n = 22 : xc = 350 : yc = 350 : r = 300 : p = 2*pi/n
print " Le napperon de dentelle"
for a = 0 to 2*pi step p
x0 = xc + r*cos(a) : y0 = yc + r* sin(a)
for b = a+p to 2*pi-p step p
x = xc + r * cos(b) : y = yc + r * sin(b)
2d_line x0,y0,x,y
next b
next a

Sujet: Re: Les N insectes amoureux Mar 13 Mar 2012 - 2:43

Et ma version couleur.

Code:: ' ****************************************************
' *
' * L'esthétique polaire
' * par Papydall
' *
' ****************************************************
dim titre$ : titre$ = "L'esthétique polaire"
caption 0,"Papydall vous présente " + titre$
width 0,700 : height 0,700
dim pi : pi = 4*atn(1)
dim a,b,x,y,xc,yc,n,p,r ,x0,y0
n = 22 : xc = 350 : yc = 350 : r = 300 : p = 2*pi/n
print " Le napperon de dentelle"
for a = 0 to 2*pi step p
x0 = xc + r*cos(a) : y0 = yc + r* sin(a)
for b = a+p to 2*pi-p step p
x = xc + r * cos(b) : y = yc + r * sin(b)
2d_pen_color x/3, 30+y/4, x/y
2d_line x0,y0,x,y
next b
next a

Sujet: Re: Les N insectes amoureux Mar 13 Mar 2012 - 3:39

Et ceci

Code:: ' ****************************************************
' *
' * L'esthétique polaire
' * par Papydall
' *
' ****************************************************
dim titre$ : titre$ = "L'esthétique polaire"
caption 0,"Papydall vous présente " + titre$
width 0,700 : height 0,700
dim pi : pi = 4*atn(1)
dim a,b,x,y,xc,yc,n,p,r ,x0,y0
n = 40 : xc = 350 : yc = 350 : r = 300 : p = 2*pi/n
print " Le napperon de dentelle"
for a = 0 to 2*pi step p
x0 = xc + r*cos(a) : y0 = yc + r* sin(a)
for b = a+p to 2*pi-p step p
x = xc + r * cos(b) : y = yc + r * sin(b)
2d_pen_color 30+x/3, 120+y/10, 50+x/y
2d_line x0,y0,x,y
next b
next a

Sujet: Re: Les N insectes amoureux Mar 13 Mar 2012 - 4:53

Superbe, allez, je donne une variante simplifiée de mon code d'avant qui était un peu "confus" et moins épuré que les courbes habituelles Smile

Cette fois, c'est plus dans les classiques:

Code:: label fin
dim a,x,y
width 0,600:height 0,350:color 0,0,0,0
for a= 7.7 to 14 step 0.0005
x= hsin(a)/200 * cos(x) : y= sin(a)*50
2d_pen_color abs(155 - a*5),abs(200-y),abs(255 - a*6)
2d_point x+300,200-y:2d_point x+300,100+y
if key_down_code = 27 then goto fin
display
next a
fin:
end

» Pour les amoureux des maths