papydall
Nombre de messages : 6998
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: Les plus courts sont les meilleurs! Mer 11 Juin 2014 - 21:14 | |
| Je n'arrive pas (ou plus  ) à produire un code dont le nombre de lignes comporte plus d'un simple petit chiffre! C'est-à-dire moins de 10 lignes. Et pour moins de 10 lignes, on peut faire beaucoup de choses : Ce n'est certainement pas la taille qui compte  1er code : - Code:
-
dim angle,r,xc,yc
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0 : caption 0,"<CLICK> pour terminer ....."
repeat
angle = angle + 0.0123456789 : r = r + 1.07123456789 : if r > 350 then r = 0
2d_pen_color 255,255,0 : 2d_circle xc + 2* r*COS(angle), yc + r*SIN(angle),2
2d_pen_color 255,0,255 : 2d_circle xc + r*COS(angle + .079 * 9), yc + r* SIN(angle + .079 * 9),2
until scancode <> 0
2ème code : - Code:
-
dim a,r,xc,yc ,xp,yp
full_space 0 : xc = screen_x/2 : yc = screen_y/2 -50 : color 0,0,0,0 : caption 0,"<CLICK> pour terminer ....."
repeat
a = a + .0123456789 : r = r + .0123456789 : xp = xc + 2*r*COS(a) : yp = yc + r*SIN(a): if r > 200 then r = 0
2d_pen_color 255,rnd(255),150 : 2d_rectangle xp-40,yp-40,xp+40,yp+40 : xp = xc + r*COS(a + .079 * 9) : yp = yc + r* SIN(a + .079 * 9)
2d_pen_color rnd(255),0,155 : 2d_circle xp, yp,50 : 2d_pen_color 255,rnd(255),255 : 2d_circle xp+yp,xp-yp,40
2d_pen_color rnd(150),150,rnd(150) : 2d_circle yp,xp-yp/1.25,60 : 2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_rectangle xp-yp,yp,yp,xp-yp/1.5
2d_pen_color 255,rnd(255),rnd(255) : 2d_circle yp,xp-yp,60 : 2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_circle xp+xp/3+yp/4,xp-yp,50
until scancode <> 0
A essayer avec l'interpréteur et / ou le compilateur. NB : Comme d'habitude, quand vous en avez assez, CLIQUEZ pour arrêter. | |
|
Jicehel
Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: Les plus courts sont les meilleurs! Mer 11 Juin 2014 - 22:06 | |
| Perso, j'aime beaucoup le premier mais je trouve le second plus 'martien' voir confus, mais c'est mon avis... | |
|
Calendrier