Smalltalk › Frameworks & Tools › Moose

CircularTreeMaps

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

2 messages Options

Usman Bhatti

CircularTreeMaps

Hi,

I am trying to use exampleClassHierarchy in RTCircularTreeMapBuilder for visualizing some packages and classes.

First, I think the borderWith: should be a fraction of what already is defined in the examples, otherwise the borders are too think to visualize anything correctly.

Second, the borderWidth is proportional to the radius of circle. Is this intended?

To reproduce, here is an example + screenshot:

| b |

b := RTCircularTreeMapBuilder new.

b shape

color: Color transparent;

borderWidth: 0.01;

borderColor: Color black;

if: [ :cls | cls subclasses isEmpty ] fillColor: [ :cls|

(Smalltalk includesKey: (cls name, 'Test') asSymbol) ifTrue: [ Color green ]

ifFalse: [ Color purple ] ].

baseradius: 400;

weight: [ :cls | cls withAllSubclasses size].

b explore: RTObject

using: #subclasses.

b build.

^ b view open

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.list.inf.unibe.ch/listinfo/moose-dev

abergel

Re: CircularTreeMaps

hi Usman,

I think you are using a old version of Roassal / Trachel. This issue has been fixed several months ago.

If I execute a slightly modified version of your script (I have simply removed borderWidth:):

| b |
b := RTCircularTreeMapBuilder new.

b shape
color: Color transparent;

borderColor: Color black;
if: [ :cls | cls subclasses isEmpty ] fillColor: [ :cls|
(Smalltalk includesKey: (cls name, 'Test') asSymbol) ifTrue: [ Color green ]
ifFalse: [ Color purple ] ].
b
baseradius: 400;
weight: [ :cls | cls withAllSubclasses size].
b explore: RTObject
using: #subclasses.

b build.
^ b view open

I have

On Nov 20, 2015, at 11:26 AM, Usman Bhatti <[hidden email]> wrote:

Hi,

I am trying to use exampleClassHierarchy in RTCircularTreeMapBuilder for visualizing some packages and classes.
First, I think the borderWith: should be a fraction of what already is defined in the examples, otherwise the borders are too think to visualize anything correctly.
Second, the borderWidth is proportional to the radius of circle. Is this intended?

To reproduce, here is an example + screenshot:

| b |
b := RTCircularTreeMapBuilder new.

b shape
color: Color transparent;
borderWidth: 0.01;
borderColor: Color black;
if: [ :cls | cls subclasses isEmpty ] fillColor: [ :cls|
(Smalltalk includesKey: (cls name, 'Test') asSymbol) ifTrue: [ Color green ]
ifFalse: [ Color purple ] ].
b
baseradius: 400;
weight: [ :cls | cls withAllSubclasses size].
b explore: RTObject
using: #subclasses.

b build.
^ b view open

<Screen Shot 2015-11-20 at 3.25.05 PM.png>
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.list.inf.unibe.ch/listinfo/moose-dev

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

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.list.inf.unibe.ch/listinfo/moose-dev