[link-feedback-format] ( vertex-attributes -- quot )

Vocabulary

gpu.shaders.private

Inputs

vertex-attributes

an object

Outputs

quot

an object

Definition

USING: accessors alien.data gpu.shaders io.encodings.ascii
kernel opengl.gl quotations sequences
specialized-arrays.instances.alien.c-types.void* ;

IN: gpu.shaders.private

:: [link-feedback-format] ( vertex-attributes -- quot )
    vertex-attributes [ name>> not ] any?
    [ [ nip invalid-link-feedback-format-error ] ] [
        vertex-attributes
        [ name>> ascii malloc-string ] void*-array{ } map-as
        :> varying-names vertex-attributes length
        :> varying-count {
            drop
            varying-count
            varying-names
            GL_INTERLEAVED_ATTRIBS
            glTransformFeedbackVaryings
        } >quotation
    ] if ;