[unix-history] / .ref-Research-V6 / usr / lib / tmac.r

.de HD
.if t .tl '\(rn'''
.if t 'sp  \\n(m1-1
.if n 'sp \\n(m1
.ps 10
.ft R
.if e .1e
.if o .1o
.ps
.ft
'sp \\n(m2
.if \\n(:n .nm 1 1 2
.ns
..
.wh 0 HD
.de FT
'sp \\n(m3
.ps 10
.ft R
.if e .2e
.if o .2o
.ps
.ft
'bp
..
.wh -7 FT (1inch)
.de m1
.nr m1 \\$1
..
.de m2
.nr m2 \\$1
..
.de m3
.nr m3 \\$1
.ch FT -\\n(m3-\\n(m4-2
..
.de m4
.nr m4 \\$1
.ch FT -\\n(m3-\\n(m4-2
..
.m1 3
.m2 2
.m3 2
.m4 3
.de he
.de 1e
.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
\\..
.de 1o
.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
\\..
..
.de fo
.de 2e
.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
\\..
.de 2o
.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
\\..
..
.de eh
.de 1e
.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
\\..
..
.de oh
.de 1o
.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
\\..
..
.de ef
.de 2e
.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
\\..
..
.de of
.de 2o
.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
\\..
..
.he ''''
.fo ''''
.de bl
.rs
.sp \\$1
..
.de n1
.nm \\$1 1 2
.nr :n 0
.if \\n(.$ .nr :n 1
..
.de n2
.nm \\$1 1 2
..
.if n .ll 60
.if n .lt 60
.if t .ll 6i
.if t .lt 6i
Commit	Line	Data
6aa20c3c KT	1	.de HD
	2	.if t .tl '\(rn'''
	3	.if t 'sp \\n(m1-1
	4	.if n 'sp \\n(m1
	5	.ps 10
	6	.ft R
	7	.if e .1e
	8	.if o .1o
	9	.ps
	10	.ft
	11	'sp \\n(m2
	12	.if \\n(:n .nm 1 1 2
	13	.ns
	14	..
	15	.wh 0 HD
	16	.de FT
	17	'sp \\n(m3
	18	.ps 10
	19	.ft R
	20	.if e .2e
	21	.if o .2o
	22	.ps
	23	.ft
	24	'bp
	25	..
	26	.wh -7 FT (1inch)
	27	.de m1
	28	.nr m1 \\$1
	29	..
	30	.de m2
	31	.nr m2 \\$1
	32	..
	33	.de m3
	34	.nr m3 \\$1
	35	.ch FT -\\n(m3-\\n(m4-2
	36	..
	37	.de m4
	38	.nr m4 \\$1
	39	.ch FT -\\n(m3-\\n(m4-2
	40	..
	41	.m1 3
	42	.m2 2
	43	.m3 2
	44	.m4 3
	45	.de he
	46	.de 1e
	47	.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	48	\\..
	49	.de 1o
	50	.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	51	\\..
	52	..
	53	.de fo
	54	.de 2e
	55	.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	56	\\..
	57	.de 2o
	58	.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	59	\\..
	60	..
	61	.de eh
	62	.de 1e
	63	.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
	64	\\..
65	..
66	.de oh
67	.de 1o
68	.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
69	\\..
70	..
71	.de ef
72	.de 2e
73	.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
74	\\..
75	..
76	.de of
77	.de 2o
78	.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
79	\\..
80	..
81	.he ''''
82	.fo ''''
83	.de bl
84	.rs
85	.sp \\$1
86	..
87	.de n1
88	.nm \\$1 1 2
89	.nr :n 0
90	.if \\n(.$ .nr :n 1
91	..
92	.de n2
93	.nm \\$1 1 2
94	..
95	.if n .ll 60
96	.if n .lt 60
97	.if t .ll 6i
98	.if t .lt 6i