%% 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