gradient

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 ;