clamp-radius ( radius width height -- radius' )

Vocabulary

ui.pens.rounded.private

Inputs

radius	an object
width	an object
height	an object

Outputs

radius'

an object

Definition

USING: kernel math math.order ;

IN: ui.pens.rounded.private

: clamp-radius ( radius width height -- radius' )
    min [ 2 * ] [ min ] bi* 2 / ;