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


Vocabulary
ui.gadgets.charts.lines.private

Inputs
chunksan object
minan object
maxan object


Outputs
chunks'an object


Definition


:: (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 ;