The R Project SVN R

Rev

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

Rev 8213 Rev 8285
Line 2244... Line 2244...
2244 
    PROTECT(border = FixupCol(border, dd->gp.fg));
 2244 
    PROTECT(border = FixupCol(border, dd->gp.fg));
2245 
    if (length(border) < 1) errorcall(call, "invalid border specification");
 2245 
    if (length(border) < 1) errorcall(call, "invalid border specification");
2246 
 
 2246 
 
2247 
    GSetState(1, dd);
 2247 
    GSetState(1, dd);
2248 
    GSavePars(dd);
 2248 
    GSavePars(dd);
- 
 
 2249 
    RecordGraphicsCall(call);
2249 
    ProcessInlinePars(args, dd);
 2250 
    ProcessInlinePars(args, dd);
2250 
    if (length(border) > 1)
 2251 
    if (length(border) > 1)
2251 
	dd->gp.fg = INTEGER(border)[0];
 2252 
	dd->gp.fg = INTEGER(border)[0];
2252 
    dd->gp.xlog = 0;
 2253 
    dd->gp.xlog = 0;
2253 
    dd->gp.ylog = 0;
 2254 
    dd->gp.ylog = 0;