The R Project SVN R

Rev

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

Rev 27215 Rev 27811
Line 958... Line 958...
958 
    Rprintf("contour(lev = %g):\n", zc);
 958 
    Rprintf("contour(lev = %g):\n", zc);
959 
#endif
 959 
#endif
960 
 
 960 
 
961 
    vmax = vmaxget();
 961 
    vmax = vmaxget();
962 
    ctr_SegDB = contourLines(REAL(x), nx, REAL(y), ny, REAL(z), zc, atom);
 962 
    ctr_SegDB = contourLines(REAL(x), nx, REAL(y), ny, REAL(z), zc, atom);
963 
    vmaxset(vmax);
 963 
    /* we need to keep ctr_SegDB available, so vmaxset(vmax); was wrong */
964 
 
 964 
 
965 
    /* The segment database is now assembled. */
 965 
    /* The segment database is now assembled. */
966 
    /* Begin following contours. */
 966 
    /* Begin following contours. */
967 
    /* 1. Grab a segment */
 967 
    /* 1. Grab a segment */
968 
    /* 2. Follow its tail */
 968 
    /* 2. Follow its tail */
Line 1346... Line 1346...
1346 
 
 1346 
 
1347 
	    GMode(0, dd);
 1347 
	    GMode(0, dd);
1348 
	    vmaxset(vmax);
 1348 
	    vmaxset(vmax);
1349 
	} /* while */
 1349 
	} /* while */
1350 
      } /* for(i .. )  for(j ..) */
 1350 
      } /* for(i .. )  for(j ..) */
- 
 
 1351 
    vmaxset(vmax); /* now we are done with ctr_SegDB */
1351 
    UNPROTECT_PTR(label1); /* pwwwargh! This is messy, but last thing
 1352 
    UNPROTECT_PTR(label1); /* pwwwargh! This is messy, but last thing
1352 
			      protected is likely labelList, and that needs
 1353 
			      protected is likely labelList, and that needs
1353 
			      to be preserved across calls */
 1354 
			      to be preserved across calls */
1354 
}
 1355 
}
1355 
 
 1356