DNA Animation

[OldMoses]

I like how that drawBall sub just drops into the circle fill spot. Try this modification of it. It SINs the loop divisor, instead of a straight proportion, to render the edge gradient less dark.

A little inspiration I had, thanks to my attempts to better understand the trig functions.

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 - SIN(rr / r)
        FCirc x, y, rr, _RGB32(rred * f, grn * f, blu * f)
    NEXT
END SUB