The R Project SVN R

Rev

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

Rev 19135 Rev 19912
Line 2282... Line 2282...
2282 
    PROTECT(border = FixupCol(border, Rf_gpptr(dd)->fg));
 2282 
    PROTECT(border = FixupCol(border, Rf_gpptr(dd)->fg));
2283 
    if (length(border) < 1) errorcall(call, "invalid border specification");
 2283 
    if (length(border) < 1) errorcall(call, "invalid border specification");
2284 
 
 2284 
 
2285 
    GSetState(1, dd);
 2285 
    GSetState(1, dd);
2286 
    GSavePars(dd);
 2286 
    GSavePars(dd);
2287 
    RecordGraphicsCall(call);
 - 
 
2288 
    ProcessInlinePars(args, dd);
 2287 
    ProcessInlinePars(args, dd, call);
2289 
    if (length(border) > 1)
 2288 
    if (length(border) > 1)
2290 
	Rf_gpptr(dd)->fg = INTEGER(border)[0];
 2289 
	Rf_gpptr(dd)->fg = INTEGER(border)[0];
2291 
    Rf_gpptr(dd)->xlog = Rf_gpptr(dd)->ylog = FALSE;
 2290 
    Rf_gpptr(dd)->xlog = Rf_gpptr(dd)->ylog = FALSE;
2292 
 
 2291 
 
2293 
    /* Set up the light vector (if any) */
 2292 
    /* Set up the light vector (if any) */