1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % Version 3.3.2 drawing procedures for dpost. Automatically pulled in when
 3 13f7391e 2004-05-15 devnull % needed.
 4 13f7391e 2004-05-15 devnull %
 5 13f7391e 2004-05-15 devnull 
 6 13f7391e 2004-05-15 devnull /inpath false def
 7 13f7391e 2004-05-15 devnull /savematrix matrix def
 8 13f7391e 2004-05-15 devnull 
 9 13f7391e 2004-05-15 devnull /Dl {
10 13f7391e 2004-05-15 devnull 	inpath
11 13f7391e 2004-05-15 devnull 		{neg lineto pop pop}
12 13f7391e 2004-05-15 devnull 		{newpath neg moveto neg lineto stroke}
13 13f7391e 2004-05-15 devnull 	ifelse
14 13f7391e 2004-05-15 devnull } bind def
15 13f7391e 2004-05-15 devnull 
16 13f7391e 2004-05-15 devnull /De {
17 13f7391e 2004-05-15 devnull 	/y1 exch 2 div def
18 13f7391e 2004-05-15 devnull 	/x1 exch 2 div def
19 13f7391e 2004-05-15 devnull 	/savematrix savematrix currentmatrix def
20 13f7391e 2004-05-15 devnull 	neg exch x1 add exch translate
21 13f7391e 2004-05-15 devnull 	x1 y1 scale
22 13f7391e 2004-05-15 devnull 	0 0 1 0 360
23 13f7391e 2004-05-15 devnull 	inpath
24 13f7391e 2004-05-15 devnull 		{1 0 moveto arc savematrix setmatrix}
25 13f7391e 2004-05-15 devnull 		{newpath arc savematrix setmatrix stroke}
26 13f7391e 2004-05-15 devnull 	ifelse
27 13f7391e 2004-05-15 devnull } bind def
28 13f7391e 2004-05-15 devnull 
29 13f7391e 2004-05-15 devnull /Da {
30 13f7391e 2004-05-15 devnull 	/dy2 exch def
31 13f7391e 2004-05-15 devnull 	/dx2 exch def
32 13f7391e 2004-05-15 devnull 	/dy1 exch def
33 13f7391e 2004-05-15 devnull 	/dx1 exch def
34 13f7391e 2004-05-15 devnull 	dy1 add neg exch dx1 add exch
35 13f7391e 2004-05-15 devnull 	dx1 dx1 mul dy1 dy1 mul add sqrt
36 13f7391e 2004-05-15 devnull 	dy1 dx1 neg atan
37 13f7391e 2004-05-15 devnull 	dy2 neg dx2 atan
38 13f7391e 2004-05-15 devnull 	inpath
39 13f7391e 2004-05-15 devnull 		{arc}
40 13f7391e 2004-05-15 devnull 		{newpath arc stroke}
41 13f7391e 2004-05-15 devnull 	ifelse
42 13f7391e 2004-05-15 devnull } bind def
43 13f7391e 2004-05-15 devnull 
44 13f7391e 2004-05-15 devnull /DA {
45 13f7391e 2004-05-15 devnull 	/dy2 exch def
46 13f7391e 2004-05-15 devnull 	/dx2 exch def
47 13f7391e 2004-05-15 devnull 	/dy1 exch def
48 13f7391e 2004-05-15 devnull 	/dx1 exch def
49 13f7391e 2004-05-15 devnull 	dy1 add neg exch dx1 add exch
50 13f7391e 2004-05-15 devnull 	dx1 dx1 mul dy1 dy1 mul add sqrt
51 13f7391e 2004-05-15 devnull 	dy1 dx1 neg atan
52 13f7391e 2004-05-15 devnull 	dy2 neg dx2 atan
53 13f7391e 2004-05-15 devnull 	inpath
54 13f7391e 2004-05-15 devnull 		{arcn}
55 13f7391e 2004-05-15 devnull 		{newpath arcn stroke}
56 13f7391e 2004-05-15 devnull 	ifelse
57 13f7391e 2004-05-15 devnull } bind def
58 13f7391e 2004-05-15 devnull 
59 13f7391e 2004-05-15 devnull /Ds {
60 13f7391e 2004-05-15 devnull 	/y2 exch def
61 13f7391e 2004-05-15 devnull 	/x2 exch def
62 13f7391e 2004-05-15 devnull 	/y1 exch def
63 13f7391e 2004-05-15 devnull 	/x1 exch def
64 13f7391e 2004-05-15 devnull 	/y0 exch def
65 13f7391e 2004-05-15 devnull 	/x0 exch def
66 13f7391e 2004-05-15 devnull 	x0 5 x1 mul add 6 div
67 13f7391e 2004-05-15 devnull 	y0 5 y1 mul add -6 div
68 13f7391e 2004-05-15 devnull 	x2 5 x1 mul add 6 div
69 13f7391e 2004-05-15 devnull 	y2 5 y1 mul add -6 div
70 13f7391e 2004-05-15 devnull 	x1 x2 add 2 div
71 13f7391e 2004-05-15 devnull 	y1 y2 add -2 div
72 13f7391e 2004-05-15 devnull 	inpath
73 13f7391e 2004-05-15 devnull 		{curveto}
74 13f7391e 2004-05-15 devnull 		{newpath x0 x1 add 2 div y0 y1 add -2 div moveto curveto stroke}
75 13f7391e 2004-05-15 devnull 	ifelse
76 13f7391e 2004-05-15 devnull } bind def