Computer Science Canada

3d Ball - cool graphics

Author:  rhomer [ Mon May 31, 2004 7:54 pm ]
Post subject:  3d Ball - cool graphics

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)

Author:  Hotaru [ Sat Jun 05, 2004 5:10 pm ]
Post subject: 

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


: