Re: Towards Roassal2

List overview All Threads
Download

newer

older

roassal2 presentation - zooming...

Migration of the Customizable...

Alexandre Bergel

8 Apr 2014 8 Apr '14

4:05 p.m.

...

I started to script the visualization in Roassal 2. But I have the following missing: - RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape) - ROArrow

Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge. Try the following: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). v -=-=-=-=-=-=-=-=-=-=-=-= Or: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). v -=-=-=-=-=-=-=-=-=-=-=-= Here is a screenshot: And if you are in a curvy mood, you can do: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= We are currently working on RTArrow, we will be done by today or tomorrow I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

Attachments:

attachment.htm (text/html — 2.6 KB)
ScreenShot2014-04-08at10.54.21AM.png (image/png — 27.0 KB)
ScreenShot2014-04-08at11.04.31AM.png (image/png — 31.2 KB)

Show replies by thread

Stéphane Ducasse

15 Apr 15 Apr

11:44 p.m.

New subject: Towards Roassal2

alex it would be good to have the edge not to the center but to the border of the shape. Stef On 08 Apr 2014, at 16:05, Alexandre Bergel <abergel(a)dcc.uchile.cl> wrote:

...

I started to script the visualization in Roassal 2. But I have the following missing: - RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape) - ROArrow

Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge. Try the following: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). v -=-=-=-=-=-=-=-=-=-=-=-= Or: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). v -=-=-=-=-=-=-=-=-=-=-=-= Here is a screenshot: <Screen Shot 2014-04-08 at 10.54.21 AM.png> And if you are in a curvy mood, you can do: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= <Screen Shot 2014-04-08 at 11.04.31 AM.png> We are currently working on RTArrow, we will be done by today or tomorrow I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: 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

Alexandre Bergel

16 Apr 16 Apr

12:08 a.m.

New subject: Towards Roassal2

...

alex it would be good to have the edge not to the center but to the border of the shape. Stef On 08 Apr 2014, at 16:05, Alexandre Bergel <abergel(a)dcc.uchile.cl> wrote:

I started to script the visualization in Roassal 2. But I have the following missing: - RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape) - ROArrow

Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge. Try the following: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). v -=-=-=-=-=-=-=-=-=-=-=-= Or: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). v -=-=-=-=-=-=-=-=-=-=-=-= Here is a screenshot: <Screen Shot 2014-04-08 at 10.54.21 AM.png> And if you are in a curvy mood, you can do: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= <Screen Shot 2014-04-08 at 11.04.31 AM.png> We are currently working on RTArrow, we will be done by today or tomorrow I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: 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

_______________________________________________ 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 ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

Leo Perard

12:39 a.m.

New subject: Towards Roassal2

I don't remember but I think there is a message pushBack or something like that no ? Can't we send it to the edges ? On Wed, Apr 16, 2014 at 12:08 AM, Alexandre Bergel <alexandre.bergel(a)me.com>wrote;wrote:

...

You can simply add an attach point. For example: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new attachPoint: RTShorterDistanceAttachPoint new; centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= Cheers, Alexandre On Apr 15, 2014, at 6:44 PM, Stéphane Ducasse <stephane.ducasse(a)inria.fr> wrote: alex it would be good to have the edge not to the center but to the border of the shape. Stef On 08 Apr 2014, at 16:05, Alexandre Bergel <abergel(a)dcc.uchile.cl> wrote: I started to script the visualization in Roassal 2. But I have the following missing: - RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape) - ROArrow Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge. Try the following: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). v -=-=-=-=-=-=-=-=-=-=-=-= Or: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). v -=-=-=-=-=-=-=-=-=-=-=-= Here is a screenshot: <Screen Shot 2014-04-08 at 10.54.21 AM.png> And if you are in a curvy mood, you can do: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= <Screen Shot 2014-04-08 at 11.04.31 AM.png> We are currently working on RTArrow, we will be done by today or tomorrow I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: 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 _______________________________________________ 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

-- Leo Perard

Leo Perard

2:10 p.m.

New subject: Towards Roassal2

I just notice that *attachPoint:* do not work with the RTArrow. view := RTView new. els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray) elementsOn: Collection withAllSubclasses. els @ RTDraggable. view addAll: els. RTEdge buildEdgesFromObjects: Collection withAllSubclasses from: #yourself toAll: #subclasses using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray) + (RTArrow new color: Color veryDarkGray)) inView: view. RTTreeLayout on: els. view open On Wed, Apr 16, 2014 at 12:39 AM, Leo Perard <leo.perard(a)gmail.com> wrote:

