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

Vocabulary

gpu.framebuffers.private

Inputs

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

Outputs

None

Definition

USING: accessors kernel math opengl.gl sequences ;

IN: gpu.framebuffers.private

:: each-attachment-target
    ( framebuffer quot: ( attachment-target attachment -- ) -- )
    framebuffer color-attachments>> [| attachment n |
        n GL_COLOR_ATTACHMENT0 + attachment quot call
    ] each-index framebuffer depth-attachment>>
    [| attachment | GL_DEPTH_ATTACHMENT attachment quot call ]
    when* framebuffer stencil-attachment>>
    [| attachment | GL_STENCIL_ATTACHMENT attachment quot call ]
    when* ; inline