tmac/tmac.ps

   1 .\" A package for PostScript-specific requests (deprecated; use -mpost)
   2 .\"
   3 .\" Including EPS files
   4 .so \n(.D/tmac.eps
   5 .de ps.eps
   6 .       EPS \\$^
   7 ..
   8 .\" pdfmark document information
   9 .\"
  10 .\" .ps.info title [author] [subject] [keywords]
  11 .de ps.info
  12 .       br
  13 .       ds ps._info "[
  14 .       if !'\\$1'' .as ps._info " /Title (\\$1)
  15 .       if !'\\$2'' .as ps._info " /Author (\\$2)
  16 .       if !'\\$3'' .as ps._info " /Subject (\\$3)
  17 .       if !'\\$4'' .as ps._info " /Keywords (\\$4)
  18 .       dv ps \\*[ps._info] /Creator (Neatroff) /DOCINFO pdfmark
  19 ..
  20 .\" pdfmark bookmarks
  21 .\"
  22 .\" .ps.mark title [page] [count]
  23 .de ps.mark
  24 .       br
  25 .       ds ps._mark "[ /Title (\\$1)
  26 .       nr ps._vpos \\n(.p-\\n(nl/1p
  27 .       ie !'\\$2'' .as ps._mark " /Page \\$2
  28 .       el .as ps._mark " /View [/XYZ null \\n[ps._vpos] null]
  29 .       if !'\\$3'' .as ps._mark " /Count \\$3
  30 .       dv ps \\*[ps._mark] /OUT pdfmark
  31 ..
  32 .\" pdfmark named destintion
  33 .\"
  34 .\" .ps.name name [page]
  35 .de ps.name
  36 .       br
  37 .       ds ps._mark "[ /Dest /\\$1
  38 .       nr ps._vpos \\n(.p-\\n(nl/1p
  39 .       ie !'\\$2'' .as ps._mark " /Page \\$2
  40 .       el .as ps._mark " /View [/XYZ null \\n[ps._vpos] null]
  41 .       dv ps \\*[ps._mark] /DEST pdfmark
  42 ..
  43 .\" pdfmark link: The destination can be a URL, a page number,
  44 .\" or an internal named reference (defined with .ps.name).  For
  45 .\" named references, the name of the reference should be
  46 .\" prefixed with '#'.
  47 .\"
  48 .\" .ps.link destination width height
  49 .de ps.link
  50 .       nr ps._linkh \\$2
  51 .       nr ps._linkv \\$3
  52 \X'link "\\$1" \\n[ps._linkh] -\\n[ps._linkv]'
  53 ..
  54 .\" Inline URL: See the comments about the destination of .ps.link.
  55 .\"
  56 .\" \*[ps.url destination text]
  57 .de ps.url
  58 \R'ps._linkh \\w'\\?'\\n(.$>1@\\$2@\\$1'''\
  59 \R'ps._linkv \\n(.sp'\
  60 \v'+\\n(.sp*2u/10u'\X'link "\\$1" \\n[ps._linkh] -\\n[ps._linkv]'\v'-\\n(.sp*2u/10u'\
  61 \\?'\\n(.$>1@\\$2@\\$1'
  62 ..
  63 .chop ps.url