tmac/tmac.ps

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