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

 #include "windows.h"
 extern console RConsole;
 extern int AllDevicesKilled;
 	/********************************************************/
 	/* This device driver has been documented so that it be	*/
 	/* used as a template for new drivers 			*/
 	/********************************************************/
 #define MM_PER_INCH	25.4	/* mm -> inch conversion */
 #define TRACEDEVGA(a)
-#define NOBM(a) if(!xd->kind){a;}
+#define NOBM(a) if(xd->kind==SCREEN){a;}
 #define CLIP if (xd->clip.width>0) gsetcliprect(_d,xd->clip)
 #define DRAW(a) {drawing _d=xd->gawin;CLIP;a;NOBM(_d=xd->bm;CLIP;a;)}
 #define SHOW  gbitblt(xd->gawin,xd->bm,pt(0,0),getrect(xd->bm));
         /********************************************************/
 	/* 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};
 typedef struct {
     /* R Graphics Parameters */
     /* local device copy so that we can detect */
     /* when parameter changes */
     int   col;			/* Color */
     double fontangle;
     /* X11 Driver Specific */
     /* parameters with copy per x11 device */
-    int   kind;
+    enum DeviceKinds kind;
     int   windowWidth;		/* Window width (pixels) */
     int   windowHeight;		/* Window height (pixels) */
     int   resize;		/* Window resized */
     window gawin;		/* Graphics window */
+  /*FIXME: we should have union for this stuff and
+    maybe change gawin to canvas*/
+  /* SCREEN section*/
     popup locpopup, grpopup;
     button  stoploc;
     menubar mbar, mbarloc;
     menu  msubsave;
+    menuitem mpng, mjpeg50, mjpeg75, mjpeg100;
-    menuitem mgif, mps, mwm, mclpbm, mclpwm, mprint, mclose;
+    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 */
+    FILE *fp;
+    int quality;
+  /*Used to rescale font size so that bitmap devices have 72dpi */
+    int truedpi, wanteddpi;
     rgb   fgcolor;		/* Foreground color */
     rgb   bgcolor;		/* Background color */
     rect  clip;			/* The clipping rectangle */
     int   usefixed;
     font  fixedfont;
 static double pixelHeight(drawing  d);
 static double pixelWidth(drawing d);
 static void SetColor(int, DevDesc *);
 static void SetFont(int, int, double, DevDesc *);
 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 SaveAsBitmap(DevDesc *dd);
 void  ProcessEvents();
-static void SaveAsGif(DevDesc *dd, char *fn)
-{
-    x11Desc *xd = (x11Desc *) dd->deviceSpecific;
-    image img;
-    int   l;
-    l = strlen(fn);
-    if ((l < 5) || strcmpi(&fn[l - 4], ".gif")) {
-	R_ShowMessage("File extension must be .gif");
-	return;
-    }
-    img = bitmaptoimage(xd->bm);
-    if (!img) {
-	R_ShowMessage("Insufficient memory to copy graphics device");
-	return;
-    }
-    saveimage(img, fn);
-    del(img);
-}
 static void PrivateCopyDevice(DevDesc *dd,DevDesc *ndd, char *name)
