109 lines
1.7 KiB
Text
109 lines
1.7 KiB
Text
.\" Define macros to support use of Trevor Darnell's "psfig",
|
|
.\" distributed in volume 11 of comp.unix.sources, and not to be
|
|
.\" confused with the unrelated TeX macro package "psfig" available at
|
|
.\" CTAN. (Neither is Free Software.)
|
|
.\"
|
|
.\" These macros require that psfig be patched as described in
|
|
.\" "src/devices/grops/psfig.diff".
|
|
.\"
|
|
.\" This file is likely to disappear in a future groff release.
|
|
.\"
|
|
.\" Use groff's `PSPIC` macro instead. See groff_tmac(5).
|
|
.
|
|
.do nr *groff_psfig_tmac_C \n[.cp]
|
|
.cp 0
|
|
.
|
|
.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 \\n[.R]
|
|
..
|
|
.de F-
|
|
.br
|
|
.ce 0
|
|
.if \\n[psfig-fill] .fi
|
|
..
|
|
.
|
|
.cp \n[*groff_psfig_tmac_C]
|
|
.do rr *groff_psfig_tmac_C
|
|
.
|
|
.\" Local Variables:
|
|
.\" mode: nroff
|
|
.\" fill-column: 72
|
|
.\" End:
|
|
.\" vim: set filetype=groff textwidth=72:
|