6 Nov
2014
6 Nov
'14
1:44 p.m.
Cool :-)
Let us know about your progress. Send us screenshots! We love them!
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Nov 5, 2014, at 7:30 PM, Chris Cunningham
<cunningham.cb(a)gmail.com> wrote:
On Wed, Nov 5, 2014 at 9:28 AM, Alexandre Bergel <alexandre.bergel(a)me.com
<mailto:alexandre.bergel@me.com>> wrote:
[snip]
Something like this is not enough?
Cheers,
Alexandre
[snip]
Well, I usually think of the lined graph as impying a continuity between the points; I
want to state that it happened at a specific time, with nothing in between. I also kinda
like the bars in that is draws attention to them; the dots are to easy to overlook
(especially the color, to my eyes).
So, I've taken some of these ideas and gotten the timing down better, and applied
alpha so that I can see overlapping bars. This might be good enough for now, at least for
me.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
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.
}.
oldestEntryDate := (data collect: [ :entry | (entry at: 'TIME') asDate
asDateAndTime asUnixTime ]) min.
newestEntryDate := (data collect: [ :entry | (entry at: 'TIME') asUnixTime ])
max.
newestEntryDate = (DateAndTime fromUnixTime: newestEntryDate) asTime seconds = 0 ifFalse:
[
newestEntryDate := ((DateAndTime fromUnixTime: newestEntryDate) asDate + 1 day)
asDateAndTime asUnixTime.
data := data copyWith: (Dictionary new at: 'COLOR' put: Color white; at:
'TIME' put: (DateAndTime fromUnixTime: newestEntryDate); at: 'SECONDS'
put: 0; yourself).
].
ticks := (newestEntryDate - oldestEntryDate) asDuration asDays asInteger * 4.
b := RTCharterBuilder new.
b extent: 300 @ 200.
b interaction
popupText: [:entry | (entry at: 'TIME') asString, ' took ', (entry at:
'SECONDS') asString, ' seconds'];
highlightColored: Color blue.
b shape rectangle color: [ :entry | (entry at: 'COLOR' ) alpha: 0.6]; size: 0.
b points: data.
b y: [ :entry | entry at: 'SECONDS' ].
b allX: [ :v | (v at: 'TIME') asUnixTime - oldestEntryDate ].
b histogramWithBarTitle: [ :entry | '' ].
b axisY.
b axisConfiguration
title: '';
labelRotation: -30;
numberOfTicks: ticks;
numberOfLabels: ticks;
labelConvertion: [ :v | |lbl|
lbl := DateAndTime fromUnixTime: v + oldestEntryDate.
lbl asTime asSeconds = 0 ifTrue: [ lbl asDate ] ifFalse: [ '' ]
].
b axisX.
b build.
b view
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
<image.png>
And, incidentally, I'm really enjoying the playground. Great fun!
-cbc
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev