Vocabulary
ui.pens.gradient

Class description
A class implementing the draw-interior generic word to draw a smoothly shaded transition between colors. The colors slot stores a sequence of color instances, and the gradient is drawn in the direction given by the orientation slot of the gadget.

Notes
See Colors.

Definition

USING: ui.pens.caching ;

IN: ui.pens.gradient

TUPLE: gradient < caching-pen colors last-vertices last-colors ;

Methods

USING: accessors combinators opengl ui.pens ui.pens.caching
ui.pens.gradient ui.pens.gradient.private ;

M: gradient draw-interior
{
[ compute-pen ]
[ last-vertices>> gl-vertex-pointer ]
[ last-colors>> gl-color-pointer ]
[ colors>> draw-gradient ]
} cleave ;

USING: colors kernel ui.pens ui.pens.gradient ;

M: gradient pen-background 2drop transparent ;

USING: accessors kernel ui.pens.caching ui.pens.gradient
ui.pens.gradient.private ;

M: gradient recompute-pen
[ nip ]
[ [ [ orientation>> ] [ dim>> ] bi ] [ colors>> ] bi* ] 2bi
[ gradient-vertices >>last-vertices ]
[ gradient-colors >>last-colors ] bi drop ;