-----------------------------------

rhomer

Mon May 31, 2004 7:54 pm


3d Ball - cool graphics

-----------------------------------

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


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

Sat Jun 05, 2004 5:10 pm



-----------------------------------

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