with-gpu-data-ptr ( ..a gpu-data-ptr target quot: ( ..a c-ptr -- ..b ) -- ..b )

Vocabulary

gpu.buffers

Inputs

gpu-data-ptr	an object
target	an object
quot	a quotation with stack effect ( ..a c-ptr -- ..b )

Outputs

None

Definition

USING: gpu.buffers.private kernel opengl.gl ;

IN: gpu.buffers

: with-gpu-data-ptr
    ( ..a gpu-data-ptr target quot: ( ..a c-ptr -- ..b ) -- ..b )
    pick buffer-ptr?
    [ with-buffer-ptr ]
    [ [ gl-target 0 glBindBuffer ] dip call ] if ; inline