Line data    Source code

       1             : /* Copyright (C) 2000-2012 by George Williams */
       2             : /*
       3             :  * Redistribution and use in source and binary forms, with or without
       4             :  * modification, are permitted provided that the following conditions are met:
       5             : 
       6             :  * Redistributions of source code must retain the above copyright notice, this
       7             :  * list of conditions and the following disclaimer.
       8             : 
       9             :  * Redistributions in binary form must reproduce the above copyright notice,
      10             :  * this list of conditions and the following disclaimer in the documentation
      11             :  * and/or other materials provided with the distribution.
      12             : 
      13             :  * The name of the author may not be used to endorse or promote products
      14             :  * derived from this software without specific prior written permission.
      15             : 
      16             :  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
      17             :  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
      18             :  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
      19             :  * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
      20             :  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
      21             :  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
      22             :  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
      23             :  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
      24             :  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
      25             :  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
      26             :  */
      27             : #include "gimage.h"
      28             : #include "string.h"
      29             : 
      30           0 : int GImageWriteXbm(GImage *gi, char *filename) {
      31             : /* Export an *.xbm image, return 0 if all done okay */
      32           0 :     struct _GImage *base = gi->list_len==0?gi->u.image:gi->u.images[0];
      33             :     FILE *file;
      34             :     int i,j, val,val2,k;
      35             :     char stem[256];
      36             :     char *pt; uint8 *scanline;
      37             : 
      38             :     /* This routine only exports 1-pixel mono-type images */
      39           0 :     if ( base->image_type!=it_mono ) {
      40           0 :         fprintf(stderr,"Image must be mono color.\n");
      41           0 :         return( -1 );
      42             :     }
      43             : 
      44             :     /* get filename stem (255chars max) */
      45           0 :     if ( (pt=strrchr(filename,'/'))!=NULL )
      46           0 :         ++pt;
      47             :     else
      48           0 :         pt=filename;
      49           0 :     strncpy(stem,pt,sizeof(stem)); stem[255]='\0';
      50           0 :     if ( (pt=strrchr(stem,'.'))!=NULL && pt!=stem )
      51           0 :         *pt = '\0';
      52             : 
      53           0 :     if ( (file=fopen(filename,"w"))==NULL ) {
      54           0 :         fprintf(stderr,"Can't open \"%s\"\n", filename);
      55           0 :         return( -1 );
      56             :     }
      57           0 :     fprintf(file,"#define %s_width %d\n", stem, (int) base->width );
      58           0 :     fprintf(file,"#define %s_height %d\n", stem, (int) base->height );
      59           0 :     fprintf(file,"static unsigned char %s_bits[] = {\n", stem );
      60           0 :     for ( i=0; i<base->height; ++i ) {
      61           0 :         fprintf(file,"  ");
      62           0 :         scanline = base->data + i*base->bytes_per_line;
      63           0 :         for ( j=0; j<base->bytes_per_line; ++j ) {
      64           0 :             val = *scanline++; val2=0;
      65           0 :             for ( k=0; k<8 ; ++k ) {
      66           0 :                 if ( (val&(1<<k)) )
      67           0 :                     val2 |= (0x80>>k);
      68             :             }
      69           0 :             fprintf(file,"0x%.2x%s", val2^0xff, i==base->height-1 && j==base->bytes_per_line-1?"":", " );
      70             :         }
      71           0 :         fprintf(file,"\n");
      72             :     }
      73           0 :     fprintf(file,"};\n");
      74           0 :     fflush(file);
      75             : 
      76           0 :     i=ferror(file);
      77           0 :     fclose(file);
      78           0 :     return( i );
      79             : }