200byteDemoChallenge!

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Cygnus

I have another bit of code. Koriolis reminded me of a bit of Logo code I wrote and I wondered what it would look like animated at more than 0.5fps :)

MY CODE:

Graphics 640,480b#=0d#=128Repeat;x#=320y#=240;o=x;p=y;a#=-b*5For c#=1To 750;e#=Sin(c+b*30)SetColor d+e*d,d+Cos(c+b*30)*d,d-e*d;DrawLine o,p,x,y;o=x;p=y;x=x+Sin(a)*c;y=y+Cos(a)*c;a=a+90+Sin(b);b=b+.01Next;b=b-7.4Flip;Cls;Until KeyDown(27)

[edit]

Koriolis, I got yours down to 247:

a#=257Graphics a,a;a:/2SetOrigin a,a;While 1j#=Sin(t*3)k#=Cos(t*7)l#=Sin(t*5)For x=-a To a;For y=-a To a;u#=x/a;v#=y/a;i#=Sin((ATan2(u,v)+Sin((u*u+v*v)^l)*a*a*k)*Int(j*50))+1SetColor i*(j+1)*a,i*(k+1)*a,i*(l+1)*a;Plot x,y;Next;Next;t:+1Flip;Wend