gl3-init-clip ( gadget -- )

Vocabulary

ui.render

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel math.vectors namespaces opengl ;

IN: ui.render

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