The R Project SVN R

Rev

Rev 77349 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 77349 Rev 84246
Line 218... Line 218...
218 
     * grow and it's awkward to get the PROTECTs/UNPROTECTs right
 218 
     * grow and it's awkward to get the PROTECTs/UNPROTECTs right
219 
     * when you're in a loop and growing a list.
 219 
     * when you're in a loop and growing a list.
220 
     */
 220 
     */
221 
    container = PROTECT(allocVector(VECSXP, 1));
 221 
    container = PROTECT(allocVector(VECSXP, 1));
222 
    /*
 222 
    /*
223 
     * Create "large" list (will trim excess at the end if necesary)
 223 
     * Create "large" list (will trim excess at the end if necessary)
224 
     */
 224 
     */
225 
    SET_VECTOR_ELT(container, 0, allocVector(VECSXP, CONTOUR_LIST_STEP));
 225 
    SET_VECTOR_ELT(container, 0, allocVector(VECSXP, CONTOUR_LIST_STEP));
226 
    nlines = 0;
 226 
    nlines = 0;
227 
    /*
 227 
    /*
228 
     * Add lines for each contour level
 228 
     * Add lines for each contour level