with-array-element-buffers ( array-buffer element-buffer quot -- )


Vocabulary
opengl

Inputs
array-bufferan object
element-bufferan object
quotan object


Outputs
None

Definition
USING: kernel opengl.gl ;

IN: opengl

: with-array-element-buffers
( array-buffer element-buffer quot -- )
[ GL_ELEMENT_ARRAY_BUFFER ] 2dip
[ [ GL_ARRAY_BUFFER swap ] ] dip [ with-gl-buffer ] curry
compose with-gl-buffer ; inline