[BACK]Return to png.trm CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / gnuplot / term

Diff for /OpenXM_contrib/gnuplot/term/Attic/png.trm between version 1.1 and 1.1.1.3

version 1.1, 2000/01/09 17:01:15 version 1.1.1.3, 2003/09/15 07:09:38
Line 45 
Line 45 
  *  Alexander Lehmann   *  Alexander Lehmann
  *                      derived from pbm.trm by Russell Lang   *                      derived from pbm.trm by Russell Lang
  *   *
    *  Eric S. Raymond    update for pnglib-1.0.3; transparency.
    *  H.-B. Broeker      fixes to Eric's changes
    *
  * send your comments or suggestions to (info-gnuplot@dartmouth.edu).   * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
  *   *
  */   */
Line 69  register_term(png_driver)
Line 72  register_term(png_driver)
 #endif  #endif
   
 #ifdef TERM_PROTO  #ifdef TERM_PROTO
 TERM_PUBLIC void PNGoptions __PROTO((void));  TERM_PUBLIC void PNG_options __PROTO((void));
 TERM_PUBLIC void PNGinit __PROTO((void));  TERM_PUBLIC void PNG_init __PROTO((void));
 TERM_PUBLIC void PNGreset __PROTO((void));  TERM_PUBLIC void PNG_reset __PROTO((void));
 TERM_PUBLIC void PNGsetfont __PROTO((void));  TERM_PUBLIC void PNG_setfont __PROTO((void));
 TERM_PUBLIC void PNGgraphics __PROTO((void));  TERM_PUBLIC void PNG_graphics __PROTO((void));
 TERM_PUBLIC void PNGtext __PROTO((void));  TERM_PUBLIC void PNG_text __PROTO((void));
 TERM_PUBLIC void PNGlinetype __PROTO((int linetype));  TERM_PUBLIC void PNG_linetype __PROTO((int linetype));
 TERM_PUBLIC void PNGpoint __PROTO((unsigned int x, unsigned int y, int point));  TERM_PUBLIC void PNG_point __PROTO((unsigned int x, unsigned int y, int point));
 #endif /* TERM_PROTO */  #endif /* TERM_PROTO */
   
   /* make XMAX and YMAX a multiple of 8 */
   #define PNG_XMAX (640)
   #define PNG_YMAX (480)
   #define PNG_VCHAR (FNT5X9_VCHAR)
   #define PNG_HCHAR (FNT5X9_VCHAR)
   #define PNG_VTIC FNT5X9_HBITS
   #define PNG_HTIC FNT5X9_HBITS
   
 #ifdef TERM_BODY  #ifdef TERM_BODY
   
 #include "png.h"  #include "png.h"
