unit-rounded-corners ( points -- vertices )

Vocabulary

ui.pens.rounded.private

Inputs

points

an object

Outputs

vertices

an object

Definition

USING: arrays kernel math math.constants math.functions
sequences ;

IN: ui.pens.rounded.private

: unit-rounded-corners ( points -- vertices )
    [ <iota> ] [
        [ [ pi * ] ] dip
        [ 2 * / [ sin ] [ cos ] bi [ 1 swap - ] bi@ 2array ]
        curry compose map
    ] bi ;