[bind-uniform-textures] ( class -- quot )

Vocabulary

gpu.render.private

Inputs

class

an object

Outputs

quot

an object

Definition

USING: combinators kernel sequences ;

IN: gpu.render.private

: [bind-uniform-textures] ( class -- quot )
    f uniform-texture-accessors 0 swap
    [ texture-accessor>cleave ] map nip \ nip swap \ cleave
    [ ] 3sequence ;