uniform-slot-texture-accessor ( uniform -- accessor )

Vocabulary

gpu.render.private

Inputs

uniform

an object

Outputs

accessor

an object

Definition

USING: accessors kernel sequences slots ;

IN: gpu.render.private

: uniform-slot-texture-accessor ( uniform -- accessor )
    [ name>> reader-word ] [
        [ uniform-type>> ] [ dim>> ] bi
        uniform-texture-accessors
    ] bi dup length 1 =
    [ first swap prefix ] [ [ ] 2sequence ] if ;