<bunny-buffers> ( model -- geom )

Vocabulary

bunny.model

Inputs

model

an object

Outputs

geom

an object

Definition

USING: accessors alien.c-types alien.data combinators kernel
math opengl opengl.gl sequences ;

IN: bunny.model

: <bunny-buffers> ( model -- geom )
    {
        [
            [ first concat ] [ second concat ] bi append
            float >c-array
            underlying>> GL_ARRAY_BUFFER swap GL_STATIC_DRAW
            <gl-buffer>
        ]
        [
            third concat uint >c-array
            underlying>> GL_ELEMENT_ARRAY_BUFFER swap
            GL_STATIC_DRAW <gl-buffer>
        ]
        [ first length 3 * ]
        [ third length 3 * ]
    } cleave f bunny-buffers boa ;