2 13f7391e 2004-05-15 devnull % Version 3.3.2 drawing procedures for dpost. Automatically pulled in when
6 13f7391e 2004-05-15 devnull /inpath false def
7 13f7391e 2004-05-15 devnull /savematrix matrix def
11 13f7391e 2004-05-15 devnull {neg lineto pop pop}
12 13f7391e 2004-05-15 devnull {newpath neg moveto neg lineto stroke}
14 13f7391e 2004-05-15 devnull } bind def
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
24 13f7391e 2004-05-15 devnull {1 0 moveto arc savematrix setmatrix}
25 13f7391e 2004-05-15 devnull {newpath arc savematrix setmatrix stroke}
27 13f7391e 2004-05-15 devnull } bind def
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
40 13f7391e 2004-05-15 devnull {newpath arc stroke}
42 13f7391e 2004-05-15 devnull } bind def
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
55 13f7391e 2004-05-15 devnull {newpath arcn stroke}
57 13f7391e 2004-05-15 devnull } bind def
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
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}
76 13f7391e 2004-05-15 devnull } bind def