Hi Hernán,

You can use the RTLegend2Builder for this.
Check this example:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| b |
myClasses := (Array with: Dictionary with: Collection with: Set with: OrderedCollection ).

b := RTPieBuilder new.
b interaction popup.
b objects: myClasses.
b slice: #numberOfMethods.
b globalRule distinctColor.
b labelled.
b emphasize: Set by: 20.
b emphasize: Dictionary by: 20.

"Legend"
lb := RTLegend2Builder new.
lb view: b view.
lb addText: 'Distribution of number of Methods in some classes'.
normalizer := RTMultiLinearColorForIdentity new objects: myClasses.
myClasses do: [ :aClass |
lb addColor: (normalizer rtValue: aClass) text: aClass name.
].
lb build.


b open.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


Maybe the class RTPieBuilder can be extended to includes a legend. 
(There is a bug with the encapsulating bounds of pie)

Cheers,
Alexandre
-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.



On Aug 5, 2014, at 4:49 AM, Hernán Morales Durand <hernan.morales@gmail.com> wrote:

I really like it, thanks Alex for such nice work!

As you guessed, I have some need of a separated column for labels, as shown here : http://en.wikipedia.org/wiki/Pie_chart#mediaviewer/File:Pie_chart_EP_election_2004.svg

Instead of doing #objects, and then #slice: , I have a collection of collections and then added a simple method based on #slice:

RTPieBuilder>>groupedObjects: groupedCollection
    | es |
    objects := groupedCollection.
    values := groupedCollection collect: #size.
    sum := values sum.
    es := self elementsOn: groupedCollection.
    view addAll: es.
    ^ es

then each subcollection can re-implement #asString for displaying label from a representative or a sum, etc.

By the way how did you get the transparency effect?

Cheers,

Hernán



2014-08-02 22:10 GMT-03:00 Alexandre Bergel <alexandre.bergel@me.com>:
Hi Hernán,

I did a bit of programming today and did a PieBuilder. Here are some example:
-=-=-=-=-=-=-=-=-=
b := RTPieBuilder new.
b interaction popup.
b objects: RTShape withAllSubclasses.
b slice: #numberOfMethods.
b globalRule distinctColor.
b labelledIf: [ :c | c numberOfMethods > 18 ].
b view
-=-=-=-=-=-=-=-=-=
<Screen Shot 2014-08-02 at 9.06.39 PM.png>


-=-=-=-=-=-=-=-=-=
| b |
b := RTPieBuilder new.
b interaction popup.
b objects: (Array with: Dictionary with: Collection with: Set with: OrderedCollection ).
b slice: #numberOfMethods.
b globalRule distinctColor.
b labelled.
b emphasize: Set by: 20.
b emphasize: Dictionary by: 20.
b open.
-=-=-=-=-=-=-=-=-=
<Screen Shot 2014-08-02 at 9.07.54 PM.png>


Some example have been added to the Roassal example browser, available from the World menu.

<Screen Shot 2014-08-02 at 9.05.15 PM.png>

This is just a beginning. I made these example without a clear scenario in mind. If you come with a specific need, probably you will be able to adjust the PieBuilder. For example, you may want to particularize the position of the labeling

Cheers,
Alexandre


On Jul 28, 2014, at 6:29 PM, Hernán Morales Durand <hernan.morales@gmail.com> wrote:

Thanks Alex,

I did not finished reading the chapter about RTBuilder yet. But regardless of the GraphET2 scope, having a pie diagram builder is important for Pharo (I don't know the status of PieChartMorph but I will check). 

I have tried two different directions. One is adding a RTLabel to each sector shape in #getElementsFromModels

GET2PieDiagram>>getElementsFromModels

   ...
            label := RTLabel new text: model key.
            shape := shape + label.
   ...

| diag |
diag := GET2DiagramBuilder new.
(diag pieDiagram) 
    function: #value;
    models: {'A' -> 30 . 'B' -> 10 . 'C' -> 20 . 'D' -> 40};
    color: [ Color random ].
^ diag open.


Another one is using #modelLabels: to add labels to axis:

| diag |
diag := GET2DiagramBuilder new.
(diag pieDiagram) 
    modelLabels: #key;
    function: #value;
    models: {'A' -> 30 . 'B' -> 10 . 'C' -> 20 . 'D' -> 40};
    color: [ Color random ].
^ diag open.

but none of them positions the labels nicely. If anyone wants to comment would be very welcome :)
Cheers,

Hernán




2014-07-26 14:14 GMT-03:00 Alexandre Bergel <alexandre.bergel@me.com>:
Hi Hernán,

Thanks for your effort. This is very valuable.
However, I am not sure a pie diagram should be part of GraphET. A pie is radically different from a curve. Maybe subclassing the class RTBuilder is the way to go. You will then not be constraint by GraphET for the labeling...

Cheers,
Alexandre


On Jul 25, 2014, at 8:41 PM, Hernán Morales Durand <hernan.morales@gmail.com> wrote:

> Hello
>
> I am trying GET2 pieDiagram builder. You may want to add a random color in the #pieExample method so it looks nicer (see attachment):
>
> | diag |
> diag := GET2DiagramBuilder new.
> (diag pieDiagram)
>     models: #(30 10 20 40);
>     color: [ Color random ].
> ^ diag open.
>
> Now my question is simple, but I don't know how to start
>
> How would you add labels to each sector?
>
> Hernán
>
>
> <PieChart_1.png>_______________________________________________
> Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
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

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
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