make-textured-quad-vertices ( loc dim -- float-array )

Vocabulary

ui.render

Inputs

loc	an object
dim	an object

Outputs

float-array

an object

Definition

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

IN: ui.render

:: make-textured-quad-vertices ( loc dim -- float-array )
    loc first :> x1 loc second :> y1 x1 dim first +
    :> x2 y1 dim second + :> y2 [
        x1 y1 0.0 0.0 x2 y1 1.0 0.0 x2 y2 1.0 1.0 x1 y1 0.0 0.0
        x2 y2 1.0 1.0 x1 y2 0.0 1.0
    ] float-array{ } output>sequence ;