Better support of arrows in Roassal

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
11 messages Options
Reply | Threaded
Open this post in threaded view
|

Better support of arrows in Roassal

abergel
Hi!

We worked on the arrow support in Roassal. Here is a screenshot:



Cheers,
Alexandre
-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

Tudor Girba-2
Nice.

Did you consider implementing the arrows implemented in Softwarenaut and Quicksilver? The idea is to have them from center to center and a bit shifted to have edges in both directions visible. They also start being drawn not quite from the edge of the shape but with a little gap. They are pretty nice and scale well.

Cheers,
Doru




On Fri, Jun 6, 2014 at 3:52 PM, Alexandre Bergel <[hidden email]> wrote:
Hi!

We worked on the arrow support in Roassal. Here is a screenshot:



Cheers,
Alexandre
-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev




--

"Every thing has its own flow"

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

Tudor Girba-2


On Sat, Jun 7, 2014 at 10:51 PM, Tudor Girba <[hidden email]> wrote:
Nice.

Did you consider implementing the arrows implemented in Softwarenaut and Quicksilver? The idea is to have them from center to center and a bit shifted to have edges in both directions visible. They also start being drawn not quite from the edge of the shape but with a little gap. They are pretty nice and scale well.

Cheers,
Doru




On Fri, Jun 6, 2014 at 3:52 PM, Alexandre Bergel <[hidden email]> wrote:
Hi!

We worked on the arrow support in Roassal. Here is a screenshot:



Cheers,
Alexandre
-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev




--

"Every thing has its own flow"



--

"Every thing has its own flow"

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

jfabry

A big +1 on that! I have situations with back and forth arrows and they are not well distinguishable.

On Jun 7, 2014, at 4:52 PM, Tudor Girba <[hidden email]> wrote:

> See here an example:
> http://scg.unibe.ch/research/quicksilver
>
> Doru
>
>
> On Sat, Jun 7, 2014 at 10:51 PM, Tudor Girba <[hidden email]> wrote:
> Nice.
>
> Did you consider implementing the arrows implemented in Softwarenaut and Quicksilver? The idea is to have them from center to center and a bit shifted to have edges in both directions visible. They also start being drawn not quite from the edge of the shape but with a little gap. They are pretty nice and scale well.
>
> Cheers,
> Doru
>
>
>
>
> On Fri, Jun 6, 2014 at 3:52 PM, Alexandre Bergel <[hidden email]> wrote:
> Hi!
>
> We worked on the arrow support in Roassal. Here is a screenshot:
>
> <Screen Shot 2014-06-06 at 3.50.31 PM.png>
>
> Cheers,
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

jfabry
In reply to this post by abergel

Sadly, now the arrows don’t understand width: anymore. How can I set the width of an arrow?

On Jun 6, 2014, at 9:52 AM, Alexandre Bergel <[hidden email]> wrote:

> Hi!
>
> We worked on the arrow support in Roassal. Here is a screenshot:
>
> <Screen Shot 2014-06-06 at 3.50.31 PM.png>
>
> Cheers,
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

Anne Etien
An arrow is now a line and a head. So you need to specify the width of what you want to change. If I remind well, it should be something like (with a being an arrow)
a line width:
or a head width:

Anne
Le 8 juin 2014 à 02:43, Johan Fabry <[hidden email]> a écrit :

>
> Sadly, now the arrows don’t understand width: anymore. How can I set the width of an arrow?
>
> On Jun 6, 2014, at 9:52 AM, Alexandre Bergel <[hidden email]> wrote:
>
>> Hi!
>>
>> We worked on the arrow support in Roassal. Here is a screenshot:
>>
>> <Screen Shot 2014-06-06 at 3.50.31 PM.png>
>>
>> Cheers,
>> Alexandre
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel  http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

abergel
In reply to this post by Tudor Girba-2
Hi!

I personally do not often face the need. Actually, I seldom use arrow. I gave a try, but I need your feedback.

-=-=-=-=-=-=-=-=-=-=-=-=
| v e1 e2 line |
v := RTView new.
e1 := (RTEllipse new color: (Color blue alpha: 0.4); size: 20) element.
e2 := (RTEllipse new color: (Color red alpha: 0.4); size: 20) element.
e1 @ RTDraggable.
e2 @ RTDraggable.

