The R Project SVN – R – Diff – /branches/R-exp-API/src/gnuwin32/devga.c

 	/* common to all device types (see Graphics.h)		*/
 	/* so go in the GPar structure rather than this device- */
 	/* specific structure					*/
 	/********************************************************/
-enum DeviceKinds {SCREEN=0, PRINTER, METAFILE, PNG, JPEG};
+enum DeviceKinds {SCREEN=0, PRINTER, METAFILE, PNG, JPEG, BMP};
 typedef struct {
     /* R Graphics Parameters */
     /* local device copy so that we can detect */
     /* when parameter changes */
   /* SCREEN section*/
     popup locpopup, grpopup;
     button  stoploc;
     menubar mbar, mbarloc;
     menu  msubsave;
-    menuitem mpng, mjpeg50, mjpeg75, mjpeg100;
+    menuitem mpng, mbmp, mjpeg50, mjpeg75, mjpeg100;
     menuitem mps, mwm, mclpbm, mclpwm, mprint, mclose;
     menuitem mrec, madd, mreplace, mprev, mnext, mclear, msvar, mgvar;
     int   recording, replaying, needsave;
     bitmap bm;
   /* PNG and JPEG section */
 static void SetLinetype(int, double, DevDesc *);
 static int Load_Rbitmap_Dll();
 void Unload_Rbitmap_Dll();
 static void SaveAsPng(DevDesc *dd,char *fn);
 static void SaveAsJpeg(DevDesc *dd,int quality,char *fn);
+static void SaveAsBmp(DevDesc *dd,char *fn);
 static void SaveAsBitmap(DevDesc *dd);
 void  ProcessEvents();
 static void PrivateCopyDevice(DevDesc *dd,DevDesc *ndd, char *name)
+{
+{
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
     if (face < 1 || face > fontnum)
 	face = 1;
-    size = MulDiv(12,xd->wanteddpi,xd->truedpi);
+    size = MulDiv(size,xd->wanteddpi,xd->truedpi);
     if (size < SMALLEST)
 	size = SMALLEST;
     if (size > LARGEST)
 	size = LARGEST;
     if (!xd->usefixed &&
     DevDesc *dd = (DevDesc *) getdata(m);
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
     char *fn;
     if (m==xd->mpng) {
       setuserfilter("Png files (*.png)\0*.png\0\0");
+      fn = askfilesave("Portable network graphics file", "");
+    } else if (m==xd->mbmp) {
+      setuserfilter("Windows bitmap files (*.bmp)\0*.bmp\0\0");
-      fn = askfilesave("Png file", "");
+      fn = askfilesave("Windows bitmap file", "");
     } else {
       setuserfilter("Jpeg files (*.jpeg,*jpg)\0*.jpeg;*.jpg\0\0");
       fn = askfilesave("Jpeg file", "");
+    }
     if (!fn) return;
     fixslash(fn);
     gsetcursor(xd->gawin, WatchCursor);
     show(xd->gawin);
     if (m==xd->mpng) SaveAsPng(dd,fn);
+    else if (m==xd->mbmp) SaveAsBmp(dd,fn);
     else if (m==xd->mjpeg50) SaveAsJpeg(dd,50,fn);
     else if (m==xd->mjpeg75) SaveAsJpeg(dd,75,fn);
     else SaveAsJpeg(dd,100,fn);
     gsetcursor(xd->gawin, ArrowCursor);
     show(xd->gawin);
+    }
     if (dd->displayList != R_NilValue) {
 	enable(xd->madd);
 	enable(xd->mprint);
 	enable(xd->mpng);
+	enable(xd->mbmp);
 	enable(xd->mjpeg50);
 	enable(xd->mjpeg75);
 	enable(xd->mjpeg100);
 	enable(xd->mwm);
 	enable(xd->mps);
 	enable(xd->mclpwm);
+	enable(xd->mclpbm);
     } else {
 	disable(xd->madd);
 	disable(xd->mprint);
 	disable(xd->msubsave);
 	disable(xd->mpng);
+	disable(xd->mbmp);
 	disable(xd->mjpeg50);
 	disable(xd->mjpeg75);
 	disable(xd->mjpeg100);
 	disable(xd->mwm);
 	disable(xd->mps);
 	disable(xd->mclpwm);
+	disable(xd->mclpbm);
+    }
     draw(xd->mbar);
+}
   MCHECK(m = newmenu("File"));
   MCHECK(xd->msubsave = newsubmenu(m, "Save as"));
   MCHECK(xd->mwm = newmenuitem("Metafile", 0, menuwm));
   MCHECK(xd->mps = newmenuitem("Postscript", 0, menups));
   MCHECK(xd->mpng = newmenuitem("Png", 0, menufilebitmap));
+  MCHECK(xd->mbmp = newmenuitem("Bmp", 0, menufilebitmap));
   MCHECK(newsubmenu(xd->msubsave,"Jpeg"));
   MCHECK(xd->mjpeg50 = newmenuitem("50% quality", 0, menufilebitmap));
   MCHECK(xd->mjpeg75 = newmenuitem("75% quality", 0, menufilebitmap));
   MCHECK(xd->mjpeg100 = newmenuitem("100% quality", 0, menufilebitmap));
   MCHECK(newsubmenu(m, "Copy to the clipboard"));
 			    getdepth(xd->gawin)));
   addto(xd->gawin);
   setdata(xd->mbar, (void *) dd);
   setdata(xd->mpng, (void *) dd);
