[bind-vertex-attribute] ( stride offset vertex-attribute -- stride offset' quot )


Vocabulary
gpu.shaders.private

Inputs
stridean object
offsetan object
vertex-attributean object


Outputs
stridean object
offset'an object
quotan object


Definition


:: [bind-vertex-attribute]
( stride offset vertex-attribute -- stride offset' quot )
vertex-attribute name>> hyphens>underscores :> name
vertex-attribute component-type>> :> type type
gl-vertex-type :> gl-type vertex-attribute dim>> :> dim
vertex-attribute normalize?>> >c-bool :> normalize?
vertex-attribute vertex-attribute-size :> size stride offset
size + {
{ [ name not ] [ [ 2drop ] ] }
{
[ type unnormalized-integer-components? ]
[
{
name
dim
gl-type
stride
offset
(bind-int-vertex-attribute)
} >quotation
]
}
[
{
name
dim
gl-type
normalize?
stride
offset
(bind-float-vertex-attribute)
} >quotation
]
} cond ;