charts.demo: add a red cosine wave to the demo chart
parent
ce403e1f75
commit
ecbb04d3fb
|
@ -1,8 +1,8 @@
|
||||||
! Copyright (C) 2017 Alexander Ilin.
|
! Copyright (C) 2017 Alexander Ilin.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors arrays charts charts.lines colors.constants
|
USING: accessors arrays charts charts.lines colors.constants
|
||||||
kernel literals math math.constants math.functions sequences ui
|
kernel literals locals math math.constants math.functions
|
||||||
ui.gadgets ;
|
sequences ui ui.gadgets ;
|
||||||
IN: charts.demos
|
IN: charts.demos
|
||||||
|
|
||||||
CONSTANT: -pi $[ pi neg ]
|
CONSTANT: -pi $[ pi neg ]
|
||||||
|
@ -12,10 +12,22 @@ CONSTANT: -pi $[ pi neg ]
|
||||||
pi 2 * swap / [ * pi - dup sin 2array ] curry map
|
pi 2 * swap / [ * pi - dup sin 2array ] curry map
|
||||||
${ pi $[ pi sin ] } suffix ;
|
${ pi $[ pi sin ] } suffix ;
|
||||||
|
|
||||||
: chart-demo ( -- )
|
: cosine-wave ( steps -- seq )
|
||||||
|
[ iota ] keep
|
||||||
|
pi 2 * swap / [ * pi - dup cos 2array ] curry map
|
||||||
|
${ pi $[ pi cos ] } suffix ;
|
||||||
|
|
||||||
|
<PRIVATE
|
||||||
|
|
||||||
|
:: (chart-demo) ( n -- )
|
||||||
chart new ${ ${ -pi pi } { -1 1 } } >>axes
|
chart new ${ ${ -pi pi } { -1 1 } } >>axes
|
||||||
line new COLOR: blue >>color 40 sine-wave >>data
|
line new COLOR: blue >>color n sine-wave >>data add-gadget
|
||||||
add-gadget "Chart" open-window ;
|
line new COLOR: red >>color n cosine-wave >>data add-gadget
|
||||||
|
"Chart" open-window ;
|
||||||
|
|
||||||
|
PRIVATE>
|
||||||
|
|
||||||
|
: chart-demo ( -- ) 40 (chart-demo) ;
|
||||||
|
|
||||||
MAIN: chart-demo
|
MAIN: chart-demo
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue