// if one or more of the directional options
		   {
			   static double grand, da, dt, oep ;
			   static    int first, last, nd, i ;

			   // put degree scale on right
			   DegreeScaleShowing = 1 ;
			   SelectObject(hdc, hfnt1) ;
			   if (UseScale == 3) // highlight
			   SetBkColor(hdc, RGB(223, 223, 223)) ;
			   else
			   SetBkColor(hdc, RGB(255, 255, 255)) ;
			   for ( i = 0 ; i <= 180 ; i += 10 )
			   {
			   xp = D.right + 22 ;
			   yp = rcArc.bottom -
				   (int)((double)(ht * i) / 180.0 + (double)ylmar) ;
			   sprintf(buff, "%d", i) ;
			   TextOut(hdc, xp, yp - 4, buff, strlen(buff)) ;
			   }
			   SelectObject(hdc, hgrk2) ;
			   sprintf(buff,"f") ;			// Greek phi
			   TextOut(hdc,D.right + 24, D.top - 22, buff, strlen(buff)) ;
			   SelectObject(hdc, hfnt) ;

// clip start
			   DirectionalPlots(hdc, wd, ht) ;  //This function should be run from outside WM_PAINT loop
// clip end

			} // end if directional option