18 Apr
2014
18 Apr
'14
8:48 p.m.
Within a simple roassal visualization
| view |
view := RTView new.
view addAll: (RTBox elementsOn: Collection withAllSubclasses) @ RTDraggable.
RTEdge
buildEdgesFromObjects: Collection
withAllSubclasses from: #superclass to: #yourself inView: view.
RTTreeLayout on: view elements edges: view edges.
view @ RTDraggableView.
view edges do: [ :e | e trachelShape pushBack ].
(RTGroup withAll: view elements) translateTo: 0 @ 0.
view open.
view canvas camera focusOnCenterScaled: 500.
On Apr 18, 2014, at 3:45 PM, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
Hi Doru,
Yes, there is definitely an interest in that. Actually, we already provide a way to fit
the visualization into the morph. Check this example (using our new graph builder):
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| b |
b := RTGraphBuilder new.
b nodes shape: (RTBox new width: [ :cls | 6 * cls numberOfVariables]; height:
#numberOfMethods).
b edges
connectTo: #subclasses;
verticalAttachPoint;
useInLayout.
b layout tree.
b global
minSize: 5;
normalizeColor: #numberOfVariables using: {Color green . Color red}.
b addAll: RTObject withAllSubclasses.
b build.
(RTGroup withAll: b view elements) translateTo: 0 @ 0.
b view canvas camera focusOnCenterScaled: 500.
b view
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The visualization fits into a 500 x 500 morph.
Here is the screenshot:
<Screen Shot 2014-04-18 at 3.23.19 PM.png>
If you do not have the last two lines, then you end up with something like:
<Screen Shot 2014-04-18 at 3.24.17 PM.png>
https://www.facebook.com/ObjectProfile/posts/619537244799543?stream_ref=10
Cheers,
Alexandre
On Apr 18, 2014, at 5:30 AM, Tudor Girba <tudor(a)tudorgirba.com> wrote:
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Hi,
It would be great to have a straightforward way to zoom the visualization to fit the
current screen. This would be particularly useful within the context of the inspector.
Essentially, we would need a RTZoomToFit animation. Would there be of interest to provide
this?
Doru
--
www.tudorgirba.com
"Every thing has its own flow"
_______________________________________________
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.