[Moose-dev] Re: Grapher charter

-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > On Mar 25, 2015, at 3:17 AM, phil@highoctane.be wrote: > > > Le 24 mars 2015 23:18, "Alexandre Bergel" <alexandre.bergel@me.com mailto:alexandre.bergel@me.com> a écrit : > > > > Hi Phil, > > > > We started to work a bit on that direction. Consider the following example: > > > > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > b := RTGrapher new. > > > > ds := RTDataSet new. > > ds points: #(0 1 2 3 4 5 6). > > b add: ds. > > > > deco := RTHorizontalAllValuesDecorator new. > > deco labelConversion: [ :value | '#', value asString ]. > > b addDecorator: deco. > > > > deco := RTVerticalValuesDecorator new. > > deco addAll: #(2 3 4). > > deco labelConversion: [ :value | '#', value asString ]. > > b addDecorator: deco. > > > > b axisX noTick; noLabel. > > b axisY noTick; noLabel. > > b > > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > > > > > I suspect that in the future, the axis renderer will be much simpler with the decorator. Decorators gives flexibility. > > Super. > > I also now have an HTML5 exporter version of mine thay exports nicely in a seaside component. > > But the full view is draggable around and takes a lot of space despite the extent I specify for the RTGrapher. > > Something in the Visitor maybe. > > Phil > > > > > > Cheers, > > Alexandre > > > > > >> On Mar 24, 2015, at 9:00 AM, phil@highoctane.be mailto:phil@highoctane.be wrote: > >> > >> > >> Le 23 mars 2015 18:58, "Alexandre Bergel" <alexandre.bergel@me.com mailto:alexandre.bergel@me.com> a écrit : > >> > > >> > Hi! > >> > > >> > You are using an histogram. I think I should disable having labels on the X-axis with histogram. > >> > >> No, you shouldn't. > >> I use that for dates. > >> Well, I am going to use a decoration as you told me for my use case but this is the same. > >> We need more control on where the labels are going. > >> > >> Phil > >> > >> Currently, you can have: > >> > > >> > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > >> > data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}. > >> > > >> > y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]]. > >> > > >> > b := RTGrapher new. > >> > b extent: 500 @ 400. > >> > > >> > ds := RTStackedDataSet new. > >> > ds points: data. > >> > ds histogramWithBarTitle: #key rotation: 0. > >> > ds y: y. > >> > ds barShape. > >> > ds highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ]. > >> > b add: ds. > >> > > >> > ds := RTStackedDataSet new. > >> > ds connectColor: Color green. > >> > ds points: data. > >> > ds connectColor: Color green. > >> > ds y: y. > >> > b add: ds. > >> > > >> > b axisX > >> > noLabel; > >> > noTick; > >> > title: 'method size (LOC)'. > >> > b axisY > >> > noDecimal; > >> > title: '% share'. > >> > b build. > >> > > >> > lb := RTLegendBuilder new. > >> > lb view: b view. > >> > lb addColor: Color green text: 'Method size distribution'. > >> > lb build. > >> > > >> > b view > >> > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > >> > > >> > No tick and no label on the X-axis. However, you titled bar in your stacked data set. > >> > > >> > > >> > If you are working with distribution, I highly suggest you to work with RTDistribution. This class is far from being finished. But I need help on this. You can then do: > >> > > >> > ((CompiledMethod allInstances copyFrom: 1 to: 100) collect: #numberOfLinesOfCode) plotFrequency > >> > > >> > Which produces something like: > >> > > >> > So yes, most methods are very short :-) > >> > > >> > Let us know how it goes > >> > > >> > Cheers, > >> > Alexandre > >> > -- > >> > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > >> > Alexandre Bergel http://www.bergel.eu http://www.bergel.eu/ > >> > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > >> > > >> > > >> > > >> >> On Mar 20, 2015, at 9:01 PM, Peter Uhnák <i.uhnak@gmail.com mailto:i.uhnak@gmail.com> wrote: > >> >> > >> >> Hi! > >> >> > >> >> Seeing your other (Grapher charting engine) post I wanted to look at it and it looks interesting. :) > >> >> > >> >> However I've encountered weird behavior - maybe because I'm not using in correctly. > >> >> > >> >> When you look at the bar chars they do not line up with the tick numbers at bottom. > >> >> <2015-03-21_00:54:28.png> > >> >> ​ > >> >> I have explicitly specified number of ticks (20). Interestingly if I change it (to 30) then it lines up but is moved to left by one (starts at zero instead of one - just by changing numberOfTicks). > >> >> > >> >> <2015-03-21_00:55:23.png> > >> >> ​ > >> >> > >> >> > >> >> > >> >> ​Here is the script I used to create it (the data is generated from another script) > >> >> ================================ > >> >> data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}. > >> >> > >> >> y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]]. > >> >> > >> >> b := RTGrapher new. > >> >> b extent: 500 @ 400. > >> >> > >> >> ds := RTStackedDataSet new. > >> >> ds points: data. > >> >> ds x: #key. > >> >> ds y: y. > >> >> ds barShape. > >> >> b add: ds. > >> >> > >> >> ds2 := RTStackedDataSet new. > >> >> ds2 points: data. > >> >> ds2 x: #key. > >> >> ds2 y: y. > >> >> ds2 connectColor: Color green. > >> >> ds2 highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ]. > >> >> b add: ds2. > >> >> > >> >> b axisX > >> >> noDecimal; > >> >> numberOfTicks: 20; "<- change to 30 to break it" > >> >> title: 'method size (LOC)'. > >> >> b axisY > >> >> noDecimal; > >> >> title: '% share'. > >> >> b build. > >> >> > >> >> lb := RTLegendBuilder new. > >> >> lb view: b view. > >> >> lb addColor: Color green text: 'Method size distribution'. > >> >> lb build. > >> >> > >> >> b view open. > >> >> ================================ > >> >> > >> >> It's also amazing that 1/4 of all Pharo code is in two-line methods; that's including the method name. :) > >> >> > >> >> Peter > >> >> _______________________________________________ > >> >> Moose-dev mailing list > >> >> Moose-dev@iam.unibe.ch mailto:Moose-dev@iam.unibe.ch > >> >> https://www.iam.unibe.ch/mailman/listinfo/moose-dev https://www.iam.unibe.ch/mailman/listinfo/moose-dev > >> > > >> > > >> > > >> > _______________________________________________ > >> > Moose-dev mailing list > >> > Moose-dev@iam.unibe.ch mailto:Moose-dev@iam.unibe.ch > >> > https://www.iam.unibe.ch/mailman/listinfo/moose-dev https://www.iam.unibe.ch/mailman/listinfo/moose-dev > >> > > >> _______________________________________________ > >> Moose-dev mailing list > >> Moose-dev@iam.unibe.ch mailto:Moose-dev@iam.unibe.ch > >> https://www.iam.unibe.ch/mailman/listinfo/moose-dev https://www.iam.unibe.ch/mailman/listinfo/moose-dev > > > > > > -- > > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > > Alexandre Bergel http://www.bergel.eu http://www.bergel.eu/ > > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > > > > > > > _______________________________________________ > > Moose-dev mailing list > > Moose-dev@iam.unibe.ch mailto:Moose-dev@iam.unibe.ch > > https://www.iam.unibe.ch/mailman/listinfo/moose-dev https://www.iam.unibe.ch/mailman/listinfo/moose-dev > > > _______________________________________________ > Moose-dev mailing list > Moose-dev@iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev