check-papier ( world -- )

Vocabulary

papier.smoke-test

Inputs

world

an object

Outputs

None

Definition

USING: accessors byte-arrays calendar kernel math opengl
opengl.capabilities opengl.gl sequences sets threads ui
ui.gadgets.worlds ;

IN: papier.smoke-test

:: check-papier ( world -- )
    1 seconds sleep world active?>> t assert=
    world game-loop>> tick#>> 0 > t assert= world set-gl-context
    gl-extensions empty? f assert= world draw-world*
    world dim>> first2 :> ( width height ) width height * 4 *
    <byte-array> :> pixels 0 0 width height GL_RGBA
    GL_UNSIGNED_BYTE pixels glReadPixels
    gl-error pixels members length 16 > t assert=
    close-all-windows ;