contrib/groff/tmac/pspic.tmac

   1 .\" pspic.tmac
   2 .\"
   3 .\" Define the PSPIC macro.
   4 .\"
   5 .\" When used other than with -Tps, -Tdvi, or -Thtml it will draw a box
   6 .\" around where the picture would go.
   7 .
   8 .de PSPIC
   9 .  nr ps-offset-mode 0
  10 .  ie '\\$1'-L' \{\
  11 .    nr ps-offset-mode 1
  12 .    shift
  13 .    HTML-DO-IMAGE \\$1 l
  14 .  \}
  15 .  el \{\
  16 .    ie '\\$1'-R' \{\
  17 .      nr ps-offset-mode 2
  18 .      shift
  19 .      HTML-DO-IMAGE \\$1 r
  20 .    \}
  21 .    el \{\
  22 .      ie '\\$1'-I' \{\
  23 .        nr ps-offset-mode 3
  24 .        nr ps-offset (m;\\$2)
  25 .        shift 2
  26 .        HTML-DO-IMAGE \\$1 i
  27 .      \}
  28 .      el \
  29 .        HTML-DO-IMAGE \\$1 c
  30 .    \}
  31 .  \}
  32 .
  33 .  br
  34 .
  35 .  psbb \\$1
  36 .  if (\\n[llx] : \\n[lly] : \\n[urx] : \\n[ury]) \{\
  37 .    nr ps-wid (\\n[urx] - \\n[llx])
  38 .    nr ps-ht (\\n[ury] - \\n[lly])
  39 .    if (\\n[ps-wid] < 0) \
  40 .      nr ps-wid (-\\n[ps-wid])
  41 .    if (\\n[ps-ht] < 0) \
  42 .      nr ps-ht (-\\n[ps-ht])
  43 .    ie (\\n[.$] >= 2) \
  44 .      nr ps-deswid (i;\\$2)
  45 .    el \
  46 .      nr ps-deswid ((\\n[.l] - \\n[.i]) <? \\n[ps-wid]p)
  47 .    nr ps-desht (\\n[ps-deswid] * 1000 + (\\n[ps-wid] / 2) \
  48                   / \\n[ps-wid] * \\n[ps-ht] \
  49                   + 500 / 1000)
  50 .    if ((\\n[.$] >= 3) & (\\n[ps-desht] > (i;0\\$3))) \{\
  51 .      nr ps-desht (i;\\$3)
  52 .      nr ps-deswid (\\n[ps-desht] * 1000 + (\\n[ps-ht] / 2) \
  53                      / \\n[ps-ht] * \\n[ps-wid] \
  54                      + 500 / 1000)
  55 .    \}
  56 .
  57 .    ne (\\n[ps-desht]u + 1v)
  58 .
  59 .    if (\\n[ps-offset-mode] == 0) \
  60 .      nr ps-offset (\\n[.l] - \\n[.i] - \\n[ps-deswid] / 2)
  61 .    if (\\n[ps-offset-mode] == 1) \
  62 .      nr ps-offset 0
  63 .    if (\\n[ps-offset-mode] == 2) \
  64 .      nr ps-offset (\\n[.l] - \\n[.i] - \\n[ps-deswid])
  65 .
  66 .    ie '\*[.T]'dvi' \{\
  67 .      ie (\\n[ps-wid]p == \\n[ps-deswid]) \{\
  68 .        ds ps-scale \" empty
  69 .        ds ps-hoffset hoffset=-\\n[llx]
  70 .        ds ps-voffset voffset=-\\n[lly]
  71 .      \}
  72 .      el \{\
  73 .        nr ps-scale (\\n[ps-deswid] * 100 / \\n[ps-wid]p)
  74 .        nr ps-hoffset (-\\n[llx] * \\n[ps-scale] / 100)
  75 .        nr ps-voffset (-\\n[lly] * \\n[ps-scale] / 100)
  76 .        ds ps-scale hscale=\\n[ps-scale] vscale=\\n[ps-scale]
  77 .        ds ps-hoffset hoffset=\\n[ps-hoffset]
  78 .        ds ps-voffset voffset=\\n[ps-voffset]
  79 .      \}
  80 .
  81 \h'\\n[ps-offset]u'\
  82 \v'\\n[ps-desht]u'\
  83 \X'psfile=\\$1 \\*[ps-hoffset] \\*[ps-voffset] \\*[ps-scale]'
  84 .    \}
  85 .    el \{\
  86 .      ie (\\n[.$] >= 3) \
  87 .        ds ps-desht \\n[ps-desht]
  88 .      el \
  89 .        ds ps-desht \" empty
  90 .
  91 \h'\\n[ps-offset]u'\
  92 \X'ps: invis'\
  93 \Z'\D'p 0 \\n[ps-desht]u \\n[ps-deswid]u 0 0 -\\n[ps-desht]u''\
  94 \X'ps: endinvis'\
  95 \v'\\n[ps-desht]u'\
  96 \X'ps: import \
  97        \\$1 \\n[llx] \\n[lly] \\n[urx] \\n[ury] \\n[ps-deswid] \\*[ps-desht]'
  98 .    \}
  99 .
 100 .    br
 101 .    sp \\n[ps-desht]u
 102 .  \}
 103 .  HTML-IMAGE-END
 104 ..
 105 .
 106 .\" end of pspic.tmac