Return to tree.i CVS log

Up to [Research Unix] / researchv10no / cmd / ideal / tests

Annotation of researchv10no/cmd/ideal/tests/tree.i, revision 1.1.1.1

1.1       root        1: tree
                      2: .nf
                      3: .IS
                      4: box treenode
                      5: {
                      6: var ne, nw, sw, se,
                      7:     hook, lchild, rchild, cen;
                      8: ne = nw + width;
                      9: se = sw + width;
                     10: ne = se + (0,1)*height;
                     11: hook = (ne + nw)/2;
                     12: cen = (ne + sw)/2;
                     13: lchild = (sw + cen)/2;
                     14: rchild = (se + cen)/2;
                     15: conn ne to nw;
                     16: conn nw to sw;
                     17: conn sw to se;
                     18: conn se to ne;
                     19: conn (nw + sw)/2 to (ne + se)/2;
                     20: conn cen to (sw + se)/2;
                     21: }
                     22: 
                     23: box tree
                     24: {
                     25: var height, width;
                     26: height = ht/2;
                     27: width = 2*wd/3;
                     28: put node0:treenode{hook=root;};
                     29: put node1:treenode{hook=node0.hook-(0,1)*ht-wd;};
                     30: put node2:treenode{hook=node0.hook-(0,1)*ht+wd;};
                     31: put node3:treenode{hook=node2.hook-(0,1)*ht-wd;};
                     32: put node4:treenode{hook=node2.hook-(0,1)*ht+wd;};
                     33: conn node0.lchild to node1.hook;
                     34: conn node0.rchild to node2.hook;
                     35: conn node2.lchild to node3.hook;
                     36: conn node2.rchild to node4.hook;
                     37: }
                     38: 
                     39: box main
                     40: {
                     41: put T:tree{var root, ht, wd;
                     42: root = (1,-3);
                     43: ht = 1;
                     44: wd = 1;
                     45: };
                     46: }
                     47: .IE
                     48: .IS
                     49: ...forget treenode tree
                     50: .IE

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.