blob: 5f4111ce6a161ed46446af583c9a3aa19cc830c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
.\" 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
..
|
