Hierarchical Bundle Edges

> Beautiful. I will play with these soon.
>
> Cheers,
> Doru
>
>
> On Sat, Sep 14, 2013 at 1:10 AM, Alexandre Bergel <[hidden email]> wrote:
> Hi!
>
> The BSpline package allows one to define hierarchical bundle edges.
> These screenshots have been made using the script below, runnable in a Glamour-based Roassal Easel open on a class group in Moose.
>
> <Screen Shot 2013-09-14 at 1.04.14 AM.png><Screen Shot 2013-09-14 at 12.57.02 AM.png>
>
> More screenshot on : https://www.facebook.com/media/set/?set=a.511442275609041.1073741827.340543479365589&type=1
>
> Cheers,
> Alexandre
>
> |bs superclassEdges lastlevel|
> view shape circle size: 10.
> view nodes: classGroup.
>
>  
> superclassEdges := view edgesFrom: #superclass.
>
> "
> view treeLayout  userDefinedEdges: superclassEdges.
> "
>
>
> view radialTreeLayout  userDefinedEdges: superclassEdges.
>
> "
> view forceBasedLayout  userDefinedEdges: superclassEdges.
> "
>
> lastlevel := classGroup select: [ :cls | (cls subclassHierarchy size) == 0 ].
>
> "Blue"
> bs := (ROBSplineLine  new).
> bs alpha: 0.8.
> bs setDiscovery: [ :cls | cls superclass ].
> bs color: (Color blue alpha: 0.3).
>  
> view shape: bs.
> view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size odd ] ]].
>
> "Red"
> bs := (ROBSplineLine  new).
> bs alpha: 0.8.
> bs setDiscovery: [ :cls | cls superclass ].
> bs color: (Color red alpha: 0.3).
>  
> view shape: bs.
> view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size even ] ]].
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

>
> Yes, looks very cool!
>
> On Sep 14, 2013, at 4:22 AM, Tudor Girba <[hidden email]> wrote:
>
>> Beautiful. I will play with these soon.
>>
>> Cheers,
>> Doru
>>
>>
>> On Sat, Sep 14, 2013 at 1:10 AM, Alexandre Bergel <[hidden email]> wrote:
>> Hi!
>>
>> The BSpline package allows one to define hierarchical bundle edges.
>> These screenshots have been made using the script below, runnable in a Glamour-based Roassal Easel open on a class group in Moose.
>>
>> <Screen Shot 2013-09-14 at 1.04.14 AM.png><Screen Shot 2013-09-14 at 12.57.02 AM.png>
>>
>> More screenshot on : https://www.facebook.com/media/set/?set=a.511442275609041.1073741827.340543479365589&type=1
>>
>> Cheers,
>> Alexandre
>>
>> |bs superclassEdges lastlevel|
>> view shape circle size: 10.
>> view nodes: classGroup.
>>
>>
>> superclassEdges := view edgesFrom: #superclass.
>>
>> "
>> view treeLayout  userDefinedEdges: superclassEdges.
>> "
>>
>>
>> view radialTreeLayout  userDefinedEdges: superclassEdges.
>>
>> "
>> view forceBasedLayout  userDefinedEdges: superclassEdges.
>> "
>>
>> lastlevel := classGroup select: [ :cls | (cls subclassHierarchy size) == 0 ].
>>
>> "Blue"
>> bs := (ROBSplineLine  new).
>> bs alpha: 0.8.
>> bs setDiscovery: [ :cls | cls superclass ].
>> bs color: (Color blue alpha: 0.3).
>>
>> view shape: bs.
>> view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size odd ] ]].
>>
>> "Red"
>> bs := (ROBSplineLine  new).
>> bs alpha: 0.8.
>> bs setDiscovery: [ :cls | cls superclass ].
>> bs color: (Color red alpha: 0.3).
>>
>> view shape: bs.
>> view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size even ] ]].
>>
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel  http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>>
>>
>>
>> --
>> www.tudorgirba.com
>>
>> "Every thing has its own flow"
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
> ---> Save our in-boxes! http://emailcharter.org <---
>
> Johan Fabry   -   http://pleiad.cl/~jfabry
> PLEIAD lab  -  Computer Science Department (DCC)  -  University of Chile
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev