init-graphics ( -- )

Vocabulary

jamshred.gl

Inputs

None

Outputs

None

Definition

USING: accessors opengl.gl
specialized-arrays.instances.alien.c-types.float ;

IN: jamshred.gl

: init-graphics ( -- )
    GL_DEPTH_TEST glEnable GL_SCISSOR_TEST glDisable
    1.0 glClearDepth 0.0 0.0 0.0 0.0 glClearColor
    GL_PROJECTION glMatrixMode
    glPushMatrix GL_MODELVIEW glMatrixMode
    glPushMatrix GL_LEQUAL glDepthFunc GL_LIGHTING glEnable
    GL_LIGHT0 glEnable GL_FOG glEnable
    GL_FOG_DENSITY 0.09 glFogf
    GL_FRONT GL_AMBIENT_AND_DIFFUSE glColorMaterial
    GL_COLOR_MATERIAL glEnable GL_LIGHT0 GL_POSITION
    float-array{ 0.0 0.0 0.0 1.0 } underlying>> glLightfv
    GL_LIGHT0 GL_AMBIENT float-array{
        0.20000000298023224
        0.20000000298023224
        0.20000000298023224
        1.0
    } underlying>> glLightfv GL_LIGHT0 GL_DIFFUSE
    float-array{ 1.0 1.0 1.0 1.0 } underlying>> glLightfv
    GL_LIGHT0 GL_SPECULAR
    float-array{ 1.0 1.0 1.0 1.0 } underlying>> glLightfv ;