contrib/groff-1.19/tmac/psfig.tmac

   1 .\" psfig.tmac
   2 .\"
   3 .\" These are macros to make psfig work with groff.
   4 .\" They require that psfig be patched as described in ../grops/psfig.diff.
   5 .de psfig-defs
   6 ps: mdef 100
   7
   8 % wid ht llx lly urx ury psfigstart -
   9
  10 /psfigstart {
  11         /level1 save def
  12         /ury exch def
  13         /urx exch def
  14         /lly exch def
  15         /llx exch def
  16         /ht exch u def
  17         /wid exch u def
  18         currentpoint ht add translate
  19         wid urx llx sub div ht ury lly sub div neg scale
  20         llx neg lly neg translate
  21
  22         % set the graphics state to default values
  23         0 setgray
  24         0 setlinecap
  25         1 setlinewidth
  26         0 setlinejoin
  27         10 setmiterlimit
  28         [] 0 setdash
  29         newpath
  30         /showpage {} def
  31 } bind def
  32
  33 % psfigclip -
  34
  35 /psfigclip {
  36         currentpoint newpath
  37         llx lly moveto
  38         urx lly lineto
  39         urx ury lineto
  40         llx ury lineto
  41         closepath clip
  42         newpath moveto
  43 } bind def
  44
  45 % psfigend -
  46
  47 /psfigend {
  48         level1 restore
  49 } bind def
  50
  51 % globalstart -
  52
  53 /globalstart {
  54         % save the current space code on the stack
  55         SC
  56         level0 restore
  57 } bind def
  58
  59 % globalend -
  60
  61 /globalend {
  62         end
  63         BP
  64         /SC exch def
  65         DEFS begin
  66 } bind def
  67 ..
  68 .de psfig-init
  69 .if \\n[.P] \{\
  70 \Y[psfig-defs]
  71 .       br
  72 .       sp -1
  73 .       ds psfig-init\" empty
  74 .       rm psfig-defs
  75 .\}
  76 ..
  77 .de F+
  78 .br
  79 .psfig-init
  80 .nr psfig-fill \\n[.u]
  81 .nf
  82 .sp -.5
  83 .if !\\n[.$] .ce 9999
  84 ..
  85 .de F-
  86 .br
  87 .ce 0
  88 .if \\n[psfig-fill] .fi
  89 ..