The R Project SVN R

Rev

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

Rev 9615 Rev 9642
Line 719... Line 719...
719 
		/* If user supplied labels, use i'th one of them
 719 
		/* If user supplied labels, use i'th one of them
720 
		   Otherwise stringify the z-value of the contour */
 720 
		   Otherwise stringify the z-value of the contour */
721 
		buffer[0] = ' ';
 721 
		buffer[0] = ' ';
722 
		if (!isNull(labels)) {
 722 
		if (!isNull(labels)) {
723 
		    int numl = length(labels);
 723 
		    int numl = length(labels);
724 
		    strcpy(&buffer[1], CHAR(STRING(labels)[cnum % numl]));
 724 
		    strcpy(&buffer[1], CHAR(STRING_ELT(labels, cnum % numl)));
725 
		}
 725 
		}
726 
		else {
 726 
		else {
727 
		    PROTECT(lab = allocVector(REALSXP, 1));
 727 
		    PROTECT(lab = allocVector(REALSXP, 1));
728 
		    REAL(lab)[0] = zc;
 728 
		    REAL(lab)[0] = zc;
729 
		    lab = labelformat(lab);
 729 
		    lab = labelformat(lab);
730 
		    strcpy(&buffer[1], CHAR(STRING(lab)[0]));
 730 
		    strcpy(&buffer[1], CHAR(STRING_ELT(lab, 0)));
731 
		    UNPROTECT(1);
 731 
		    UNPROTECT(1);
732 
		}
 732 
		}
733 
		buffer[strlen(buffer)+1] = '\0';
 733 
		buffer[strlen(buffer)+1] = '\0';
734 
		buffer[strlen(buffer)] = ' ';
 734 
		buffer[strlen(buffer)] = ' ';
735 
 
 735 
 
Line 2035... Line 2035...
2035 
	    TransVector(u3, VT, v3);
 2035 
	    TransVector(u3, VT, v3);
2036 
	    /* Draw tick line */
 2036 
	    /* Draw tick line */
2037 
	    GLine(v1[0]/v1[3], v1[1]/v1[3],
 2037 
	    GLine(v1[0]/v1[3], v1[1]/v1[3],
2038 
		  v2[0]/v2[3], v2[1]/v2[3], USER, dd);
 2038 
		  v2[0]/v2[3], v2[1]/v2[3], USER, dd);
2039 
	    /* Draw tick label */
 2039 
	    /* Draw tick label */
2040 
	    GText(v3[0]/v3[3], v3[1]/v3[3], USER, CHAR(STRING(lab)[i]),
 2040 
	    GText(v3[0]/v3[3], v3[1]/v3[3], USER, CHAR(STRING_ELT(lab, i)),
2041 
		  .5, .5, 0, dd);
 2041 
		  .5, .5, 0, dd);
2042 
	}
 2042 
	}
2043 
	UNPROTECT(2);
 2043 
	UNPROTECT(2);
2044 
	break;
 2044 
	break;
2045 
    }
 2045 
    }
Line 2253... Line 2253...
2253 
 
 2253 
 
2254 
    if (dobox) {
 2254 
    if (dobox) {
2255 
        PerspBox(0, REAL(xlim), REAL(ylim), REAL(zlim), dd);
 2255 
        PerspBox(0, REAL(xlim), REAL(ylim), REAL(zlim), dd);
2256 
	if (doaxes)
 2256 
	if (doaxes)
2257 
	    PerspAxes(REAL(xlim), REAL(ylim), REAL(zlim),
 2257 
	    PerspAxes(REAL(xlim), REAL(ylim), REAL(zlim),
2258 
		      CHAR(STRING(xlab)[0]), CHAR(STRING(ylab)[0]),
 2258 
		      CHAR(STRING_ELT(xlab, 0)), CHAR(STRING_ELT(ylab, 0)),
2259 
		      CHAR(STRING(zlab)[0]),
 2259 
		      CHAR(STRING_ELT(zlab, 0)),
2260 
		      nTicks, tickType, dd);
 2260 
		      nTicks, tickType, dd);
2261 
    }
 2261 
    }
2262 
 
 2262 
 
2263 
    DrawFacets(REAL(z), REAL(x), REAL(y), nrows(z), ncols(z), INTEGER(index),
 2263 
    DrawFacets(REAL(z), REAL(x), REAL(y), nrows(z), ncols(z), INTEGER(index),
2264 
	       1/xs, 1/ys, expand/zs,
 2264 
	       1/xs, 1/ys, expand/zs,