The R Project SVN R

Rev

Rev 55883 | Rev 57771 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 55883 Rev 56695
Line 708... Line 708...
708 
		while (s && ns < max_contour_segments) {
 708 
		while (s && ns < max_contour_segments) {
709 
		    ns++;
 709 
		    ns++;
710 
		    s = s->next;
 710 
		    s = s->next;
711 
		}
 711 
		}
712 
		if(ns == max_contour_segments)
 712 
		if(ns == max_contour_segments)
713 
		    warning(_("contour(): circular/long seglist -- bug.report()!"));
 713 
		    warning(_("contour(): circular/long seglist -- set %s > %d?"),
714 
 
 - 
 
- 
 
 714 
		            "options(\"max.contour.segments\")", max_contour_segments);
715 
		/*
 715 
		/*
716 
		 * "write" the contour locations into the list of contours
 716 
		 * "write" the contour locations into the list of contours
717 
		 */
 717 
		 */
718 
		ctr = PROTECT(allocVector(VECSXP, 3));
 718 
		ctr = PROTECT(allocVector(VECSXP, 3));
719 
		level = PROTECT(allocVector(REALSXP, 1));
 719 
		level = PROTECT(allocVector(REALSXP, 1));
Line 993... Line 993...
993 
	    while (s && ns < max_contour_segments) {
 993 
	    while (s && ns < max_contour_segments) {
994 
		ns++;
 994 
		ns++;
995 
		s = s->next;
 995 
		s = s->next;
996 
	    }
 996 
	    }
997 
	    if(ns == max_contour_segments)
 997 
	    if(ns == max_contour_segments)
998 
		warning(_("contour(): circular/long seglist -- bug.report()!"));
 998 
		warning(_("contour(): circular/long seglist -- set %s > %d?"),
- 
 
 999 
		        "options(\"max.contour.segments\")", max_contour_segments);
999 
 
 1000 
 
1000 
	    /* contour midpoint : use for labelling sometime (not yet!)
 1001 
	    /* contour midpoint : use for labelling sometime (not yet!)
1001 
	       int ns2;
 1002 
	       int ns2;
1002 
	       if (ns > 3) ns2 = ns/2; else ns2 = -1;
 1003 
	       if (ns > 3) ns2 = ns/2; else ns2 = -1;
1003 
	    */
 1004 
	    */