<polygon> ( color points -- polygon )


Vocabulary
ui.pens.polygon

Inputs
colora color
pointsa sequence of points


Outputs
polygona polygon


Word description
Creates a new instance of polygon.

Definition
USING: alien.c-types alien.data kernel sequences ;

IN: ui.pens.polygon

: <polygon> ( color points -- polygon )
dup close-path
[ [ concat float >c-array ] [ length ] bi ] bi@ polygon boa
;