|
|
1.1 root 1: .PS
2: define tick @
3: line from (B1.nw.x-linewid/8, B1.nw.y-$1*boxht) \
4: to (B1.nw.x+linewid/8, B1.nw.y-$1*boxht)
5: move to (B1.nw.x-linewid/8, B1.nw.y-$1*boxht); "\sf $2\ " rjust
6: @
7: ## figure APS-8
8: B1: box invis height 7*boxht
9: line from B1.nw to B1.sw
10: tick(0)
11: tick(1,S-MAJOR)
12: move to (B1.nw.x-linewid/8, B1.nw.y-3*boxht/2); \
13: "\sf S-DATA\ " rjust
14: tick(2,S-MINOR)
15: move to (B1.nw.x-linewid/8, B1.nw.y-5*boxht/2); \
16: "\sf S-DATA\ " rjust
17: tick(3,S-MAJOR)
18: move to (B1.nw.x-linewid/8, B1.nw.y-7*boxht/2); \
19: "\sf S-DATA\ " rjust
20: tick(4,S-MINOR)
21: move to (B1.nw.x-linewid/8, B1.nw.y-9*boxht/2); \
22: "\sf S-DATA\ " rjust
23: tick(5,S-MINOR)
24: move to (B1.nw.x-linewid/8, B1.nw.y-11*boxht/2); \
25: "\sf S-DATA\ " rjust
26: tick(6)
27: tick(7)
28: ##
29: move to (B1.nw.x-linewid/8, B1.nw.y); "\sf 0\ " rjust
30: move to (B1.sw.x-linewid/8, B1.sw.y); "\sf 999999\ " rjust
31: ##
32: line from (B1.c.x, B1.n.y-3*boxht) \
33: to (B1.c.x, B1.n.y-7*boxht)
34: line from (B1.c.x-linewid/8, B1.n.y-3*boxht) \
35: to (B1.c.x+linewid/8, B1.n.y-3*boxht)
36: move to (B1.c.x+linewid/8, B1.n.y-(3*boxht+11*boxht/2)/2); \
37: "\sf\ restart" ljust
38: line from (B1.c.x-linewid/8, B1.n.y-5*boxht) \
39: to (B1.c.x+linewid/8, B1.n.y-5*boxht)
40: move to (B1.c.x+linewid/8, B1.n.y-6*boxht); \
41: "\sf\ abandon" ljust
42: line from (B1.c.x-linewid/8, B1.n.y-7*boxht) \
43: to (B1.c.x+linewid/8, B1.n.y-7*boxht)
44: ##
45: ## line from (B1.ne.x+linewid, B1.ne.y) \
46: ## to (B1.ne.x+linewid, B1.se.y)
47: ## line from (B1.ne.x+linewid-linewid/8, B1.ne.y) \
48: ## to (B1.ne.x+linewid+linewid/8, B1.ne.y)
49: ## line from (B1.ne.x+linewid-linewid/8, B1.se.y) \
50: ## to (B1.ne.x+linewid+linewid/8, B1.se.y)
51: ## move to (B1.ne.x+linewid, B1.e.y); "\sf set\ " rjust
52: ##
53: arrow from (B1.w.x-boxwid*1.5, B1.n.y-3*boxht) \
54: to (B1.w.x-boxwid*1.5, B1.n.y-11*boxht/2)
55: move to (B1.w.x-boxwid*1.5, B1.n.y-17*boxht/4); \
56: "\sf\begin{tabular}{c} dialogue\end{tabular}\ " rjust
57: ##
58: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.