...

-- Leo Perard

Alexandre Bergel

4:41 p.m.

New subject: Towards Roassal2

Well spotted! Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On Apr 16, 2014, at 9:10 AM, Leo Perard <leo.perard(a)gmail.com> wrote:

...

I just notice that attachPoint: do not work with the RTArrow. view := RTView new. els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray) elementsOn: Collection withAllSubclasses. els @ RTDraggable. view addAll: els. RTEdge buildEdgesFromObjects: Collection withAllSubclasses from: #yourself toAll: #subclasses using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray) + (RTArrow new color: Color veryDarkGray)) inView: view. RTTreeLayout on: els. view open On Wed, Apr 16, 2014 at 12:39 AM, Leo Perard <leo.perard(a)gmail.com> wrote: I don't remember but I think there is a message pushBack or something like that no ? Can't we send it to the edges ? On Wed, Apr 16, 2014 at 12:08 AM, Alexandre Bergel <alexandre.bergel(a)me.com> wrote: You can simply add an attach point. For example: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new attachPoint: RTShorterDistanceAttachPoint new; centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= <Screen Shot 2014-04-15 at 7.08.10 PM.png> Cheers, Alexandre On Apr 15, 2014, at 6:44 PM, Stéphane Ducasse <stephane.ducasse(a)inria.fr> wrote:

alex it would be good to have the edge not to the center but to the border of the shape. Stef On 08 Apr 2014, at 16:05, Alexandre Bergel <abergel(a)dcc.uchile.cl> wrote:

I started to script the visualization in Roassal 2. But I have the following missing: - RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape) - ROArrow

Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge. Try the following: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). v -=-=-=-=-=-=-=-=-=-=-=-= Or: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). v -=-=-=-=-=-=-=-=-=-=-=-= Here is a screenshot: <Screen Shot 2014-04-08 at 10.54.21 AM.png> And if you are in a curvy mood, you can do: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= <Screen Shot 2014-04-08 at 11.04.31 AM.png> We are currently working on RTArrow, we will be done by today or tomorrow I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: 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

_______________________________________________ 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 -- Leo Perard -- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Alexandre Bergel

8:15 p.m.

New subject: Towards Roassal2

We have slightly improved the situation with the following: view := RTView new. els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray) elementsOn: Collection withAllSubclasses. els @ RTDraggable. view addAll: els. RTEdge buildEdgesFromObjects: Collection withAllSubclasses from: #yourself toAll: #subclasses using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray) + (RTArrow new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray)) inView: view. RTTreeLayout on: els. view open -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On Apr 16, 2014, at 9:10 AM, Leo Perard <leo.perard(a)gmail.com> wrote:

...

alex it would be good to have the edge not to the center but to the border of the shape. Stef On 08 Apr 2014, at 16:05, Alexandre Bergel <abergel(a)dcc.uchile.cl> wrote:

I started to script the visualization in Roassal 2. But I have the following missing: - RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape) - ROArrow

Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge. Try the following: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). v -=-=-=-=-=-=-=-=-=-=-=-= Or: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). v -=-=-=-=-=-=-=-=-=-=-=-= Here is a screenshot: <Screen Shot 2014-04-08 at 10.54.21 AM.png> And if you are in a curvy mood, you can do: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= <Screen Shot 2014-04-08 at 11.04.31 AM.png> We are currently working on RTArrow, we will be done by today or tomorrow I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: 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

_______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Leo Perard

17 Apr 17 Apr

10:26 a.m.

New subject: Towards Roassal2

Works perfectly ! Realy cool ! *RTEdge class>>#buildEdgesFromObjects:from:toAll:using: *doesn't exist. You have to precise the view with *RTEdge class>>#buildEdgesFromObjects:from:toAll:using:inView:* I don't know if you have forgotten it in your example or if the message has been forgotten to be implemented. On Wed, Apr 16, 2014 at 8:15 PM, Alexandre Bergel <alexandre.bergel(a)me.com>wrote;wrote:

...

I just notice that attachPoint: do not work with the RTArrow. view := RTView new. els := (RTBox new size: 10; color: Color blue; borderColor: Color

veryLightGray) elementsOn: Collection withAllSubclasses.

els @ RTDraggable. view addAll: els. RTEdge buildEdgesFromObjects: Collection withAllSubclasses from: #yourself toAll: #subclasses using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new;

color: Color veryDarkGray) + (RTArrow new color: Color veryDarkGray))

