We also have directed line. Here is an example:
-=-=-=-=-=
| v elements1 elements2 objects1 objects2 shape1 shape2 assocs |
objects1 := 1 to: 5.
objects2 := 6 to: 10.
assocs := Array with: 1 -> 5 with: 2 -> 6 with: 6 -> 10 with: 10 -> 2.
v := RTView new.
v @ RTDraggableView.
shape1 := RTEllipse new size: 10; color: (Color gray alpha: 0.3).
shape2 := RTEllipse new size: 10; color: (Color pink alpha: 0.3).
elements1 := shape1 elementsOn: objects1.
elements2 := shape2 elementsOn: objects2.
elements1 @ RTPopup.
elements2 @ RTPopup.
v addAll: elements1.
v addAll: elements2.
RTEdge
buildEdgesFromObjects: assocs
from: #key
to: #value
using: (RTDirectedLine new color: (Color blue alpha: 0.5)) inView: v.
RTHorizontalLineLayout new gapSize: 1;on: elements1, elements2.
v open
-=-=-=-=-=
Larger examples with:
#exampleDependenciesWithCurve
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