|
|
1.1 root 1: .PS 8.0i
2: .ps 20
3: circlerad=circlerad/4
4: define boxright @
5: B$1: box invis with .nw at B$2.ne
6: @
7: define boxdown @
8: B$1: box invis with .nw at B$2.sw
9: @
10: define node @
11: C$1: circle shaded with .w at B$1.w; move to (C$1.w.x, C$1.s.y-lineht/10) $2
12: @
13: define data @
14: B$1: box width boxwid/4 height boxht/4 with .w at (C$1.e.x+linewid/4, C$1.e.y) "DU"
15: line from C$1.e to B$1.w
16: @
17: define linefrom @
18: line from C$1.s to C$2.n
19: @
20: ## figure 4
21: ## EXAMPLE: GENERAL HIERARCHICAL CONSTRAINT SET
22: B0: box invis
23: boxright(1,0)
24: boxright(2,1)
25: B12: box invis with .c at B1.e
26: boxright(3,2)
27: boxdown(4,0)
28: B13: box invis with .c at B4.e
29: boxright(5,4)
30: boxright(6,5)
31: boxright(7,6)
32: boxdown(8,4)
33: boxright(9,8)
34: boxright(10,9)
35: boxright(11,10)
36: ##
37: node(12,)
38: data(12)
39: node(13,)
40: node(8,"\ fred" ljust)
41: data(8)
42: node(9,"\ wilma" ljust)
43: data(9)
44: node(10,"\ pebbles" ljust)
45: node(7,)
46: data(7)
47: node(11,"\ dino" ljust)
48: data(11)
49: ##
50: linefrom(12,13)
51: linefrom(12,10)
52: linefrom(12,7)
53: linefrom(13,8)
54: linefrom(13,9)
55: linefrom(7,11)
56: ##
57: define fadu @
58: F$1: box invis with .w at (C$1.w.x-linewid/10, C$1.w.y) \
59: width 3*boxwid/4 height boxht
60: @
61: fadu(8)
62: fadu(9)
63: fadu(10)
64: fadu(11)
65: ##
66: F13: box invis with .sw at F8.sw \
67: width (F9.e.x-F8.w.x) \
68: height (C13.w.y-F8.s.y)+boxht/2
69: ##
70: F7: box invis with .sw at F11.sw \
71: width (F11.e.x-F11.w.x) \
72: height (C7.w.y-F11.s.y)+boxht/2
73: ##
74: F12: box invis with .sw at F8.sw \
75: width (F11.e.x-F8.w.x) \
76: height (C12.w.y-F8.s.y)+boxht/2
77: ##
78: ## line from (F12.sw.x, F12.sw.y-lineht/4) \
79: ## to (F12.se.x, F12.se.y-lineht/4)
80: ##
81: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.