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

Vocabulary

gpu.render.private

Inputs

class	an object
superclass	an object
uniforms	an object

Outputs

None

Definition

USING: accessors classes.tuple combinators kernel math sequences
words ;

IN: gpu.render.private

: (define-uniform-tuple) ( class superclass uniforms -- )
    {
        [ [ uniform>slot ] map define-tuple-class ]
        [
            [ uniform-type-texture-units ] [
                [
                    [
                        uniform-type>>
                        uniform-type-texture-units
                    ] [ dim>> 1 or ] bi *
                ] [ + ] map-reduce
            ] bi* + "uniform-tuple-texture-units" set-word-prop
        ]
        [ nip "uniform-tuple-slots" set-word-prop ]
        [ define-uniform-tuple-methods ]
    } 3cleave ;