3d Ball - cool graphics

[rhomer]

I was messing with the RGB.AddColor and I made this..I thought i shud share it:

code:

var clr : array 1 .. 100 of int colorback (black) cls proc makesphere (colors : int)     for c : 1 .. colors         clr (c) := RGB.AddColor (c / colors, c / colors, c / colors)         drawfilloval (maxx div 2, maxy div 2, colors - c, colors - c, clr (c))     end for end makesphere makesphere (100)

[Hotaru]

~very cool effect~
~however one suggestion~it will looks so much better if you have delays to your program~