• Home
 · 
• Graphics
 · 
• A Colorful Ball of Light Function

A Colorful Ball of Light Function

This code will allow you to make a ball of light of any size and color, ready to go in a module! Please vote.

Inputs
frm As Form, originx As Integer, originy As Integer, radius As Integer, red As Integer, green As Integer, blue As Integer

Returns
Returns a filled ball of light on your form that displays a white center that ascends to any color of your choice.

Side Effects
Somewhat slow.. the bigger/more balls of light the slower it will get.

Rate A Colorful Ball of Light Function

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Public Function MakeLight(frm As Form, originx As Integer, originy As Integer, radius As Integer, red As Integer, green As Integer, blue As Integer)
For tiltx = -0.5 To 0.5 Step 0.5 ' offset it a tad to get the pixels not colored
For tilty = -0.5 To 0.5 Step 0.5 ' offset it a tad to get the pixels not colored
For tempradius = 0 To radius Step 1 ' colors multiple circles with origins from the origin to origin + radius
Randomize
circlecolor = Int(Rnd * (1 * (radius / 255))) + (tempradius / (radius / 255)) + 1 ' gets a random color in a specific range, give it the light effect
circlecolor = Abs(circlecolor - 255) ' inverts the colors from white outside to white inside
frm.Circle (originx + tiltx, originy + tilty), tempradius, RGB(circlecolor + red, circlecolor + green, circlecolor + blue) ' makes the circle
Next tempradius
Next tilty
Next tiltx
End Function