Colors transitions are based on two circles and the sequence of circles that “morph” from the starting circle to the ending circle. Colors are assigned to stop circles in the sequence, and the colors of the start and end circles radiate inward and outward to points that are not on any intermediate circles.

Examples:

> (define no-pen (make-object pen% "BLACK" 1 'transparent))

> (define brush-grad (new brush% [gradient (new radial-gradient%       [x0 400] [y0 150] [r0 10] [x1 400] [y1 150] [r1 100]       [stops         (list (list 0   (make-object color% 255 0 0))               (list 0.5 (make-object color% 0 255 0))               (list 1   (make-object color% 0 0 255)))])]))

> (define brush-grad2 (new brush% [gradient       (make-object radial-gradient% 150 150 0 150 150 100                    (list (list 0   (make-object color% 0 0 255))                          (list 0.5 (make-object color% 0 255 0))                          (list 1   (make-object color% 255 0 0))))]))

> (dc (lambda (dc x y)       (send dc set-pen no-pen)       (send dc set-brush brush-grad2)       (send dc draw-ellipse 50 50 200 200)            (send dc set-brush brush-grad)       (send dc draw-rectangle 300 50 200 200)) 550 300)