each-attachment ( framebuffer quot: ( attachment -- ) -- )

Vocabulary

gpu.framebuffers.private

Inputs

framebuffer	an object
quot	a quotation with stack effect ( attachment -- )

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: gpu.framebuffers.private

: each-attachment ( framebuffer quot: ( attachment -- ) -- )
    [ [ color-attachments>> ] dip each ]
    [ swap depth-attachment>> [ swap call ] [ drop ] if* ]
    [ swap stencil-attachment>> [ swap call ] [ drop ] if* ]
    2tri ; inline