[bind-uniforms] ( superclass uniforms -- quot )

Vocabulary

gpu.render.private

Inputs

superclass	an object
uniforms	an object

Outputs

quot

an object

Definition

USING: generic kernel sequences words ;

IN: gpu.render.private

:: [bind-uniforms] ( superclass uniforms -- quot )
    superclass "uniform-tuple-texture-units" word-prop 0 or
    :> first-texture-unit superclass \ (bind-uniforms)
    lookup-method
    :> next-method first-texture-unit uniforms ""
    [bind-uniform-tuple] nip :> bind-quot
    { 2dup next-method } bind-quot [ ] append-as ;