Just to share some of the progresses we are making with Grapher.
| b ds |
b := RTGrapherBuilder new.
b extent: 400 @ 400.
ds := RTStackedDataSet new.
ds barShape color: (Color red).
ds points: (-3 to: 3.1415 * 5 by: 0.1).
ds y: [ :v | v sin ].
b add: ds.
ds := RTStackedDataSet new.
ds noDot.
ds connectColor: Color blue.
ds points: (-3 to: 3.1415 * 5 by: 0.1).
ds y: [ :v | v cos ].
b add: ds.
b build.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Another example:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
data := (1 to: 20) collect: [ :v | 10 atRandom - 5 ].
b := RTGrapherBuilder new.
b extent: 300 @ 200.
ds := RTStackedDataSet new.
ds interaction popup.
ds points: data.
ds barShape width: 8;
color: (Color green alpha: 0.3);
if: [:value | value < 0 ] fillColor: (Color red alpha: 0.3).
b add: ds.
b
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.