The R Project SVN R

Rev

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

Rev 11067 Rev 11112
Line 2192... Line 2192...
2192
    if ((nTicks == NA_INTEGER) || (nTicks < 0))
2192
    if ((nTicks == NA_INTEGER) || (nTicks < 0))
2193
	errorcall(call, "invalid nticks value");
2193
	errorcall(call, "invalid nticks value");
2194
    if ((tickType == NA_INTEGER) || (tickType < 1) || (tickType > 2))
2194
    if ((tickType == NA_INTEGER) || (tickType < 1) || (tickType > 2))
2195
	errorcall(call, "invalid ticktype value");
2195
	errorcall(call, "invalid ticktype value");
2196
 
2196
 
2197
    dd = GNewPlot(GRecording(call), NA_LOGICAL);
2197
    dd = GNewPlot(GRecording(call));
2198
 
2198
 
2199
    PROTECT(col = FixupCol(col, dd->gp.bg));
2199
    PROTECT(col = FixupCol(col, dd->gp.bg));
2200
    ncol = LENGTH(col);
2200
    ncol = LENGTH(col);
2201
    if (ncol < 1) errorcall(call, "invalid col specification");
2201
    if (ncol < 1) errorcall(call, "invalid col specification");
2202
    PROTECT(border = FixupCol(border, dd->gp.fg));
2202
    PROTECT(border = FixupCol(border, dd->gp.fg));