gnu/usr.bin/groff/macros/tmac.ps

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