draw-terrain-sky ( world -- )

Vocabulary

terrain

Inputs

world

an object

Outputs

None

Definition

USING: accessors kernel namespaces opengl opengl.gl ;

IN: terrain

: draw-terrain-sky ( world -- )
    gl3-mode? get-global [
        terrain-mesh>> vertex-array>>
        [ GL_TRIANGLES 0 3 glDrawArrays ] with-vertex-array
    ] [ drop { -1.0 -1.0 } { 2.0 2.0 } gl-fill-rect ] if ;