draw-rectangle ( loc dim -- )

Vocabulary

processing.shapes

Inputs

loc	an object
dim	an object

Outputs

None

Definition

USING: arrays math sequences ;

IN: processing.shapes

:: draw-rectangle ( loc dim -- )
    loc first2 :> ( x y ) dim first2 :> ( dx dy ) x y 2array
    x dx + y 2array x dx + y dy + 2array x y dy + 2array 4array
    draw-polygon ;