\def\xaxIs{\ifnum\xscaling=1\raise\dimen8\hbox to\xtotal{%
\divide\xmin\xbasis\divide\xmax\xbasis%
\divide\xinc\xbasis\chelptwo180\xvalfrac360%
\ifnum\xbasis=10\else\message{xwinkel-Error!}\fi%
\kern\xpos\kern-.5\xnumberlength\loop\xvalint\xmin\relax%
\ifnum\xvalint>\chelptwo\negadvAnce\xvalint\xvalfrac\fi\relax%
\ifnum\xvalint>\chelptwo\negadvAnce\xvalint\xvalfrac\fi\relax%
\ifnum\xvalint>-\chelptwo\else\advance\xvalint\xvalfrac\fi\relax%
\ifnum\xvalint>-\chelptwo\else\advance\xvalint\xvalfrac\fi\relax%
\hbox to\xnumberlength{\hss\ifnum\xvalint<0$-$\xvalint-\xvalint\fi%
\relax\number\xvalint$^\circ$\hss}%
\ifnum\xmin<\xmax\advance\xmin\xinc\hss%
\else\xfinal1\fi\relax\ifnum\xfinal<1\repeat}%
\kern-\xtotal\fi}%