[bind-uniform-tuple] ( texture-unit uniforms prefix -- texture-unit' quot )

Vocabulary

gpu.render.private

Inputs

texture-unit	an object
uniforms	an object
prefix	an object

Outputs

texture-unit'	an object
quot	an object

Definition

USING: combinators quotations sequences ;

IN: gpu.render.private

:: [bind-uniform-tuple]
    ( texture-unit uniforms prefix -- texture-unit' quot )
    texture-unit uniforms [ prefix [bind-uniform] ] map
    :> ( texture-unit' uniforms-cleave ) texture-unit'
    { uniforms-cleave 2cleave } >quotation ;