debug-shapes-vertex-format

Vocabulary

game.debug.private

Definition

IN: game.debug.private

SINGLETON: debug-shapes-vertex-format

Methods

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

M: debug-shapes-vertex-format (verify-feedback-format)
    drop [
        [
            0 11 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string T{ vertex-attribute
                { name "a_position" }
                { dim 3 }
            } assert-feedback-attribute
        ] [
            1 8 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string
            T{ vertex-attribute { name "a_color" } { dim 3 } }
            assert-feedback-attribute
        ]
    ] cleave ;


USING: combinators game.debug.private gpu.buffers
gpu.shaders.private kernel ;

M: debug-shapes-vertex-format bind-vertex-format
    drop vertex-buffer [
        {
            [
                "a_position" 3 5126 0 24 0
                (bind-float-vertex-attribute)
            ]
            [
                "a_color" 3 5126 0 24 12
                (bind-float-vertex-attribute)
            ]
        } 2cleave
    ] with-buffer-ptr ;


USING: alien.syntax game.debug.private gpu.shaders.private
kernel opengl.gl
specialized-arrays.instances.alien.c-types.void* ;

M: debug-shapes-vertex-format link-feedback-format
    drop 2
    void*-array{ ALIEN: 6000014bc6d0 ALIEN: 6000014bc6e0 }
    GL_INTERLEAVED_ATTRIBS glTransformFeedbackVaryings ;


USING: game.debug.private gpu.shaders kernel ;

M: debug-shapes-vertex-format vertex-format-size drop 24 ;