bunny-vertex

Vocabulary

gpu.demos.bunny

Definition

IN: gpu.demos.bunny

SINGLETON: bunny-vertex

Methods

USING: alien.c-types alien.data alien.strings byte-arrays
combinators gpu.demos.bunny gpu.shaders gpu.shaders.private
io.encodings.ascii kernel opengl.gl ;

M: bunny-vertex (verify-feedback-format)
    drop [
        [
            0 7 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string
            T{ vertex-attribute { name "vertex" } { dim 3 } }
            assert-feedback-attribute
        ] [
            1 1 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string
            T{ vertex-attribute { dim 1 } }
            assert-feedback-attribute
        ] [
            2 7 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string
            T{ vertex-attribute { name "normal" } { dim 3 } }
            assert-feedback-attribute
        ] [
            3 1 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string
            T{ vertex-attribute { dim 1 } }
            assert-feedback-attribute
        ]
    ] cleave ;


USING: combinators gpu.buffers gpu.demos.bunny
gpu.shaders.private kernel ;

M: bunny-vertex bind-vertex-format
    drop vertex-buffer [
        {
            [
                "vertex" 3 5126 0 32 0
                (bind-float-vertex-attribute)
            ]
            [ 2drop ]
            [
                "normal" 3 5126 0 32 16
                (bind-float-vertex-attribute)
            ]
            [ 2drop ]
        } 2cleave
    ] with-buffer-ptr ;


USING: gpu.demos.bunny gpu.shaders gpu.shaders.private kernel ;

M: bunny-vertex link-feedback-format
    nip invalid-link-feedback-format-error ;


USING: gpu.demos.bunny gpu.shaders kernel ;

M: bunny-vertex vertex-format-size drop 32 ;