On Jun 5, 2015, at 6:54 AM, Manfred Kröhnert <mkroehnert42@googlemail.com> wrote:

Dear Alexandre,

thanks for your initial version of the script.

As promised, here is the adapted version of what I basically would like to achieve:

<ParallelCoordinats.png>

=======

"configuration"

spaceBetweenLine := 350.

lineHeight := 250.

"data"

columns := #(

#('One' 'Two')

#('Ten' 'Eleven' 'Twelve' 'Thirteen' 'Fourteen' 'Fifteen') ).

values := #( #(1 3 4 5 6) #(2 3 5) ).

numberOfColumns := columns size.

columnHeight := columns reduce: [ :c1 :c2 | (c1 size) max: (c2 size) ].

v := RTView new.

label := RTLabel text: [ :t | t ].

label color: (Color red alpha: 0.3).

"draw labels"

setOfElements := OrderedCollection new.

1 to: numberOfColumns do: [ :i | | t labels |

t := OrderedCollection new.

labels := label elementsOn: (columns at: i).

labels doWithIndex: [ :element :index |

t add: element.

element translateTo: 

(i * (spaceBetweenLine - 1)) @

(index * lineHeight / columnHeight).

v add: element

].

setOfElements add: t.

].

"draw lines"

2 to: numberOfColumns do: [ :column |

values doWithIndex: [ :setOfValues :index |

setOfValues do: [ :toIndex |

line := (RTLine new color: (Color red alpha: 0.2)) 

edgeFrom: ((setOfElements at: (column - 1)) at: index)

to: ((setOfElements at: column) at: toIndex).

v add: line

].

].

].

v

=======

Now it only needs to be made a bit prettier (e.g. starting the lines at the edges of the label, not in the middle; make it deal correctly with multiple columns; ...).

Thank you very much,

Manfred

On Mon, May 4, 2015 at 11:01 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:

Ok, let us know!

Cheers,

Alexandre

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

On May 4, 2015, at 3:23 PM, Manfred Kröhnert <mkroehnert42@googlemail.com> wrote:

Hi Alexandre,

thanks for the fast response and the nice script.

I'll see if I can use it to produce the graph I'd like to have.

Best,

Manfred

On Mon, May 4, 2015 at 5:06 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:

Hi Manfred,

The parallel coordinates is indeed easy to obtain in Roassal.

Here is a short example:

-=-=-=-=-=-=-=-=-=-=-=-=

"Configuration"

maxValue := 40.

spaceBetweenLine := 50.

lineHeight := 250.

numberOfColumns := 10.

numberOfLines := 200.

"Script"

values := OrderedCollection new.

numberOfLines timesRepeat: [ 

t := OrderedCollection new.

numberOfColumns timesRepeat: [ t add: maxValue atRandom ].

values add: t.

].

v := RTView new.

setOfElements := OrderedCollection new.

1 to: numberOfColumns do: [ :i |

t := OrderedCollection new.

values do: [ :setOfValues |

e := (RTEllipse new color: (Color red alpha: 0.3)) element.

t add: e.

e translateTo: 

(i * (spaceBetweenLine - 1)) @ 

((setOfValues at: i) * lineHeight / maxValue) asFloat.

v add: e.

].

setOfElements add: t.

].

2 to: numberOfColumns do: [ :column |

t := OrderedCollection new.

values doWithIndex: [ :setOfValues :index |

line := (RTLine new color: (Color red alpha: 0.2)) 

edgeFrom: ((setOfElements at: (column - 1)) at: index) to: ((setOfElements at: column) at: index).

v add: line.

].

].

v

-=-=-=-=-=-=-=-=-=-=-=-=

Best would be to define a new builder to allow for easy configuration. It would be easy to add colors

Cheers,

Alexandre

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

On May 4, 2015, at 5:38 AM, Manfred Kröhnert <mkroehnert42@googlemail.com> wrote:

Hi everyone,

some time ago I saw a diagram consisting of two columns of words and lines showing associations between the words in both columns.

It looked similar to the "parallel coordinates" diagram from this link: http://homes.cs.washington.edu/~jheer/files/zoo/ but with only two columns.

Now, I am not sure if I saw this in an email on a Pharo or Moose list and wanted to ask if it is already possible to create such diagrams with Roassal.

Thank you very much,

Manfred

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