flat-xy-to-gl3-vertices ( flat-array color -- gl3-array )


Vocabulary
ui.pens.rounded.private

Inputs
flat-arrayan object
coloran object


Outputs
gl3-arrayan object


Definition
USING: colors math sequences
specialized-arrays.instances.alien.c-types.float ;

IN: ui.pens.rounded.private

:: flat-xy-to-gl3-vertices ( flat-array color -- gl3-array )
color >rgba-components :> ( r g b a ) flat-array length 2/
:> vertex-count vertex-count 6 *
<float-array> :> arr vertex-count <iota> [| i |
i 2 * flat-array nth i 6 * 0 + arr set-nth i 2 * 1 +
flat-array nth i 6 * 1 + arr set-nth r i 6 * 2 +
arr set-nth g i 6 * 3 + arr set-nth b i 6 * 4 +
arr set-nth a i 6 * 5 + arr set-nth
] each arr ;