| blob | 07196d961caed21d3d0e07041626b54aaf9b025e |
1 .nr _C \n(.C
2 .cp 0
3 .ftr AX ABI
4 .ftr KR BMR
5 .ftr KI BMI
6 .ftr KB BMB
7 .ftr KX BMBI
8 .ftr CW CR
9 .ftr CO CI
10 .ftr CX CBI
11 .ftr H HR
12 .ftr HO HI
13 .ftr HX HBI
14 .ftr Hr HNR
15 .ftr Hi HNI
16 .ftr Hb HNB
17 .ftr Hx HNBI
18 .ftr NX NBI
19 .ftr PA PR
20 .ftr PX PBI
21 .ftr ZI ZCMI
22 .ftr C CR
23 .char \(rn \h'-\w'\(sr'u'\(rn\h'\w'\(sr'u'
24 .char \[parenlefttp] \[parenlefttp]\h'.016m'
25 .char \[parenleftbt] \[parenleftbt]\h'.016m'
26 .char \[parenleftex] \[parenleftex]\h'.016m'
27 .char \[parenrighttp] \[parenrighttp]\h'.016m'
28 .char \[parenrightbt] \[parenrightbt]\h'.016m'
29 .char \[parenrightex] \[parenrightex]\h'.016m'
30 .char \[ci] \v'-.25m'\h'.05m'\D'c .5m'\h'.05m'\v'.25m'
31 .char \[sq] \h'.05m'\D'l .5m 0'\D'l 0 -.5m'\D'l -.5m 0'\D'l 0 .5m'\h'.55m'
32 .char \[ru] \D'l .5m 0'
33 .char \[ul] \v'.25m'\D'l .5m 0'\v'-.25m'
34 .char \[br] \Z'\v'.25m'\D'l 0 -1m''
35 .char \[or] \h'.1m'\Z'\D'l 0 -.675m''\h'.1m'
36 .char \[12] \v'-.7m\s[\\n(.s*6u/10u]+.7m'1\v'-.7m\s0+.7m'\
37 \(f/\s[\\n(.s*6u/10u]2\s0
38 .char \[14] \v'-.7m\s[\\n(.s*6u/10u]+.7m'1\v'-.7m\s0+.7m'\
39 \(f/\s[\\n(.s*6u/10u]4\s0
40 .char \[34] \v'-.7m\s[\\n(.s*6u/10u]+.7m'3\v'-.7m\s0+.7m'\
41 \(f/\s[\\n(.s*6u/10u]4\s0
42 .char \[S1] \v'-.2m'\s-31\s+3\v'+.2m'
43 .char \[S2] \v'-.2m'\s-32\s+3\v'+.2m'
44 .char \[S3] \v'-.2m'\s-33\s+3\v'+.2m'
45 .tr \[char178]\[S2]
46 .tr \[char179]\[S3]
47 .tr \[char185]\[S1]
48 .tr \[char188]\[14]
49 .tr \[char189]\[12]
50 .tr \[char190]\[34]
51 .char \[Fi] ffi
52 .char \[Fl] ffl
53 .char \[ff] ff
54 .char \[ij] ij
55 .char \[IJ] IJ
56 .if !c\[tm] .char \[tm] \s-3\v'-.3m'TM\v'+.3m'\s+3
57 .cp \n(_C
58 .\" ignore the rest of the file in compatibility mode
59 .if \n(.C .nx /dev/null
60 .de ps-achar
61 .char \\$1 \\$3\
62 \k[acc]\
63 \h'(u;-\w'\\$2'-\w'\\$3'/2+\\\\n[skw]+(\w'x'*0)-\\\\n[skw])'\
64 \v'(u;\w'x'*0+\\\\n[rst]+(\w'\\$3'*0)-\\\\n[rst])'\
65 \\$2\
66 \v'(u;\w'x'*0-\\\\n[rst]+(\w'\\$3'*0)+\\\\n[rst])'\
67 \h'|\\\\n[acc]u'
68 .ie '\\$3'\(.i' .hcode \\$1i
69 .el .hcode \\$1\\$3
70 ..
71 .if !c\['y] \{\
72 .ps-achar \['y] \[aa] y
73 .tr \[char253]\['y]
74 .\}
75 .if !c\['Y] \{\
76 .ps-achar \['Y] \[aa] Y
77 .tr \[char221]\['Y]
78 .\}
79 .if !c\['c] .ps-achar \['c] \[aa] c
80 .if !c\['C] .ps-achar \['C] \[aa] C
81 .de ps-bb
82 .nr ps-nargs \\n[.$]
83 .if \\n[ps-nargs]=4 \{\
84 . nr ps-llx 0\\$1
85 . nr ps-lly 0\\$2
86 . nr ps-urx 0\\$3
87 . nr ps-ury 0\\$4
88 .\}
89 ..
90 .de PSPIC
91 .sy echo .ps-bb `psbb \\$1` >/tmp/psbb\\n[$$]
92 .so /tmp/psbb\\n[$$]
93 .if \\n[ps-nargs]=4 \{\
94 . nr ps-wid (\\n[ps-urx]-\\n[ps-llx])
95 . nr ps-ht (\\n[ps-ury]-\\n[ps-lly])
96 . if \\n[ps-wid]<0 .nr ps-wid 0-\\n[ps-wid]
97 . if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
98 . ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
99 . el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
100 . ie \\n[.$]>=3 .nr ps-desht (i;\\$3)
101 . el .nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
102 *\\n[ps-ht]+500/1000
103 . ne \\n[ps-desht]u+1v
104 . sp \\n[ps-desht]u
105 . nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]/2
106 . ie \\n[.$]>=3 \
107 \h'\\n[ps-offset]u'\X'ps: import \\$1 \\n[ps-llx] \\n[ps-lly] \\n[ps-urx] \
108 \\n[ps-ury] \\n[ps-deswid] \\n[ps-desht]'
109 . el \
110 \h'\\n[ps-offset]u'\X'ps: import \\$1 \\n[ps-llx] \\n[ps-lly] \\n[ps-urx] \
111 \\n[ps-ury] \\n[ps-deswid]'
112 . br
113 .\}
114 .sy rm /tmp/psbb\\n[$$]
115 ..