papydall
Number of posts : 39
Age : 73
Localisation : TUNISIA
Registration date : 2013-03-16
 | | Subject: In less than 10 lines of code Fri Jun 16, 2017 3:43 am | |
| - 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> to stop ....."
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
| |
|
papydall
Number of posts : 39
Age : 73
Localisation : TUNISIA
Registration date : 2013-03-16
| | Subject: Re: In less than 10 lines of code Fri Jun 16, 2017 5:03 am | |
| - Code:
-
dim x,y,xc,yc,d,i
full_space 0 : caption 0,"!!! Please wait !!! <ESC> to stop"
D = 1.20123456789 + rnd(1): xc = width(0)*0.5:yc = height(0)*0.5 : color 0,0,0,0
repeat
i = i + 1.25 : X = X + sin(D * power(I,D)): Y = Y + COS(D *power(I,D))
2d_pen_color mod(i,255),rnd(255),mod(i,255)
2d_point xc+x,yc+y:2d_point xc-x,yc-y:2d_point xc+x,yc-y:2d_point xc-x,yc+y
until i > 240000 or scancode = 27
if i <= 240000 then caption 0,"!!! Stopped by user !!!" : else : caption 0, "!!! finished !!!"
| |
|