+  setdata(xd->mbmp, (void *) dd);
   setdata(xd->mjpeg50, (void *) dd);
   setdata(xd->mjpeg75, (void *) dd);
   setdata(xd->mjpeg100, (void *) dd);
   setdata(xd->mps, (void *) dd);
   setdata(xd->mwm, (void *) dd);
     } else if (!strcmp(dsp, "win.print")) {
 	xd->kind = PRINTER;
 	xd->gawin = newprinter(MM_PER_INCH * w, MM_PER_INCH * h);
 	if (!xd->gawin)
 	    return 0;
-    } else if (!strncmp(dsp, "png:", 4)) {
+    } else if (!strncmp(dsp, "png:", 4) || !strncmp(dsp,"bmp:",4)) {
-        xd->kind = PNG ;
+        xd->kind = (dsp[0]=='p') ? PNG : BMP;
 	if (!Load_Rbitmap_Dll()) {
 	  warning("Impossible to load Rbitmap.dll");
 	  return 0;
+	}
 	/*
 	  warning("Impossible to load Rbitmap.dll");
 	  return 0;
+	}
 	*p = '\0';
 	xd->quality = atoi(&dsp[5]);
+	*p = ':' ;
 	if (((xd->gawin = newbitmap(w,h,256)) == NULL) ||
 	    ((xd->fp=fopen(p+1,"wb")) == NULL )) {
 	  if (xd->gawin != NULL) del(xd->gawin);
 	  if (xd->fp != NULL) fclose(xd->fp);
 	  return 0;
     rr = getrect(xd->gawin);
     xd->windowWidth = rr.width;
     xd->windowHeight = rr.height;
     xd->clip = rr;
     xd->truedpi = devicepixelsy(xd->gawin);
-    if ((xd->kind==PNG) || (xd->kind==JPEG))
+    if ((xd->kind==PNG) || (xd->kind==JPEG) || (xd->kind==BMP))
       xd->wanteddpi = 72 ;
     else
       xd->wanteddpi = xd->truedpi;
     setdata(xd->gawin, (void *) dd);
     xd->needsave = 0;
 	error("A metafile can store only one figure.");
     if ((xd->kind == PNG) && xd->needsave)
 	error("A png file can store only one figure.");
     if ((xd->kind == JPEG) && xd->needsave)
 	error("A jpeg file can store only one figure.");
+    if ((xd->kind == BMP) && xd->needsave)
+	error("A bmp file can store only one figure.");
     if (xd->kind==SCREEN) {
 	if (xd->recording && xd->needsave)
 	    AddtoPlotHistory(savedDisplayList, &savedGPar, 0);
 	if (xd->replaying)
 	    xd->needsave = 0;
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
     if (xd->kind==SCREEN) {
 	hide(xd->gawin);
 	del(xd->bm);
-    } else if ((xd->kind == PNG) || (xd->kind == JPEG) ) {
+    } else if ((xd->kind == PNG) || (xd->kind == JPEG) || (xd->kind == BMP)) {
       SaveAsBitmap(dd);
+    }
     del(xd->font);
     del(xd->gawin);
 /*
 	errorcall(call, "invalid filename argument");
     tp = CHAR(STRING(type)[0]);
     if(!strcmp(tp, "png")) {
 	SaveAsPng(dd, fn);
+    } else if (!strcmp(tp,"bmp")) {
+        SaveAsBmp(dd,fn);
     } else if(!strcmp(tp, "jpeg") || !strcmp(tp,"jpg")) {
       /*Default quality suggested in libjpeg*/
         SaveAsJpeg(dd, 75, fn);
     } else if (!strcmp(tp, "wmf")) {
 	sprintf(display, "win.metafile:%s", fn);
 /* Rbitmap  */
 #define BITMAP_DLL_NAME "\\BIN\\RBITMAP.DLL\0"
 typedef int (*R_SaveAsBitmap)();
-static R_SaveAsBitmap R_SaveAsPng, R_SaveAsJpeg;
+static R_SaveAsBitmap R_SaveAsPng, R_SaveAsJpeg, R_SaveAsBmp;
 static int RbitmapAlreadyLoaded=0;
 static HINSTANCE hRbitmapDll;
 static int Load_Rbitmap_Dll()
+{
    strcat(szFullPath, BITMAP_DLL_NAME);
    if (((hRbitmapDll = LoadLibrary(szFullPath)) != NULL) &&
        ((R_SaveAsPng=
 	 (R_SaveAsBitmap)GetProcAddress(hRbitmapDll,"R_SaveAsPng"))
 	!= NULL) &&
+       ((R_SaveAsBmp=
+	 (R_SaveAsBitmap)GetProcAddress(hRbitmapDll,"R_SaveAsBmp"))
+	!= NULL) &&
        ((R_SaveAsJpeg=
 	 (R_SaveAsBitmap)GetProcAddress(hRbitmapDll,"R_SaveAsJpeg"))
 	!= NULL)) {
      RbitmapAlreadyLoaded = 1;
    } else {
+}
 /* This is the device version */
 static void SaveAsBitmap(DevDesc *dd)
+{
+  rect r;
   x11Desc *xd = (x11Desc *) dd->deviceSpecific;
+  r = ggetcliprect(xd->gawin);
+  gsetcliprect(xd->gawin,getrect(xd->gawin));
   if (xd->kind==PNG)
     R_SaveAsPng(xd->gawin,xd->windowWidth, xd->windowHeight,
 		privategetpixel,0,xd->fp) ;
-  else
+  else if (xd->kind==JPEG)
     R_SaveAsJpeg(xd->gawin, xd->windowWidth, xd->windowHeight,
 		 privategetpixel,0,xd->quality,xd->fp) ;
+  else
+    R_SaveAsBmp(xd->gawin, xd->windowWidth, xd->windowHeight,
+		 privategetpixel,0,xd->fp) ;
+  gsetcliprect(xd->gawin,r);
   fclose(xd->fp);
+}
-/* This is the menu item version */
+/* This are the menu item version */
 static void SaveAsPng(DevDesc *dd,char *fn)
+{
   FILE *fp;
+  rect r;
   x11Desc *xd = (x11Desc *) dd->deviceSpecific;
   if (!Load_Rbitmap_Dll()) {
     R_ShowMessage("Impossible to load Rbitmap.dll");
     return;
+  }
     strcpy(msg,"Impossible to open ");
     strncat(msg,fn,MAX_PATH);
     R_ShowMessage(msg);
     return;
+  }
+  r = ggetcliprect(xd->bm);
+  gsetcliprect(xd->bm,getrect(xd->bm));
   R_SaveAsPng(xd->bm,xd->windowWidth, xd->windowHeight,
 	      privategetpixel,0,fp) ;
+  gsetcliprect(xd->bm,r);
   fclose(fp);
+}
 static void SaveAsJpeg(DevDesc *dd,int quality,char *fn)
+{
   FILE *fp;
+  rect r;
   x11Desc *xd = (x11Desc *) dd->deviceSpecific;
   if (!Load_Rbitmap_Dll()) {
     R_ShowMessage("Impossible to load Rbitmap.dll");
     return;
+  }
     strcpy(msg,"Impossible to open ");
     strncat(msg,fn,MAX_PATH);
     R_ShowMessage(msg);
     return;
+  }
+  r = ggetcliprect(xd->bm);
+  gsetcliprect(xd->bm,getrect(xd->bm));
   R_SaveAsJpeg(xd->bm,xd->windowWidth, xd->windowHeight,
 	      privategetpixel,0,quality,fp) ;
+  gsetcliprect(xd->bm,r);
   fclose(fp);
+}
+static void SaveAsBmp(DevDesc *dd,char *fn)
+{
+  FILE *fp;
+  rect r;
+  x11Desc *xd = (x11Desc *) dd->deviceSpecific;
+  if (!Load_Rbitmap_Dll()) {
+    R_ShowMessage("Impossible to load Rbitmap.dll");
+    return;
+  }
+  if ((fp=fopen(fn,"wb"))==NULL) {
+    char msg[MAX_PATH+32];
+    strcpy(msg,"Impossible to open ");
+    strncat(msg,fn,MAX_PATH);
+    R_ShowMessage(msg);
+    return;
+  }
+  r = ggetcliprect(xd->bm);
+  gsetcliprect(xd->bm,getrect(xd->bm));
+  R_SaveAsBmp(xd->bm,xd->windowWidth, xd->windowHeight,
+	      privategetpixel,0,fp) ;
+  gsetcliprect(xd->bm,r);
+  fclose(fp);
+}

The R Project SVN R

(root)/branches/R-exp-API/src/gnuwin32/devga.c @ 63243 – Rev 6430 → 6458