v add: e1; add: e2.

line := RTArrow new color: Color red.
line withOffsetIfMultiple.
v add: (line  edgeFrom: e1 to: e2).
v add: (line  edgeFrom: e2 to: e1).

RTCircleLayout on: { e1 . e2 }.
v
-=-=-=-=-=-=-=-=-=-=-=-=

-=-=-=-=-=-=-=-=-=-=-=-=
| v e1 e2 e3 e4 line |
v := RTView new.
e1 := (RTEllipse new color: (Color blue alpha: 0.4); size: 20) element.
e2 := (RTEllipse new color: (Color red alpha: 0.4); size: 20) element.
e3 := (RTEllipse new color: (Color yellow alpha: 0.4); size: 20) element.
e4 := (RTEllipse new color: (Color green alpha: 0.4); size: 20) element.
e1 @ RTDraggable.
e2 @ RTDraggable.
e3 @ RTDraggable.
e4 @ RTDraggable.

v add: e1; add: e2; add: e3; add: e4.

line := RTArrow new color: Color red.
line withOffsetIfMultiple.
v add: (line  edgeFrom: e1 to: e2).
v add: (line  edgeFrom: e2 to: e1).
v add: (line  edgeFrom: e1 to: e2).

v add: (line  edgeFrom: e2 to: e2).

v add: (line  edgeFrom: e3 to: e4).

RTCircleLayout on: { e1 . e2 . e3 . e4 }.
v
-=-=-=-=-=-=-=-=-=-=-=-=

Example have been added

Cheers,
Alexandre


On Jun 7, 2014, at 4:51 PM, Tudor Girba <[hidden email]> wrote:

Nice.

Did you consider implementing the arrows implemented in Softwarenaut and Quicksilver? The idea is to have them from center to center and a bit shifted to have edges in both directions visible. They also start being drawn not quite from the edge of the shape but with a little gap. They are pretty nice and scale well.

Cheers,
Doru




On Fri, Jun 6, 2014 at 3:52 PM, Alexandre Bergel <[hidden email]> wrote:
Hi!

We worked on the arrow support in Roassal. Here is a screenshot:

<Screen Shot 2014-06-06 at 3.50.31 PM.png>

Cheers,
Alexandre
-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev




-- 
www.tudorgirba.com

"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

jfabry
In reply to this post by Anne Etien

Excellent, it works:

        a line width: 2.
        a head width: 2.

Thanks a lot!

On Jun 8, 2014, at 3:42 AM, Anne Etien <[hidden email]> wrote:

> An arrow is now a line and a head. So you need to specify the width of what you want to change. If I remind well, it should be something like (with a being an arrow)
> a line width:
> or a head width:
>
> Anne
> Le 8 juin 2014 à 02:43, Johan Fabry <[hidden email]> a écrit :
>
>>
>> Sadly, now the arrows don’t understand width: anymore. How can I set the width of an arrow?



---> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

jfabry
In reply to this post by abergel

That looks cool. :-) Some feedback:
- int the first example, the position of the lines with respect to the red dot is strange. The dot should be lower I think.
- in the last example, why is the arrow offset between yellow and green? There is only one arrow so there is no need for offsets.
- what happens with labels on arrows? Have you tried that?


On Jun 8, 2014, at 1:16 PM, Alexandre Bergel <[hidden email]> wrote:

