|
|
1.1 root 1: .PS 5.5i
2: .ps 20
3: boxht = boxht/2
4: lineht = 3*lineht/4
5: linewid = 3*linewid/4
6: ## figure 8
7: ## EXAMPLE: THE ALTERNATE FILESYSTEM APPROACH (cont.)
8: B2: box "flintstones"
9: B2a: box "descriptor" with .w at (B2.e.x+linewid, B2.e.y)
10: B2b: box "attributes" with .w at (B2.e.x+linewid, B2.e.y-lineht)
11: B2c: box "DU" with .w at (B2.e.x+linewid, B2.e.y-2*lineht)
12: ##
13: B3: box "1" with .w at (B2.e.x+linewid, B2.e.y-3*lineht)
14: B3a: box "descriptor" with .w at (B3.e.x+linewid, B3.e.y)
15: move to B3a.e; "\ \ depth 1" ljust
16: ##
17: B4: box "1" with .w at (B3.e.x+linewid, B3.e.y-lineht)
18: B4a: box "descriptor" with .w at (B4.e.x+linewid, B4.e.y)
19: move to B4a.e; "\ \ depth 1, fred" ljust
20: B4b: box "DU" with .w at (B4.e.x+linewid, B4.e.y-lineht)
21: B5: box "2" with .w at (B3.e.x+linewid, B4.e.y-2*lineht)
22: B5a: box "descriptor" with .w at (B5.e.x+linewid, B5.e.y)
23: move to B5a.e; "\ \ depth 1, wilma" ljust
24: B5b: box "DU" with .w at (B5.e.x+linewid, B5.e.y-lineht)
25: ##
26: B6: box "2" with .w at (B2.e.x+linewid, B4.e.y-4*lineht)
27: B6a: box "descriptor" with .w at (B6.e.x+linewid, B6.e.y)
28: move to B6a.e; "\ \ depth 2, pebbles" ljust
29: ##
30: B7: box "3" with .w at (B2.e.x+linewid, B4.e.y-5*lineht)
31: B7a: box "descriptor" with .w at (B7.e.x+linewid, B7.e.y)
32: move to B7a.e; "\ \ depth 1" ljust
33: B7b: box "DU" with .w at (B7.e.x+linewid, B7.e.y-lineht)
34: ##
35: B8: box "1" with .w at (B7.e.x+linewid, B7.e.y-2*lineht)
36: B8a: box "descriptor" with .w at (B8.e.x+linewid, B8.e.y)
37: move to B8a.e; "\ \ depth 1, dino" ljust
38: B8b: box "DU" with .w at (B8.e.x+linewid, B8.e.y-lineht)
39: ##
40: line from ((B2.e.x+B2a.w.x)/2, B2.e.y) to ((B2.e.x+B2a.w.x)/2, B7.w.y)
41: line from B2.e to ((B2.e.x+B2a.w.x)/2, B2.e.y)
42: line from ((B2.e.x+B2a.w.x)/2, B2a.w.y) to B2a.w
43: line from ((B2.e.x+B2a.w.x)/2, B2b.w.y) to B2b.w
44: line from ((B2.e.x+B2a.w.x)/2, B2c.w.y) to B2c.w
45: line from ((B2.e.x+B2a.w.x)/2, B3.w.y) to B3.w
46: line from ((B2.e.x+B2a.w.x)/2, B6.w.y) to B6.w
47: line from ((B2.e.x+B2a.w.x)/2, B7.w.y) to B7.w
48: ##
49: line from ((B3.e.x+B3a.w.x)/2, B3.e.y) to ((B3.e.x+B3a.w.x)/2, B5.w.y)
50: line from B3.e to ((B3.e.x+B3a.w.x)/2, B3.e.y)
51: line from ((B3.e.x+B3a.w.x)/2, B3a.e.y) to B3a.w
52: line from ((B3.e.x+B3a.w.x)/2, B4.e.y) to B4.w
53: line from ((B3.e.x+B3a.w.x)/2, B5.e.y) to B5.w
54: ##
55: line from ((B4.e.x+B4a.w.x)/2, B4.e.y) to ((B4.e.x+B4a.w.x)/2, B4b.w.y)
56: line from B4.e to ((B4.e.x+B4a.w.x)/2, B4.e.y)
57: line from ((B4.e.x+B4a.w.x)/2, B4a.e.y) to B4a.w
58: line from ((B4.e.x+B4a.w.x)/2, B4b.w.y) to B4b.w
59: ##
60: line from ((B5.e.x+B5a.w.x)/2, B5.e.y) to ((B5.e.x+B5a.w.x)/2, B5b.w.y)
61: line from B5.e to ((B5.e.x+B5a.w.x)/2, B5.e.y)
62: line from ((B5.e.x+B5a.w.x)/2, B5a.e.y) to B5a.w
63: line from ((B5.e.x+B5a.w.x)/2, B5b.w.y) to B5b.w
64: ##
65: line from B6.e to B6a.w
66: ##
67: line from ((B7.e.x+B7a.w.x)/2, B7.e.y) to ((B7.e.x+B7a.w.x)/2, B8.w.y)
68: line from B7.e to ((B7.e.x+B7a.w.x)/2, B7.e.y)
69: line from ((B7.e.x+B7a.w.x)/2, B7a.w.y) to B7a.w
70: line from ((B7.e.x+B7a.w.x)/2, B7b.w.y) to B7b.w
71: line from ((B7.e.x+B7a.w.x)/2, B8.w.y) to B8.w
72:
73: ##
74: line from ((B8.e.x+B8a.w.x)/2, B8.e.y) to ((B8.e.x+B8a.w.x)/2, B8b.w.y)
75: line from B8.e to ((B8.e.x+B8a.w.x)/2, B8.e.y)
76: line from ((B8.e.x+B8a.w.x)/2, B8a.e.y) to B8a.w
77: line from ((B8.e.x+B8a.w.x)/2, B8b.w.y) to B8b.w
78: ##
79: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.