scale-mapper ( width min,max -- quot: ( value -- value' ) )

Vocabulary

ui.gadgets.charts.lines.private

Inputs

width	an object
min,max	an object

Outputs

quot	a quotation with stack effect ( value -- value' )

Definition

USING: kernel sequences ui.gadgets.charts.utils ;

IN: ui.gadgets.charts.lines.private

: scale-mapper
    ( width min,max -- quot: ( value -- value' ) )
    first2 swap [ [ [ swap ] curry ] dip ] dip [ scale ] 2curry
    compose ; inline