Master/texmf-dist/dvips/gastex/gastex.pro


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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163

%!
TeXDict begin
/!BP{ 72 72.27 div dup scale } def /!smartarct { /!r exch def /!y2
exch def /!x2 exch def /!y1 exch def /!x1 exch def currentpoint /!y0
exch def /!x0 exch def /!d0 !y0 !y1 sub dup mul !x0 !x1 sub dup mul
add sqrt def /!d2 !y2 !y1 sub dup mul !x2 !x1 sub dup mul add sqrt
def !d0 !d2 add 0 gt { !d0 !d2 le { /!xp !x1 !x2 !x1 sub !d0 mul !d2
div add def /!yp !y1 !y2 !y1 sub !d0 mul !d2 div add def /!d !yp !y0
sub dup mul !xp !x0 sub dup mul add sqrt 2 div def } { /!xp !x1 !x0
!x1 sub !d2 mul !d0 div add def /!yp !y1 !y0 !y1 sub !d2 mul !d0 div
add def /!d !yp !y2 sub dup mul !xp !x2 sub dup mul add sqrt 2 div
def } ifelse } { /!d 0 def } ifelse !d !r lt { /!r !d def } if !x1
!y1 !x2 !y2 !r arct } def /!psarrow { gsave [] 0 setdash 2 copy translate
3 -1 roll sub neg /!y exch def sub /!x exch def !x 0 eq !y 0 eq and
{/!x 1 def} if !y !x atan rotate /L2 exch def /L1 exch def /ang exch
def /dist exch def /nb exch def 1 1 nb { pop L2 0 eq { newpath L1 ang
cos mul L1 ang sin mul 2 copy moveto 0 0 lineto neg lineto stroke }
{ newpath 0 0 moveto L1 ang cos mul L1 ang sin mul 2 copy lineto L2
0 lineto neg lineto closepath fill } ifelse dist 0 translate } for
grestore } def /!psvect { /y exch def /x exch def newpath 0 0 moveto
x y lineto stroke 0 0 x y !psarrow x y 0 0 !psarrow } def /!pslines
{ /ra exch def /n exch def /yn exch def /xn exch def /yn_1 exch def
/xn_1 exch def /x xn def /y yn def /xx xn_1 def /yy yn_1 def newpath
xn yn moveto 3 1 n { pop /x xx def /y yy def /yy exch def /xx exch
def x y xx yy ra !smartarct } for xx yy lineto stroke xn_1 yn_1 xn
yn !psarrow x y xx yy !psarrow } def /!psrectpath { /y1 exch def /x1
exch def /y0 exch def /x0 exch def newpath x0 y0 moveto x1 y0 lineto
x1 y1 lineto x0 y1 lineto closepath } def /!pscirclepath { newpath
0 360 arc closepath } def /!psovalpath { /rmax exch dup 0.1 le { pop
0.1 } if def /H exch 2 div dup 0.1 le { pop 0.1 } if def /W exch 2
div dup 0.1 le { pop 0.1 } if def /y exch def /x exch def H W le {
/R H def }{ /R W def } ifelse rmax R le { /R rmax def } if newpath
x y H add moveto x W add y H add x W add y R arct x W add y H sub x
y H sub R arct x W sub y H sub x W sub y R arct x W sub y H add x y
H add R arct closepath } def /!pspolygonpath { /ra exch def /n exch
def dup n 2 mul 1 add 1 roll 1 index n 2 mul 2 add 1 roll n 2 mul 1
sub index n 2 mul 1 sub index /yy exch def /xx exch def /y exch def
/x exch def newpath xx x add 2 div yy y add 2 div moveto 1 1 n { pop
/yy exch def /xx exch def x y x xx add 2 div y yy add 2 div ra !smartarct
/x xx def /y yy def } for closepath } def /!psrpolygonpath { /rd exch
def /ra exch def /a exch def /r exch def /n exch def /y exch def /x
exch def /b 360 n div def /c b def x y translate a rotate rd 0 ne {
r rd b 2 div cos div sub r div dup scale } if /x1 r b cos mul def /y1
r b sin mul def newpath r x1 add 2 div y1 2 div moveto 1 1 n { pop
/c c b add def /x2 r c cos mul def /y2 r c sin mul def x1 y1 x1 x2
add 2 div y1 y2 add 2 div ra !smartarct /x1 x2 def /y1 y2 def } for
closepath rd 0 ne { r r rd b 2 div cos div sub div dup scale } if a
neg rotate x neg y neg translate } def /!psccurvepath { /n exch def
n 2 mul 1 sub index n 2 mul 1 sub index n 2 mul 1 sub index n 2 mul
1 sub index n 2 mul 4 add array astore /coef exch def /alpha 3.5 def
/px0 coef n 2 mul 2 sub get def /py0 coef n 2 mul 1 sub get def /px1
coef 0 get def /py1 coef 1 get def /px2 coef 2 get def /py2 coef 3
get def /d0 px1 px0 sub dup mul py1 py0 sub dup mul add sqrt def /d2
px1 px2 sub dup mul py1 py2 sub dup mul add sqrt def /ppx d2 d0 div
px0 px1 sub mul px1 add def /ppy d2 d0 div py0 py1 sub mul py1 add
def /d1 ppx px2 sub dup mul ppy py2 sub dup mul add sqrt def /qx d2
d1 div px2 ppx sub mul alpha div px1 add def /qy d2 d1 div py2 ppy
sub mul alpha div py1 add def newpath px1 py1 moveto 4 2 n 2 mul 2
add { /i exch def /px0 px1 def /px1 px2 def /px2 coef i get def /py0
py1 def /py1 py2 def /py2 coef i 1 add get def /d0 d2 def /d2 px1 px2
sub dup mul py1 py2 sub dup mul add sqrt def /ppx d0 d2 div px2 px1
sub mul px1 add def /ppy d0 d2 div py2 py1 sub mul py1 add def /d1
ppx px0 sub dup mul ppy py0 sub dup mul add sqrt def /rx d0 d1 div
px0 ppx sub mul alpha div px1 add def /ry d0 d1 div py0 ppy sub mul
alpha div py1 add def qx qy rx ry px1 py1 curveto /ppx d2 d0 div px0
px1 sub mul px1 add def /ppy d2 d0 div py0 py1 sub mul py1 add def
/d1 ppx px2 sub dup mul ppy py2 sub dup mul add sqrt def /qx d2 d1
div px2 ppx sub mul alpha div px1 add def /qy d2 d1 div py2 ppy sub
mul alpha div py1 add def } for closepath } def /!pscurve { /n exch
def n 2 mul array astore /coef exch def /alpha 3.5 def /px1 coef 0
get def /py1 coef 1 get def /px2 coef 2 get def /py2 coef 3 get def
/d2 px1 px2 sub dup mul py1 py2 sub dup mul add sqrt def /qx px1 def
/qy py1 def newpath px1 py1 moveto 4 2 n 2 mul 2 sub { /i exch def
/px0 px1 def /px1 px2 def /px2 coef i get def /py0 py1 def /py1 py2
def /py2 coef i 1 add get def /d0 d2 def /d2 px1 px2 sub dup mul py1
py2 sub dup mul add sqrt def /ppx d0 d2 div px2 px1 sub mul px1 add
def /ppy d0 d2 div py2 py1 sub mul py1 add def /d1 ppx px0 sub dup
mul ppy py0 sub dup mul add sqrt def /rx d0 d1 div px0 ppx sub mul
alpha div px1 add def /ry d0 d1 div py0 ppy sub mul alpha div py1 add
def qx qy rx ry px1 py1 curveto /ppx d2 d0 div px0 px1 sub mul px1
add def /ppy d2 d0 div py0 py1 sub mul py1 add def /d1 ppx px2 sub
dup mul ppy py2 sub dup mul add sqrt def /qx d2 d1 div px2 ppx sub
mul alpha div px1 add def /qy d2 d1 div py2 ppy sub mul alpha div py1
add def } for /px1 coef n 2 mul 2 sub get def /py1 coef n 2 mul 1 sub
get def /rx px1 def /ry py1 def qx qy rx ry px1 py1 curveto stroke
/px0 coef n 2 mul 6 sub get def /py0 coef n 2 mul 5 sub get def /px1
coef n 2 mul 4 sub get def /py1 coef n 2 mul 3 sub get def /px2 coef
n 2 mul 2 sub get def /py2 coef n 2 mul 1 sub get def /d0 px1 px0 sub
dup mul py1 py0 sub dup mul add sqrt def /d2 px1 px2 sub dup mul py1
py2 sub dup mul add sqrt def /ppx d2 d0 div px0 px1 sub mul px1 add
def /ppy d2 d0 div py0 py1 sub mul py1 add def /d1 ppx px2 sub dup
mul ppy py2 sub dup mul add sqrt def /qx d2 d1 div px2 ppx sub mul
alpha div px1 add def /qy d2 d1 div py2 ppy sub mul alpha div py1 add
def px1 py1 qx qy px2 py2 px2 py2 !ps_cbezier_arrow /px0 coef 0 get
def /py0 coef 1 get def /px1 coef 2 get def /py1 coef 3 get def /px2
coef 4 get def /py2 coef 5 get def /d0 px1 px0 sub dup mul py1 py0
sub dup mul add sqrt def /d2 px1 px2 sub dup mul py1 py2 sub dup mul
add sqrt def /ppx d0 d2 div px2 px1 sub mul px1 add def /ppy d0 d2
div py2 py1 sub mul py1 add def /d1 ppx px0 sub dup mul ppy py0 sub
dup mul add sqrt def /rx d0 d1 div px0 ppx sub mul alpha div px1 add
def /ry d0 d1 div py0 ppy sub mul alpha div py1 add def px1 py1 rx
ry px0 py0 px0 py0 !ps_cbezier_arrow } def /!ps_cbezier { /y3 exch
def /x3 exch def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
/y0 exch def /x0 exch def newpath x0 y0 moveto x1 y1 x2 y2 x3 y3 curveto
stroke x0 y0 x1 y1 x2 y2 x3 y3 !ps_cbezier_arrow x3 y3 x2 y2 x1 y1
x0 y0 !ps_cbezier_arrow } def /!ps_cbezier_arrow { gsave [] 0 setdash
/y3 exch def /x3 exch def /y2 exch def /x2 exch def /y1 exch def /x1
exch def /y0 exch def /x0 exch def /xa x1 x2 sub 3 mul x3 x0 sub add
def /xb x0 x1 sub x1 sub x2 add 3 mul def /xc x1 x0 sub 3 mul def /ya
y1 y2 sub 3 mul y3 y0 sub add def /yb y0 y1 sub y1 sub y2 add 3 mul
def /yc y1 y0 sub 3 mul def /L2 exch def /L1 exch def /ang exch def
/dist exch def /nb exch def L2 0 le { /L L1 ang cos mul 2 div def }
{ /L L2 def } ifelse /t4 1 def 1 1 nb { pop /x4 t4 !calculx def /y4
t4 !calculy def L 0 le { /dx t4 !calculdx def /dy t4 !calculdy def
dx dup mul dy dup mul add sqrt dup 0 eq { /dx 1 def /dy 0 def pop 1
} if L1 exch div dup dx neg mul /xx exch def dy neg mul /yy exch def
} { /t1 0 def /t2 t4 def 0 1 !max { pop /t t1 t2 add 2 div def t !calculx
x4 sub dup mul t !calculy y4 sub dup mul add sqrt L ge { /t1 t def
} { /t2 t def } ifelse } for /x6 t !calculx def /y6 t !calculy def
L1 L div dup x6 x4 sub mul /xx exch def y6 y4 sub mul /yy exch def
} ifelse /x5 x4 xx ang cos mul add yy ang sin mul sub def /y5 y4 xx
ang sin mul add yy ang cos mul add def /x7 x4 xx ang cos mul add yy
ang sin mul add def /y7 y4 xx ang sin mul sub yy ang cos mul add def
L2 0 le { newpath x5 y5 moveto x4 y4 lineto x7 y7 lineto stroke } {
newpath x4 y4 moveto x5 y5 lineto x6 y6 lineto x7 y7 lineto closepath
fill } ifelse /t1 0 def /t2 t4 def 0 1 !max { pop /t t1 t2 add 2 div
def t !calculx x4 sub dup mul t !calculy y4 sub dup mul add sqrt dist
ge { /t1 t def } { /t2 t def } ifelse } for /t4 t def } for grestore
} def /!ps_qbezier { /y3 exch def /x3 exch def /yy exch def /xx exch
def /y0 exch def /x0 exch def /x1 xx 2 mul x0 add 3 div def /y1 yy
2 mul y0 add 3 div def /x2 xx 2 mul x3 add 3 div def /y2 yy 2 mul y3
add 3 div def x0 y0 x1 y1 x2 y2 x3 y3 !ps_cbezier } def /!max 10 def
/!ps_r_cbezier { /y3 exch def /x3 exch def /y2 exch def /x2 exch def
/y1 exch def /x1 exch def /y0 exch def /x0 exch def /xa x1 x2 sub 3
mul x3 x0 sub add def /xb x0 x1 sub x1 sub x2 add 3 mul def /xc x1
x0 sub 3 mul def /ya y1 y2 sub 3 mul y3 y0 sub add def /yb y0 y1 sub
y1 sub y2 add 3 mul def /yc y1 y0 sub 3 mul def /t1 0 def /t2 1 def
0 1 !max { pop /t t1 t2 add 2 div def t !calculx t !calculy path!a
inufill { /t1 t def } { /t2 t def } ifelse } for /ta t def /t1 0 def
/t2 1 def 0 1 !max { pop /t t1 t2 add 2 div def t !calculx t !calculy
path!b inufill { /t2 t def } { /t1 t def } ifelse } for /tb t def ta
!calculx ta !calculy ta !calculdx 3 div tb ta sub mul ta !calculx add
ta !calculdy 3 div tb ta sub mul ta !calculy add tb !calculdx 3 div
ta tb sub mul tb !calculx add tb !calculdy 3 div ta tb sub mul tb !calculy
add tb !calculx tb !calculy !ps_cbezier } def /!calculx { dup dup xa
mul xb add mul xc add mul x0 add } def /!calculy { dup dup ya mul yb
add mul yc add mul y0 add } def /!calculdx { dup 3 xa mul mul 2 xb
mul add mul xc add } def /!calculdy { dup 3 ya mul mul 2 yb mul add
mul yc add } def /!node_mark { /ma exch def /ml exch def /y exch def
/x exch def /x1 x def /y1 y def /x2 x 500 ma cos mul add def /y2 y
500 ma sin mul add def 0 1 !max { pop /x x1 x2 add 2 div def /y y1
y2 add 2 div def x y path!a inufill { /x1 x def /y1 y def } { /x2 x
def /y2 y def } ifelse } for /x1 x def /y1 y def /x2 x ml ma cos mul
add def /y2 y ml ma sin mul add def newpath x1 y1 moveto x2 y2 lineto
stroke x2 y2 x1 y1 !psarrow x1 y1 x2 y2 !psarrow } def /!sign {dup
0 lt {pop -1} {0 eq {0} {1} ifelse} ifelse} def /!pslatexline { /L
exch def /b exch def /a exch def a 0 eq {0 L b !sign mul} {L a !sign
mul dup b mul a div} ifelse newpath 0 0 moveto lineto stroke } def
/!pslatexvector { /L exch def /b exch def /a exch def a 0 eq {0 L b
!sign mul} {L a !sign mul dup b mul a div} ifelse !psvect } def /!pscircle
{ 2 div newpath 0 0 3 2 roll 0 360 arc stroke } def /!psdisk { 2 div
newpath 0 0 3 2 roll 0 360 arc fill } def
end