(verify-feedback-format) ( program-instance format -- )

Vocabulary

gpu.shaders.private

Inputs

program-instance	an object
format	an object

Outputs

None

Definition

IN: gpu.shaders.private

GENERIC: (verify-feedback-format) ( program-instance format -- )

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: alien.c-types alien.data alien.strings byte-arrays
combinators game.models.collada.private gpu.shaders
gpu.shaders.private io.encodings.ascii kernel opengl.gl ;

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


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: 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-text-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 2 }
            } assert-feedback-attribute
        ] [
            1 11 dup [ f 0 int <ref> 0 int <ref> ] dip
            <byte-array> [ glGetTransformFeedbackVarying ] 3keep
            ascii alien>string T{ vertex-attribute
                { name "a_texcoord" }
                { dim 2 }
            } assert-feedback-attribute
        ]
    ] cleave ;


USING: gpu.shaders.private kernel ;

M: f (verify-feedback-format) 2drop ;


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

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


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: alien.c-types alien.data alien.strings byte-arrays
combinators gpu.shaders gpu.shaders.private gpu.util
io.encodings.ascii kernel opengl.gl ;

M: window-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 2 } }
            assert-feedback-attribute
        ]
    ] cleave ;


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 ;