I have updated Roassal. Edges are now slightly closer to the ending extremities. Under the last version of Roassal, your code produces:
Alexandre
On Apr 25, 2014, at 10:08 AM, Johan Fabry jfabry@dcc.uchile.cl wrote:
The lines look very cool this way, thanks! But the labels are still an issue :-( It’s clearest in a picture of my original example:
<arrows2.tiff>
What can be done about this?
On Apr 25, 2014, at 9:57 AM, Ricardo Jacas ricardo.jacas@gmail.com wrote:
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@dcc.uchile.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@me.com wrote:
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@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@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@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- lets reign all together _______________________________________________ Moose-dev mailing list Moose-dev@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@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
