New Reference Library

[RealisticGraphics]

We are currently working on building new function libraries and we're wondering what kind of functions/properties/types/constants/enums/etc... people would like to see. Please reply to this post or e-mail us at kmsheff@RealisticGraphics.com &/or bstoppel@RealisticGraphics.com. Thank you very much.

How about drawing 3-D shapes? I tried making a rough outline of it. This is my Sphere so far.

Function Sphere(frmForm As Form, X1 As Integer, Y1 As Integer, Radius As Integer, Red As Byte, Green As Byte, Blue As Byte)

Dim CC1, RC, GC, BC, SubRed, SubGreen, SubBlue
CC1 = Radius
RC = Red
GC = Green
BC = Blue

SubRed = DiffRed
SubGreen = DiffGreen
SubBlue = DiffBlue

Do
frmForm.Circle (X1, Y1), CC1, RGB(RC, GC, BC)
CC1 = CC1 - 1
RC = RC + Radius / 2 / 1000 / 10
GC = GC + Radius / 2 / 1000 / 10
BC = BC + Radius / 2 / 1000 / 10
Loop While CC1 > 10

End Function