En moins de dix lignes de code PANORAMIC
Page 1 sur 1
En moins de dix lignes de code PANORAMIC
- 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
Re: En moins de dix lignes de code PANORAMIC
- 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
Re: En moins de dix lignes de code PANORAMIC
Difficile de faire mieux en si peu de lignes !
- Code:
rem ============================================================================
rem Moiré
rem ============================================================================
dim t,x : x = width(0)
for t = 1 to x step 3 : 2d_line 0,0,x,t : 2d_line 0,0,t,x : next t
rem ============================================================================
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Lun 1 Jan - 0:25 par Papydall-Admin
» A ceux qui célèbre Noël, bonnes fêtes
Dim 24 Déc - 10:49 par Papydall-Admin
» Joyeux Noël et Bonne Année
Ven 8 Déc - 1:34 par Papydall-Admin
» Planets of the Solar System : Tilts and Spins
Lun 20 Mar - 15:43 par Papydall-Admin
» Bonne Année 2023
Sam 31 Déc - 1:39 par Papydall-Admin
» Fractals - Mandelbrot
Ven 21 Aoû - 22:51 par Papydall-Admin
» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
Mer 21 Nov - 1:08 par Papydall-Admin
» Balises {USER...}
Lun 19 Nov - 22:12 par Papydall-Admin
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin