(rect-vertices) ( loc dim -- vertices )

Vocabulary

opengl

Inputs

loc	an object
dim	an object

Outputs

vertices

an object

Definition

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

IN: opengl

:: (rect-vertices) ( loc dim -- vertices )
    loc first2 [ 0.3 + ] bi@ :> ( x y ) dim first2 [ 0.6 - ] bi@
    :> ( w h )
    [ x y x w + y x w + y h + x y h + x y ] float-array{ }
    output>sequence ;