The R Project SVN – R – Diff – /trunk/src/modules/X11/rbitmap.c

 /*
  *  R : A Computer Language for Statistical Data Analysis
- *  Copyright (C) 1999, 2001  Guido Masarotto and the R Development Core Team
+ *  Copyright (C) 1999, 2001, 2004  Guido Masarotto and the R Development Core Team
+ *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
  *  the Free Software Foundation; either version 2 of the License, or
  *  (at your option) any later version.
   warning("libpng: %s",(char *) msg);
+}
 int R_SaveAsPng(void  *d, int width, int height,
 		unsigned long (*gp)(void *, int, int),
-		int bgr, FILE *fp, unsigned int transparent)
+		int bgr, FILE *fp, unsigned int transparent, int res)
+{
   png_structp png_ptr;
   png_infop info_ptr;
   unsigned long  col, palette[256];
   png_color pngpalette[256];
 	  trans_values[0].green = GETGREEN(transparent);
+      }
       png_set_tRNS(png_ptr, info_ptr, trans, ncols, trans_values);
+  }
+  if(res > 0)
+      png_set_pHYs(png_ptr, info_ptr, res/0.0254, res/0.0254,
+		   PNG_RESOLUTION_METER);
   /* Write the file header information.  REQUIRED */
   png_write_info(png_ptr, info_ptr);
   /*
    * Now, write the pixels
 int R_SaveAsJpeg(void  *d, int width, int height,
 		unsigned long (*gp)(void *, int, int),
-		int bgr, int quality, FILE *outfile)
+		int bgr, int quality, FILE *outfile, int res)
+{
   struct jpeg_compress_struct cinfo;
   struct my_error_mgr jerr;
   /* More stuff */
   JSAMPLE *pscanline, *scanline = calloc(3*width,sizeof(JSAMPLE));
   cinfo.image_width = width; 	/* image width and height, in pixels */
   cinfo.image_height = height;
   cinfo.input_components = 3;		/* # of color components per pixel */
   cinfo.in_color_space = JCS_RGB; 	/* colorspace of input image */
   jpeg_set_defaults(&cinfo);
+  if(res > 0) {
+      cinfo.density_unit = 1;  /* pixels per inch */
+      cinfo.X_density = res;
+      cinfo.Y_density = res;
+  }
   jpeg_set_quality(&cinfo, quality, TRUE);
   /* Step 4: Start compressor */
   jpeg_start_compress(&cinfo, TRUE);
   /* Step 5: while (scan lines remain to be written) */

The R Project SVN R

(root)/trunk/src/modules/X11/rbitmap.c – Rev 29746 → 29948