papier-vertex

Vocabulary

papier.map

Definition

IN: papier.map

SINGLETON: papier-vertex

Methods

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

M: papier-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 9 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string
            T{ vertex-attribute { name "texcoord" } { dim 2 } }
            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 2 } }
            assert-feedback-attribute
        ] [
            4 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 gpu.buffers gpu.shaders.private kernel
papier.map ;

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


USING: gpu.shaders gpu.shaders.private kernel papier.map ;

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


USING: gpu.shaders kernel papier.map ;

M: papier-vertex vertex-format-size drop 48 ;