(gl3-fill-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-fill-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 y1 }
        { x2 y2 }
        { x1 y2 }
    } color make-colored-vertices ;