开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 图片显示 > 查看源码
IXBM.c
资源名称：ilib　[点击查看]
上传用户：changbiao
上传日期：2007-01-13
资源大小：141k
文件大小：7k
源码类别：

图片显示

开发平台：

C/C++

IXBM.c：源码内容
  1. /*
  2.  * IXBM.c
  3.  *
  4.  * Image library
  5.  *
  6.  * Description:
  7.  * Read/write XBM files.
  8.  *
  9.  * History:
  10.  * 27-Aug-99 Craig Knudsen cknudsen@radix.net
  11.  * Created
  12.  *
  13.  ****************************************************************************/
  15. #include <stdio.h>
  16. #include <stdlib.h>
  17. #include <ctype.h>
  18. #include <memory.h>
  19. #include <string.h>
  21. #include "Ilib.h"
  22. #include "IlibP.h"
  25. IError _IWriteXBM ( fp, image, options )
  26. FILE *fp;
  27. IImageP *image;
  28. IOptions options;
  29. {
  30.   int r, c;
  31.   unsigned char red, green, blue;
  32.   int val;
  33.   int bit;
  34.   int numchars = 0;
  36.   fprintf ( fp, "#define image_width %dn", image->width );
  37.   fprintf ( fp, "#define image_height %dn", image->height );
  38.   fprintf ( fp, "static char image_bits[] = {n" );
  40.   bit = 1;
  41.   num_chars = 0;
  42.   for ( r = 0; r < image->height; r++ ) {
  43.     for ( c = 0; c < image->width; c++, bit++ ) {
  44.       if ( bit > 8 )
  45.         bit = 1;
  46.       offset = ( r * image->width ) + c;
  47.       if ( image->greyscale ) {
  48.         ptr = image->data + ( r * image->width ) + c;
  49.         red = green = blue = (unsigned int) *ptr;
  50.       }
  51.       else {
  52.         ptr = image->data + ( r * image->width * 3 ) + ( c * 3 );
  53.         red = (unsigned int) *ptr;
  54.         green = (unsigned int) *( ptr + 1 );
  55.         blue = (unsigned int) *( ptr + 2 );
  56.       }
  57.       if ( (int)red + (int)green + (int)blue > 384 ) {
  58.         val |= ( 0x01 << bit );
  59.       }
  60.       if ( bit == 8 ) {
  61.         if ( numchars )
  62.           fprintf ( fp, ", " );
  63.         numchars++;
  64.         if ( numchars == 12 ) {
  65.           fprintf ( fp, "n   " );
  66.           numchars = 0;
  67.         }
  68.         fprintf ( fp, "0x%02X" val );
  69.       }
  70.     }
  71.     if ( bit < 9 ) {
  72.       fprintf ( fp, ", 0x
  73.     }
  74.   }
  76.   fprintf ( fp, "/* colors */n" );
  77.   for ( loop = 0; loop < num_colors; loop++ ) {
  78.     if ( image->transparent != NULL &&
  79.       ( image->transparent->red == colormap[loop]->red &&
  80.       image->transparent->green == colormap[loop]->green &&
  81.       image->transparent->blue == colormap[loop]->blue ) )
  82.       strcpy ( colorstr, "None" );
  83.     else
  84.       sprintf ( colorstr, "#%02X%02X%02X", colormap[loop]->red,
  85.         colormap[loop]->green, colormap[loop]->blue );
  86.     switch ( chars_per_pixel ) {
  87.       case 1:
  88.         fprintf ( fp, ""%c c %s",n", xpm_chars[loop], colorstr );
  89.         break;
  90.       case 2:
  91.         fprintf ( fp, ""%c%c c %s",n",
  92.           xpm_chars[loop/strlen(xpm_chars)],
  93.           xpm_chars[loop%strlen(xpm_chars)], colorstr );
  94.         break;
  95.     }
  96.   }
  98.   fprintf ( fp, "/* pixels */n" );
  99.   for ( loop = 0; loop < image->height; loop++ ) {
  100.     fprintf ( fp, """ );
  101.     for ( loop2 = 0; loop2 < image->width; loop2++ ) {
  102.       switch ( chars_per_pixel ) {
  103.         case 1:
  104.           fprintf ( fp, "%c", xpm_chars[data[loop*image->width+loop2]] );
  105.           break;
  106.         case 2:
  107.           fprintf ( fp, "%c%c",
  108.             xpm_chars[data[loop*image->width+loop2]/strlen(xpm_chars)],
  109.             xpm_chars[data[loop*image->width+loop2]%strlen(xpm_chars)] );
  110.           break;
  111.       }
  112.     }
  113.     fprintf ( fp, "",n" );
  114.   }
  116.   fprintf ( fp, "};n" );
  118.   /* free up allocated resources */
  119.   free ( data );
  120.   for ( loop = 0; loop < num_colors; loop++ ) {
  121.     free ( colormap[loop] );
  122.   }
  124.   return ( INoError );
  125. }
  129. static unsigned char hextochar ( hex )
  130. char hex;
  131. {
  132.   switch ( toupper ( hex ) ) {
  133.     case '0': return 0;
  134.     case '1': return 1;
  135.     case '2': return 2;
  136.     case '3': return 3;
  137.     case '4': return 4;
  138.     case '5': return 5;
  139.     case '6': return 6;
  140.     case '7': return 7;
  141.     case '8': return 8;
  142.     case '9': return 9;
  143.     case 'A': return 10;
  144.     case 'B': return 11;
  145.     case 'C': return 12;
  146.     case 'D': return 13;
  147.     case 'E': return 14;
  148.     case 'F': return 15;
  149.   }
  150.   return 0;
  151. }
  155. static int parse_color ( str, r, g, b, is_transparent )
  156. char *str;
  157. unsigned char *r, *g, *b;
  158. int *is_transparent;
  159. {
  160.   char *ptr;
  161.   int w;
  163.   for ( ptr = str; *ptr != ''; ptr++ )
  164.     *ptr = tolower ( *ptr );
  166.   *is_transparent = 0;
  168.   if ( *str == '#' ) {
  169.     ptr = str + 1;
  170.     w = strlen ( str ) / 3;
  171.     *r = hextochar ( ptr[0] ) * 16 + hextochar ( ptr[1] );
  172.     ptr += w;
  173.     *g = hextochar ( ptr[0] ) * 16 + hextochar ( ptr[1] );
  174.     ptr += w;
  175.     *b = hextochar ( ptr[0] ) * 16 + hextochar ( ptr[1] );
  176.     return 0;
  177.   } else if ( strcmp ( str, "none" ) == 0 ||
  178.     strcmp ( str, "transparent" ) == 0 ) {
  179.     *r = *g = *b = 254; /* don't make white since it might already exist */
  180.     *is_transparent = 1;
  181.     return 0;
  182.   } else {
  183.     /* name like "blue" */
  184.     return 1;
  185.   }
  186. }
  190. typedef struct {
  191.   char *abbrev;
  192.   unsigned char r;
  193.   unsigned char g;
  194.   unsigned char b;
  195.   int transparent;
  196. } xpmcolor;
  200. IError _IReadXPM ( fp, options, image_return )
  201. FILE *fp;
  202. IOptions options;
  203. IImageP **image_return;
  204. {
  205.   IImageP *image = NULL;
  206.   char line[1024], *ptr, *r, *g, *b, *cur;
  207.   xpmcolor *colors = NULL;
  208.   int w, h, num_colors, colorw, loop, loop2, loop3;
  209.   int found;
  210.   IColor t;
  212.   /* look for first line that starts with " */
  213.   while ( fgets ( line, 1024, fp ) ) {
  214.     if ( line[0] == '"' )
  215.       break;
  216.   }
  217.   if ( line[0] != '"' )
  218.     return IInvalidFormat;
  220.   ptr = strtok ( line + 1, " " );
  221.   if ( ! ptr )
  222.     return IInvalidFormat;
  223.   w = atoi ( ptr );
  224.   ptr = strtok ( NULL, " " );
  225.   if ( ! ptr )
  226.     return IInvalidFormat;
  227.   h = atoi ( ptr );
  228.   ptr = strtok ( NULL, " " );
  229.   if ( ! ptr )
  230.     return IInvalidFormat;
  231.   num_colors = atoi ( ptr );
  232.   ptr = strtok ( NULL, " " );
  233.   if ( ! ptr )
  234.     return IInvalidFormat;
  235.   colorw = atoi ( ptr );
  237.   colors = (xpmcolor *) malloc ( sizeof ( xpmcolor ) * num_colors );
  239.   for ( loop = 0; loop < num_colors; loop++ ) {
  240.     while ( 1 ) {
  241.       if ( ! fgets ( line, 1024, fp ) )
  242.         return IInvalidFormat; /* small memory leak */
  243.       if ( line[0] == '"' )
  244.         break;
  245.     }
  246.     colors[loop].abbrev = (char *) malloc ( colorw + 1 );
  247.     strncpy ( colors[loop].abbrev, line + 1, colorw );
  248.     colors[loop].abbrev[colorw] = '';
  249.     for ( ptr = line + 1 + colorw; *ptr != 'c' && *ptr != ''; ptr++ ) ;
  250.     if ( *ptr != 'c' )
  251.       return IInvalidFormat; /* small memory leak */
  252.     do {
  253.       ptr++;
  254.     } while ( *ptr == ' ' );
  255.     strtok ( ptr, """ );
  256.     /* parse color */
  257.     if ( parse_color ( ptr, &colors[loop].r, &colors[loop].g, &colors[loop].b,
  258.       &colors[loop].transparent ) )
  259.       return IInvalidFormat; /* small memory leak */
  260.   }
  262.   image = (IImageP *) ICreateImage ( w, h, options );
  264.   /* now read row by row of data */
  265.   ptr = (char *) malloc ( colorw * w + 20 );
  266.   for ( loop = 0; loop < h; loop++ ) {
  267.     if ( ! fgets ( ptr, colorw * w + 20, fp ) )
  268.       return IInvalidFormat; /* small memory leak */
  269.     while ( ptr[0] != '"' ) {
  270.       if ( ! fgets ( ptr, colorw * w + 20, fp ) )
  271.         return IInvalidFormat; /* small memory leak */
  272.     }
  273.     for ( loop2 = 0; loop2 < w; loop2++ ) {
  274.       cur = ptr + 1 + loop2 * colorw;
  275.       /* find color in colormap */
  276.       for ( loop3 = 0, found = 0; loop3 < num_colors && ! found; loop3++ ) {
  277.         if ( strncmp ( colors[loop3].abbrev, cur, colorw ) == 0 ) {
  278.           r = image->data + ( loop * w * 3 ) + ( loop2 * 3 );
  279.           g = r + 1;
  280.           b = r + 2;
  281.           *r = colors[loop3].r;
  282.           *g = colors[loop3].g;
  283.           *b = colors[loop3].b;
  284.           found = 1;
  285.         }
  286.       }
  287.       if ( ! found )
  288.         return IInvalidFormat; /* small memory leak */
  289.     }
  290.   }
  291.   free ( ptr );
  293.   *image_return = image;
  295.   for ( loop = 0; loop < num_colors; loop++ ) {
  296.     if ( colors[loop].transparent ) {
  297.       t = IAllocColor ( colors[loop].r, colors[loop].g, colors[loop].b );
  298.       ISetTransparent ( image, t );
  299.     }
  300.     free ( colors[loop].abbrev );
  301.   }
  302.   free ( colors );
  304.   return ( INoError );
  305. }