1 % `special' commands for version 1.53 of graphs.sty. Frank Drewes, 19.12.2000
5 #1 \number\unitlength\ps@s mul 65536 div 72.27 div 72 mul
8 %-----------------------------------------------------------------------------%
11 \def\ps@rectangle[#1,#2]{% width, height
12 \special{" \ps@convertnum{#1}
14 [ \g@ncolour\ps@s\g@ncolourmod ]\ps@s
15 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
16 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
18 \iffillednodes true \else false\fi\ps@s
21 %-----------------------------------------------------------------------------%
23 \def\ps@circle[#1]{% diameter
24 \special{" \ps@convertnum{#1}
25 [ \g@ncolour\ps@s\g@ncolourmod ]\ps@s
26 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
27 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
29 \iffillednodes true \else false\fi\ps@s
32 %-----------------------------------------------------------------------------%
34 \def\ps@line(#1,#2){% end x, end y
35 \special{" \ps@convertnum{#1}
37 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
38 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
42 %-----------------------------------------------------------------------------%
44 \def\ps@loopA(#1,#2)(#3,#4){% from (#1,#2) to (#3,#4)
45 \special{" \ps@convertnum{#1}
49 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
50 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
54 %-----------------------------------------------------------------------------%
56 \def\ps@loopB#1(#2,#3){% angle #1, axis (#2,#3)
61 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
62 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
66 %-----------------------------------------------------------------------------%
68 \def\ps@looparrowonrectangleA(#1,#2)(#3,#4)[#5,#6]{%
69 \special{" \ps@convertnum{#1}
75 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
76 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
78 \ps@convertnum{\g@alength}\g@alengthmod\ps@s
79 \g@awidth\ps@s\g@awidthmod\ps@s
81 pslooparrowonrectangle}}
83 %-----------------------------------------------------------------------------%
85 \def\ps@looparrowoncircleA(#1,#2)(#3,#4)[#5]{%
86 \special{" \ps@convertnum{#1}
91 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
92 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
94 \ps@convertnum{\g@alength}\g@alengthmod\ps@s
95 \g@awidth\ps@s\g@awidthmod\ps@s
99 %-----------------------------------------------------------------------------%
101 \def\ps@looparrowonrectangleB#1(#2,#3)[#4,#5]{%
108 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
109 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
111 \ps@convertnum{\g@alength}\g@alengthmod\ps@s
112 \g@awidth\ps@s\g@awidthmod\ps@s
114 pslooparrowonrectangle}}
116 %-----------------------------------------------------------------------------%
118 \def\ps@looparrowoncircleB#1(#2,#3)[#4]{%
124 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
125 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
127 \ps@convertnum{\g@alength}\g@alengthmod\ps@s
128 \g@awidth\ps@s\g@awidthmod\ps@s
130 pslooparrowoncircle}}
132 %-----------------------------------------------------------------------------%
134 \def\ps@deletebox(#1,#2){% width, height in scaled points
135 \special{" #1 65536 div
139 %-----------------------------------------------------------------------------%
141 \def\ps@arrowonrectangle(#1,#2) [#3,#4]{% x, y, width, height
142 \special{" \ps@convertnum{#1}
146 \ps@convertnum{\g@alength}\g@alengthmod\ps@s
147 \g@awidth\ps@s\g@awidthmod\ps@s
149 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
150 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
154 %-----------------------------------------------------------------------------%
156 \def\ps@arrowoncircle(#1,#2) [#3]{% x, y, diameter of circle
157 \special{" \ps@convertnum{#1}
160 \ps@convertnum{\g@alength}\g@alengthmod\ps@s
161 \g@awidth\ps@s\g@awidthmod\ps@s
163 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
164 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
168 %-----------------------------------------------------------------------------%
170 \def\ps@path(#1,#2)#3{% start coordinates, (xi,yi[,di]) ...
171 \def\extractvalues(##1)##2;{%
172 \ifx\endmarker##1\else%
173 \extractvalues##2;\extractvals(##1,0,)%
175 \def\extractvals(##1,##2,##3,##4){%
180 \special{" mark \extractvalues#3(\endmarker);
183 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
184 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
186 [ \g@fcolour\ps@s\g@fcolourmod ]\ps@s
187 \iffilledareas true \else false\fi\ps@s pspath}}
189 %-----------------------------------------------------------------------------%
191 \def\ps@curve#1#2{% base length, (x1,y1,ang1[factor1]) ...
192 \def\extractvalues(##1(##2;##3{%
193 \ifx\endmarker##1\else%
194 \extractvalues(##2;{##3}\extractvals(##1[##3,##3];%
196 \def\extractvals(##1,##2,##3)[##4,##5]##6;{%
203 \special{" mark \extractvalues#2(\endmarker(;{#1}
204 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
205 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
207 [ \g@fcolour\ps@s\g@fcolourmod ]\ps@s
208 \iffilledareas true \else false\fi\ps@s pscurve}}
210 %-----------------------------------------------------------------------------%
212 \def\ps@bubble#1#2{% length factor, (x1,y1) ...
213 \def\extractvalues(##1)##2;{%
214 \ifx\endmarker##1\else%
215 \extractvalues##2;\extractvals(##1)%
217 \def\extractvals(##1,##2){%
221 \special{" mark \extractvalues#2(\endmarker);
223 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
224 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
226 [ \g@fcolour\ps@s\g@fcolourmod ]\ps@s
227 \iffilledareas true \else false\fi\ps@s psbubble}}
229 %-----------------------------------------------------------------------------%
231 \def\ps@dirbowoncircle(#1,#2)(#3,#4,#5)[#6]{% (x1,x2) (y1,y2,d), radius
232 \special{" \ps@convertnum{#1}
238 \ps@convertnum{\g@alength}\g@alengthmod\ps@s
239 \g@awidth\ps@s\g@awidthmod\ps@s
241 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
242 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
246 %-----------------------------------------------------------------------------%
248 \def\ps@dirbowonrectangle(#1,#2)(#3,#4,#5)[#6,#7]{% (x1,x2) (y1,y2,d),
250 \special{" \ps@convertnum{#1}
257 \ps@convertnum{\g@alength}\g@alengthmod\ps@s
258 \g@awidth\ps@s\g@awidthmod\ps@s
260 \ps@convertnum{\g@lwidth}\g@lwidthmod\ps@s
261 [ \g@lcolour\ps@s\g@lcolourmod ]\ps@s
263 psdirbowonrectangle}}
265 %-----------------------------------------------------------------------------%