Impressive!
Alexandre
On May 7, 2013, at 7:26 AM, mathieubmddehouck(a)mailoo.org wrote:
Hi
There's a new layout fro Roassal, try it.
Gofer it
smalltalkhubUser: 'MathieuDehouck' project: 'RoassalAlgorithm';
package: 'Roassal-Algorithm';
load.
| rawView view layout |
rawView := ROView new.
view := ROMondrianViewBuilder view: rawView.
"enter your script below"
"-------------"
"-------------"
view shape circle size: 10.
view nodes: (Collection withAllSubclasses), (ROLayout withAllSubclasses ).
view edgesFrom: #superclass.
layout := ROClusterLayout new.
view edges do: [ :e | e - ROLine + (ROBezierCurve radial new attachPoint:
ROCenteredAttachPoint instance) ].
view layout: layout.
"-------------"
"-------------"
"Below is the initiation of the menu and opening the visualization"
ROEaselMorphic new populateMenuOn: view.
view open
Regards
Mathieu
<ClusterLayout collection
rolayout.png>_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel
http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.