make-position-vertices ( points -- float-array )

Vocabulary

ui.render

Inputs

points

an object

Outputs

float-array

an object

Definition

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

IN: ui.render

:: make-position-vertices ( points -- float-array )
    points length 6 * <float-array> :> arr points [| pt i |
        pt first i 6 * 0 + arr set-nth pt second i 6 * 1 +
        arr set-nth 1.0 i 6 * 2 + arr set-nth 1.0 i 6 * 3 +
        arr set-nth 1.0 i 6 * 4 + arr set-nth 1.0 i 6 * 5 +
        arr set-nth
    ] each-index arr ;