diff options
author | wlemb <wlemb> | 2000-10-26 14:15:06 +0000 |
---|---|---|
committer | wlemb <wlemb> | 2000-10-26 14:15:06 +0000 |
commit | d512a69b13065fea8dfe89fdebc4dfdafb5e6941 (patch) | |
tree | ccd62cd31b27a59da67a4b239917be9ef82ceb4a /tmac/psfig.tmac | |
parent | 7cdd47b59da0d60d0ef9be3e750a486b1c741511 (diff) | |
download | groff-d512a69b13065fea8dfe89fdebc4dfdafb5e6941.tar.gz |
Convert macros `tmac.XXX' to `XXX.tmac'. Special cases:
tmac.doc.old -> doc-old.tmac
tmac.an.old -> an-old.tmac
* tmac/tmac.*: Moved to ...
* tmac/*.tmac: this.
* tmac/man.local: Fix comment.
* tmac/groff_man.man, tmac/groff_markup.man, tmac/groff_mdoc.man,
tmac/groff_me.man, tmac/groff_ms.man, tmac/groff_tmac.man: Updated.
Added some `FILES' sections. More use of @...@ directives. Other
minor updates.
* arch/djgpp/README, font/devutf8/NOTES: Updated.
* doc/homepage.ms, doc/groff.texinfo: Updated.
* man/groff.man, man/roff.man: Updated.
* src/devices/grodvi/grodvi.man, src/devices/grolbp/grolbp.man,
src/devices/grolj4/grolj4.man, src/devices/grops/grops.man,
src/devices/grotty/grotty.man: Updated.
* src/preproc/pic/pic.man: Updated.
* src/roff/grog/grog.pl, src/roff/grog/grog.sh: Use -mdoc-old
instead of -mdoc.old.
* src/roff/grog/grog.man: Document -mdoc and -mdoc-old.
* src/roff/nroff/nroff.man: Updated.
* NEWS: Updated.
* tmac/fixmacros.sed, tmac/strip.sed: Add explanatory comment.
* tmac/mm.diff: Removed -- it has no use now since the mm package
is part of groff.
* tmac/*: Removed trailing spaces.
* arch/djgpp/t-groff.bat: Fix GROFF_TMAC_PATH (hyphen.us is now in
the tmac subdirectory also).
Diffstat (limited to 'tmac/psfig.tmac')
-rw-r--r-- | tmac/psfig.tmac | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/tmac/psfig.tmac b/tmac/psfig.tmac new file mode 100644 index 00000000..f9668227 --- /dev/null +++ b/tmac/psfig.tmac @@ -0,0 +1,89 @@ +.\" psfig.tmac +.\" +.\" These are macros to make psfig work with groff. +.\" They require that psfig be patched as described in ../grops/psfig.diff. +.de psfig-defs +ps: mdef 100 + +% wid ht llx lly urx ury psfigstart - + +/psfigstart { + /level1 save def + /ury exch def + /urx exch def + /lly exch def + /llx exch def + /ht exch u def + /wid exch u def + currentpoint ht add translate + wid urx llx sub div ht ury lly sub div neg scale + llx neg lly neg translate + + % set the graphics state to default values + 0 setgray + 0 setlinecap + 1 setlinewidth + 0 setlinejoin + 10 setmiterlimit + [] 0 setdash + newpath + /showpage {} def +} bind def + +% psfigclip - + +/psfigclip { + currentpoint newpath + llx lly moveto + urx lly lineto + urx ury lineto + llx ury lineto + closepath clip + newpath moveto +} bind def + +% psfigend - + +/psfigend { + level1 restore +} bind def + +% globalstart - + +/globalstart { + % save the current space code on the stack + SC + level0 restore +} bind def + +% globalend - + +/globalend { + end + BP + /SC exch def + DEFS begin +} bind def +.. +.de psfig-init +.if \\n[.P] \{\ +\Y[psfig-defs] +. br +. sp -1 +. ds psfig-init\" empty +. rm psfig-defs +.\} +.. +.de F+ +.br +.psfig-init +.nr psfig-fill \\n[.u] +.nf +.sp -.5 +.if !\\n[.$] .ce 9999 +.. +.de F- +.br +.ce 0 +.if \\n[psfig-fill] .fi +.. |