+{
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
     gsetcursor(xd->gawin, WatchCursor);
     gsetVar(install(".Device"),
    if (PSDeviceDriver(ndd, fn, paper, family, bg, fg,
 		      GConvertXUnits(1.0, NDC, INCHES, dd),
 		      GConvertYUnits(1.0, NDC, INCHES, dd),
 		      (double)0, dd->gp.ps, 0, 1))
     /* horizontal=F, onefile=F, pagecentre=T */
-        PrivateCopyDevice(dd, ndd, "postscript");
+     PrivateCopyDevice(dd, ndd, "postscript");
+}
 			/* Pixel Dimensions (Inches) */
 	if (oops[0]) {
 	    optclosefile();
 	    strcat(oops, optfile());
 	    strcat(oops, " will be ignored.");
 	    R_ShowMessage(oops);
-	    for (i = 0; i < fontnum; i++) winfree(fontname);
+	    for (i = 0; i < fontnum; i++) free(fontname);
 	    RStandardFonts();
 	    notdone = 0;
+	}
 	if (fontnum == MAXFONT) {
 	    optclosefile();
+{
     xd->fontface = 1;
     xd->fontsize = 12;
     xd->fontangle = 0.0;
     xd->usefixed = 0;
-    xd->font = gnewfont(xd->gawin, fontname[0], fontstyle[0], 12, 0.0);
+    xd->font = gnewfont(xd->gawin, fontname[0], fontstyle[0],
+			MulDiv(12,xd->wanteddpi,xd->truedpi), 0.0);
     if (!xd->font) {
 	xd->usefixed = 1;
 	xd->font = xd->fixedfont = FixedFont;
 	if (!xd->fixedfont)
 	    return 0;
+}
  /* Set the font size and face */
-			/* If the font of this size and at that the specified */
+/* If the font of this size and at that the specified */
-			/* rotation is not present it is loaded. */
+/* rotation is not present it is loaded. */
-			/* 0 = plain text, 1 = bold */
+/* 0 = plain text, 1 = bold */
-			/* 2 = oblique, 3 = bold-oblique */
+/* 2 = oblique, 3 = bold-oblique */
 #define SMALLEST 8
 #define LARGEST 64
 static void SetFont(int face, int size, double rot, DevDesc *dd)
+{
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
     if (face < 1 || face > fontnum)
 	face = 1;
-    size = 2 * size / 2;
+    size = MulDiv(12,xd->wanteddpi,xd->truedpi);
     if (size < SMALLEST)
 	size = SMALLEST;
     if (size > LARGEST)
 	size = LARGEST;
     if (!xd->usefixed &&
 static void HelpClose(window w)
+{
     if (AllDevicesKilled) return;
+    {
 	DevDesc *dd = (DevDesc *) getdata(w);
 	KillDevice(dd);
+    }
+}
 static void HelpExpose(window w,rect r)
   xd->clicked = 2;
+}
 void  fixslash(char *);
-static void menugif(control m)
+static void menufilebitmap(control m)
+{
     DevDesc *dd = (DevDesc *) getdata(m);
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
     char *fn;
+    if (m==xd->mpng) {
-    setuserfilter("Gif files (*.gif)\0*.gif\0\0");
+      setuserfilter("Png files (*.png)\0*.png\0\0");
-    fn = askfilesave("Gif file", "");
+      fn = askfilesave("Png 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->mjpeg50) SaveAsJpeg(dd,50,fn);
+    else if (m==xd->mjpeg75) SaveAsJpeg(dd,75,fn);
-    SaveAsGif(dd,fn);
+    else SaveAsJpeg(dd,100,fn);
     gsetcursor(xd->gawin, ArrowCursor);
     show(xd->gawin);
+}
 	disable(xd->mclear);
+    }
     if (dd->displayList != R_NilValue) {
 	enable(xd->madd);
 	enable(xd->mprint);
-	enable(xd->mgif);
+	enable(xd->mpng);
+	enable(xd->mjpeg50);
+	enable(xd->mjpeg75);
+	enable(xd->mjpeg100);
 	enable(xd->mwm);
 	enable(xd->mps);
 	enable(xd->mclpwm);
     } else {
 	disable(xd->madd);
 	disable(xd->mprint);
 	disable(xd->msubsave);
-	disable(xd->mgif);
+	disable(xd->mpng);
+	disable(xd->mjpeg50);
+	disable(xd->mjpeg75);
+	disable(xd->mjpeg100);
 	disable(xd->mwm);
 	disable(xd->mps);
 	disable(xd->mclpwm);
+    }
     draw(xd->mbar);
 	/* of course :)						*/
 	/********************************************************/
 #define MCHECK(m) {if(!(m)) {del(xd->gawin); return 0;}}
+static int setupScreenDevice(DevDesc *dd, x11Desc *xd, int w, int h)
+{
+  menu  m;
+  int   iw, ih;
+  double dw, dh, d;
+  xd->kind = SCREEN;
+  dw = w / pixelWidth(NULL);
+  dh = h / pixelHeight(NULL);
+  if ((dw / devicewidth(NULL)) > 0.85) {
+    d = dh / dw;
+    dw = 0.85 * devicewidth(NULL);
+    dh = d * dw;
+  }
+  if ((dh / deviceheight(NULL)) > 0.85) {
+    d = dw / dh;
+    dh = 0.85 * deviceheight(NULL);
+    dw = d * dh;
+  }
+  iw = dw + 0.5;
+  ih = dh + 0.5;
+  if (!(xd->gawin = newwindow("R Graphics",
+			     rect(devicewidth(NULL) - iw - 5, 0, iw, ih),
+			     Document | StandardWindow | Menubar))) {
+    return 0;
+  }
+  addto(xd->gawin);
+  gsetcursor(xd->gawin, ArrowCursor);
+  if (ismdi() && (RguiMDI & RW_TOOLBAR)) {
+    int btsize = 24;
+    rect r = rect(2, 2, btsize, btsize);
+    control bt, tb;
+    MCHECK(tb = newtoolbar(btsize + 4));
+    gsetcursor(tb, ArrowCursor);
+    addto(tb);
+    MCHECK(bt = newtoolbutton(cam_image, r, menuclpwm));
+    MCHECK(addtooltip(bt, "Copy to the clipboard as a metafile"));
+    gsetcursor(bt, ArrowCursor);
+    setdata(bt, (void *) dd);
+    r.x += (btsize + 6);
+    MCHECK(bt = newtoolbutton(print_image, r, menuprint));
+    MCHECK(addtooltip(bt, "Print"));
+    gsetcursor(bt, ArrowCursor);
+    setdata(bt, (void *) dd);
+    r.x += (btsize + 6);
+    MCHECK(bt = newtoolbutton(console_image, r, menuconsole));
+    MCHECK(addtooltip(bt, "Return focus to console"));
+    gsetcursor(bt, ArrowCursor);
+    setdata(bt, (void *) dd);
+    r.x += (btsize + 6);
+    MCHECK(xd->stoploc = newtoolbutton(stop_image, r, menustop));
+    MCHECK(addtooltip(xd->stoploc, "Stop locator"));
+    gsetcursor(bt, ArrowCursor);
+    setdata(xd->stoploc,(void *) dd);
+    hide(xd->stoploc);
+  } else
+    xd->stoploc = NULL;
+  /* First we prepare 'locator' menubar and popup */
+  addto(xd->gawin);
+  MCHECK(xd->mbarloc = newmenubar(NULL));
+  MCHECK(newmenu("Stop"));
+  MCHECK(m = newmenuitem("Stop locator", 0, menustop));
+  setdata(m, (void *) dd);
+  MCHECK(xd->locpopup = newpopup(NULL));
+  MCHECK(m = newmenuitem("Stop", 0, menustop));
+  setdata(m, (void *) dd);
+  MCHECK(newmenuitem("Continue", 0, NULL));
+  /* Normal menubar */
+  MCHECK(xd->mbar = newmenubar(mbarf));
+  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(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"));
+  MCHECK(xd->mclpbm = newmenuitem("as a Bitmap\tCTRL+C", 0, menuclpbm));
+  MCHECK(xd->mclpwm = newmenuitem("as a Metafile\tCTRL+W", 0, menuclpwm));
+  addto(m);
+  MCHECK(newmenuitem("-", 0, NULL));
+  MCHECK(xd->mprint = newmenuitem("Print\tCTRL+P", 0, menuprint));
+  MCHECK(newmenuitem("-", 0, NULL));
+  MCHECK(xd->mclose = newmenuitem("close Device", 0, menuclose));
+  MCHECK(newmenu("History"));
+  MCHECK(xd->mrec = newmenuitem("Recording", 0, menurec));
+  MCHECK(newmenuitem("-", 0, NULL));
+  MCHECK(xd->madd = newmenuitem("Add\tINS", 0, menuadd));
+  MCHECK(xd->mreplace = newmenuitem("Replace", 0, menureplace));
+  MCHECK(newmenuitem("-", 0, NULL));
+  MCHECK(xd->mprev = newmenuitem("Previous\tPgUp", 0, menuprev));
+  MCHECK(xd->mnext = newmenuitem("Next\tPgDown", 0, menunext));
+  MCHECK(newmenuitem("-", 0, NULL));
+  MCHECK(xd->msvar = newmenuitem("Save to variable", 0, menusvar));
+  MCHECK(xd->mgvar = newmenuitem("Get from variable", 0, menugvar));
+  MCHECK(newmenuitem("-", 0, NULL));
+  MCHECK(xd->mclear = newmenuitem("Clear history", 0, menuclear));
+  newmdimenu();
+  /* Normal popup */
+  MCHECK(xd->grpopup = newpopup(NULL));
+  MCHECK(m = newmenuitem("Copy as metafile", 0, menuclpwm));
+  setdata(m, (void *) dd);
+  MCHECK(m = newmenuitem("Copy as bitmap", 0, menuclpbm));
+  setdata(m, (void *) dd);
+  MCHECK(newmenuitem("-", 0, NULL));
+  MCHECK(m = newmenuitem("Save as metafile", 0, menuwm));
+  setdata(m, (void *) dd);
+  MCHECK(m = newmenuitem("Save as postscript", 0, menups));
+  setdata(m, (void *) dd);
+  MCHECK(newmenuitem("-", 0, NULL));
+  MCHECK(m = newmenuitem("Print", 0, menuprint));
+  setdata(m, (void *) dd);
+  gchangepopup(xd->gawin, xd->grpopup);
+  MCHECK(xd->bm = newbitmap(getwidth(xd->gawin), getheight(xd->gawin),
+			    getdepth(xd->gawin)));
+  addto(xd->gawin);
+  setdata(xd->mbar, (void *) dd);
+  setdata(xd->mpng, (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);
+  setdata(xd->mclpwm, (void *) dd);
+  setdata(xd->mclpbm, (void *) dd);
+  setdata(xd->mprint, (void *) dd);
+  setdata(xd->mclose, (void *) dd);
+  setdata(xd->mrec, (void *) dd);
+  setdata(xd->mprev, (void *) dd);
+  setdata(xd->mnext, (void *) dd);
+  setdata(xd->mgvar, (void *) dd);
+  setdata(xd->madd, (void *) dd);
+  setdata(xd->mreplace, (void *) dd);
+  show(xd->gawin);
+  show(xd->gawin);
+  setresize(xd->gawin, HelpResize);
+  setredraw(xd->gawin, HelpExpose);
+  setmousedown(xd->gawin, HelpMouseClick);
+  setkeydown(xd->gawin, NHelpKeyIn);
+  setkeyaction(xd->gawin, CHelpKeyIn);
+  setclose(xd->gawin, HelpClose);
+  xd->recording = 0;
+  xd->replaying = 0;
+  return 1;
+}
 static int X11_Open(DevDesc *dd, x11Desc *xd, char *dsp,
                     double w, double h)
+{
-    /* if have to bail out with "error" then must */
-    /* free(dd) and free(xd) */
-    int   iw, ih;
-    double dw, dh, d;
     rect  rr;
     if (!fontinitdone)
 	RFontInit();
     /* Foreground and Background Colors */
     xd->bg = dd->dp.bg = R_RGB(255, 255, 255);
     xd->fg = dd->dp.fg = R_RGB(0, 0, 0);
     xd->col = dd->dp.col = xd->fg;
     xd->fgcolor = Black;
     xd->bgcolor = White;
-    /* Try to create a simple window */
-    /* Want to know about exposures */
-    /* and window-resizes and locations */
     if (!dsp[0]) {
-	xd->kind = 0;
-	dw = w / pixelWidth(NULL);
-	dh = h / pixelHeight(NULL);
-	if ((dw / devicewidth(NULL)) > 0.85) {
-	    d = dh / dw;
-	    dw = 0.85 * devicewidth(NULL);
-	    dh = d * dw;
-	}
-	if ((dh / deviceheight(NULL)) > 0.85) {
-	    d = dw / dh;
-	    dh = 0.85 * deviceheight(NULL);
-	    dw = d * dh;
-	}
-	iw = dw + 0.5;
-	ih = dh + 0.5;
-	if ((xd->gawin = newwindow("R Graphics",
-				rect(devicewidth(NULL) - iw - 5, 0, iw, ih),
-				   Document | StandardWindow | Menubar))) {
-	    menu  m;
-            gsetcursor(xd->gawin, ArrowCursor);
-            if (ismdi() && (RguiMDI & RW_TOOLBAR)) {
-                int btsize = 24;
-                rect r = rect(2, 2, btsize, btsize);
+      if (!setupScreenDevice(dd, xd, w, h)) return 0;
-                control bt, tb;
-                MCHECK(tb = newtoolbar(btsize + 4));
-		gsetcursor(tb, ArrowCursor);
-                addto(tb);
-                MCHECK(bt = newtoolbutton(cam_image, r, menuclpwm));
-                MCHECK(addtooltip(bt, "Copy to the clipboard as a metafile"));
-		gsetcursor(bt, ArrowCursor);
-		setdata(bt, (void *) dd);
-                r.x += (btsize + 6);
-                MCHECK(bt = newtoolbutton(print_image, r, menuprint));
-                MCHECK(addtooltip(bt, "Print"));
-		gsetcursor(bt, ArrowCursor);
-                setdata(bt, (void *) dd);
-                r.x += (btsize + 6);
-                MCHECK(bt = newtoolbutton(console_image, r, menuconsole));
-                MCHECK(addtooltip(bt, "Return focus to console"));
-		gsetcursor(bt, ArrowCursor);
-                setdata(bt, (void *) dd);
-                r.x += (btsize + 6);
-                MCHECK(xd->stoploc = newtoolbutton(stop_image, r, menustop));
-                MCHECK(addtooltip(xd->stoploc, "Stop locator"));
-		gsetcursor(bt, ArrowCursor);
-                setdata(xd->stoploc,(void *) dd);
-                hide(xd->stoploc);
-            } else
-                xd->stoploc = NULL;
-	    /* First we prepare 'locator' menubar and popup */
-            addto(xd->gawin);
-	    MCHECK(xd->mbarloc = newmenubar(NULL));
-	    MCHECK(newmenu("Stop"));
-	    MCHECK(m = newmenuitem("Stop locator", 0, menustop));
-            setdata(m, (void *) dd);
-	    MCHECK(xd->locpopup = newpopup(NULL));
-	    MCHECK(m = newmenuitem("Stop", 0, menustop));
-            setdata(m, (void *) dd);
-	    MCHECK(newmenuitem("Continue", 0, NULL));
-	    /* Normal menubar */
-	    MCHECK(xd->mbar = newmenubar(mbarf));
-	    MCHECK(m = newmenu("File"));
-	    MCHECK(xd->msubsave = newsubmenu(m, "Save as"));
-	    MCHECK(xd->mgif = newmenuitem("Gif", 0, menugif));
-	    MCHECK(xd->mwm = newmenuitem("Metafile", 0, menuwm));
-	    MCHECK(xd->mps = newmenuitem("Postscript", 0, menups));
-	    MCHECK(newsubmenu(m, "Copy to the clipboard"));
-	    MCHECK(xd->mclpbm = newmenuitem("as a Bitmap\tCTRL+C", 0,
-					    menuclpbm));
-	    MCHECK(xd->mclpwm = newmenuitem("as a Metafile\tCTRL+W", 0,
-					    menuclpwm));
-	    addto(m);
-	    MCHECK(newmenuitem("-", 0, NULL));
-	    MCHECK(xd->mprint = newmenuitem("Print\tCTRL+P", 0, menuprint));
-	    MCHECK(newmenuitem("-", 0, NULL));
-	    MCHECK(xd->mclose = newmenuitem("close Device", 0, menuclose));
-	    MCHECK(newmenu("History"));
-	    MCHECK(xd->mrec = newmenuitem("Recording", 0, menurec));
-	    MCHECK(newmenuitem("-", 0, NULL));
-	    MCHECK(xd->madd = newmenuitem("Add\tINS", 0, menuadd));
-	    MCHECK(xd->mreplace = newmenuitem("Replace", 0, menureplace));
-	    MCHECK(newmenuitem("-", 0, NULL));
-	    MCHECK(xd->mprev = newmenuitem("Previous\tPgUp", 0, menuprev));
-	    MCHECK(xd->mnext = newmenuitem("Next\tPgDown", 0, menunext));
-	    MCHECK(newmenuitem("-", 0, NULL));
-	    MCHECK(xd->msvar = newmenuitem("Save to variable", 0, menusvar));
-	    MCHECK(xd->mgvar = newmenuitem("Get from variable", 0, menugvar));
-	    MCHECK(newmenuitem("-", 0, NULL));
-	    MCHECK(xd->mclear = newmenuitem("Clear history", 0, menuclear));
-	    newmdimenu();
-	    /* Normal popup */
-	    MCHECK(xd->grpopup = newpopup(NULL));
-	    MCHECK(m = newmenuitem("Copy as metafile", 0, menuclpwm));
-            setdata(m, (void *) dd);
-	    MCHECK(m = newmenuitem("Copy as bitmap", 0, menuclpbm));
-            setdata(m, (void *) dd);
-	    MCHECK(newmenuitem("-", 0, NULL));
-	    MCHECK(m = newmenuitem("Save as metafile", 0, menuwm));
-            setdata(m, (void *) dd);
-	    MCHECK(m = newmenuitem("Save as postscript", 0, menups));
-            setdata(m, (void *) dd);
-	    MCHECK(newmenuitem("-", 0, NULL));
-	    MCHECK(m = newmenuitem("Print", 0, menuprint));
-            setdata(m, (void *) dd);
-            gchangepopup(xd->gawin, xd->grpopup);
-	}
     } else if (!strcmp(dsp, "win.print")) {
-	xd->kind = 1;
+	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)) {
+        xd->kind = PNG ;
+	if (!Load_Rbitmap_Dll()) {
+	  warning("Impossible to load Rbitmap.dll");
+	  return 0;
+	}
+	/*
+	  Observe that given actual graphapp implementation 256 is
+	  irrilevant,i.e., depth of the bitmap is the one of graphic card
+	  if required depth > 1
+	*/
+	if (((xd->gawin = newbitmap(w,h,256)) == NULL) ||
+	    ((xd->fp=fopen(&dsp[4],"wb")) == NULL )) {
+	  if (xd->gawin != NULL) del(xd->gawin);
+	  if (xd->fp != NULL) fclose(xd->fp);
+	  return 0;
+	}
+    } else if (!strncmp(dsp, "jpeg:", 5)) {
+        char *p = strchr(&dsp[5], ':');
+        xd->kind = JPEG ;
+	if (!p) return 0;
+	if (!Load_Rbitmap_Dll()) {
+	  warning("Impossible to load Rbitmap.dll");
+	  return 0;
+	}
+	*p = '\0';
+	xd->quality = atoi(&dsp[5]);
+	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;
+	}
     } else {
-/*
+	/*
- *         win.metafile[:] in memory (for the clipboard)
+	 * win.metafile[:] in memory (for the clipboard)
- *         win.metafile:filename
+	 * win.metafile:filename
- *         anything else return 0
+	 * anything else return 0
- */
+	 */
 	char  *s = "win.metafile";
 	int   ls = strlen(s);
 	int   ld = strlen(dsp);
 	if (ls > ld)
 	    return 0;
 	if (strncmp(dsp, s, ls) || (dsp[ls] && (dsp[ls] != ':')))
 	    return 0;
 	xd->gawin = newmetafile((ld > ls) ? &dsp[ls + 1] : "",
 				rect(0, 0, MM_PER_INCH * w, MM_PER_INCH * h));
-	xd->kind = 2;
+	xd->kind = METAFILE;
 	if (!xd->gawin)
 	    return 0;
+    }
     if (!SetBaseFont(xd)) {
 	Rprintf("can't find any fonts\n");
 	del(xd->gawin);
+	if (xd->kind==SCREEN) del(xd->bm);
 	return 0;
+    }
     rr = getrect(xd->gawin);
-    iw = xd->windowWidth = rr.width;
+    xd->windowWidth = rr.width;
-    ih = xd->windowHeight = rr.height;
+    xd->windowHeight = rr.height;
     xd->clip = rr;
+    xd->truedpi = devicepixelsy(xd->gawin);
+    if ((xd->kind==PNG) || (xd->kind==JPEG))
+      xd->wanteddpi = 72 ;
+    else
+      xd->wanteddpi = xd->truedpi;
     setdata(xd->gawin, (void *) dd);
-    if (!xd->kind) {
-	xd->bm = newbitmap(iw, ih, getdepth(xd->gawin));
-	if (!xd->bm) {
-	    del(xd->gawin);
-	    return 0;
-	}
-	addto(xd->gawin);
-	setdata(xd->mbar, (void *) dd);
-	setdata(xd->mgif, (void *) dd);
-	setdata(xd->mps, (void *) dd);
-	setdata(xd->mwm, (void *) dd);
-	setdata(xd->mclpwm, (void *) dd);
-	setdata(xd->mclpbm, (void *) dd);
-	setdata(xd->mprint, (void *) dd);
-	setdata(xd->mclose, (void *) dd);
-	setdata(xd->mrec, (void *) dd);
-	setdata(xd->mprev, (void *) dd);
-	setdata(xd->mnext, (void *) dd);
-	setdata(xd->mgvar, (void *) dd);
-	setdata(xd->madd, (void *) dd);
-	setdata(xd->mreplace, (void *) dd);
-	show(xd->gawin);
-	show(xd->gawin);
-	setresize(xd->gawin, HelpResize);
-	setredraw(xd->gawin, HelpExpose);
-	setmousedown(xd->gawin, HelpMouseClick);
-	setkeydown(xd->gawin, NHelpKeyIn);
-	setkeyaction(xd->gawin, CHelpKeyIn);
-	setclose(xd->gawin, HelpClose);
-	xd->recording = 0;
-	xd->replaying = 0;
-    }
     xd->needsave = 0;
     return 1;
+}
 	/********************************************************/
 	dd->dp.left = dd->gp.left = 0.0;
 	dd->dp.right = dd->gp.right = iw = xd->windowWidth;
 	dd->dp.bottom = dd->gp.bottom = ih = xd->windowHeight;
 	dd->dp.top = dd->gp.top = 0.0;
 	xd->resize = 0;
-	if (!xd->kind) {
+	if (xd->kind==SCREEN) {
 	    del(xd->bm);
 	    xd->bm = newbitmap(iw, ih, getdepth(xd->gawin));
 	    if (!xd->bm) {
 		R_ShowMessage("Insufficient memory for resize. Killing device");
 		KillDevice(dd);
 static void X11_NewPage(DevDesc *dd)
+{
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
-    if ((xd->kind == 1) && xd->needsave)
+    if ((xd->kind == PRINTER) && xd->needsave)
 	nextpage(xd->gawin);
-    if ((xd->kind == 2) && xd->needsave)
+    if ((xd->kind == METAFILE) && xd->needsave)
 	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) {
+    if (xd->kind==SCREEN) {
 	if (xd->recording && xd->needsave)
 	    AddtoPlotHistory(savedDisplayList, &savedGPar, 0);
 	if (xd->replaying)
 	    xd->needsave = 0;
 	else
+    }
     xd->bg = dd->dp.bg;
     xd->bgcolor = rgb(R_RED(xd->bg),
 		      R_GREEN(xd->bg),
 		      R_BLUE(xd->bg));
-    if (xd->kind)
+    if (xd->kind!=SCREEN) {
+      xd->needsave = 1;
-       xd->clip = getrect(xd->gawin);
+      xd->clip = getrect(xd->gawin);
-    else
+    } else {
-       xd->clip = getrect(xd->bm);
+      xd->clip = getrect(xd->bm);
+    }
     DRAW(gfillrect(_d, xd->bgcolor, getrect(_d)));
-    if (xd->kind)
-	xd->needsave = 1;
+}
 	/********************************************************/
 	/* device_Close is called when the device is killed	*/
 	/* this function is responsible for destroying any 	*/
 static void X11_Close(DevDesc *dd)
+{
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
-    if (!xd->kind) {
+    if (xd->kind==SCREEN) {
 	hide(xd->gawin);
 	del(xd->bm);
+    } else if ((xd->kind == PNG) || (xd->kind == JPEG) ) {
+      SaveAsBitmap(dd);
     }
     del(xd->font);
     del(xd->gawin);
+/*
-    doevent();			/* this is needed since the GraphApp delayed
+ * this is needed since the GraphApp delayed clean-up
-				   clean-up */
-    /* ,i.e, I want free all resources NOW */
+ * ,i.e, I want free all resources NOW
+*/
+    doevent();
-    winfree(xd);
+    free(xd);
+}
 	/********************************************************/
 	/* device_Activate is called when a device becomes the 	*/
 	/* active device.  in this case it is used to change the*/
+{
     char  t[50];
     char  num[3];
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
-    if (xd->replaying || xd->kind)
+    if (xd->replaying || (xd->kind!=SCREEN))
 	return;
     strcpy(t, (char *) title);
     strcat(t, ": Device ");
     sprintf(num, "%i", deviceNumber(dd) + 1);
     strcat(t, num);
+{
     char  t[50];
     char  num[3];
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
-    if (xd->replaying || xd->kind)
+    if (xd->replaying || (xd->kind!=SCREEN))
 	return;
     strcpy(t, (char *) title);
     strcat(t, ": Device ");
     sprintf(num, "%i", deviceNumber(dd) + 1);
     strcat(t, num);
     SetFont(dd->gp.font, size, rot, dd);
     SetColor(dd->gp.col, dd);
 #ifdef NOCLIPTEXT
     gsetcliprect(xd->gawin, getrect(xd->gawin));
     gdrawstr(xd->gawin, xd->font, xd->fgcolor, pt(x, y), str);
-    if (!xd->kind) {
+    if (xd->kind==SCREEN) {
 	gsetcliprect(xd->bm, getrect(xd->bm));
 	gdrawstr(xd->bm, xd->font, xd->fgcolor, pt(x, y), str);
+    }
 #else
     DRAW(gdrawstr(_d, xd->font, xd->fgcolor, pt(x, y), str));
 static int X11_Locator(double *x, double *y, DevDesc *dd)
+{
     x11Desc *xd = (x11Desc *) dd->deviceSpecific;
-    if (xd->kind)
+    if (xd->kind!=SCREEN)
 	return 0;
     xd->locator = 1;
     xd->clicked = 0;
     show(xd->gawin);
     addto(xd->gawin);
     int   ps;
     x11Desc *xd;
     rect  rr;
     /* allocate new device description */
-    if (!(xd = (x11Desc *) winmalloc(sizeof(x11Desc))))
+    if (!(xd = (x11Desc *) malloc(sizeof(x11Desc))))
 	return 0;
     /* from here on, if need to bail out with "error", must also */
     /* free(xd) */
     dd->dp.ps = ps;
     /* Start the Device Driver and Hardcopy.  */
     if (!X11_Open(dd, xd, display, width, height)) {
-	winfree(xd);
+	free(xd);
 	return 0;
+    }
     /* Set up Data Structures  */
     dd->dp.open = X11_Open;
     dd->dp.metricInfo = X11_MetricInfo;
     /* set graphics parameters that must be set by device driver */
     /* Window Dimensions in Pixels */
     rr = getrect(xd->gawin);
-    dd->dp.left = (xd->kind == 1) ? rr.x : 0;	/* left */
+    dd->dp.left = (xd->kind == PRINTER) ? rr.x : 0;	/* left */
     dd->dp.right = dd->dp.left + rr.width;	/* right */
-    dd->dp.top = (xd->kind == 1) ? rr.y : 0;	/* top */
+    dd->dp.top = (xd->kind == PRINTER) ? rr.y : 0;	/* top */
     dd->dp.bottom = dd->dp.top + rr.height;	/* bottom */
     /* Nominal Character Sizes in Pixels */
     dd->dp.cra[0] = fontwidth(xd->font);
     xd->resize = 0;
     xd->locator = 0;
     dd->deviceSpecific = (void *) xd;
     dd->displayListOn = 1;
-    if (RConsole && xd->kind) show(RConsole);
+    if (RConsole && (xd->kind!=SCREEN)) show(RConsole);
     return 1;
+}
 SEXP do_saveDevga(SEXP call, SEXP op, SEXP args, SEXP env)
+{
     type = CADDR(args);
     if (!isString(type) || LENGTH(type) != 1)
 	errorcall(call, "invalid filename argument");
     tp = CHAR(STRING(type)[0]);
-    if(!strcmp(tp, "gif")) {
+    if(!strcmp(tp, "png")) {
-	SaveAsGif(dd, fn);
+	SaveAsPng(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);
 	SaveAsWin(dd, display);
     } else if (!strcmp(tp, "ps")) {
 	SaveAsPostscript(dd, fn);
     } else
 	errorcall(call, "unknown type");
     return R_NilValue;
+}
+/* Rbitmap  */
+#define BITMAP_DLL_NAME "\\BIN\\RBITMAP.DLL\0"
+typedef int (*R_SaveAsBitmap)();
+static R_SaveAsBitmap R_SaveAsPng, R_SaveAsJpeg;
+static int RbitmapAlreadyLoaded=0;
+static HINSTANCE hRbitmapDll;
+static int Load_Rbitmap_Dll()
+{
+ if (!RbitmapAlreadyLoaded) {
+   char szFullPath[PATH_MAX];
+   strcpy(szFullPath, R_HomeDir());
+   strcat(szFullPath, BITMAP_DLL_NAME);
+   if (((hRbitmapDll = LoadLibrary(szFullPath)) != NULL) &&
+       ((R_SaveAsPng=
+	 (R_SaveAsBitmap)GetProcAddress(hRbitmapDll,"R_SaveAsPng"))
+	!= NULL) &&
+       ((R_SaveAsJpeg=
+	 (R_SaveAsBitmap)GetProcAddress(hRbitmapDll,"R_SaveAsJpeg"))
+	!= NULL)) {
+     RbitmapAlreadyLoaded = 1;
+   } else {
+     if (hRbitmapDll != NULL) FreeLibrary(hRbitmapDll);
+     RbitmapAlreadyLoaded= -1;
+   }
+ }
+ return (RbitmapAlreadyLoaded>0);
+}
+void Unload_Rbitmap_Dll()
+{
+    if (RbitmapAlreadyLoaded) FreeLibrary(hRbitmapDll);
+    RbitmapAlreadyLoaded = 0;
+}
+static unsigned long privategetpixel(void *d,int i, int j) {
+  return ggetpixel((bitmap)d,pt(j,i));
+}
+/* This is the device version */
+static void SaveAsBitmap(DevDesc *dd)
+{
+  x11Desc *xd = (x11Desc *) dd->deviceSpecific;
+  if (xd->kind==PNG)
+    R_SaveAsPng(xd->gawin,xd->windowWidth, xd->windowHeight,
+		privategetpixel,0,xd->fp) ;
+  else
+    R_SaveAsJpeg(xd->gawin, xd->windowWidth, xd->windowHeight,
+		 privategetpixel,0,xd->quality,xd->fp) ;
+  fclose(xd->fp);
+}
+/* This is the menu item version */
+static void SaveAsPng(DevDesc *dd,char *fn)
+{
+  FILE *fp;
+  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_SaveAsPng(xd->bm,xd->windowWidth, xd->windowHeight,
+	      privategetpixel,0,fp) ;
+  fclose(fp);
+}
+static void SaveAsJpeg(DevDesc *dd,int quality,char *fn)
+{
+  FILE *fp;
+  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_SaveAsJpeg(xd->bm,xd->windowWidth, xd->windowHeight,
+	      privategetpixel,0,quality,fp) ;
+  fclose(fp);
+}

The R Project SVN R

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