*** spice3f4/src/lib/fte/grid.c	Fri Jan 22 22:17:24 1999
--- src/lib/fte/grid.c	Fri Jan 22 22:43:14 1999
***************
*** 1231,1237 ****
  
      /* SetLinestyle(1); takes too long */
      /* Problems with Suns on very large radii && linestyle */
!     SetLinestyle(0);
  
      /* Now plot all the arc sets.  Go as high as 5 times the radius that
       * will fit on the screen.  The base magnitude is one more than 
--- 1231,1240 ----
  
      /* SetLinestyle(1); takes too long */
      /* Problems with Suns on very large radii && linestyle */
!     /* SetLinestyle(0); */
!     /* linestyle 1 looks better
!        Guenther Roehrich 22-Jan-99 */
!     SetLinestyle(1);
  
      /* Now plot all the arc sets.  Go as high as 5 times the radius that
       * will fit on the screen.  The base magnitude is one more than 
***************
*** 1410,1416 ****
      /* Let's be lazy and just draw everything -- we won't get called too
       * much and the circles get clipped anyway...
       */
!     SetColor(18);
  
      cliparc((double) (centx + xoffset + radoff - rad),
  	    (double) (centy + yoffset), rad, 2*angle,
--- 1413,1422 ----
      /* Let's be lazy and just draw everything -- we won't get called too
       * much and the circles get clipped anyway...
       */
!     /* SetColor(18); */
!     /* draw everything in black
!        Guenther Roehrich 22-Jan-99 */
!     SetColor(1);
  
      cliparc((double) (centx + xoffset + radoff - rad),
  	    (double) (centy + yoffset), rad, 2*angle,
***************
*** 1425,1431 ****
              M_PI - 2 * angle, centx, centy, maxrad, 0);
  
      /* Draw the upper and lower circles.  */
!     SetColor(19);
      aclip = cliparc((double) (centx + xoffset + radoff),
  	    (double) (centy + yoffset + irad), irad,
  	    (double) (M_PI * 1.5 + 2 * iangle),
--- 1431,1440 ----
              M_PI - 2 * angle, centx, centy, maxrad, 0);
  
      /* Draw the upper and lower circles.  */
!     /* SetColor(19); */
!     /* draw everything in black
!        Guenther Roehrich 22-Jan-99 */
!     SetColor(1);
      aclip = cliparc((double) (centx + xoffset + radoff),
  	    (double) (centy + yoffset + irad), irad,
  	    (double) (M_PI * 1.5 + 2 * iangle),
***************
*** 1442,1448 ****
  	adddeglabel(graph, ndeg, xlab, ylab,
  	    gr_xcenter, gr_ycenter, gr_xcenter, gr_ycenter);
   */
! 	SetColor(19);
  	}
      }
      aclip = cliparc((double) (centx + xoffset + radoff),
--- 1451,1460 ----
  	adddeglabel(graph, ndeg, xlab, ylab,
  	    gr_xcenter, gr_ycenter, gr_xcenter, gr_ycenter);
   */
! 	/* SetColor(19); */
! 	/* draw everything in black
! 	   Guenther Roehrich 22-Jan-99 */
! 	SetColor(1);
  	}
      }
      aclip = cliparc((double) (centx + xoffset + radoff),
***************
*** 1456,1462 ****
  	SetColor(1);
  	adddeglabel(graph, ndeg, xlab, ylab,
  	    gr_xcenter, gr_ycenter, gr_xcenter, gr_ycenter);
! 	SetColor(19);
      }
      
      /* Now toss the labels on... */
--- 1468,1477 ----
  	SetColor(1);
  	adddeglabel(graph, ndeg, xlab, ylab,
  	    gr_xcenter, gr_ycenter, gr_xcenter, gr_ycenter);
! 	/* SetColor(19); */
! 	/* draw everything in black
! 	   Guenther Roehrich 22-Jan-99 */
! 	SetColor(1);
      }
      
      /* Now toss the labels on... */