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 namespaces opengl 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 gl3-mode? get-global [
        dup [ last-vertices>> ] [ last-colors>> ] bi
        quad-strip-to-triangles >>last-vertices
    ] when drop ;


USING: accessors kernel namespaces opengl ui.pens.caching
ui.pens.polygon ui.pens.rounded ui.pens.rounded.private ;

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 gl3-mode? get-global [
        dup color>> [ flat-xy-to-gl3-vertices ] curry
        [ change-interior-vertices ]
        [ change-boundary-vertices ] bi
    ] when drop ;


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

M: solid recompute-pen
    swap dim>> { 0 0 } swap gl3-mode? get-global [
        [ (gl3-fill-rect*-vertices) >>interior-vertices ]
        [ (gl3-rect*-vertices) >>boundary-vertices ] 2bi
    ] [
        [ (fill-rect-vertices) >>interior-vertices ]
        [ (rect-vertices) >>boundary-vertices ] 2bi
    ] if drop ;


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

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