bunny-geom ( geom -- )

Vocabulary

bunny.model

Inputs

geom

an object

Outputs

None

Definition

IN: bunny.model

GENERIC: bunny-geom ( geom -- )

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 opengl.gl ;

M: bunny-dlist bunny-geom list>> glCallList ;