bunny-buffers

Vocabulary

bunny.model

Definition

IN: bunny.model

TUPLE: bunny-buffers array element-array nv ni disposed ;

Methods

USING: accessors alien.c-types bunny.model kernel math opengl
opengl.gl ;

M: bunny-buffers bunny-geom
    dup [ array>> ] [ element-array>> ] bi [
        { GL_VERTEX_ARRAY GL_NORMAL_ARRAY } [
            GL_FLOAT 0 0 buffer-offset glNormalPointer [
                nv>> float heap-size * buffer-offset
                [ 3 GL_FLOAT 0 ] dip glVertexPointer
            ] [
                ni>> GL_TRIANGLES swap GL_UNSIGNED_INT 0
                buffer-offset glDrawElements
            ] bi
        ] all-enabled-client-state
    ] with-array-element-buffers ;


USING: accessors bunny.model destructors kernel opengl ;

M: bunny-buffers dispose*
    [ array>> ] [ element-array>> ] bi delete-gl-buffer
    delete-gl-buffer ;