25 Apr
2014
25 Apr
'14
2:57 p.m.
The solution is a little verbose, but it does what you need :).
Please update Roassal 2, since I just found a bug there.
| view elements e1 e2 |
view := RTView new.
elements := ((RTEllipse new size: 30; color: Color white))
elementsOn: #(one two).
view addAll: elements.
elements @ RTDraggable.
RTCircleLayout new initialRadius: 70; on: elements.
e1 := RTEdge from: elements first to: elements second.
e1 + (RTDirectedLine new color: Color black; attachPoint:
RTShorterDistanceAttachPoint new) + (RTArrow new color: Color black;
attachPoint: RTShorterDistanceAttachPoint new) @ (RTLabelled new text:
'12'; view: view).
view add: e1.
e2 := RTEdge from: elements second to: elements first.
e2 + (RTDirectedLine new color: Color black; attachPoint:
RTShorterDistanceAttachPoint new) + (RTArrow new color: Color black;
attachPoint: RTShorterDistanceAttachPoint new) @ (RTLabelled new text:
'21'; view: view).
view add: e2.
view open.
2014-04-25 9:49 GMT-03:00 Johan Fabry <jfabry(a)dcc.uchile.cl>cl>:
Thanks Alex. But how about the RTDirectedLine that Ricardo mentioned ??
Will he be able to fix my mockup code with that?
On Apr 25, 2014, at 9:42 AM, Alexandre Bergel <alexandre.bergel(a)me.com>
wrote:
--
lets reign all together
Hi Johan,
> First question: how can I make the arrows go to the border of the
ellipse,
instead of the center?
Attachpoint is your friend.
-=-=-=-=-=-=-=-=-=
| v e1 e2 l shape |
v := RTView new.
e1 := ((RTEllipse new size: 20) + RTLabel) elementOn: 'one'.
e2 := ((RTEllipse new size: 20) + RTLabel) elementOn: 'two'.
e1 @ RTDraggable.
e2 @ RTDraggable.
e2 translateTo: 60 @ 40.
shape := RTLine new color: Color red.
shape attachPoint: (RTShorterDistanceAttachPoint new).
l := shape edgeFrom: e1 to: e2.
v add: e1; add: e2; add: l.
-=-=-=-=-=-=-=-=-=
<Screen Shot 2014-04-25 at 9.39.53 AM.png>
> Second question: as a human I would draw each of the two arrows with a
curve:
one curving up and one curving down so that they (and their labels)
do not overlap. Can I do something like this in Roassal? Because now
readability is far from optimal.
We have no solution for now.
Probably we need a new shape, something like RTDistinctLine that gives a
variation
when necessary.
We can work on this, but not right now… You can
also give a try if you
wish.
Alexandre
---> 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
Moose-dev(a)iam.unibe.ch
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
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