The R Project SVN – R – Diff – /branches/R-exp-API/src/main/devPS.c

     return Unknown;
+}
 static char *SkipToNextItem(char *p)
+{
-    while (!isspace(*p)) p++;
+    while (!isspace((int)*p)) p++;
-    while (isspace(*p)) p++;
+    while (isspace((int)*p)) p++;
     return p;
+}
 static char *SkipToNextKey(char *p)
+{
     while (*p != ';') p++;
     p++;
-    while (isspace(*p)) p++;
+    while (isspace((int)*p)) p++;
     return p;
+}
 static int GetFontBBox(char *buf, FontMetricInfo *metrics)
+{
 /* of the (unrotated) printer page in points whereas the graphics */
 /* region box is for the rotated page. */
 static void PSFileHeader(FILE *fp, int font, int encoding, char *papername,
 			 double paperwidth, double paperheight, int landscape,
+			 int EPSFheader,
 			 double left, double bottom, double right, double top)
+{
+    if(EPSFheader)
+	fprintf(fp, "%%!PS-Adobe-3.0 EPSF-3.0\n");
+    else
-    fprintf(fp, "%%!PS-Adobe-3.0\n");
+	fprintf(fp, "%%!PS-Adobe-3.0\n");
     fprintf(fp, "%%%%DocumentFonts: %s %s %s\n%%%%+ %s %s\n",
 	    Family[font].font[0].name, Family[font].font[1].name,
 	    Family[font].font[2].name, Family[font].font[3].name,
 	    Family[font].font[4].name);
+    if(!EPSFheader)
-    fprintf(fp, "%%%%DocumentMedia: %s %.0f %.0f 0 ()\n",
+	fprintf(fp, "%%%%DocumentMedia: %s %.0f %.0f 0 ()\n",
-	    papername, paperwidth, paperheight);
+		papername, paperwidth, paperheight);
     fprintf(fp, "%%%%Title: R Graphics Output\n");
     fprintf(fp, "%%%%Creator: R Software\n");
     fprintf(fp, "%%%%Pages: (atend)\n");
     if (landscape) {
 	fprintf(fp, "%%%%Orientation: Landscape\n");
     double width;	 /* plot width in points */
     double height;	 /* plot height in points */
     double pagewidth;	 /* page width in points */
     double pageheight;	 /* page height in points */
+    int pagecentre;      /* centre image on page? */
     double lwd;		 /* current line width */
     int lty;		 /* current line type */
     rcolor col;		 /* current color */
     rcolor fill;	 /* current fill color */
     rcolor bg;		 /* background color */
     FILE *psfp;		 /* output file */
+    int EPSFheader;      /* EPSF header */
+}
 PostScriptDesc;
 static FontMetricInfo metrics[5];	/* font metrics */
 int PSDeviceDriver(DevDesc *dd, char *file, char *paper, char *family,
 		   char *bg, char *fg,
 		   double width, double height,
-		   double horizontal, double ps)
+		   double horizontal, double ps,
+		   int onefile, int pagecentre)
+{
     /* If we need to bail out with some sort of "error" */
     /* then we must free(dd) */
     double xoff, yoff, pointsize;
     else if(!strcmp(pd->papername, "Executive") ||
 	    !strcmp(pd->papername, "executive")) {
 	pd->pagewidth  =  7.25;
 	pd->pageheight = 10.5;
+    }
+    else if(!strcmp(pd->papername, "special")) {
+	if(pd->landscape) {
+	    pd->pagewidth  = height;
+	    pd->pageheight =  width;
+	} else {
+	    pd->pagewidth  =  width;
+	    pd->pageheight = height;
+	}
+    }
     else {
 	free(dd);
 	free(pd);
 	error("invalid page type (postscript)");
+    }
+    pd->pagecentre = pagecentre;
     pd->paperwidth = 72 * pd->pagewidth;
     pd->paperheight = 72 * pd->pageheight;
+    pd->EPSFheader = !onefile;
     if(pd->landscape) {
 	double tmp;
 	tmp = pd->pagewidth;
 	pd->pagewidth = pd->pageheight;
 	pd->pageheight = tmp;
+    }
+    if(strcmp(pd->papername, "special"))
+    {
-    if(pd->width < 0.1 || pd->width > pd->pagewidth-0.5)
+	if(pd->width < 0.1 || pd->width > pd->pagewidth-0.5)
-	pd->width = pd->pagewidth-0.5;
+	    pd->width = pd->pagewidth-0.5;
-    if(pd->height < 0.1 || pd->height > pd->pageheight-0.5)
+	if(pd->height < 0.1 || pd->height > pd->pageheight-0.5)
-	pd->height = pd->pageheight-0.5;
+	    pd->height = pd->pageheight-0.5;
+    }
+    if(pagecentre)
+    {
-    xoff = (pd->pagewidth - pd->width)/2.0;
+	xoff = (pd->pagewidth - pd->width)/2.0;
-    yoff = (pd->pageheight - pd->height)/2.0;
+	yoff = (pd->pageheight - pd->height)/2.0;
+    } else {
+	xoff = yoff = 0.0;
+    }
     pd->maxpointsize = 72.0 * ((pd->pageheight > pd->pagewidth) ?
 			       pd->pageheight : pd->pagewidth);
     pd->pageno = 0;
     pd->lty = 1;
 		     pd->encoding,
 		     pd->papername,
 		     pd->paperwidth,
 		     pd->paperheight,
 		     pd->landscape,
+		     pd->EPSFheader,
 		     dd->dp.bottom,
 		     dd->dp.left,
 		     dd->dp.top,
 		     dd->dp.right);
     else
 		     pd->encoding,
 		     pd->papername,
 		     pd->paperwidth,
 		     pd->paperheight,
 		     pd->landscape,
+		     pd->EPSFheader,
 		     dd->dp.left,
 		     dd->dp.bottom,
 		     dd->dp.right,
 		     dd->dp.top);
+{
     PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
     pd->pageno++;
     if(pd->pageno > 1) PostScriptEndPage(pd->psfp);
+    if(pd->pageno > 1 && pd->EPSFheader)
+	warning("multiple pages used in postscript() with onefile=FALSE");
     PostScriptStartPage(pd->psfp, pd->pageno);
     PostScriptSetFont(pd->psfp, pd->fontstyle-1, pd->fontsize);
     PostScriptSetLineWidth(pd->psfp, 0.75);
     PostScriptSetCol(pd->psfp,
 		     R_RED(pd->col)/255.0,

The R Project SVN R

(root)/branches/R-exp-API/src/main/devPS.c @ 77458 – Rev 5731 → 6098