DNA Animation

[bplus]

Hey Ken,

You can draw Balls with this Sub instead of flat circles:

Code: (Select All)

Sub drawBall (x, y, r, c As _Unsigned Long)
    Dim rred As Long, grn As Long, blu As Long, rr As Long, f
    rred = _Red32(c): grn = _Green32(c): blu = _Blue32(c)
    For rr = r To 0 Step -1
        f = 1 - rr / r
        fillcircle x, y, rr, _RGB32(rred * f, grn * f, blu * f)
    Next
End Sub

Just put the Sub in code and where you draw a circle using circleFill instead say drawBall with same numbers x, y, r, colr