NetBSD/gnu/usr.bin/groff/tmac/tmac.psfig

88 lines
1.2 KiB
Plaintext

.\" 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
..