inView: view. RTTreeLayout on: els. view open On Wed, Apr 16, 2014 at 12:39 AM, Leo Perard <leo.perard(a)gmail.com>

wrote:

I don't remember but I think there is a message pushBack or something

like that no ? Can't we send it to the edges ?

On Wed, Apr 16, 2014 at 12:08 AM, Alexandre Bergel <

alexandre.bergel(a)me.com> wrote:

el model +5) inView: v;

color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= <Screen Shot 2014-04-15 at 7.08.10 PM.png> Cheers, Alexandre On Apr 15, 2014, at 6:44 PM, Stéphane Ducasse <stephane.ducasse(a)inria.fr>

wrote:

> alex > > it would be good to have the edge not to the center but to the border

of the shape.

> > Stef > On 08 Apr 2014, at 16:05, Alexandre Bergel <abergel(a)dcc.uchile.cl>

wrote:

> >>> I started to script the visualization in Roassal 2. But I have the

following missing:

>>> >>> - RODynamicEdge (and

ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape)

>>> - ROArrow >> >> >> Just yesterday I have introduced RTShowEdge, which is a nice

replacement of RODynamicEdge.

>> >> Try the following: >> -=-=-=-=-=-=-=-=-=-=-=-= >> | v es | >> v := RTView new. >> es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). >> v addAll: es. >> RTCircleLayout on: es. >> >> es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). >> >> v >> -=-=-=-=-=-=-=-=-=-=-=-= >> >> Or: >> -=-=-=-=-=-=-=-=-=-=-=-= >> | v es | >> v := RTView new. >> es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). >> v addAll: es. >> RTCircleLayout new initialRadius: 150; on: es. >> >> es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5];

shape: (RTLine new color: (Color blue alpha: 0.4))).

>> >> v >> -=-=-=-=-=-=-=-=-=-=-=-= >> Here is a screenshot: >> <Screen Shot 2014-04-08 at 10.54.21 AM.png> >> >> >> And if you are in a curvy mood, you can do: >> -=-=-=-=-=-=-=-=-=-=-=-= >> | v es | >> v := RTView new. >> es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). >> v addAll: es. >> RTCircleLayout new initialRadius: 150; on: es. >> >> es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5];

shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ).

>> >> v >> -=-=-=-=-=-=-=-=-=-=-=-= >> <Screen Shot 2014-04-08 at 11.04.31 AM.png> >> >> We are currently working on RTArrow, we will be done by today or

tomorrow I think…

Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: 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

_______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

-- Leo Perard

Alexandre Bergel

3:37 p.m.

New subject: Towards Roassal2

I do not understand. Where do you need buildEdgesFromObjects:from:toAll:using:? Is there any sender to this non-existing method? Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On Apr 17, 2014, at 5:26 AM, Leo Perard <leo.perard(a)gmail.com> wrote:

...

Works perfectly ! Realy cool ! RTEdge class>>#buildEdgesFromObjects:from:toAll:using: doesn't exist. You have to precise the view with RTEdge class>>#buildEdgesFromObjects:from:toAll:using:inView: I don't know if you have forgotten it in your example or if the message has been forgotten to be implemented. On Wed, Apr 16, 2014 at 8:15 PM, Alexandre Bergel <alexandre.bergel(a)me.com> wrote: We have slightly improved the situation with the following: view := RTView new. els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray) elementsOn: Collection withAllSubclasses. els @ RTDraggable. view addAll: els. RTEdge buildEdgesFromObjects: Collection withAllSubclasses from: #yourself toAll: #subclasses using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray) + (RTArrow new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray)) inView: view. RTTreeLayout on: els. view open -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On Apr 16, 2014, at 9:10 AM, Leo Perard <leo.perard(a)gmail.com> wrote:

alex it would be good to have the edge not to the center but to the border of the shape. Stef On 08 Apr 2014, at 16:05, Alexandre Bergel <abergel(a)dcc.uchile.cl> wrote:

> I started to script the visualization in Roassal 2. But I have the following missing: > > - RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape) > - ROArrow Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge. Try the following: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). v -=-=-=-=-=-=-=-=-=-=-=-= Or: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). v -=-=-=-=-=-=-=-=-=-=-=-= Here is a screenshot: <Screen Shot 2014-04-08 at 10.54.21 AM.png> And if you are in a curvy mood, you can do: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= <Screen Shot 2014-04-08 at 11.04.31 AM.png> We are currently working on RTArrow, we will be done by today or tomorrow I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: 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

