The R Project SVN R

Rev

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

Rev 6222 Rev 6252
Line 1208... Line 1208...
1208 
	for (i = 0; i < n; i++) {
 1208 
	for (i = 0; i < n; i++) {
1209 
	    xx = x[i];
 1209 
	    xx = x[i];
1210 
	    yy = y[i];
 1210 
	    yy = y[i];
1211 
	    GConvert(&xx, &yy, USER, DEVICE, dd);
 1211 
	    GConvert(&xx, &yy, USER, DEVICE, dd);
1212 
	    if (R_FINITE(xx) && R_FINITE(yy)) {
 1212 
	    if (R_FINITE(xx) && R_FINITE(yy)) {
- 
 
 1213 
		if (ncex > 1)
- 
 
 1214 
		    dd->gp.cex = dd->gp.cexbase * REAL(cex)[i % ncex];
1213 
		dd->gp.col = INTEGER(col)[i % ncol];
 1215 
		dd->gp.col = INTEGER(col)[i % ncol];
1214 
		dd->gp.bg = INTEGER(bg)[i % nbg];
 1216 
		dd->gp.bg = INTEGER(bg)[i % nbg];
1215 
		GSymbol(xx, yy, DEVICE,
 1217 
		GSymbol(xx, yy, DEVICE,
1216 
			INTEGER(pch)[i % npch], dd);
 1218 
			INTEGER(pch)[i % npch], dd);
1217 
	    }
 1219 
	    }