The R Project SVN R

Rev

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

Rev 27340 Rev 27536
Line 823... Line 823...
823 
    if (landscape)
 823 
    if (landscape)
824 
	fprintf(fp, "/bp  { gs %.2f 0 translate 90 rotate gs } def\n", paperwidth);
 824 
	fprintf(fp, "/bp  { gs %.2f 0 translate 90 rotate gs } def\n", paperwidth);
825 
    else
 825 
    else
826 
	fprintf(fp, "/bp  { gs gs } def\n");
 826 
	fprintf(fp, "/bp  { gs gs } def\n");
827 
    prolog = findVar(install(".ps.prolog"), R_GlobalEnv);
 827 
    prolog = findVar(install(".ps.prolog"), R_GlobalEnv);
- 
 
 828 
    if(prolog == R_UnboundValue) {
- 
 
 829 
	/* if no object is visible, look in the graphics namespace */
- 
 
 830 
	SEXP graphicsNS = R_FindNamespace(ScalarString(mkChar("graphics")));
- 
 
 831 
	prolog = findVar(install(".ps.prolog"), graphicsNS);
- 
 
 832 
    }
828 
    if(!isString(prolog))
 833 
    if(!isString(prolog))
829 
	error("Object .ps.prolog is not a character vector");
 834 
	error("Object .ps.prolog is not a character vector");
830 
    fprintf(fp, "%% begin .ps.prolog\n");
 835 
    fprintf(fp, "%% begin .ps.prolog\n");
831 
    for (i = 0; i < length(prolog); i++)
 836 
    for (i = 0; i < length(prolog); i++)
832 
	fprintf(fp, "%s\n", CHAR(STRING_ELT(prolog, i)));
 837 
	fprintf(fp, "%s\n", CHAR(STRING_ELT(prolog, i)));