这个 gvpr (https://www.graphviz.org/pdf/gvpr.1.pdf) 程序似乎正确地添加了带有 rank=same 的子图,以按要求“提升”节点。
请注意,如果源图有子图(尤其是集群),不要指望它会起作用。
BEGIN {
int i, j, n, s=0, changed=0;
int checkedNode[];
int newRank[];
string str1, rankString[], fld[int];
node_t aNode, headNode;
edge_t anEdge;
graph_t aSub;
}
BEG_G{
for (aNode=fstnode($G); aNode; aNode = nxtnode(aNode)){
if (aNode.indegree==0){
newRank[aNode]=1;
}
}
while (1){
for (newRank[aNode]){
for (anEdge = fstout(aNode); anEdge; anEdge = nxtout(anEdge)){
headNode=anEdge.head;
if (newRank[headNode]=="" || (newRank[aNode]+1)>newRank[headNode]){
newRank[headNode]=newRank[aNode]+1;
print ("// rank=", newRank[headNode], " ", headNode.name);
changed++;
}
}
}
if (changed==0)break;
changed=0;
}
for (newRank[aNode]){
rankString[newRank[aNode]]=sprintf("%s%s|",rankString[newRank[aNode]],aNode.name);
}
/* create subgraphs w/ rank=same */
for (rankString[i]){
unset(fld);
n=tokens(rankString[i],fld,"|");
if (n>1){
str1=sprintf("__sub_%d",++s);
aSub=subg($G,str1);
aSub.rank="same";
for (j=0;j<n;j++){
print ("// fld: >", fld[j], "< ", j, " ", n);
aNode=node($G, fld[j]);
aNode=subnode(aSub, aNode);
}
}
}
}
像这样使用命令行:
gvpr -c -f raiseRanks.gvpr yourfile.gv | dot -Tpng >yourfile.png
给予:
// comments deleted
igraph {
subgraph __sub_1 {
graph [rank=same];
A;
H;
}
subgraph __sub_2 {
graph [rank=same];
D;
G;
}
A -> B;
B -> C;
C -> D;
C -> G;
H -> C;
D -> E;
E -> F;
G -> F;
}