[bind-vertex-format] ( vertex-attributes -- quot )

Vocabulary

gpu.shaders.private

Inputs

vertex-attributes

an object

Outputs

quot

an object

Definition

USING: combinators gpu.buffers kernel quotations sequences ;

IN: gpu.shaders.private

:: [bind-vertex-format] ( vertex-attributes -- quot )
    vertex-attributes vertex-attributes-size :> stride stride 0
    vertex-attributes [ [bind-vertex-attribute] ] { } map-as
    2nip :> attributes-cleave
    { attributes-cleave 2cleave } >quotation :> with-block
    { drop vertex-buffer with-block with-buffer-ptr } >quotation
    ;