<polygon> ( color points -- polygon )

Vocabulary

ui.pens.polygon

Inputs

color	a color
points	a sequence of points

Outputs

polygon

a 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
    ;