> Hi!
>
> I personally do not often face the need. Actually, I seldom use arrow. I gave a try, but I need your feedback.
>
> -=-=-=-=-=-=-=-=-=-=-=-=
> | v e1 e2 line |
> v := RTView new.
> e1 := (RTEllipse new color: (Color blue alpha: 0.4); size: 20) element.
> e2 := (RTEllipse new color: (Color red alpha: 0.4); size: 20) element.
> e1 @ RTDraggable.
> e2 @ RTDraggable.
>
> v add: e1; add: e2.
>
> line := RTArrow new color: Color red.
> line withOffsetIfMultiple.
> v add: (line  edgeFrom: e1 to: e2).
> v add: (line  edgeFrom: e2 to: e1).
>
> RTCircleLayout on: { e1 . e2 }.
> v
> -=-=-=-=-=-=-=-=-=-=-=-=
> <Screen Shot 2014-06-08 at 1.12.35 PM.png>
>
> -=-=-=-=-=-=-=-=-=-=-=-=
> | v e1 e2 e3 e4 line |
> v := RTView new.
> e1 := (RTEllipse new color: (Color blue alpha: 0.4); size: 20) element.
> e2 := (RTEllipse new color: (Color red alpha: 0.4); size: 20) element.
> e3 := (RTEllipse new color: (Color yellow alpha: 0.4); size: 20) element.
> e4 := (RTEllipse new color: (Color green alpha: 0.4); size: 20) element.
> e1 @ RTDraggable.
> e2 @ RTDraggable.
> e3 @ RTDraggable.
> e4 @ RTDraggable.
>
> v add: e1; add: e2; add: e3; add: e4.
>
> line := RTArrow new color: Color red.
> line withOffsetIfMultiple.
> v add: (line  edgeFrom: e1 to: e2).
> v add: (line  edgeFrom: e2 to: e1).
> v add: (line  edgeFrom: e1 to: e2).
>
> v add: (line  edgeFrom: e2 to: e2).
>
> v add: (line  edgeFrom: e3 to: e4).
>
> RTCircleLayout on: { e1 . e2 . e3 . e4 }.
> v
> -=-=-=-=-=-=-=-=-=-=-=-=
> <Screen Shot 2014-06-08 at 1.12.47 PM.png>
>
> Example have been added
>
> Cheers,
> Alexandre
>
>
> On Jun 7, 2014, at 4:51 PM, Tudor Girba <[hidden email]> wrote:
>
>> Nice.
>>
>> Did you consider implementing the arrows implemented in Softwarenaut and Quicksilver? The idea is to have them from center to center and a bit shifted to have edges in both directions visible. They also start being drawn not quite from the edge of the shape but with a little gap. They are pretty nice and scale well.
>>
>> Cheers,
>> Doru
>>
>>
>>
>>
>> On Fri, Jun 6, 2014 at 3:52 PM, Alexandre Bergel <[hidden email]> wrote:
>> Hi!
>>
>> We worked on the arrow support in Roassal. Here is a screenshot:
>>
>> <Screen Shot 2014-06-06 at 3.50.31 PM.png>
>>
>> Cheers,
>> Alexandre
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel  http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>>
>>
>>
>> --
>> www.tudorgirba.com
>>
>> "Every thing has its own flow"
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

abergel
> - int the first example, the position of the lines with respect to the red dot is strange. The dot should be lower I think.

yes…

> - in the last example, why is the arrow offset between yellow and green? There is only one arrow so there is no need for offsets.

There is no offset between yellow and green I think. This effect is the result of the shortest distance algo I think

> - what happens with labels on arrows? Have you tried that?

I haven’t tried :-)

Alexandre


