[verify-feedback-attribute] ( vertex-attribute index -- quot )

Vocabulary

gpu.shaders.private

Inputs

vertex-attribute	an object
index	an object

Outputs

quot

an object

Definition

USING: accessors alien.c-types alien.data alien.strings
byte-arrays io.encodings.ascii kernel math opengl.gl quotations
sequences ;

IN: gpu.shaders.private

:: [verify-feedback-attribute]
    ( vertex-attribute index -- quot )
    vertex-attribute name>> :> name name length 1 +
    :> name-buffer-length {
        index
        name-buffer-length
        dup
        [ f 0 int <ref> 0 int <ref> ]
        dip
        <byte-array>
        [ glGetTransformFeedbackVarying ]
        3keep
        ascii
        alien>string
        vertex-attribute
        assert-feedback-attribute
    } >quotation ;