bunny-world

Vocabulary

bunny

Definition

USING: opengl.demo-support ;

IN: bunny

TUPLE: bunny-world < demo-world
    model-triangles geom draw-seq draw-n ;

Methods

USING: accessors bunny bunny.model kernel opengl.demo-support
opengl.gl ui.gadgets.worlds ;

M: bunny-world begin-world
    GL_DEPTH_TEST glEnable 0.0 0.0 0.375 set-demo-orientation
    download-bunny read-model
    [ >>model-triangles ] [ <bunny-geom> >>geom ] bi
    dup make-draws >>draw-seq 0 >>draw-n drop ;


USING: accessors bunny bunny.model kernel opengl.demo-support
opengl.gl sequences ui.gadgets.worlds ;

M: bunny-world draw-world*
    dup draw-seq>> empty?
    [ drop ] [
        0.15 0.15 0.15 1.0 glClearColor 16640 glClear
        dup demo-world-set-matrix GL_MODELVIEW glMatrixMode
        0.02 -0.105 0.0 glTranslatef [ geom>> ] [ get-draw ] bi
        draw-bunny
    ] if ;


USING: accessors bunny destructors kernel sequences
ui.gadgets.worlds ;

M: bunny-world end-world
    dup find-gl-context
    [ geom>> [ dispose ] when* ]
    [ draw-seq>> [ [ dispose ] when* ] each ] bi ;