| Server IP : 85.193.89.191 / Your IP : 3.138.34.177 Web Server : Apache System : Linux 956367-cx40159.tmweb.ru 3.10.0-1160.105.1.el7.x86_64 #1 SMP Thu Dec 7 15:39:45 UTC 2023 x86_64 User : bitrix ( 600) PHP Version : 8.1.27 Disable Function : NONE MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/977/task/977/cwd/usr/share/graphviz/gvpr/ |
Upload File : |
/* Remove peninsulas - chains hanging off the main graph */
BEGIN {
edge_t e;
node_t v, n;
}
N [degree == 1] {
n = $;
while (n.degree == 1) {
e = fstedge (n);
if (e.head == n) v = e.tail;
else v = e.head;
delete($G,n);
n = v;
}
}