JFIF $
d d 7
Viewing File: /usr/share/graphviz/lefty/tree.lefty
load ('def.lefty');
definit ();
#
# initialize window data
#
canvas = defcanvas;
wrect = [0 = ['x' = -5; 'y' = 0;]; 1 = ['x' = 410; 'y' = 500;];];
setwidgetattr (canvas, ['window' = wrect;]);
#
# data structures
#
nodearray = [];
nodenum = 0;
dist = ['x' = 40; 'y' = 40;];
defsize = ['x' = 10; 'y' = 10;];
fontname = 'fixed';
fontsize = 18;
tree = null;
# drawing functions
#
boxnode = function (node) {
local center;
box (canvas, node, node.rect, ['color' = 0; 'fill' = 'on';]);
box (canvas, node, node.rect);
center = [
'x' = (node.rect[0].x + node.rect[1].x) / 2;
'y' = (node.rect[0].y + node.rect[1].y) / 2;
];
if (node.name)
text (canvas, node, center, node.name, fontname, fontsize, 'cc');
};
circlenode = function (node) {
local center, radius;
center = [
'x' = (node.rect[0].x + node.rect[1].x) / 2;
'y' = (node.rect[0].y + node.rect[1].y) / 2;
];
radius = [
'x' = center.x - node.rect[0].x;
'y' = center.y - node.rect[0].y;
];
arc (canvas, node, center, radius, ['color' = 0; 'fill' = 'on';]);
arc (canvas, node, center, radius);
if (node.name)
text (canvas, node, center, node.name, fontname, fontsize, 'cc');
};
drawnode = boxnode;
drawedge = function (node1, node2) {
line (canvas, null,
[
'x' = (node1.rect[1].x + node1.rect[0].x) / 2;
'y' = node1.rect[0].y;
], [
'x' = (node2.rect[1].x + node2.rect[0].x) / 2;
'y' = node2.rect[1].y;
]);
};
drawtree = function (node) {
local i;
for (i in nodearray)
drawnode (nodearray[i]);
drawtreerec (node);
};
drawtreerec = function (node) {
local i, n;
if ((n = tablesize (node.ch)) > 0) {
for (i = 0; i < n; i = i + 1) {
drawedge (node, node.ch[i]);
drawtreerec (node.ch[i]);
}
}
};
redraw = function (c) {
if (tree)
drawtree (tree);
};
# layout functions
#
complayout = function () {
leafx = 0;
leafrank = 0;
dolayout (tree, wrect[1].y - 10);
remove ('leafx');
remove ('leafrank');
};
dolayout = function (node, pary) {
local r, n, i, size, lchp, rchp;
size = nodesize (node);
if (node.chn > 0) {
for (i = 0; i < node.chn; i = i + 1)
dolayout (node.ch[i], pary - size.y - dist.y);
node.rank = (node.ch[0].rank + node.ch[node.chn - 1].rank) / 2;
lchp = node.ch[0].rect;
rchp = node.ch[node.chn - 1].rect;
r[0].x = lchp[0].x + ((rchp[1].x - lchp[0].x) - size.x) / 2;
r[0].y = pary - size.y;
r[1].x = r[0].x + size.x;
r[1].y = pary;
node.rect = r;
} else {
node.rank = leafrank;
r[0].x = leafx;
r[0].y = pary - size.y;
r[1].x = r[0].x + size.x;
r[1].y = pary;
leafrank = leafrank + 1;
leafx = r[1].x + dist.x;
node.rect = r;
}
};
# editing functions
#
inode = function (point, name) {
local i, nnum, size;
nnum = nodenum;
if (~name)
name = ask ('give name of node:');
nodearray[nnum].ch = [];
nodearray[nnum].chn = 0;
nodearray[nnum].name = name;
size = nodesize (nodearray[nnum]);
nodearray[nnum].rect[0] = point;
nodearray[nnum].rect[1] = ['x' = point.x + size.x; 'y' = point.y + size.y;];
nodenum = nodenum + 1;
if (~tree) {
tree = nodearray[nnum];
tree.depth = 0;
complayout ();
drawtree (tree);
} else
drawtree (nodearray[nnum]);
return nodearray[nnum];
};
iedge = function (node1, node2) {
node1.ch[node1.chn] = node2;
node1.chn = node1.chn + 1;
node2.depth = node1.depth + 1;
complayout ();
clear (canvas);
drawtree (tree);
};
fix = function (node, op, np) {
if (node.depth ~= 0)
dist.y = dist.y + (op.y - np.y) / node.depth;
if (node.rank ~= 0)
dist.x = dist.x + (np.x - op.x) / node.rank;
complayout ();
clear (canvas);
drawtree (tree);
};
nodesize = function (node) {
local siz;
if (~(siz = textsize (canvas, node.name, fontname, fontsize)))
siz = defsize;
else {
siz.x = siz.x + 8;
siz.y = siz.y + 8;
}
return siz;
};
changenode = function (nodestyle) {
drawnode = nodestyle;
clear (canvas);
drawtree (tree);
};
# user interface functions
#
leftdown = function (data) {
if (~data.obj)
inode (data.pos, null);
};
leftup = function (data) {
if (data.pobj)
fix (data.pobj, data.ppos, data.pos);
};
middleup = function (data) {
if (data.pobj & data.obj)
iedge (data.pobj, data.obj);
};
dops = function () {
local s;
s = ['x' = 8 * 300; 'y' = 10.5 * 300;];
fontname = 'Times-Roman';
canvas = createwidget (-1, ['type' = 'ps'; 'size' = s;]);
setwidgetattr (canvas, ['window' = wrect;]);
drawtree (tree);
destroywidget (canvas);
canvas=defcanvas;
fontname = 'fixed';
};
Back to Directory
nL+D550H?Mx ,D"v]qv;6*Zqn)ZP 0 !1 A "#a$2Qr D8 a Ri[f\mIykIw0 cuFcRı?lO7к_f˓[C$殷WF<_W ԣs KcëIzyQy /_LKℂ;C",pFA: /]=H ~,ls/9ć:[=/#f;)x {ٛEQ )~ =𘙲r*2~ a _V=' kumF D}KYYC)({ *g&f`툪ry`=^cJ.I](*`wq 1dđ#̩͑0;H]u搂@:~וKL Nsh}OIR*8:2 !lDJVo( 3=M(zȰ+i*NA r6KnSl )!JJӁ* %݉?|D}d5:eP0R;{$X'xF@.ÊB {,WJuQɲRI;9QE琯62fT.DUJ;*cP A\ILNj!J۱+O\ ͔]ޒ SJȧc%ANolՎprULZԛerE2=XDXgVQeӓk yP7U*omQIs,K`)6\G3t?pgjrmۛجwluGtf h9uyP0D;Uڽ"OXlif$)&|ML0Zrm1[HXPlPR0'G=i2N +0e2]] 9VTPO7h(F*癈 '=QVZDF,d߬~TX
G[`le69CR(!S2!P
<0x < !1AQ "Raq02Br#SCTb
?Ζ"]mH5WR7k.ۛ!}Q~+yԏz|@T20S~Kek *zFf^2X*(@8r?CIuI|֓>^ExLgNUY+{.RѪ
τVYTD I62'8Y2 7'\TP.6d&˦@Vqi|8- OΕ]ʔ U=TL8=;6c| !qfF3aů&~$l}'NWUs$Uk^SV:U# 6w++s&r+nڐ{@29 gL
u"TÙM=6 (^"7r} =6YݾlCuhquympǦ
G jhsǜNlɻ}o7 #S6aw4!OSrD57%|?x>L
|/nD6?/8w#[)L7+6〼T ATg ! %5MmZ/c-{1_Je"|^$'O&ޱմ Trb$ w)R$&
N1EtdU3Uȉ1pM" N*(DN yd96.(jQ)X
5cQɎMyW? Q*!R>6=7)Xj5`J]e 8%t!+'!1Q 5 !1 AQaqё#2"0BRb ? Gt^## .llQT $v,,m 㵜5 ubV =sY+@d{N! dnO< .-B; _wJt6;QJd.Qc%p{ 1,sNDdFHI0ГoXшe黅XۢF:)[FGXƹ/w_cMeD,ʡcc. WDtA$j@:) -# u
c1<@ۗ9F)KJ-hpP]_x[qBlbp ʖw q"LFGd ƶ*s+ډ_Zc"? %t[IP 6J]#=ɺVvvCGsGh1 >)6|ey?Lӣm,4GWUi` ]uJVoV DG< SB 6ϏQ@ TiUly OU0kfV~~}SZ@*WUUi##; s/[ =!7}" WN]'(L! ~y5g9T̅JkbM' +s:S + B)v@Mj
e Cf jE 0Y\QnzG1д~Wo{T 9?`Rmyhsy3!HAD]mc1~2L Su7xT;j$`}4->L#vzŏ ILS ֭ T { rjGKC; bpU= -`BsK.SFw4Mq]ZdHS0)tLg