Ok. But, that looks a bit terrible :)
Now you can. Update Roassal, and do:
-=-=-=-=-=-=-=-=-=-=-=-=
v := RTView new.
e1 := ((RTEllipse new size: 20) + RTLabel) elementOn: 1.
e2 := ((RTEllipse new size: 20) + RTLabel) elementOn: 2.
v add: e1; add: e2.
e1 @ RTDraggable.
e2 @ RTDraggable.
e2 translateTo: 100 @ 50.
lineShape := RTArrowedLine new color: (Color black); withOffsetIfMultiple.
v add: (lineShape edgeFrom: e1 to: e2).
v add: (lineShape edgeFrom: e2 to: e1).
v add: (lineShape edgeFrom: e2 to: e1).
v add: (lineShape edgeFrom: e2 to: e1).
v add: (lineShape edgeFrom: e2 to: e1).
v edges do: #update.
v
-=-=-=-=-=-=-=-=-=-=-=-=
You should not forget to do a "v edges do: #update.” at the end. Without it, you need
to do a drag and drop of the nodes.
Does this solution suits you?
Cheers,
Alexandre
On Fri, Jul 3, 2015 at 1:37 PM, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
Hi Doru,
You can have an offset in case there are multiple lines. Consider this example:
-=-=-=-=-=-=-=-=-=-=-=-=
v := RTView new.
e1 := ((RTEllipse new size: 20) + RTLabel) elementOn: 1.
e2 := ((RTEllipse new size: 20) + RTLabel) elementOn: 2.
v add: e1; add: e2.
e1 @ RTDraggable.
e2 @ RTDraggable.
e2 translateTo: 100 @ 50.
lineShape := RTArrowedLine new color: (Color black); withOffsetIfMultiple.
v add: (lineShape edgeFrom: e1 to: e2).
v add: (lineShape edgeFrom: e2 to: e1).
v add: (lineShape edgeFrom: e2 to: e1).
v add: (lineShape edgeFrom: e2 to: e1).
v add: (lineShape edgeFrom: e2 to: e1).
v
-=-=-=-=-=-=-=-=-=-=-=-=
<Screen Shot 2015-07-03 at 11.29.41 AM.png>
Cheers,
Alexandre
> On Jul 1, 2015, at 3:36 PM, Tudor Girba <tudor(a)tudorgirba.com> wrote:
>
> Hi,
>
> I know the bezier lines, but they serve a different purpose.
>
> I am looking for something like this:
> <curved-lines.png>
>
> The line bends with an angle (that can be specified) relative to the direction of the
edge.
>
> Cheers,
> Doru
>
>
>
> On Wed, Jul 1, 2015 at 2:58 PM, Alexandre Bergel <alexandre.bergel(a)me.com>
wrote:
> Roassal offers an easy way to define bezier lines.
>
> Check:
> exampleDynamicBezierEdges
>
> Other example, contained in the example:
> -=-=-=-=-=-=
> v := RTView new.
> shape := RTEllipse new size: 10; color: (Color purple alpha: 0.3).
> els := (shape elementsOn: (1 to: 6)) @ RTDraggable.
> v addAll: els .
> RTHorizontalLineLayout on: v elements.
>
> edge := (RTBezierLine new controllingElements: v elements) edgeFrom: els first to:
els last.
> v add: edge.
>
> v
> -=-=-=-=-=-=
> <Screen Shot 2015-07-01 at 9.57.57 AM.png>
>
> But I guess you know these example. How would you define these curved lines?
>
> Alexandre
>
>
>> On Jul 1, 2015, at 9:36 AM, Tudor Girba <tudor(a)tudorgirba.com> wrote:
>>
>> Hi,
>>
>> I would like to draw a simple curved line. The idea would be to offer a simple
way to deal with edges that come from or to other place.
>>
>> Roassal2 seems to not support this right now (at least not anymore). Do I miss
something?
>>
>> Cheers,
>> 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
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)iam.unibe.ch
>
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
>
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
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