Hi,

I know the bezier lines, but they serve a different purpose.

I am looking for something like this: [image: Inline image 1]

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@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

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@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@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

+2

I actually have this in my todo list, but never got around to do it (yet).

It also seems that everybody is making state machine visualizations these days. :)

​

On Wed, Jul 1, 2015 at 3:46 PM, Johan Fabry jfabry@dcc.uchile.cl wrote:

A big +1 on this. It would be excellent for the state machine visualization that I’m drawing in LRP.

On Jul 1, 2015, at 10:36, Tudor Girba tudor@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@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@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@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

-- www.tudorgirba.com

"Every thing has its own flow" _______________________________________________ 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

Live Robot Programming http://pleiad.cl/LRP http://pleiad.cl/LRP I’m doing a talk @ESUG on monday!

PS: My state machines are cooler than yours :-P

On Jul 1, 2015, at 11:04, Peter Uhnák i.uhnak@gmail.com wrote:

Also, what is LRP?

On Wed, Jul 1, 2015 at 4:04 PM, Peter Uhnák <i.uhnak@gmail.com mailto:i.uhnak@gmail.com> wrote: +2

I actually have this in my todo list, but never got around to do it (yet).

It also seems that everybody is making state machine visualizations these days. :) <2015-07-01_16:02:10.png>

​

On Wed, Jul 1, 2015 at 3:46 PM, Johan Fabry <jfabry@dcc.uchile.cl mailto:jfabry@dcc.uchile.cl> wrote:

A big +1 on this. It would be excellent for the state machine visualization that I’m drawing in LRP.

...

On Jul 1, 2015, at 10:36, Tudor Girba <tudor@tudorgirba.com mailto:tudor@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@me.com mailto:alexandre.bergel@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@tudorgirba.com mailto:tudor@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 http://www.tudorgirba.com/

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

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

---

Moose-dev mailing list Moose-dev@iam.unibe.ch mailto:Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev https://www.iam.unibe.ch/mailman/listinfo/moose-dev

-- www.tudorgirba.com http://www.tudorgirba.com/

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

---> Save our in-boxes! http://emailcharter.org http://emailcharter.org/ <---

Johan Fabry - http://pleiad.cl/~jfabry http://pleiad.cl/~jfabry PLEIAD lab - Computer Science Department (DCC) - University of Chile

---

Moose-dev mailing list Moose-dev@iam.unibe.ch mailto:Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev https://www.iam.unibe.ch/mailman/listinfo/moose-dev

---

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

Alex, can we have a RTDirectedLine variant that ends with an arrow shape? Because if I use directed lines sometimes it’s not understandable. For example:

Versus RTArrowedLine

On Jul 3, 2015, at 06:36, Alexandre Bergel alexandre.bergel@me.com 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

---> Save our in-boxes! http://emailcharter.org <---

Johan Fabry - http://pleiad.cl/~jfabry PLEIAD lab - Computer Science Department (DCC) - University of Chile

No problems, I can wait one more week for the arrows!

On Jul 5, 2015, at 12:18, Peter Uhnák i.uhnak@gmail.com wrote:

Alex, can we have a RTDirectedLine variant that ends with an arrow shape? Because if I use directed lines sometimes it’s not understandable. For example:

PS: My state machines are cooler than yours :-P But you don't have rounded lines with arrow shapes which I do. :-P

I can probably contribute it to Roassal, but I wanted to work on that at ESUG (Camp Roassal), as there's more to the line.

Peter

---

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

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 -=-=-=-=-=-=-=-=-=-=-=-=

Cheers, Alexandre

On Jul 1, 2015, at 3:36 PM, Tudor Girba tudor@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@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@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@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

-- www.tudorgirba.com

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

Ok. But, that looks a bit terrible :)

:-)

Could we at least center them?

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@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@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@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@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@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

-- www.tudorgirba.com

"Every thing has its own flow" _______________________________________________ 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

-- www.tudorgirba.com

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