clamp ( dim unit min max -- dim' )

Vocabulary

ui.gadgets.line-support.private

Inputs

dim	an object
unit	an object
min	an object
max	an object

Outputs

dim'

an object

Definition

USING: kernel math math.order ;

IN: ui.gadgets.line-support.private

: clamp ( dim unit min max -- dim' )
    [ -1/0. or 1 max * ] [ 1/0. or 1 max * ] bi-curry* bi
    [ max ] [ min ] bi* ;