(drawable-chunks) ( chunks min max -- chunks' )

Vocabulary

ui.gadgets.charts.lines.private

Inputs

chunks	an object
min	an object
max	an object

Outputs

chunks'

an object

Definition

USING: combinators kernel make math.order sequences ;

IN: ui.gadgets.charts.lines.private

:: (drawable-chunks) ( chunks min max -- chunks' )
    chunks length {
        { 0 [ chunks ] }
        {
            1
            [
                chunks first-point y min max between? chunks
                { } ?
            ]
        }
        [
            drop [
                chunks [ ] [ min max (make-pair) ] map-reduce
                dup first y min max between? [ , ] [ drop ] if
            ] { } make
        ]
    } case ;