/contrib/groff/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
 6ps: 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..