dessiner une chouette courbe colorée

Nombre de messages : 601 Date d'inscription : 05/01/2012

me suis amusé à jouer sur les x et y comme quand j'étais petit, heu...qui a dit que j'avais pas grandi ?
Bon c'est moi ça va^^

Code:: dim maxtaille%
dim i%

picture 1
width 1,400
height 1,400

maxtaille%=400
2D_target_is 1

for i%=0 to maxtaille%
2D_line 0,i%+16,i%+16,maxtaille%
next i%
end

Une autre :

Code:: dim maxtaille%
dim i%

picture 1
width 1,400
height 1,400

maxtaille%=400
2D_target_is 1

for i%=0 to maxtaille%
i%=i%+16
2D_line 0,i%,i%,maxtaille%
next i%

end

Sujet: Re: dessiner une chouette courbe colorée Lun 16 Jan 2012 - 1:33

Tant qu'à jouer, tu devrais modifier la couleur du style:

Code:: dim maxtaille% , i%, c1,c2,c3
picture 1 : width 1,400 : height 1,400 : 2D_target_is 1

maxtaille%=400 : c1=0 : c2=180 : c3=255
for i%=0 to maxtaille%
c1 = mod(c1+5,255) : c2 = c2 - 16 : c3 = c3 - 2
if c2 < 0 then c2 = 255
if c3 < 0 then c3 = 255
2D_pen_Color c1,c2,c3
2D_line 0,i%+16,i%+16,maxtaille%
next i%
end

ou plus joli, un truc style:

Code:: dim maxtaille% , i%, c1,c2,c3,s1,s2,s3, inc1, inc2, inc3
picture 1 : width 1,400 : height 1,400 : 2D_target_is 1

maxtaille%=400 : c1=0 : c2=180 : c3=253 :s1=0 : s2 =0: s3=0
inc1 = 2 : inc2 = 2 : inc3 = 5

for i%=0 to maxtaille%
if s1=0
if c1 < (256 - inc1) then c1 = c1+inc1: else: s1=1 : c1=255
else
if c1 > (inc1 - 1) then c1 = c1-inc1: else: s1=0 : c1 = 0
end_if

if s3=0
if c3 < (256 - inc3) then c3 = c3+inc3: else: s3=1 : c3=255
else
if c3 > (inc3 - 1) then c3 = c3-inc3: else: s3=0 : c3 = 0
end_if

2D_pen_Color c1,c2,c3
2D_line 0,i%+16,i%+16,maxtaille%
next i%
end

Bon aller, bonne nuit et à demain

Nombre de messages : 601 Date d'inscription : 05/01/2012

Trop beau !!!

C'est beau la programmation Wink