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

Vocabulary

gpu.render.private

Inputs

texture-unit	an object
uniform	an object
prefix	an object

Outputs

texture-unit'	an object
quot	an object

Definition

USING: accessors combinators gpu.render gpu.shaders.private
kernel quotations sequences slots ;

IN: gpu.render.private

:: [bind-uniform]
    ( texture-unit uniform prefix -- texture-unit' quot )
    prefix uniform name>> append
    hyphens>underscores :> name uniform uniform-type>> :> type
    uniform dim>> :> dim uniform name>> reader-word 1quotation
    :> value>>-quot value>>-quot type texture-unit name {
        {
            [ type uniform-type? dim and ]
            [ dim [bind-uniform-array] ]
        }
        {
            [ type uniform-type? dim not and ]
            [ [bind-uniform-value] ]
        }
        [ dim [bind-uniform-struct] ]
    } cond ;