| % | |
| % Version 3.3.2 drawing procedures for dpost. Automatically pulled in when | |
| % needed. | |
| % | |
| /inpath false def | |
| /savematrix matrix def | |
| /Dl { | |
| inpath | |
| {neg lineto pop pop} | |
| {newpath neg moveto neg lineto stroke} | |
| ifelse | |
| } bind def | |
| /De { | |
| /y1 exch 2 div def | |
| /x1 exch 2 div def | |
| /savematrix savematrix currentmatrix def | |
| neg exch x1 add exch translate | |
| x1 y1 scale | |
| 0 0 1 0 360 | |
| inpath | |
| {1 0 moveto arc savematrix setmatrix} | |
| {newpath arc savematrix setmatrix stroke} | |
| ifelse | |
| } bind def | |
| /Da { | |
| /dy2 exch def | |
| /dx2 exch def | |
| /dy1 exch def | |
| /dx1 exch def | |
| dy1 add neg exch dx1 add exch | |
| dx1 dx1 mul dy1 dy1 mul add sqrt | |
| dy1 dx1 neg atan | |
| dy2 neg dx2 atan | |
| inpath | |
| {arc} | |
| {newpath arc stroke} | |
| ifelse | |
| } bind def | |
| /DA { | |
| /dy2 exch def | |
| /dx2 exch def | |
| /dy1 exch def | |
| /dx1 exch def | |
| dy1 add neg exch dx1 add exch | |
| dx1 dx1 mul dy1 dy1 mul add sqrt | |
| dy1 dx1 neg atan | |
| dy2 neg dx2 atan | |
| inpath | |
| {arcn} | |
| {newpath arcn stroke} | |
| ifelse | |
| } bind def | |
| /Ds { | |
| /y2 exch def | |
| /x2 exch def | |
| /y1 exch def | |
| /x1 exch def | |
| /y0 exch def | |
| /x0 exch def | |
| x0 5 x1 mul add 6 div | |
| y0 5 y1 mul add -6 div | |
| x2 5 x1 mul add 6 div | |
| y2 5 y1 mul add -6 div | |
| x1 x2 add 2 div | |
| y1 y2 add -2 div | |
| inpath | |
| {curveto} | |
| {newpath x0 x1 add 2 div y0 y1 add -2 div moveto curveto stroke} | |
| ifelse | |
| } bind def |