[Moose-dev] Re: Towards Roassal2

-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On Apr 17, 2014, at 5:26 AM, Leo Perard leo.perard@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@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@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@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@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@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@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@iam.unibe.ch > >>> 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 > > > > -- > > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > > Alexandre Bergel http://www.bergel.eu > > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > > > > > > > _______________________________________________ > > Moose-dev mailing list > > Moose-dev@iam.unibe.ch > > https://www.iam.unibe.ch/mailman/listinfo/moose-dev > > > > > > > > > > -- > > Leo Perard > > > > > > > > -- > > Leo Perard > > _______________________________________________ > > Moose-dev mailing list > > Moose-dev@iam.unibe.ch > > 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 > > > > -- > Leo Perard > _______________________________________________ > Moose-dev mailing list > Moose-dev@iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev