The R Project SVN – R – Diff – /trunk/src/gnuwin32/devga.c

     menuitem mR, mfit, mfix;
     Rboolean recording, replaying, needsave;
     bitmap bm;
   /* PNG and JPEG section */
     FILE *fp;
+    char filename[512];
     int quality;
+    int npage;
+    double w, h;
   /* Used to rescale font size so that bitmap devices have 72dpi */
     int truedpi, wanteddpi;
     rgb   fgcolor;		/* Foreground color */
     rgb   bgcolor;		/* Background color */
     rgb   canvascolor;		/* Canvas color */
 static Rboolean GA_Open(NewDevDesc *dd, gadesc *xd, char *dsp,
 			double w, double h, Rboolean recording,
 			int resize, int canvascolor, double gamma)
+{
     rect  rr;
+    char buf[512];
     if (!fontinitdone)
 	RFontInit();
     /* Foreground and Background Colors */
     xd->bgcolor = xd->canvascolor = GArgb(canvascolor, gamma);
     xd->outcolor = myGetSysColor(COLOR_APPWORKSPACE);
     xd->rescale_factor = 1.0;
     xd->fast = 1;  /* Use `cosmetic pens' if available */
     xd->xshift = xd->yshift = 0;
+    xd->npage = 0;
     if (!dsp[0]) {
 	if (!setupScreenDevice(dd, xd, w, h, recording, resize))
 	    return FALSE;
     } else if (!strncmp(dsp, "win.print:", 10)) {
 	xd->kind = PRINTER;
 	    xd->bg = dd->startfill = GArgb(canvascolor, 1.0);
 	else
 	    xd->bg = dd->startfill = canvascolor;
 	/* was R_RGB(255, 255, 255); white */
         xd->kind = (dsp[0]=='p') ? PNG : BMP;
+	strcpy(xd->filename, dsp+4);
 	if (!Load_Rbitmap_Dll()) {
 	    warning("Unable to load Rbitmap.dll");
 	    return FALSE;
+	}
 	/*
 	  if required depth > 1
 	*/
 	if ((xd->gawin = newbitmap(w, h, 256)) == NULL) {
 	    warning("Unable to allocate bitmap");
 	    return FALSE;
 	}
+	sprintf(buf, xd->filename, 1);
-	if ((xd->fp = fopen(&dsp[4], "wb")) == NULL) {
+	if ((xd->fp = fopen(buf, "wb")) == NULL) {
 	    del(xd->gawin);
-	    warning("Unable to open file `%s' for writing", &dsp[4]);
+	    warning("Unable to open file `%s' for writing", buf);
 	    return FALSE;
+	}
     } else if (!strncmp(dsp, "jpeg:", 5)) {
         char *p = strchr(&dsp[5], ':');
 	xd->bg = dd->startfill = GArgb(canvascolor, 1.0);
 	    return FALSE;
+	}
 	*p = '\0';
 	xd->quality = atoi(&dsp[5]);
 	*p = ':' ;
+	strcpy(xd->filename, p+1);
 	if((xd->gawin = newbitmap(w, h, 256)) == NULL) {
 	    warning("Unable to allocate bitmap");
 	    return FALSE;
+	}
+	sprintf(buf, xd->filename, 1);
-	if ((xd->fp = fopen(p+1, "wb")) == NULL) {
+	if ((xd->fp = fopen(buf, "wb")) == NULL) {
 	    del(xd->gawin);
-	    warning("Unable to open file `%s' for writing", p+1);
+	    warning("Unable to open file `%s' for writing", buf);
 	    return FALSE;
+	}
     } else {
 	/*
 	 * win.metafile[:] in memory (for the clipboard)
 	if (ls > ld)
 	    return FALSE;
 	if (strncmp(dsp, s, ls) || (dsp[ls] && (dsp[ls] != ':')))
 	    return FALSE;
-	xd->gawin = newmetafile((ld > ls) ? &dsp[ls + 1] : "",
+	strcpy(xd->filename, (ld > ls) ? &dsp[ls + 1] : "");
+	sprintf(buf, xd->filename, 1);
+	xd->w = MM_PER_INCH * w;
-				MM_PER_INCH * w, MM_PER_INCH * h);
+	xd->h =  MM_PER_INCH * h;
+	xd->gawin = newmetafile(buf, MM_PER_INCH * w, MM_PER_INCH * h);
 	xd->kind = METAFILE;
 	xd->fast = 0; /* use scalable line widths */
 	if (!xd->gawin) {
 	    if(ld > ls)
-		warning("Unable to open metafile `%s' for writing",
+		warning("Unable to open metafile `%s' for writing", buf);
-			&dsp[ls + 1]);
 	    else
 		warning("Unable to open clipboard to write metafile");
 	    return FALSE;
+	}
+    }
 	/********************************************************/
 static void GA_NewPage(int fill, double gamma, NewDevDesc *dd)
+{
     gadesc *xd = (gadesc *) dd->deviceSpecific;
+    char buf[512];
+    xd->npage++;
     if ((xd->kind == PRINTER) && xd->needsave)
 	nextpage(xd->gawin);
-    if ((xd->kind == METAFILE) && xd->needsave)
+    if ((xd->kind == METAFILE) && xd->needsave) {
+	if (strlen(xd->filename) == 0)
-	error("A metafile can store only one figure.");
+	    error("A clipboard metafile can store only one figure.");
+	else {
+	    del(xd->gawin);
-    if ((xd->kind == PNG) && xd->needsave)
+	    sprintf(buf, xd->filename, xd->npage);
-	error("A png file can store only one figure.");
+	    xd->gawin = newmetafile(buf, xd->w, xd->h);
+	}
+    }
-    if ((xd->kind == JPEG) && xd->needsave)
+    if ((xd->kind == PNG || xd->kind == JPEG || xd->kind == BMP)
+	&& xd->needsave) {
+	SaveAsBitmap(dd);
-	error("A jpeg file can store only one figure.");
+	sprintf(buf, xd->filename, xd->npage);
-    if ((xd->kind == BMP) && xd->needsave)
+	if ((xd->fp = fopen(buf, "wb")) == NULL)
-	error("A bmp file can store only one figure.");
+	    error("Unable to open file `%s' for writing", buf);
+    }
     if (xd->kind == SCREEN) {
 #ifdef PLOTHISTORY
 	if (xd->recording && xd->needsave)
 	    AddtoPlotHistory(dd->savedSnapshot, 0);
 	if (xd->replaying)
+{
     rect r;
     gadesc *xd = (gadesc *) dd->deviceSpecific;
     r = ggetcliprect(xd->gawin);
     gsetcliprect(xd->gawin, getrect(xd->gawin));
+    if(xd->fp) {
-    if (xd->kind==PNG)
+	if (xd->kind==PNG)
-	R_SaveAsPng(xd->gawin, xd->windowWidth, xd->windowHeight,
+	    R_SaveAsPng(xd->gawin, xd->windowWidth, xd->windowHeight,
-		    privategetpixel, 0, xd->fp,
+			privategetpixel, 0, xd->fp,
-		    R_OPAQUE(xd->bg) ? 0 : xd->pngtrans) ;
+			R_OPAQUE(xd->bg) ? 0 : xd->pngtrans) ;
-    else if (xd->kind==JPEG)
+	else if (xd->kind==JPEG)
-	R_SaveAsJpeg(xd->gawin, xd->windowWidth, xd->windowHeight,
+	    R_SaveAsJpeg(xd->gawin, xd->windowWidth, xd->windowHeight,
-		     privategetpixel, 0, xd->quality, xd->fp) ;
+			 privategetpixel, 0, xd->quality, xd->fp) ;
-    else
+	else
-	R_SaveAsBmp(xd->gawin, xd->windowWidth, xd->windowHeight,
+	    R_SaveAsBmp(xd->gawin, xd->windowWidth, xd->windowHeight,
-		    privategetpixel, 0, xd->fp) ;
+			privategetpixel, 0, xd->fp);
+	fclose(xd->fp);
+    }
     gsetcliprect(xd->gawin, r);
-    fclose(xd->fp);
+    xd->fp = NULL;
+}
-/* This are the menu item version */
+/* These are the menu item versions */
 static void SaveAsPng(NewDevDesc *dd,char *fn)
+{
     FILE *fp;
     rect r;
     gadesc *xd = (gadesc *) dd->deviceSpecific;

The R Project SVN R

(root)/trunk/src/gnuwin32/devga.c @ 21085 – Rev 20779 → 21024