Line 90  TERM_PUBLIC void PNGpoint __PROTO((unsigned int x, uns
Line 101  TERM_PUBLIC void PNGpoint __PROTO((unsigned int x, uns
   
 /* png version test now in configure */  /* png version test now in configure */
   
 /* From version.c */  
 extern char version[];  
 extern char patchlevel[];  
   
 /* make XMAX and YMAX a multiple of 8 */  
 #define PNG_XMAX (640)  
 #define PNG_YMAX (480)  
 #define PNG_VCHAR (FNT5X9_VCHAR)  
 #define PNG_HCHAR (FNT5X9_VCHAR)  
 #define PNG_VTIC FNT5X9_HBITS  
 #define PNG_HTIC FNT5X9_HBITS  
   
 static int png_font = 1;        /* small font */  static int png_font = 1;        /* small font */
 static int png_mode = 0;        /* 0:monochrome 1:gray 2:color */  static int png_mode = 0;        /* 0:monochrome 1:gray 2:color */
   static int png_transparent = 0; /* generate transparent first color */
   
 /* 7=black, 0=white */  /* 7=black, 0=white */
 static int png_gray[] = { 7, 1, 6, 5, 4, 3, 2, 1, 7 };  /* grays  */  static int png_gray[] = { 7, 1, 6, 5, 4, 3, 2, 1, 7 };  /* grays  */
 /* bit3=!intensify, bit2=!red, bit1=!green, bit0=!blue */  static png_color png_palette[WEB_N_COLORS];
 static int png_color_table[] ={ 15, 8, 3, 5, 6, 4, 2, 1, 11, 13, 14 };  /* colors */  
 static png_color png_palette[16];  
   
 void PNGoptions()  TERM_PUBLIC void
   PNG_options()
 {  {
     png_font = 1;      unsigned short rgb_color[3];
     png_mode = 0;      int n_colors = 0;
       char *string;
       int i;
   
       rgb_color[0] = 0;
       rgb_color[1] = 0;
       rgb_color[2] = 0;
   
       png_font = 1; /* small */
       png_mode = 2; /* color */
       png_transparent = 0;       /* use opaque image background */
   
     term_options[0] = NUL;      term_options[0] = NUL;
   
     while (!END_OF_COMMAND) {      while (!END_OF_COMMAND) {
         if (almost_equals(c_token, "s$mall"))          if (almost_equals(c_token, "s$mall"))
             png_font = 1;              png_font = 1;
         else if (almost_equals(c_token, "me$dium"))          else if (almost_equals(c_token, "me$dium"))
             png_font = 2;              png_font = 2;
         else if (almost_equals(c_token, "l$arge"))          else if (almost_equals(c_token, "l$arge"))
             png_font = 3;              png_font = 3;
         else if (almost_equals(c_token, "mo$nochrome"))          else if (almost_equals(c_token, "mo$nochrome"))
             png_mode = 0;              png_mode = 0;
         else if (almost_equals(c_token, "g$ray"))          else if (almost_equals(c_token, "g$ray"))
             png_mode = 1;              png_mode = 1;
         else if (almost_equals(c_token, "c$olor")          else if (almost_equals(c_token, "c$olor")
                  || almost_equals(c_token, "c$olour"))                   || almost_equals(c_token, "c$olour"))
             png_mode = 2;              png_mode = 2;
         else {          else if (almost_equals(c_token, "t$ransparent"))
             /* reset to default, since term is already set */              png_transparent = 1;
             png_font = 1;          else if (almost_equals(c_token, "not$ransparent"))
             png_mode = 0;              png_transparent = 0;
             int_error("expecting: {small, medium, large} and {monochrome, gray, color}", c_token);          else {
         }              /* set color */
         c_token++;              string = input_line + token[c_token].start_index;
   
               if (string[0] == 'x') {
                   /* HBB 991123: read in as *shorts*, not ints! */
                   if (sscanf(string, "x%2hx%2hx%2hx", &rgb_color[0], &rgb_color[1], &rgb_color[2] ) != 3) {
                       int_error("invalid color spec, must be xRRGGBB", c_token);
                   }
               } else
                   int_error("expecting: {small, medium, large},[no]transparent, or {monochrome, gray, color, [xRRGGBB] }", c_token);
   
               if (n_colors >= WEB_N_COLORS) {
                   int_warn("too many colors, ignoring", c_token);
                   /* Magic number abuse guards against
                    * "> WEB_N_COLORS warning" scroll fests. */
                   if (!END_OF_COMMAND) {
                       while (!END_OF_COMMAND)
                           ++c_token; --c_token;
                   }
               } else {
                   web_color_rgbs[n_colors].r = rgb_color[0];
                   web_color_rgbs[n_colors].g = rgb_color[1];
                   web_color_rgbs[n_colors].b = rgb_color[2];
                   n_colors++;
               }
           }
           c_token++;
     }      }
   
     /* setup options string */      /* setup options string */
   
       /* HBB 991008: moved this block to here, so 'transparent' gets
        * printed out first. Don't print 'notransparent', for now, to
        * protect older gnuplots. Scripts with 'transparent' in them
        * won't work as wanted, with older versions, so put it here. */
       if (png_transparent)
           strcat(term_options, " transparent");
   
     switch (png_font) {      switch (png_font) {
     case 1:      case 3:
         strcat(term_options, "small");          strcat(term_options, " large");
         break;          break;
     case 2:      case 2:
         strcat(term_options, "medium");          strcat(term_options, " medium");
         break;          break;
     case 3:      case 1:
         strcat(term_options, "large");      default:
           strcat(term_options, " small");
         break;          break;
     }      }
   
     switch (png_mode) {      switch (png_mode) {
     case 0:      case 2:
         strcat(term_options, " monochrome");          strcat(term_options, " color");
         break;          break;
     case 1:      case 1:
         strcat(term_options, " gray");          strcat(term_options, " gray");
         break;          break;
     case 2:      case 0:
         strcat(term_options, " color");      default:
           strcat(term_options, " monochrome");
         break;          break;
     }      }
   
       for (i = 0; strlen(term_options) + 9 < MAX_LINE_LEN &&
                i < n_colors ; i++ ) {
           sprintf(term_options,"%s x%02x%02x%02x",
                   term_options,
                   web_color_rgbs[i].r,
                   web_color_rgbs[i].g,
                   web_color_rgbs[i].b);
       }
 }  }
   
   
 void PNGinit()  TERM_PUBLIC void
   PNG_init()
 {  {
     PNGsetfont();               /* HBB 980226: do this here! */      PNG_setfont();              /* HBB 980226: do this here! */
 }  }
   
   
 void PNGreset()  TERM_PUBLIC void
   PNG_reset()
 {  {
 #ifdef VMS  #ifdef VMS
     fflush_binary();      fflush_binary();
Line 183  void PNGreset()
Line 237  void PNGreset()
 }  }
   
   
 void PNGsetfont()  TERM_PUBLIC void
   PNG_setfont()
 {  {
     switch (png_font) {      switch (png_font) {
     case 1:      case 3:
         b_charsize(FNT5X9);          b_charsize(FNT13X25);
         term->v_char = FNT5X9_VCHAR;          term->v_char = FNT13X25_VCHAR;
         term->h_char = FNT5X9_HCHAR;          term->h_char = FNT13X25_HCHAR;
         term->v_tic = FNT5X9_HBITS;          term->v_tic = FNT13X25_HBITS;
         term->h_tic = FNT5X9_HBITS;          term->h_tic = FNT13X25_HBITS;
         break;          break;
     case 2:      case 2:
         b_charsize(FNT9X17);          b_charsize(FNT9X17);
Line 200  void PNGsetfont()
Line 255  void PNGsetfont()
         term->v_tic = FNT9X17_HBITS;          term->v_tic = FNT9X17_HBITS;
         term->h_tic = FNT9X17_HBITS;          term->h_tic = FNT9X17_HBITS;
         break;          break;
     case 3:      case 1:
         b_charsize(FNT13X25);      default:
         term->v_char = FNT13X25_VCHAR;          b_charsize(FNT5X9);
         term->h_char = FNT13X25_HCHAR;          term->v_char = FNT5X9_VCHAR;
         term->v_tic = FNT13X25_HBITS;          term->h_char = FNT5X9_HCHAR;
         term->h_tic = FNT13X25_HBITS;          term->v_tic = FNT5X9_HBITS;
           term->h_tic = FNT5X9_HBITS;
         break;          break;
     }      }
 }  }
   
   
 void PNGgraphics()  TERM_PUBLIC void
   PNG_graphics()
 {  {
     int numplanes;      int numplanes = 1;
   
     switch (png_mode) {      switch (png_mode) {
     case 0:      case 2:
         numplanes = 1;          numplanes = 8;
         break;          break;
     case 1:      case 1:
         numplanes = 3;          numplanes = 3;
         break;          break;
     case 2:      case 0:
         numplanes = 4;      default:
           numplanes = 1;
         break;          break;
     }      }
   
Line 239  void PNGgraphics()
Line 297  void PNGgraphics()
         b_setlinetype(0);       /* solid lines */          b_setlinetype(0);       /* solid lines */
 }  }
   
 void PNGtext()  TERM_PUBLIC void
   PNG_text()
 {  {
     register int x, j, row;  
     png_structp png_ptr;      png_structp png_ptr;
     png_infop info_ptr;      png_infop info_ptr;
     register int i, value;  
     png_bytep prow;      png_bytep prow;
     int mask, plane1, plane2, plane3, plane4;  
     int red, green, blue;  
     png_text pngtext, *pngtext_copy;      png_text pngtext, *pngtext_copy;
       png_byte pal_trans[1];
     char text[100];      char text[100];
       register int x, i, j;
   /*    register int row, value; */
   /* int mask, plane1, plane2, plane3, plane4; */
   
     png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);      png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
     if (!png_ptr) {      if (!png_ptr) {
Line 268  void PNGtext()
Line 327  void PNGtext()
         b_freebitmap();          b_freebitmap();
         return;          return;
     }      }
       memset(prow,0,sizeof(prow));
     if (setjmp(png_ptr->jmpbuf)) {      if (setjmp(png_ptr->jmpbuf)) {
         png_destroy_write_struct(&png_ptr, &info_ptr);          png_destroy_write_struct(&png_ptr, &info_ptr);
         free(prow);          free(prow);
         b_freebitmap();          b_freebitmap();
         return;          return;
     }      }
   
   #ifdef __OLD_PNGLIB__
       /* deprecated and no longer necessary */
     png_info_init(info_ptr);      png_info_init(info_ptr);
     png_write_init(png_ptr);      png_write_init(png_ptr); */
   #endif /* __OLD_PNGLIB__ */
   
     png_init_io(png_ptr, gpoutfile);      png_init_io(png_ptr, gpoutfile);
   
     info_ptr->width = b_ysize;      info_ptr->width = b_ysize;
     info_ptr->height = b_xsize;      info_ptr->height = b_xsize;
   
     info_ptr->bit_depth = png_mode == 0 ? 1 : 4;      info_ptr->bit_depth = png_mode == 0 ? 1 : 8;
     info_ptr->color_type = png_mode == 2 ? PNG_COLOR_TYPE_PALETTE :      info_ptr->color_type = png_mode == 2 ? PNG_COLOR_TYPE_PALETTE :
         PNG_COLOR_TYPE_GRAY;          PNG_COLOR_TYPE_GRAY;
     if (png_mode == 2) {      if (png_mode == 2) {
         info_ptr->valid |= PNG_INFO_PLTE;          info_ptr->valid |= PNG_INFO_PLTE;
         info_ptr->palette = png_palette;          info_ptr->palette = png_palette;
         info_ptr->num_palette = 16;          info_ptr->num_palette = sizeof(png_palette)/sizeof(png_palette[0]);
     }      }
     if (png_mode != 0) {      if (png_mode != 0) {
         info_ptr->valid |= PNG_INFO_sBIT;          info_ptr->valid |= PNG_INFO_sBIT;
         if (png_mode == 1) {          if (png_mode == 1) {
             info_ptr->sig_bit.gray = 3;              info_ptr->sig_bit.gray = 3;
             png_set_shift(png_ptr, &(info_ptr->sig_bit));              png_set_shift(png_ptr, &(info_ptr->sig_bit));
         } else {          }
             info_ptr->sig_bit.red = 2;          else {
             info_ptr->sig_bit.green = 2;              /* HBB 991123: we're now using the full 8 bits per color
             info_ptr->sig_bit.blue = 2;               * component... */
               info_ptr->sig_bit.red = 8;
               info_ptr->sig_bit.green = 8;
               info_ptr->sig_bit.blue = 8;
         }          }
     }      }
   
     info_ptr->interlace_type = 0;      info_ptr->interlace_type = 0;
   
     if (png_mode == 0)      if (png_mode == 0)
         png_set_invert_mono(png_ptr);          png_set_invert_mono(png_ptr);
   
     if (png_mode == 2)      if (png_mode == 2) {
         for (i = 0; i < 16; i++) {          if (png_transparent) {
             red = (i & 4) ? 1 : 3;              info_ptr->valid |= PNG_INFO_tRNS;
             green = (i & 2) ? 1 : 3;              info_ptr->num_trans = 1;
             blue = (i & 1) ? 1 : 3;              pal_trans[0] = 0;
             if (i & 8) {              info_ptr->trans=pal_trans;
                 red--;  
                 green--;  
                 blue--;  
             }  
             png_palette[i].red = red * 85;  
             png_palette[i].green = green * 85;  
             png_palette[i].blue = blue * 85;  
         }          }
     sprintf(text, "gnuplot %sversion %s patchlevel %s", OS, version, patchlevel);  
   
           for (i = 0; i < WEB_N_COLORS; i++) {
               png_palette[i].red = web_color_rgbs[i].r;
               png_palette[i].green = web_color_rgbs[i].g;
               png_palette[i].blue = web_color_rgbs[i].b;
           }
       }
       sprintf(text, "gnuplot version %s patchlevel %s on %s %s",
               gnuplot_version, gnuplot_patchlevel, os_name, os_rel);
   
     pngtext.compression = -1;      pngtext.compression = -1;
     pngtext.key = "Software";      pngtext.key = "Software";
     pngtext.text = text;      pngtext.text = text;
     pngtext.text_length = strlen(text);      pngtext.text_length = strlen(text);
   
     pngtext_copy = malloc(sizeof(*pngtext_copy));      pngtext_copy = malloc(sizeof(*pngtext_copy));
       if (!pngtext_copy) {
           png_destroy_write_struct(&png_ptr, &info_ptr);
           free(prow);
           b_freebitmap();
           return;
       }
       memset(pngtext_copy,0,sizeof(pngtext_copy));
     *pngtext_copy = pngtext;      *pngtext_copy = pngtext;
     info_ptr->num_text = 1;      info_ptr->num_text = 1;
     info_ptr->text = pngtext_copy;      info_ptr->text = pngtext_copy;
Line 341  void PNGtext()
Line 418  void PNGtext()
   
     /* dump bitmap in raster mode */      /* dump bitmap in raster mode */
     for (x = b_xsize - 1; x >= 0; x--) {      for (x = b_xsize - 1; x >= 0; x--) {
   #if 0
         row = (b_ysize / 8) - 1;          row = (b_ysize / 8) - 1;
         for (j = row; j >= 0; j--) {          for (j = row; j >= 0; j--) {
             mask = 0x80;              mask = 0x80;
Line 370  void PNGtext()
Line 448  void PNGtext()
                 if (png_mode == 1)                  if (png_mode == 1)
                     value = 7 - value;                      value = 7 - value;
   
                 prow[(row - j) * 8 + i] = (png_byte) value;                  prow[(row - j) * 8 + i] = (png_byte) (value & 0xFF) ;
                 mask >>= 1;                  mask >>= 1;
             }              }
         }          }
   #else
           for (j=b_ysize - 1; j>= 0; j--)
               prow[j] = (png_byte)b_getpixel(j, x);
   #endif
         png_write_rows(png_ptr, &prow, 1);          png_write_rows(png_ptr, &prow, 1);
     }      }
   
Line 383  void PNGtext()
Line 465  void PNGtext()
     b_freebitmap();      b_freebitmap();
 }  }
   
 void PNGlinetype(linetype)  /* _linetype(lt)  Called to set the line type before text is displayed or
    * line(s) plotted.  This procedure should select a pen color or line
    * style if the device has these capabilities.
    * lt is an integer from -2 to 0 or greater.
    * An lt of -2 is used for the border of the plot.
    * An lt of -1 is used for the X and Y axes.
    * lt 0 and upwards are used for plots 0 and upwards.
    * If _linetype() is called with lt greater than the available line types,
    * it should map it to one of the available line types.
    * Most drivers provide 9 different linetypes (lt is 0 to 8).
    */
   TERM_PUBLIC void
   PNG_linetype(linetype)
 int linetype;  int linetype;
 {  {
     switch (png_mode) {      switch (png_mode) {
     case 0:      /* HBB 991008: this once made the grid lines and axes (-1) look the
         b_setlinetype(linetype);       * same as the borders (-2). That's ugly, IMHO. GIF uses a
        * dashed line, for this, but libpng doesn't seem able to do
        * that. But a look into the palette turns up that color 2
        * is grey, and is currently unused... Let's see: */
       case 2:
   
           if (linetype == -2)
               linetype = 1;
           else if (linetype == -1)
               linetype = 2;
   
           else {
               /* HBB 991008: moved the += 3 down, so colors 0, 1, 2 are
                * _not_ used by the regular plots, as it should be */
               if (linetype >= (WEB_N_COLORS - 3))
                   linetype %= (WEB_N_COLORS - 3);
               linetype += 3;
           }
           b_setvalue(linetype);
         break;          break;
     case 1:      case 1:
         if (linetype >= 7)          if (linetype >= 7)
             linetype %= 7;              linetype %= 7;
         b_setvalue(png_gray[linetype + 2]);          b_setvalue(png_gray[linetype + 2]);
         break;          break;
     case 2:      case 0:
         if (linetype >= 9)      default:
             linetype %= 9;          b_setlinetype(linetype);
         b_setvalue(png_color_table[linetype + 2]);  
         break;          break;
     }      }
 }  }
   
 void PNGpoint(x, y, point)  TERM_PUBLIC void
   PNG_point(x, y, point)
 unsigned int x, y;  unsigned int x, y;
 int point;  int point;
 {  {
Line 421  TERM_TABLE_START(png_driver)
Line 533  TERM_TABLE_START(png_driver)
     "png",      "png",
     "Portable Network Graphics [small medium large] [monochrome gray color]",      "Portable Network Graphics [small medium large] [monochrome gray color]",
     PNG_XMAX, PNG_YMAX, PNG_VCHAR,      PNG_XMAX, PNG_YMAX, PNG_VCHAR,
     PNG_HCHAR, PNG_VTIC, PNG_HTIC, PNGoptions,      PNG_HCHAR, PNG_VTIC, PNG_HTIC, PNG_options,
     PNGinit, PNGreset, PNGtext, null_scale,      PNG_init, PNG_reset, PNG_text, null_scale,
     PNGgraphics, b_move, b_vector, PNGlinetype,      PNG_graphics, b_move, b_vector, PNG_linetype,
     b_put_text, b_text_angle, null_justify_text, PNGpoint,      b_put_text, b_text_angle, null_justify_text, PNG_point,
     do_arrow, set_font_null,      do_arrow, set_font_null,
     0,                          /* pointsize */      0,                          /* pointsize */
     TERM_CAN_MULTIPLOT | TERM_BINARY      TERM_CAN_MULTIPLOT | TERM_BINARY
Line 446  START_HELP(png)
Line 558  START_HELP(png)
 "?png",  "?png",
 " The `png` terminal driver supports Portable Network Graphics.  To compile it,",  " The `png` terminal driver supports Portable Network Graphics.  To compile it,",
 " you will need  the third-party libraries \"libpng\" and \"zlib\"; both are",  " you will need  the third-party libraries \"libpng\" and \"zlib\"; both are",
 " available at ftp://ftp.uu.net/graphics/png.  `png` has two options.",  " available at http://www.cdrom.com/pub/png/.  `png` has four options.",
 "",  "",
   " By default, the `png` terminal driver uses a shared Web-friendy palette.",
   "",
 " Syntax:",  " Syntax:",
 "       set terminal png {small | medium | large}",  "       set terminal png {small | medium | large}",
   "                        {transparent | notransparent}",
 "                        {monochrome | gray | color}",  "                        {monochrome | gray | color}",
   "                        {<color0> <color1> <color2> ...}",
 "",  "",
 " The defaults are small (fontsize) and monochrome."  " `transparent` instructs the driver to generate transparent PNGs.  The first",
   " color will be the transparent one.",
   "",
   " The defaults are small (fontsize) and color.  Default size of the output",
   " is 640*480 pixel. ",
   "",
   " Each color must be of the form 'xrrggbb', where x is the literal character",
   " 'x' and 'rrggbb' are the red, green and blue components in hex.  For example,",
   " 'x00ff00' is green.  The background color is set first, then the border",
   " colors, then the X & Y axis colors, then the plotting colors.  The maximum",
   " number of colors that can be set is currently 99."
 END_HELP(png)  END_HELP(png)
 #endif /* TERM_HELP */  #endif /* TERM_HELP */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>