rounded

Vocabulary

ui.pens.rounded

Definition

USING: ui.pens.solid ;

IN: ui.pens.rounded

TUPLE: rounded < solid radius ;

Methods

USING: accessors kernel math opengl opengl.gl sequences ui.pens
ui.pens.rounded ui.pens.rounded.private ;

M: rounded draw-boundary
    [ (rounded) GL_LINE_STRIP 0 ] [ boundary-vertices>> ] bi
    [ gl-vertex-pointer ] [ length 2/ glDrawArrays ] bi ;


USING: accessors kernel math opengl opengl.gl sequences ui.pens
ui.pens.rounded ui.pens.rounded.private ;

M: rounded draw-interior
    [ (rounded) GL_POLYGON 0 ] [ interior-vertices>> ] bi
    [ gl-vertex-pointer ] [ length 2/ glDrawArrays ] bi ;


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 ;