uniform-texture-accessors ( uniform-type dim -- accessors )

Vocabulary

gpu.render.private

Inputs

uniform-type	an object
dim	an object

Outputs

accessors

an object

Definition

USING: gpu.render kernel sequences ;

IN: gpu.render.private

: uniform-texture-accessors
    ( uniform-type dim -- accessors )
    [
        dup uniform-type?
        [ uniform-type-texture-accessors ]
        [ uniform-tuple-texture-accessors ] if
    ] [
        2dup swap empty? not and [
            <iota> [
                [ swap nth ] swap prefix over length 1 =
                [ swap first append ] [ swap suffix ] if
            ] with map
        ] [ drop ] if
    ] bi* ;