The R Project SVN R

Rev

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

Rev 27354 Rev 27598
Line 579... Line 579...
579 
	/* highlevel arg `fg = ' does *not* set `col' (as par(fg=.) does!*/
 579 
	/* highlevel arg `fg = ' does *not* set `col' (as par(fg=.) does!*/
580 
	lengthCheck(what, value, 1, call);	ix = RGBpar(value, 0);
 580 
	lengthCheck(what, value, 1, call);	ix = RGBpar(value, 0);
581 
	/*	naIntCheck(ix, what); */
 581 
	/*	naIntCheck(ix, what); */
582 
	R_DEV__(fg) = ix;
 582 
	R_DEV__(fg) = ix;
583 
    }
 583 
    }
- 
 
 584 
    else if (streql(what, "asp")) {
- 
 
 585 
	/* this is not a parameter, but let it through as if it were */
- 
 
 586 
    }
584 
 
 587 
 
585 
    else warning(
 588 
    else warning(
586 
	"parameter \"%s\" couldn't be set in high-level plot() function", what);
 589 
	"parameter \"%s\" couldn't be set in high-level plot() function", what);
587 
} /* Specify2 */
 590 
} /* Specify2 */
588 
 
 591