(rect-polygon) ( lo hi -- polygon )


Vocabulary
game.input.demos.joysticks

Inputs
loan object
hian object


Outputs
polygonan object


Definition
USING: arrays kernel sequences ;

IN: game.input.demos.joysticks

: (rect-polygon) ( lo hi -- polygon )
2dup
[ [ second ] [ first ] bi* swap 2array ]
[ [ first ] [ second ] bi* 2array ] 2bi swapd 4array ;