Commit 6c17de21 authored by SOLIMAN Sylvain's avatar SOLIMAN Sylvain

proper left_to_right proportions

parent f1a3ed9a
......@@ -99,7 +99,6 @@ graphviz_format('svg').
create_cgraph(Id, Graph) :-
get_graph_name(Id, GraphName),
agopen(GraphName, directed, Graph),
agattr(Graph, graph, size, '7.5,11', _),
agattr(Graph, graph, ratio, fill, _),
agattr(Graph, node, shape, ellipse, _),
agattr(Graph, edge, arrowhead, 'normal', _),
......@@ -110,9 +109,10 @@ create_cgraph(Id, Graph) :-
(
LR == yes
->
agattr(Graph, graph, rankdir, 'LR', _)
agattr(Graph, graph, rankdir, 'LR', _),
agattr(Graph, graph, size, '11,7.5', _)
;
true
agattr(Graph, graph, size, '7.5,11', _)
),
agattr(Source, graph, rank, 'min', _),
\+ (
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment