The R Project SVN R

Rev

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

Rev 19912 Rev 20377
Line 2328... Line 2328...
2328 
 
 2328 
 
2329 
    GMode(1, dd);
 2329 
    GMode(1, dd);
2330 
 
 2330 
 
2331 
    if (dobox) {
 2331 
    if (dobox) {
2332 
        PerspBox(0, REAL(xlim), REAL(ylim), REAL(zlim), dd);
 2332 
        PerspBox(0, REAL(xlim), REAL(ylim), REAL(zlim), dd);
2333 
	if (doaxes)
 2333 
	if (doaxes) {
- 
 
 2334 
	    SEXP xl = STRING_ELT(xlab, 0), yl = STRING_ELT(ylab, 0),
- 
 
 2335 
		zl = STRING_ELT(zlab, 0);
2334 
	    PerspAxes(REAL(xlim), REAL(ylim), REAL(zlim),
 2336 
	    PerspAxes(REAL(xlim), REAL(ylim), REAL(zlim),
- 
 
 2337 
		      (xl == NA_STRING)? "" : CHAR(xl),
2335 
		      CHAR(STRING_ELT(xlab, 0)), CHAR(STRING_ELT(ylab, 0)),
 2338 
		      (yl == NA_STRING)? "" : CHAR(yl),
2336 
		      CHAR(STRING_ELT(zlab, 0)),
 2339 
		      (zl == NA_STRING)? "" : CHAR(zl),
2337 
		      nTicks, tickType, dd);
 2340 
		      nTicks, tickType, dd);
- 
 
 2341 
	}
2338 
    }
 2342 
    }
2339 
 
 2343 
 
2340 
    DrawFacets(REAL(z), REAL(x), REAL(y), nrows(z), ncols(z), INTEGER(indx),
 2344 
    DrawFacets(REAL(z), REAL(x), REAL(y), nrows(z), ncols(z), INTEGER(indx),
2341 
	       1/xs, 1/ys, expand/zs,
 2345 
	       1/xs, 1/ys, expand/zs,
2342 
	       INTEGER(col), ncol, INTEGER(border)[0]);
 2346 
	       INTEGER(col), ncol, INTEGER(border)[0]);