// put 360 degree scale on right
		if ( 
			PlotPhase || mPlotPhase || PlotAlPha
		   )
			{
			    int step ;
			   HPEN pen ;

			   SetTextColor(hdc, RGB(0,   0,   0  )) ;
			     SetBkColor(hdc, RGB(192, 192, 192)) ;
				 pen = SelectObject(hdc, blackPen) ;

			   if (IsZoomed(hWnd) == TRUE)
			   {
			    SelectObject(hdc, hfnt1) ;
			    step = 10 ;
			   }
			   else
			   {
			    SelectObject(hdc, hfnt) ;
			    step = 20 ;
			   }

			   for ( i = 0 ; i <= 360 ; i += step )
			   {
			   yp = rcArc.bottom -
				   (int)((double)(ht * i) / 360.0 + (double)ylmar) ;

			   xp = D.right - 4 ;
			   MoveToEx(hdc, xp, yp, NULL) ;
			   xp = D.right + 4 ;
			   LineTo(hdc, xp, yp) ;

			   sprintf(buff, "%d", i) ;
			   xp = D.right + 6 ;
			   TextOut(hdc, xp, yp - 4, buff, strlen(buff)) ;
			   }
			   SelectObject(hdc, hgrk2) ;
			   sprintf(buff,"f") ;
			   TextOut(hdc,D.right + 8, D.top - 22, buff, strlen(buff)) ;

			   SelectObject(hdc, hfnt) ;
			   SelectObject(hdc, pen ) ;
		   }