texture-accessor>cleave ( unit accessors -- unit' cleaves )

Vocabulary

gpu.render.private

Inputs

unit	an object
accessors	an object

Outputs

unit'	an object
cleaves	an object

Definition

USING: combinators kernel math sequences ;

IN: gpu.render.private

: texture-accessor>cleave
    ( unit accessors -- unit' cleaves )
    dup last sequence? [
        [ last [ texture-accessor>cleave ] map ] [ but-last ] bi
        swap suffix \ cleave suffix
    ] [ over suffix \ (bind-texture-unit) suffix [ 1 + ] dip ]
    if ;