_______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

_______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev -- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Leo Perard

3:52 p.m.

New subject: Towards Roassal2

On Thu, Apr 17, 2014 at 3:37 PM, Alexandre Bergel <alexandre.bergel(a)me.com>wrote;wrote:

...

I do not understand. Where do you need buildEdgesFromObjects:from:toAll:using:?

Is there any sender to this non-existing method?

...

Just your example.

...

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

...

-- Leo Perard

Alexandre Bergel

5:08 p.m.

New subject: Towards Roassal2

I do not understand. It works well on my machine. Have you updated? Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On Apr 17, 2014, at 10:52 AM, Leo Perard <leo.perard(a)gmail.com> wrote:

...

On Thu, Apr 17, 2014 at 3:37 PM, Alexandre Bergel <alexandre.bergel(a)me.com> wrote: I do not understand. Where do you need buildEdgesFromObjects:from:toAll:using:? Is there any sender to this non-existing method? Just your example. Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. -- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Leo Perard

5:51 p.m.

New subject: Towards Roassal2

Ok... the e-mail is cut so I didn't get the end of the example... So no there is no problem. Sorry. On Thu, Apr 17, 2014 at 5:08 PM, Alexandre Bergel <alexandre.bergel(a)me.com>wrote;wrote:

...

On Thu, Apr 17, 2014 at 3:37 PM, Alexandre Bergel <

alexandre.bergel(a)me.com> wrote:

I do not understand. Where do you need

buildEdgesFromObjects:from:toAll:using:?

Is there any sender to this non-existing method? Just your example. Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. -- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

_______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

-- Leo Perard

kilon alios

18 Apr 18 Apr

10:03 a.m.

New subject: Towards Roassal2

Hello guys, how I can try Roassal 2 ? Is it in a usable state ? Is this the right place to get it ? http://www.smalltalkhub.com/#!/~ObjectProfile/Roassal2 Does it work well if I install it in an image that Roassal1 is already installed ? Do you document it somewhere or is this for much latter ?

Pablo Estefó

8:03 p.m.

New subject: Towards Roassal2

Hi kilon, On Apr 18, 2014, at 5:03, kilon alios <kilon.alios(a)gmail.com> wrote:

...

Hello guys, how I can try Roassal 2 ? Is it in a usable state ?

It is unstable from time to time but definitively usable.

...

Is this the right place to get it ? http://www.smalltalkhub.com/#!/~ObjectProfile/Roassal2

Yes, thats the place.And this is the Gofer script to install it: --- Gofer new smalltalkhubUser: 'ObjectProfile' project: 'Roassal2'; package: 'ConfigurationOfRoassal2'; load. (Smalltalk at: #ConfigurationOfRoassal2) load —

...

Does it work well if I install it in an image that Roassal1 is already installed ?

Yes, you should not face any conflict with Roassal1 because all Roassal2 classes has the prefix “RT”. For instance: ROObject in Roassal2 is RTObject. Actually, I have the two Roassals on my moose image.

...

Do you document it somewhere or is this for much latter ?

Well, you can see some examples by checking the RTExample class. Also, in every builder there are a couple of examples. Cheers, Pablo

...

_______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Alexandre Bergel

9 p.m.

New subject: Towards Roassal2

...

Do you document it somewhere or is this for much latter ?

Well, you can see some examples by checking the RTExample class. Also, in every builder there are a couple of examples.

There is also the new example browser. A few screenshots: -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

kilon alios

9:28 p.m.

New subject: Towards Roassal2

Thank you very much , I am going to try it now :) On 4/18/14, Pablo Estefó <pestefo(a)gmail.com> wrote:

...

Hi kilon, On Apr 18, 2014, at 5:03, kilon alios <kilon.alios(a)gmail.com> wrote:

Hello guys, how I can try Roassal 2 ? Is it in a usable state ?

It is unstable from time to time but definitively usable.

Is this the right place to get it ? http://www.smalltalkhub.com/#!/~ObjectProfile/Roassal2

Does it work well if I install it in an image that Roassal1 is already installed ?

Do you document it somewhere or is this for much latter ?

Well, you can see some examples by checking the RTExample class. Also, in every builder there are a couple of examples. Cheers, Pablo

_______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

3684

days inactive

3694

days old

moose-dev@list.inf.unibe.ch

Manage subscription

15 comments

6 participants

tags (0)

participants (6)

Alexandre Bergel
Alexandre Bergel
kilon alios
Leo Perard
Pablo Estefó
Stéphane Ducasse