init-clip ( gadget -- )

Vocabulary

ui.render

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel math.vectors namespaces opengl opengl.gl
sequences ;

IN: ui.render

: init-clip ( gadget -- )
    [
        dim>>
        [ { 0 1 } v* viewport-translation set ]
        [ [ { 0 0 } ] dip gl-viewport ]
        [ [ 0 ] dip first2 0 1 -1 glOrtho ] tri
    ] [ clip set ] bi do-clip ;