16 Apr
2014
16 Apr
'14
8:15 p.m.
We have slightly improved the situation with the following:
view := RTView new.
els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray)
elementsOn: Collection withAllSubclasses.
els @ RTDraggable.
view addAll: els.
RTEdge
buildEdgesFromObjects: Collection withAllSubclasses
from: #yourself
toAll: #subclasses
using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color
veryDarkGray) + (RTArrow new attachPoint: RTShorterDistanceAttachPoint new; color: Color
veryDarkGray))
inView: view.
RTTreeLayout on: els.
view open
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 16, 2014, at 9:10 AM, Leo Perard <leo.perard(a)gmail.com> wrote:
I just notice that attachPoint: do not work with the
RTArrow.
view := RTView new.
els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray)
elementsOn: Collection withAllSubclasses.
els @ RTDraggable.
view addAll: els.
RTEdge
buildEdgesFromObjects: Collection withAllSubclasses
from: #yourself
toAll: #subclasses
using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color
veryDarkGray) + (RTArrow new color: Color veryDarkGray))
inView: view.
RTTreeLayout on: els.
view open
On Wed, Apr 16, 2014 at 12:39 AM, Leo Perard <leo.perard(a)gmail.com> wrote:
I don't remember but I think there is a message pushBack or something like that no ?
Can't we send it to the edges ?
On Wed, Apr 16, 2014 at 12:08 AM, Alexandre Bergel <alexandre.bergel(a)me.com>
wrote:
You can simply add an attach point.
For example:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.
es @ (RTShowEdge new
connectTo: [ :value | value - 5 to: value + 5];
shape: [ :el |
RTBezierLine new
attachPoint: RTShorterDistanceAttachPoint new;
centerOfObjects: (el model - 5 to: el model +5) inView: v;
color: (Color blue alpha: 0.4) ] ).
v
-=-=-=-=-=-=-=-=-=-=-=-=
<Screen Shot 2014-04-15 at 7.08.10 PM.png>
Cheers,
Alexandre
On Apr 15, 2014, at 6:44 PM, Stéphane Ducasse <stephane.ducasse(a)inria.fr> wrote:
alex
it would be good to have the edge not to the center but to the border of the shape.
Stef
On 08 Apr 2014, at 16:05, Alexandre Bergel <abergel(a)dcc.uchile.cl> wrote:
_______________________________________________
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev I started
to script the visualization in Roassal 2. But I have the following missing:
- RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll:
aBlockOrSymbol using: aShape)
- ROArrow
Just yesterday I have introduced RTShowEdge, which is a nice replacement of
RODynamicEdge.
Try the following:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout on: es.
es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]).
v
-=-=-=-=-=-=-=-=-=-=-=-=
Or:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.
es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new
color: (Color blue alpha: 0.4))).
v
-=-=-=-=-=-=-=-=-=-=-=-=
Here is a screenshot:
<Screen Shot 2014-04-08 at 10.54.21 AM.png>
And if you are in a curvy mood, you can do:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.
es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el |
RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color
blue alpha: 0.4) ] ).
v
-=-=-=-=-=-=-=-=-=-=-=-=
<Screen Shot 2014-04-08 at 11.04.31 AM.png>
We are currently working on RTArrow, we will be done by today or tomorrow I think…
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev