define-uniform-tuple-methods ( class superclass uniforms -- )

Vocabulary

gpu.render.private

Inputs

class	an object
superclass	an object
uniforms	an object

Outputs

None

Definition

USING: generic.parser kernel words ;

IN: gpu.render.private

: define-uniform-tuple-methods
    ( class superclass uniforms -- )
    [
        2drop
        [ \ (bind-uniform-textures) create-method-in ]
        [ [bind-uniform-textures] ] bi define
    ] [
        [ \ (bind-uniforms) create-method-in ] 2dip
        [bind-uniforms] define
    ] 3bi ;