(draw-cel-shaded-bunny) ( geom program -- )

Vocabulary

bunny.cel-shaded

Inputs

geom	an object
program	an object

Outputs

None

Definition

USING: bunny.model combinators opengl.gl opengl.shaders ;

IN: bunny.cel-shaded

: (draw-cel-shaded-bunny) ( geom program -- )
    [
        {
            [
                "light_direction" glGetUniformLocation
                1.0 -1.0 1.0 glUniform3f
            ]
            [
                "color" glGetUniformLocation
                0.6 0.5 0.5 1.0 glUniform4f
            ]
            [
                "ambient" glGetUniformLocation
                0.2 0.2 0.2 0.2 glUniform4f
            ]
            [
                "diffuse" glGetUniformLocation
                0.8 0.8 0.8 0.8 glUniform4f
            ]
            [
                "shininess" glGetUniformLocation
                100.0 glUniform1f
            ]
        } cleave bunny-geom
    ] with-gl-program ;