with-directwrite-matrix ( quot -- )

Vocabulary

ui.text.directwrite.transforms

Inputs

quot

an object

Outputs

None

Definition

USING: combinators continuations namespaces opengl.gl ;

IN: ui.text.directwrite.transforms

:: with-directwrite-matrix ( quot -- )
    current-directwrite-transform directwrite-transform [
        glPushMatrix
        [ quot ( -- ) call-effect ] [ glPopMatrix ] finally
    ] with-variable ;