recompute-pen ( gadget pen -- )

Vocabulary

ui.pens.caching

Inputs

gadget	an object
pen	an object

Outputs

None

Definition

IN: ui.pens.caching

GENERIC: recompute-pen ( gadget pen -- )

Methods

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 ;


USING: accessors kernel ui.pens.caching ui.pens.polygon
ui.pens.rounded ;

M: rounded recompute-pen
    swap over [ dim>> ] [ radius>> ] bi* [
        [ { 0 0 } ] 2dip (rounded-rect-vertices)
        close-path >>interior-vertices
    ] [
        [ { 0 0 } swap boundary-shift ] dip
        (rounded-rect-vertices) >>boundary-vertices
    ] 2bi drop ;


USING: accessors kernel opengl ui.pens.caching ui.pens.solid ;

M: solid recompute-pen
    swap dim>>
    [ [ { 0 0 } ] dip (fill-rect-vertices) >>interior-vertices ]
    [ [ { 0 0 } ] dip (rect-vertices) >>boundary-vertices ] bi
    drop ;