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.

QuietBloke

This is all pretty much done now but I thought I would add my spinning ball thing... Im not very good at this so im afraid its complete bloatware at 252 bytes but hey.. at least I managed to get something !

ESC- To quit.

w=320;h=240;r=90Graphics w,h;w:/2;h:/2;s=0;a=45While Not KeyHit(27);Cls;For x=0To 360Plot w+r*Cos(x), h+r*Sin(x)
For y=0To a Step 45If x<180 Plot w+(r-y+s-a)*Sin(x),h+r*Cos(x)Else Plot w+(r-y-s)*Sin(x),h+r*Cos(x);
Next;Next;s:+1If s>a s=0
Flip
Wend