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.

Neji

nice demo Chris !
here is my attempt :

Graphics 320,240;Function P(x,y,r);SetColor r,g,b;Plot x,y;EndFunction;Repeat;SetClsColor 50,50,50;Cls;For x = 0 To 320-1 Step 4;For y = 0 To 240-1 Step 4;P(Rand(320),Rand(240),Rand(240));Next;Next;Flip;If KeyHit(KEY_ESCAPE) Exit
Forever

240 bytes

edit:
removed the function.

Graphics 320,240;Repeat;SetClsColor 50,50,50;Cls;For x = 0 To 320-1 Step 4;For y = 0 To 240-1 Step 4;SetColor Rand(250),255,255;Plot Rand(320),Rand(240);Next;Next;Flip;If KeyHit(KEY_ESCAPE) Exit
Forever

205 bytes

edit:
(sorry for editting so much)
slightly different effect :)

Graphics 320,240;Repeat;angle=Rand(360);SetClsColor 50,50,50;Cls;For x = 0 To 320-1 Step 4;For y = 0 To 240-1 Step 4;SetColor Rand(250),255,255;Plot x+Cos(angle)*10,y+Sin(angle)*10;Next;Next;Flip;If KeyHit(KEY_ESCAPE) Exit
Forever

233 bytes