with-matrix ( quot -- )

Vocabulary

opengl

Inputs

quot

an object

Outputs

None

Definition

USING: combinators kernel namespaces ;

IN: opengl

: with-matrix ( quot -- )
    with-matrix-hook get-global
    [ ( quot -- ) call-effect ] [ do-matrix ] if* ; inline