Playing around with SIN and COS makes me feel
, so I made this little demonstration (9 lines!) in 12 minutes and 32 seconds
set display mode 640,480,32 : hide mouse : for a=0 to 360 : x_one=320+sin(a)*-100 : y_one=240+(cos(a)*-100) : x_two=320+sin(a)*100 : y_two=240+(cos(a)*100)
ink rgb(a/4,a/6,a/8),0 : line x_one,y_one,x_two,y_two : ink rgb(a/4,a/8,a/8),0 : line x_one+sin(a)*-100,y_one+(cos(a)*-100),x_one+sin(a)*100,y_one+(cos(a)*100)
ink rgb(a/7,a/4,a/7),0 : line x_one+sin(a)*-100,y_two+(cos(a)*-100),x_one+sin(a)*100,y_two+(cos(a)*100) : ink rgb(a/4,a/6,a/4),0 : line x_two+sin(a)*-100,y_one+(cos(a)*-100),x_two+sin(a)*100,y_one+(cos(a)*100)
ink rgb(a/8,a/4,a/8),0 : line x_two+sin(a)*-100,y_two+(cos(a)*-100),x_two+sin(a)*100,y_two+(cos(a)*100) : sync : next a : ink rgb(255,255,255),0 : for b=0 to 360 : circle 320+sin(b)*200,240+(cos(b)*200),abs(int(sin(b)*10)) : sync : next b
for c=0 to 320 : ink rgb(int(c/1.5),int(c/2),int(c/1.5)),0
line c+(cos(c)*-7),(c/1.333)+(sin(c)*-7),c+(cos(c)*7),(c/1.333)+(sin(c)*7) : line c+(cos(c+90)*-7),(c/1.333)+(sin(c+90)*-7),c+(cos(c+90)*7),(c/1.333)+(sin(c+90)*7)
line c+(cos(c+180)*-7),(c/1.333)+(sin(c+180)*-7),c+(cos(c+180)*7),(c/1.333)+(sin(c+180)*7) : line c+(cos(c+270)*-7),(c/1.333)+(sin(c+270)*-7),c+(cos(c+270)*7),(c/1.333)+(sin(c+270)*7)
sync : next c
ink rgb(255,0,0),0 : for a=1 to 240 : ellipse 320,240,a*1.333,a : sync : next a : set text size 72 : ink rgb(255,255,255),0 : center text 320,215,"THE END" : sync : suspend for key : end
Quote: "
Amd 2500+ | 1024mb pc2700 | A7N8X-X | Geforce4 ti 4200 128mb"