-=-=-=-=-=-=-=-=-=-=-=-=
data := {
Dictionary new
at: 'COLOR' put: Color gray;
at: 'TIME' put: (DateAndTime fromString: '2014-10-30 12:11:28.0');
at: 'SECONDS' put: 4;
yourself.
Dictionary new
at: 'COLOR' put: Color gray;
at: 'TIME' put: (DateAndTime fromString: '2014-10-31 12:11:28.0');
at: 'SECONDS' put: 5;
yourself.
Dictionary new
at: 'COLOR' put: Color red;
at: 'TIME' put: (DateAndTime fromString: '2014-10-31 12:41:28.0');
at: 'SECONDS' put: 15;
yourself.
Dictionary new
at: 'COLOR' put: Color green;
at: 'TIME' put: (DateAndTime fromString: '2014-11-01 12:11:28.0');
at: 'SECONDS' put: 7;
yourself.
Dictionary new
at: 'COLOR' put: Color gray;
at: 'TIME' put: (DateAndTime fromString: '2014-11-02 12:11:28.0');
at: 'SECONDS' put: 1;
yourself.
Dictionary new
at: 'COLOR' put: Color gray;
at: 'TIME' put: (DateAndTime fromString: '2014-11-03 12:11:28.0');
at: 'SECONDS' put: 4;
yourself.
}.
b := RTCharterBuilder new.
b extent: 300 @ 200.
b shape rectangle size: 0.
b points: data.
b y: [ :entry | entry at: 'SECONDS' ].
b stackX.
b shape rectangle
color: [ :entry | entry at: 'COLOR' ].
b interaction
highlightColored: Color red.
b histogramWithBarTitle: [ :entry | entry at: 'TIME' ].
b axisY.
b newAxisConfiguration plain.
b axisX.
b build.
b view
-=-=-=-=-=-=-=-=-=-=-=-=
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel
http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
> On Nov 4, 2014, at 5:41 PM, Chris Cunningham
cunningham.cb@gmail.com wrote:
>
> I am currently using EyeSee for doing some charting/graphing, and am running into some of its limitations. I'd like to use the newest/bestest, but am stumped how to use it right now.
>
> Attached is roughly the graph I want:<image.png>
> except I'd like the bars to be located correctly for the time (as well as the labels). Or, even better, be able to state that I want the days labelled, and either hour tick marks, or optional tick marks. And, of course, be able to specifically call out the color of the bars.
>
> Data to build this chart:
> x := {
> Dictionary new
> at: 'COLOR' put: Color gray;
> at: 'TIME' put: (DateAndTime fromString: '2014-10-30 12:11:28.0');
> at: 'SECONDS' put: 4;
> yourself.
> Dictionary new
> at: 'COLOR' put: Color gray;
> at: 'TIME' put: (DateAndTime fromString: '2014-10-31 12:11:28.0');
> at: 'SECONDS' put: 5;
> yourself.
> Dictionary new
> at: 'COLOR' put: Color red;
> at: 'TIME' put: (DateAndTime fromString: '2014-10-31 12:41:28.0');
> at: 'SECONDS' put: 15;
> yourself.
> Dictionary new
> at: 'COLOR' put: Color green;
> at: 'TIME' put: (DateAndTime fromString: '2014-11-01 12:11:28.0');
> at: 'SECONDS' put: 7;
> yourself.
> Dictionary new
> at: 'COLOR' put: Color gray;
> at: 'TIME' put: (DateAndTime fromString: '2014-11-02 12:11:28.0');
> at: 'SECONDS' put: 1;
> yourself.
> Dictionary new
> at: 'COLOR' put: Color gray;
> at: 'TIME' put: (DateAndTime fromString: '2014-11-03 12:11:28.0');
> at: 'SECONDS' put: 4;
> yourself.
> }.
>
> -cbc
> _______________________________________________
> Moose-dev mailing list
> Moose-dev@iam.unibe.ch
>
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
