tmac/ps.tmac

   1 .\" ps.tmac
   2 .\"
   3 .nr _C \n(.C
   4 .cp 0
   5 .ftr AX ABI
   6 .ftr KR BMR
   7 .ftr KI BMI
   8 .ftr KB BMB
   9 .ftr KX BMBI
  10 .ftr CW CR
  11 .ftr CO CI
  12 .ftr CX CBI
  13 .ftr H HR
  14 .ftr HO HI
  15 .ftr HX HBI
  16 .ftr Hr HNR
  17 .ftr Hi HNI
  18 .ftr Hb HNB
  19 .ftr Hx HNBI
  20 .ftr NX NBI
  21 .ftr PA PR
  22 .ftr PX PBI
  23 .ftr ZI ZCMI
  24 .ftr C CR
  25 .cflags 8 \(an
  26 .char \[radicalex] \h'-\w'\(sr'u'\[radicalex]\h'\w'\(sr'u'
  27 .char \(mo \h'.08m'\(mo\h'-.08m'
  28 .char \(nm \h'.08m'\(nm\h'-.08m'
  29 .char \[parenlefttp] \[parenlefttp]\h'.016m'
  30 .char \[parenleftbt] \[parenleftbt]\h'.016m'
  31 .char \[parenleftex] \[parenleftex]\h'.016m'
  32 .char \[parenrighttp] \[parenrighttp]\h'.016m'
  33 .char \[parenrightbt] \[parenrightbt]\h'.016m'
  34 .char \[parenrightex] \[parenrightex]\h'.016m'
  35 .if !c\[va] .char \[va] \o'\[ua]\[da]'
  36 .if !c\[ci] \
  37 .char \[ci] \v'-.25m'\h'.05m'\D'c .5m'\h'.05m'\v'.25m'
  38 .if !c\[sq] \
  39 .char \[sq] \h'.05m'\D'l .5m 0'\D'l 0 -.5m'\D'l -.5m 0'\D'l 0 .5m'\h'.55m'
  40 .if !c\[ru] .char \[ru] \D'l .5m 0'
  41 .if !c\[ul] .char \[ul] \v'.25m'\D'l .5m 0'\v'-.25m'
  42 .if !c\[br] .char \[br] \Z'\v'.25m'\D'l 0 -1m''
  43 .if !c\[rn] .char \[rn] \v'-.75m'\D'l .5m 0'\v'.75m'
  44 .if !c\[or] .char \[or] \h'.1m'\Z'\D'l 0 -.675m''\h'.1m'
  45 .if !c\[Fi] .char \[Fi] ffi
  46 .if !c\[Fl] .char \[Fl] ffl
  47 .if !c\[ff] .char \[ff] ff
  48 .if !c\[ij] .char \[ij] ij
  49 .if !c\[IJ] .char \[IJ] IJ
  50 .if !c\[tm] .char \[tm] \s-3\v'-.3m'TM\v'+.3m'\s+3
  51 .\" pic tests this register to see whether it should use \X'ps:...'
  52 .nr 0p 1
  53 .cp \n(_C
  54 .if !\n(.C .mso pspic.tmac