[Moose-dev] Re: curved lines

On Jul 3, 2015, at 06:36, Alexandre Bergel &lt;alexandre.bergel(a)me.com&gt; wrote: We also have directed line. Here is an example: <Screen Shot 2015-07-03 at 11.35.18 AM.png> -=-=-=-=-= | 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 <Screen Shot 2015-07-03 at 11.33.45 AM.png> <Screen Shot 2015-07-03 at 11.33.11 AM.png> Cheers, Alexandre