>
>
> On Jun 8, 2014, at 1:16 PM, Alexandre Bergel <[hidden email]> wrote:
>
>> Hi!
>>
>> I personally do not often face the need. Actually, I seldom use arrow. I gave a try, but I need your feedback.
>>
>> -=-=-=-=-=-=-=-=-=-=-=-=
>> | v e1 e2 line |
>> v := RTView new.
>> e1 := (RTEllipse new color: (Color blue alpha: 0.4); size: 20) element.
>> e2 := (RTEllipse new color: (Color red alpha: 0.4); size: 20) element.
>> e1 @ RTDraggable.
>> e2 @ RTDraggable.
>>
>> v add: e1; add: e2.
>>
>> line := RTArrow new color: Color red.
>> line withOffsetIfMultiple.
>> v add: (line  edgeFrom: e1 to: e2).
>> v add: (line  edgeFrom: e2 to: e1).
>>
>> RTCircleLayout on: { e1 . e2 }.
>> v
>> -=-=-=-=-=-=-=-=-=-=-=-=
>> <Screen Shot 2014-06-08 at 1.12.35 PM.png>
>>
>> -=-=-=-=-=-=-=-=-=-=-=-=
>> | v e1 e2 e3 e4 line |
>> v := RTView new.
>> e1 := (RTEllipse new color: (Color blue alpha: 0.4); size: 20) element.
>> e2 := (RTEllipse new color: (Color red alpha: 0.4); size: 20) element.
>> e3 := (RTEllipse new color: (Color yellow alpha: 0.4); size: 20) element.
>> e4 := (RTEllipse new color: (Color green alpha: 0.4); size: 20) element.
>> e1 @ RTDraggable.
>> e2 @ RTDraggable.
>> e3 @ RTDraggable.
>> e4 @ RTDraggable.
>>
>> v add: e1; add: e2; add: e3; add: e4.
>>
>> line := RTArrow new color: Color red.
>> line withOffsetIfMultiple.
>> v add: (line  edgeFrom: e1 to: e2).
>> v add: (line  edgeFrom: e2 to: e1).
>> v add: (line  edgeFrom: e1 to: e2).
>>
>> v add: (line  edgeFrom: e2 to: e2).
>>
>> v add: (line  edgeFrom: e3 to: e4).
>>
>> RTCircleLayout on: { e1 . e2 . e3 . e4 }.
>> v
>> -=-=-=-=-=-=-=-=-=-=-=-=
>> <Screen Shot 2014-06-08 at 1.12.47 PM.png>
>>
>> Example have been added
>>
>> Cheers,
>> Alexandre
>>
>>
>> On Jun 7, 2014, at 4:51 PM, Tudor Girba <[hidden email]> wrote:
>>
>>> Nice.
>>>
>>> Did you consider implementing the arrows implemented in Softwarenaut and Quicksilver? The idea is to have them from center to center and a bit shifted to have edges in both directions visible. They also start being drawn not quite from the edge of the shape but with a little gap. They are pretty nice and scale well.
>>>
>>> Cheers,
>>> Doru
>>>
>>>
>>>
>>>
>>> On Fri, Jun 6, 2014 at 3:52 PM, Alexandre Bergel <[hidden email]> wrote:
>>> Hi!
>>>
>>> We worked on the arrow support in Roassal. Here is a screenshot:
>>>
>>> <Screen Shot 2014-06-06 at 3.50.31 PM.png>
>>>
>>> Cheers,
>>> Alexandre
>>> --
>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>> Alexandre Bergel  http://www.bergel.eu
>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>
>>>
>>>
>>>
>>> _______________________________________________
>>> Moose-dev mailing list
>>> [hidden email]
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>
>>>
>>>
>>>
>>> --
>>> www.tudorgirba.com
>>>
>>> "Every thing has its own flow"
>>> _______________________________________________
>>> Moose-dev mailing list
>>> [hidden email]
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel  http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: Better support of arrows in Roassal

jfabry

On Jun 8, 2014, at 4:00 PM, Alexandre Bergel <[hidden email]> wrote:

- in the last example, why is the arrow offset between yellow and green? There is only one arrow so there is no need for offsets.

There is no offset between yellow and green I think. This effect is the result of the shortest distance algo I think

To come back on this, I don’t know if it is because of the shortest distance algorithm or not, but it can get quite strange:


Same code as in your example (below), just dragged the yellow circle around a bit.

-=-=-=-=-=-=-=-=-=-=-=-=
| v e1 e2 e3 e4 line |
v := RTView new.
e1 := (RTEllipse new color: (Color blue alpha: 0.4); size: 20) element.
e2 := (RTEllipse new color: (Color red alpha: 0.4); size: 20) element.
e3 := (RTEllipse new color: (Color yellow alpha: 0.4); size: 20) element.
e4 := (RTEllipse new color: (Color green alpha: 0.4); size: 20) element.
e1 @ RTDraggable.
e2 @ RTDraggable.
e3 @ RTDraggable.
e4 @ RTDraggable.

v add: e1; add: e2; add: e3; add: e4.

line := RTArrow new color: Color red.
line withOffsetIfMultiple.
v add: (line  edgeFrom: e1 to: e2).
v add: (line  edgeFrom: e2 to: e1).
v add: (line  edgeFrom: e1 to: e2).

v add: (line  edgeFrom: e2 to: e2).

v add: (line  edgeFrom: e3 to: e4).

RTCircleLayout on: { e1 . e2 . e3 . e4 }.
v
-=-=-=-=-=-=-=-=-=-=-=-=

---> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev