From d512a69b13065fea8dfe89fdebc4dfdafb5e6941 Mon Sep 17 00:00:00 2001
From: wlemb <wlemb>
Date: Thu, 26 Oct 2000 14:15:06 +0000
Subject: 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).
---
 tmac/psfig.tmac | 89 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 89 insertions(+)
 create mode 100644 tmac/psfig.tmac

(limited to 'tmac/psfig.tmac')

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
+..
-- 
cgit v1.2.1