wire-vertex-format

Vocabulary

gml.viewer

Definition

IN: gml.viewer

SINGLETON: wire-vertex-format

Methods

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

M: wire-vertex-format (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 6 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string
            T{ vertex-attribute { name "color" } }
            assert-feedback-attribute
        ]
    ] cleave ;


USING: combinators gml.viewer gpu.buffers gpu.shaders.private
kernel ;

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


USING: gml.viewer gpu.shaders gpu.shaders.private kernel ;

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


USING: gml.viewer gpu.shaders kernel ;

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