200byteDemoChallenge!

BlitzMax Forums/BlitzMax Programming/200byteDemoChallenge!

' If a computer has organs, then this is its heart!
'
' CS_TBL
'
'  196
'   36
'    1 (enter)
' ----+
'  233    

b=256Graphics b,b;b:/16Repeat;r#=r*.9+Rnd(.1)For y=0To 15For x=0To 15o:+1h=b*r*3f=Sin(o/59+b*x+g)*h;g=Cos(o/57+b*y+f)*h;i=128SetColor i+f,i+g,i;If(x+y)Mod 2x:*b;y:*b;DrawOval x+f,y+g,b,b;x:/b;y:/b
Next;Next;Flip;Cls;Until KeyDown(27)