RealisticGraphics
May 27th, 2000, 03:27 AM
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