<bunny-cel-shaded> ( gadget -- draw )

Vocabulary

bunny.cel-shaded

Inputs

gadget

an object

Outputs

draw

an object

Definition

USING: accessors arrays kernel opengl.shaders ;

IN: bunny.cel-shaded

: <bunny-cel-shaded> ( gadget -- draw )
    drop cel-shading-supported? [
        bunny-cel-shaded new vertex-shader-source
        <vertex-shader> check-gl-shader
        cel-shaded-fragment-shader-lib-source <fragment-shader>
        check-gl-shader cel-shaded-fragment-shader-main-source
        <fragment-shader> check-gl-shader 3array
        <gl-program> check-gl-program >>program
    ] [ f ] if ;