(gl3-rect-vertices) ( loc dim color -- vertices )

Vocabulary

ui.render

Inputs

loc	an object
dim	an object
color	an object

Outputs

vertices

an object

Definition

USING: math sequences ;

IN: ui.render

:: (gl3-rect-vertices) ( loc dim color -- vertices )
    loc first :> x1 loc second :> y1 x1 dim first +
    :> x2 y1 dim second + :> y2
    { { x1 y1 } { x2 y1 } { x2 y2 } { x1 y2 } { x1 y1 } } color
    make-colored-vertices ;