with-translation ( loc quot -- )
Factor handbook » UI framework » Implementing new gadgets » Customizing gadget appearance » Implementing custom drawing logic » OpenGL utility words

Prev:	do-matrix ( quot -- )
Next:	make-dlist ( type quot -- id )

Vocabulary
opengl

Inputs

loc	a pair of integers
quot	a quotation

Outputs
None

Word description
Calls the quotation with a translation by loc pixels applied to the current GL_MODELVIEW matrix, restoring the matrix when the quotation is done.

Definition

USING: kernel ;

IN: opengl

: with-translation ( loc quot -- )
    [ [ gl-translate ] dip call ] do-matrix ; inline