Hi Serge!

You pinpointed something that was missing and that Doru was not happy about the graph builder.

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

| graph b |

graph := (XESAlphaAlgorithm on: (XESParser parseString: XESParserTest
new example1)) run.

b := RTGraphBuilder new.

b nodes if:[:m| m type = #transition]; shape:(RTEllipse new size: 20).
b nodes if:[:m| m type = #place]; shape:(RTBox new size: 20).

b edges
seed: graph edges;
connectFrom: #from; 
connectTo: #to;
useInLayout.
b layout forceCharge: -200.
b addAll: graph nodes.

b open

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

Gives the following:

Using a tree layout gives you this:

Cheers,

Alexandre

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

On May 19, 2014, at 9:25 AM, Serge Stinckwich <serge.stinckwich@gmail.com> wrote:

Dear all,

I'm currently working on a process mining tool that should allow the
extraction of processes from events log. I will present this work
during the next MOOSEDAY at Paris.

At the moment, thanks to the Moose-Algo-Graph package, I'm able to
build Petri-nets from an event log.

I would like to able to visualize the resulting Petri-net with ROASSAL.
In a MOOSE 5.0 image :

===========================================================
Gofer it
        url: 'http://smalltalkhub.com/mc/SergeStinckwich/Moose-XES/main';
        package: 'Moose-XES'; load.
| graph view |
graph := (XESAlphaAlgorithm on: (XESParser parseString: XESParserTest
new example1)) run.
view := ROMondrianViewBuilder new.
view shape rectangle withText: [ :n | n model printString ].
view nodes: graph nodes.
view edges: graph edges from: #from to: #to.
view interaction.
view treeLayout.
view open
===========================================================
See the picture include.

Show I use a GraphBuilder in order to have something better ?

======================================================================
b := RTGraphBuilder new.
graph := (XESAlphaAlgorithm on: (XESParser parseString: XESParserTest
new example1)) run.
b nodes if:[:m| m type = #transition]; shape:(RTEllipse new size: 20).
b nodes if:[:m| m type = #place]; shape:(RTBox new size: 20).
b addAll: graph nodes.
b layout use: RTTreeLayout   new.
b
======================================================================

How I could add the edges and a layout that is more similar to the
following one ?

Regards,
-- 
Serge Stinckwich
UCBN & UMI UMMISCO 209 (IRD/UPMC)
Every DSL ends up being Smalltalk
http://www.doesnotunderstand.org/

<Screen Shot 2014-05-19 at 15.02.53.png><Screen Shot 2014-05-19 at 15.09.56.png>_______________________________________________
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