line - Factor Documentation

Vocabulary
ui.gadgets.charts.lines

Class description
This is a gadget which, when added as a child to the chart, will display its data as straight line segments. The implementation is oriented towards speed to allow large data sets to be displayed as quickly as possible.

Slots:

•	data - a sequence of { x y } pairs sorted by non-descending x;
•	data - a color to draw the line with.

Definition

USING: ui.gadgets ;

IN: ui.gadgets.charts.lines

TUPLE: line < gadget color data ;

Methods

USING: accessors colors kernel locals.backend sequences
ui.gadgets.charts ui.gadgets.charts.lines
ui.gadgets.charts.lines.private ui.gadgets.charts.utils
ui.render ;

M: line draw-gadget*
dup parent>> dup chart? [
2 load-locals 0 get-local chart-axes T{ rgba
{ red 0.0 }
{ green 0.0 }
{ blue 0.0 }
{ alpha 1.0 }
} -1 get-local [ default-color ] [ data>> ] bi
dupd clip-data swap second [ drawable-chunks ] keep
flip-y-axis 0 get-local chart-dim first2 0 get-local [
1 load-locals 0 get-local chart-axes 1 drop-locals
first2
] curry dip swap scale-chunks
[ draw-line ] 2 drop-locals each
] [ 2drop ] if ;