(chart-demo) ( n -- )


Vocabulary
ui.gadgets.charts.demos.private

Inputs
nan object


Outputs
None

Definition
USING: accessors colors kernel ui ui.gadgets ui.gadgets.charts
ui.gadgets.charts.axes ui.gadgets.charts.demos
ui.gadgets.charts.lines ;

IN: ui.gadgets.charts.demos.private

:: (chart-demo) ( n -- )
chart new
{ { -3.141592653589793 3.141592653589793 } { -1 1 } } >>axes
line new COLOR: blue >>color n sine-wave >>data add-gadget
line new COLOR: red >>color n cosine-wave >>data add-gadget
vertical-axis new add-gadget horizontal-axis new add-gadget
"Chart" open-window ;