with-draw-read-framebuffers ( draw-id read-id quot -- )

Vocabulary

opengl.framebuffers

Inputs

draw-id	an object
read-id	an object
quot	an object

Outputs

None

Definition

USING: continuations kernel opengl.gl ;

IN: opengl.framebuffers

: with-draw-read-framebuffers ( draw-id read-id quot -- )
    [
        [ GL_DRAW_FRAMEBUFFER swap glBindFramebuffer ]
        [ GL_READ_FRAMEBUFFER swap glBindFramebuffer ] bi*
    ] dip [
        GL_DRAW_FRAMEBUFFER 0 glBindFramebuffer
        GL_READ_FRAMEBUFFER 0 glBindFramebuffer
    ] finally ; inline