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


Vocabulary
gpu.render.private

Inputs and outputs
superclassan object
uniformsan object
quotan object


Definition


:: [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 ;