line

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;
color	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 COLOR: black -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 [
            load-local
            0 get-local chart-axes first2 1 drop-locals
        ] curry dip swap scale-chunks [ draw-line ] each
        2 drop-locals
    ] [ 2drop ] if ;