Blob
1 %2 % Version 3.3.2 drawing procedures for dpost. Automatically pulled in when3 % needed.4 %6 /inpath false def7 /savematrix matrix def9 /Dl {10 inpath11 {neg lineto pop pop}12 {newpath neg moveto neg lineto stroke}13 ifelse14 } bind def16 /De {17 /y1 exch 2 div def18 /x1 exch 2 div def19 /savematrix savematrix currentmatrix def20 neg exch x1 add exch translate21 x1 y1 scale22 0 0 1 0 36023 inpath24 {1 0 moveto arc savematrix setmatrix}25 {newpath arc savematrix setmatrix stroke}26 ifelse27 } bind def29 /Da {30 /dy2 exch def31 /dx2 exch def32 /dy1 exch def33 /dx1 exch def34 dy1 add neg exch dx1 add exch35 dx1 dx1 mul dy1 dy1 mul add sqrt36 dy1 dx1 neg atan37 dy2 neg dx2 atan38 inpath39 {arc}40 {newpath arc stroke}41 ifelse42 } bind def44 /DA {45 /dy2 exch def46 /dx2 exch def47 /dy1 exch def48 /dx1 exch def49 dy1 add neg exch dx1 add exch50 dx1 dx1 mul dy1 dy1 mul add sqrt51 dy1 dx1 neg atan52 dy2 neg dx2 atan53 inpath54 {arcn}55 {newpath arcn stroke}56 ifelse57 } bind def59 /Ds {60 /y2 exch def61 /x2 exch def62 /y1 exch def63 /x1 exch def64 /y0 exch def65 /x0 exch def66 x0 5 x1 mul add 6 div67 y0 5 y1 mul add -6 div68 x2 5 x1 mul add 6 div69 y2 5 y1 mul add -6 div70 x1 x2 add 2 div71 y1 y2 add -2 div72 inpath73 {curveto}74 {newpath x0 x1 add 2 div y0 y1 add -2 div moveto curveto stroke}75 ifelse76 } bind def