tmac/tmac.ps

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