|
|
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.