src/common/image.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        image.cpp
   3 // Purpose:     wxImage
   4 // Author:      Robert Roebling
   5 // RCS-ID:      $Id$
   6 // Copyright:   (c) Robert Roebling
   7 // Licence:     wxWindows licence
   8 /////////////////////////////////////////////////////////////////////////////
   9
  10 #ifdef __GNUG__
  11 #pragma implementation "image.h"
  12 #endif
  13
  14 // For compilers that support precompilation, includes "wx.h".
  15 #include "wx/wxprec.h"
  16
  17 #ifdef __BORLANDC__
  18 #pragma hdrstop
  19 #endif
  20
  21 #include "wx/image.h"
  22 #include "wx/debug.h"
  23 #include "wx/log.h"
  24 #include "../png/png.h"
  25 #include "wx/filefn.h"
  26
  27 //-----------------------------------------------------------------------------
  28 // wxImage
  29 //-----------------------------------------------------------------------------
  30
  31 class wxImageRefData: public wxObjectRefData
  32 {
  33   public:
  34
  35     wxImageRefData(void);
  36     ~wxImageRefData(void);
  37
  38     int             m_width;
  39     int             m_height;
  40     unsigned char  *m_data;
  41     bool            m_hasMask;
  42     unsigned char   m_maskRed,m_maskGreen,m_maskBlue;
  43     bool            m_ok;
  44 };
  45
  46 wxImageRefData::wxImageRefData(void)
  47 {
  48   m_width = 0;
  49   m_height = 0;
  50   m_data = (unsigned char*) NULL;
  51   m_ok = FALSE;
  52   m_maskRed = 0;
  53   m_maskGreen = 0;
  54   m_maskBlue = 0;
  55   m_hasMask = FALSE;
  56 }
  57
  58 wxImageRefData::~wxImageRefData(void)
  59 {
  60   if (m_data) free( m_data );
  61 }
  62
  63 wxList wxImage::sm_handlers;
  64
  65 //-----------------------------------------------------------------------------
  66
  67 #define M_IMGDATA ((wxImageRefData *)m_refData)
  68
  69 #if !USE_SHARED_LIBRARIES
  70 IMPLEMENT_DYNAMIC_CLASS(wxImage, wxObject)
  71 #endif
  72
  73 wxImage::wxImage()
  74 {
  75 }
  76
  77 wxImage::wxImage( int width, int height )
  78 {
  79   Create( width, height );
  80 }
  81
  82 wxImage::wxImage( const wxString& name, long type )
  83 {
  84   LoadFile( name, type );
  85 }
  86
  87 wxImage::wxImage( const wxImage& image )
  88 {
  89   Ref(image);
  90 }
  91
  92 wxImage::wxImage( const wxImage* image )
  93 {
  94   if (image) Ref(*image);
  95 }
  96
  97 void wxImage::Create( int width, int height )
  98 {
  99   m_refData = new wxImageRefData();
 100
 101   M_IMGDATA->m_data = (unsigned char *) malloc( width*height*3 );
 102   if (M_IMGDATA->m_data)
 103   {
 104     for (int l = 0; l < width*height*3; l++) M_IMGDATA->m_data[l] = 0;
 105
 106     M_IMGDATA->m_width = width;
 107     M_IMGDATA->m_height = height;
 108     M_IMGDATA->m_ok = TRUE;
 109   }
 110   else
 111   {
 112     UnRef();
 113   }
 114 }
 115
 116 void wxImage::Destroy()
 117 {
 118   UnRef();
 119 }
 120
 121 bool wxImage::Ok() const
 122 {
 123   return (M_IMGDATA && M_IMGDATA->m_ok);
 124 }
 125
 126 char unsigned *wxImage::GetData() const
 127 {
 128   if (!Ok()) return (char unsigned *)NULL;
 129
 130   return M_IMGDATA->m_data;
 131 }
 132
 133 void wxImage::SetData( char unsigned *WXUNUSED(data) )
 134 {
 135 }
 136
 137 void wxImage::SetMaskColour( unsigned char r, unsigned char g, unsigned char b )
 138 {
 139   if (!Ok()) return;
 140
 141   M_IMGDATA->m_maskRed = r;
 142   M_IMGDATA->m_maskGreen = g;
 143   M_IMGDATA->m_maskBlue = b;
 144   M_IMGDATA->m_hasMask = TRUE;
 145 }
 146
 147 unsigned char wxImage::GetMaskRed() const
 148 {
 149   if (!Ok()) return 0;
 150
 151   return M_IMGDATA->m_maskRed;
 152 }
 153
 154 unsigned char wxImage::GetMaskGreen() const
 155 {
 156   if (!Ok()) return 0;
 157
 158   return M_IMGDATA->m_maskGreen;
 159 }
 160
 161 unsigned char wxImage::GetMaskBlue() const
 162 {
 163   if (!Ok()) return 0;
 164
 165   return M_IMGDATA->m_maskBlue;
 166 }
 167
 168 void wxImage::SetMask( bool mask )
 169 {
 170   if (!Ok()) return;
 171
 172   M_IMGDATA->m_hasMask = mask;
 173 }
 174
 175 bool wxImage::HasMask() const
 176 {
 177   if (!Ok()) return FALSE;
 178
 179   return M_IMGDATA->m_hasMask;
 180 }
 181
 182 int wxImage::GetWidth() const
 183 {
 184   return (M_IMGDATA ? M_IMGDATA->m_width : 0);
 185 }
 186
 187 int wxImage::GetHeight() const
 188 {
 189   return (M_IMGDATA ? M_IMGDATA->m_height : 0);
 190 }
 191
 192 bool wxImage::LoadFile( const wxString& filename, long type )
 193 {
 194   UnRef();
 195
 196   if (!wxFileExists(filename))
 197   {
 198     wxLogWarning( "Image file does not exist." );
 199
 200     return FALSE;
 201   }
 202
 203   m_refData = new wxImageRefData;
 204
 205   wxImageHandler *handler = FindHandler(type);
 206
 207   if (handler == NULL)
 208   {
 209     wxLogWarning( "No image handler for type %d defined.", type );
 210
 211     return FALSE;
 212   }
 213
 214   return handler->LoadFile( this, filename );
 215 }
 216
 217 bool wxImage::SaveFile( const wxString& filename, int type )
 218 {
 219   wxImageHandler *handler = FindHandler(type);
 220
 221   if (handler == NULL)
 222   {
 223     wxLogWarning( "No image handler for type %d defined.", type );
 224
 225     return FALSE;
 226   }
 227
 228   return handler->SaveFile( this, filename );
 229 }
 230
 231 void wxImage::AddHandler( wxImageHandler *handler )
 232 {
 233     sm_handlers.Append( handler );
 234 }
 235
 236 void wxImage::InsertHandler( wxImageHandler *handler )
 237 {
 238     sm_handlers.Insert( handler );
 239 }
 240
 241 bool wxImage::RemoveHandler( const wxString& name )
 242 {
 243   wxImageHandler *handler = FindHandler(name);
 244   if (handler)
 245   {
 246     sm_handlers.DeleteObject(handler);
 247     return TRUE;
 248   }
 249   else
 250     return FALSE;
 251 }
 252
 253 wxImageHandler *wxImage::FindHandler( const wxString& name )
 254 {
 255   wxNode *node = sm_handlers.First();
 256   while (node)
 257   {
 258     wxImageHandler *handler = (wxImageHandler*)node->Data();
 259     if (handler->GetName() == name) return handler;
 260     node = node->Next();
 261   }
 262   return (wxImageHandler *)NULL;
 263 }
 264
 265 wxImageHandler *wxImage::FindHandler( const wxString& extension, long bitmapType )
 266 {
 267   wxNode *node = sm_handlers.First();
 268   while (node)
 269   {
 270     wxImageHandler *handler = (wxImageHandler*)node->Data();
 271     if ( handler->GetExtension() == extension &&
 272         (bitmapType == -1 || handler->GetType() == bitmapType) )
 273       return handler;
 274     node = node->Next();
 275   }
 276   return (wxImageHandler*)NULL;
 277 }
 278
 279 wxImageHandler *wxImage::FindHandler( long bitmapType )
 280 {
 281   wxNode *node = sm_handlers.First();
 282   while (node)
 283   {
 284     wxImageHandler *handler = (wxImageHandler *)node->Data();
 285     if (handler->GetType() == bitmapType) return handler;
 286     node = node->Next();
 287   }
 288   return NULL;
 289 }
 290
 291 void wxImage::CleanUpHandlers()
 292 {
 293   wxNode *node = sm_handlers.First();
 294   while (node)
 295   {
 296     wxImageHandler *handler = (wxImageHandler *)node->Data();
 297     wxNode *next = node->Next();
 298     delete handler;
 299     delete node;
 300     node = next;
 301   }
 302 }
 303
 304 //-----------------------------------------------------------------------------
 305 // wxImageHandler
 306 //-----------------------------------------------------------------------------
 307
 308 #if !USE_SHARED_LIBRARIES
 309 IMPLEMENT_DYNAMIC_CLASS(wxImageHandler,wxObject)
 310 #endif
 311
 312 bool wxImageHandler::LoadFile( wxImage *WXUNUSED(image), const wxString& WXUNUSED(name) )
 313 {
 314   return FALSE;
 315 }
 316
 317 bool wxImageHandler::SaveFile( wxImage *WXUNUSED(image), const wxString& WXUNUSED(name) )
 318 {
 319   return FALSE;
 320 }
 321
 322 //-----------------------------------------------------------------------------
 323 // wxPNGHandler
 324 //-----------------------------------------------------------------------------
 325
 326 #if !USE_SHARED_LIBRARIES
 327 IMPLEMENT_DYNAMIC_CLASS(wxPNGHandler,wxImageHandler)
 328 #endif
 329
 330 bool wxPNGHandler::LoadFile( wxImage *image, const wxString& name )
 331 {
 332    FILE               *f;
 333    png_structp         png_ptr;
 334    png_infop           info_ptr;
 335    unsigned char      *ptr, **lines, *ptr2;
 336    int                 transp,bit_depth,color_type,interlace_type;
 337    png_uint_32         width, height;
 338    unsigned int        i;
 339
 340    image->Destroy();
 341
 342    transp = 0;
 343    png_ptr = png_create_read_struct( PNG_LIBPNG_VER_STRING, NULL, NULL, NULL );
 344    if (!png_ptr) return FALSE;
 345
 346    info_ptr = png_create_info_struct( png_ptr );
 347    if (!info_ptr)
 348    {
 349      png_destroy_read_struct( &png_ptr, NULL, NULL );
 350      return FALSE;
 351    }
 352
 353    if (setjmp(png_ptr->jmpbuf))
 354    {
 355      png_destroy_read_struct( &png_ptr, &info_ptr, NULL );
 356      return FALSE;
 357    }
 358
 359    if (info_ptr->color_type == PNG_COLOR_TYPE_RGB_ALPHA)
 360    {
 361      png_destroy_read_struct( &png_ptr, &info_ptr, NULL );
 362      return FALSE;
 363    }
 364
 365    f = fopen( name, "rb" );
 366    png_init_io( png_ptr, f );
 367
 368    png_read_info( png_ptr, info_ptr );
 369    png_get_IHDR( png_ptr, info_ptr, &width, &height, &bit_depth, &color_type, &interlace_type, NULL, NULL );
 370
 371    if (color_type == PNG_COLOR_TYPE_PALETTE) png_set_expand( png_ptr );
 372
 373    png_set_strip_16( png_ptr );
 374    png_set_packing( png_ptr );
 375    if (png_get_valid( png_ptr, info_ptr, PNG_INFO_tRNS)) png_set_expand( png_ptr );
 376    png_set_filler( png_ptr, 0xff, PNG_FILLER_AFTER );
 377
 378    image->Create( width, height );
 379
 380    if (!image->Ok())
 381    {
 382      png_destroy_read_struct( &png_ptr, &info_ptr, NULL );
 383      return FALSE;
 384    }
 385
 386    lines = (unsigned char **)malloc( height * sizeof(unsigned char *) );
 387    if (lines == NULL)
 388    {
 389      image->Destroy();
 390      png_destroy_read_struct( &png_ptr, &info_ptr, NULL );
 391      return FALSE;
 392    }
 393
 394    for (i = 0; i < height; i++)
 395    {
 396      if ((lines[i] = (unsigned char *)malloc(width * (sizeof(unsigned char) * 4))) == NULL)
 397      {
 398        image->Destroy();
 399        for (unsigned int n = 0; n < i; n++) free( lines[n] );
 400        free( lines );
 401        png_destroy_read_struct( &png_ptr, &info_ptr, NULL );
 402        return FALSE;
 403      }
 404   }
 405
 406    png_read_image( png_ptr, lines );
 407    png_destroy_read_struct( &png_ptr, &info_ptr, NULL );
 408    ptr = image->GetData();
 409    if ((color_type == PNG_COLOR_TYPE_GRAY) ||
 410        (color_type == PNG_COLOR_TYPE_GRAY_ALPHA))
 411      {
 412         for (unsigned int y = 0; y < height; y++)
 413           {
 414              ptr2 = lines[y];
 415              for (unsigned int x = 0; x < width; x++)
 416                {
 417                   unsigned char r = *ptr2++;
 418                   unsigned char a = *ptr2++;
 419                   if (a < 128)
 420                     {
 421                        *ptr++ = 255;
 422                        *ptr++ = 0;
 423                        *ptr++ = 255;
 424                        transp = 1;
 425                     }
 426                   else
 427                     {
 428                        *ptr++ = r;
 429                        *ptr++ = r;
 430                        *ptr++ = r;
 431                     }
 432                }
 433           }
 434      }
 435    else
 436      {
 437         for (unsigned int y = 0; y < height; y++)
 438           {
 439              ptr2 = lines[y];
 440              for (unsigned int x = 0; x < width; x++)
 441                {
 442                   unsigned char r = *ptr2++;
 443                   unsigned char g = *ptr2++;
 444                   unsigned char b = *ptr2++;
 445                   unsigned char a = *ptr2++;
 446                   if (a < 128)
 447                     {
 448                        *ptr++ = 255;
 449                        *ptr++ = 0;
 450                        *ptr++ = 255;
 451                        transp = 1;
 452                     }
 453                   else
 454                     {
 455                        if ((r == 255) && (g == 0) && (b == 255)) r = 254;
 456                        *ptr++ = r;
 457                        *ptr++ = g;
 458                        *ptr++ = b;
 459                     }
 460                }
 461           }
 462      }
 463    for (i = 0; i < height; i++) free( lines[i] );
 464    free( lines );
 465    if (transp)
 466      image->SetMaskColour( 255, 0, 255 );
 467    else
 468      image->SetMask( FALSE );
 469
 470    return TRUE;
 471 }
 472
 473
 474 bool wxPNGHandler::SaveFile( wxImage *image, const wxString& name )
 475 {
 476   FILE *f = fopen( name, "wb" );
 477   if (f)
 478   {
 479     png_structp png_ptr = png_create_write_struct( PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
 480     if (!png_ptr)
 481     {
 482       fclose( f );
 483       return FALSE;
 484     }
 485
 486     png_infop info_ptr = png_create_info_struct(png_ptr);
 487     if (info_ptr == NULL)
 488     {
 489       fclose(f);
 490       png_destroy_write_struct( &png_ptr, (png_infopp)NULL );
 491       return FALSE;
 492     }
 493
 494     if (setjmp(png_ptr->jmpbuf))
 495     {
 496       fclose( f );
 497       png_destroy_write_struct( &png_ptr, (png_infopp)NULL );
 498       return FALSE;
 499     }
 500
 501     png_init_io( png_ptr, f );
 502     png_set_IHDR( png_ptr, info_ptr, image->GetWidth(), image->GetHeight(), 8,
 503                   PNG_COLOR_TYPE_RGB_ALPHA, PNG_INTERLACE_NONE,
 504                   PNG_COMPRESSION_TYPE_BASE, PNG_FILTER_TYPE_BASE);
 505
 506     png_color_8 sig_bit;
 507     sig_bit.red = 8;
 508     sig_bit.green = 8;
 509     sig_bit.blue = 8;
 510     sig_bit.alpha = 8;
 511     png_set_sBIT( png_ptr, info_ptr, &sig_bit );
 512     png_write_info( png_ptr, info_ptr );
 513     png_set_shift( png_ptr, &sig_bit );
 514     png_set_packing( png_ptr );
 515
 516     unsigned char *data = (unsigned char *)malloc( image->GetWidth()*4 );
 517     if (!data)
 518     {
 519       fclose( f );
 520       png_destroy_write_struct( &png_ptr, (png_infopp)NULL );
 521       return FALSE;
 522     }
 523
 524     for (int y = 0; y < image->GetHeight(); y++)
 525     {
 526       unsigned char *ptr = image->GetData() + (y * image->GetWidth() * 3);
 527       for (int x = 0; x < image->GetWidth(); x++)
 528       {
 529         data[(x << 2) + 0] = *ptr++;
 530         data[(x << 2) + 1] = *ptr++;
 531         data[(x << 2) + 2] = *ptr++;
 532         if ((data[(x << 2) + 0] == image->GetMaskRed()) &&
 533             (data[(x << 2) + 1] == image->GetMaskGreen()) &&
 534             (data[(x << 2) + 2] == image->GetMaskBlue()))
 535           data[(x << 2) + 3] = 0;
 536         else
 537           data[(x << 2) + 3] = 255;
 538       }
 539       png_bytep row_ptr = data;
 540       png_write_rows( png_ptr, &row_ptr, 1 );
 541     }
 542     free(data);
 543     png_write_end( png_ptr, info_ptr );
 544     png_destroy_write_struct( &png_ptr, (png_infopp)NULL );
 545
 546     fclose(f);
 547   }
 548   return TRUE;
 549 }
 550
 551 //-----------------------------------------------------------------------------
 552 // wxBMPHandler
 553 //-----------------------------------------------------------------------------
 554
 555 #if !USE_SHARED_LIBRARIES
 556 IMPLEMENT_DYNAMIC_CLASS(wxBMPHandler,wxImageHandler)
 557 #endif
 558
 559 bool wxBMPHandler::LoadFile( wxImage *image, const wxString& name )
 560 {
 561    FILE               *file;
 562    unsigned char      *data, *ptr;
 563    int                 done, i, bpp, planes, comp, ncolors, line, column,
 564                        linesize, linepos, rshift = 0, gshift = 0, bshift = 0;
 565    unsigned char       byte;
 566    short int           word;
 567    long int            dbuf[4], dword, rmask = 0, gmask = 0, bmask = 0, offset,
 568                        size;
 569    signed char         bbuf[4];
 570    struct _cmap
 571      {
 572         unsigned char       r, g, b;
 573      }
 574                       *cmap = NULL;
 575 #ifndef BI_RGB
 576 #define BI_RGB       0
 577 #define BI_RLE8      1
 578 #define BI_RLE4      2
 579 #define BI_BITFIELDS 3
 580 #endif
 581
 582   image->Destroy();
 583
 584    file = fopen(name, "r");
 585    if (!file)
 586       return NULL;
 587
 588    done = 0;
 589    /*
 590     * Reading the bmp header
 591     */
 592
 593    fread(&bbuf, 1, 2, file);
 594
 595    fread(dbuf, 4, 4, file);
 596
 597    size = dbuf[0];
 598    offset = dbuf[2];
 599
 600    fread(dbuf, 4, 2, file);
 601    int width = (int)dbuf[0];
 602    int height = (int)dbuf[1];
 603    if (width > 32767)
 604      {
 605         fprintf(stderr, "IMLIB ERROR: Image width > 32767 pixels for file\n");
 606         fclose(file);
 607         return FALSE;
 608      }
 609    if (height > 32767)
 610      {
 611         fprintf(stderr, "IMLIB ERROR: Image height > 32767 pixels for file\n");
 612         fclose(file);
 613         return FALSE;
 614      }
 615    fread(&word, 2, 1, file);
 616    planes = (int)word;
 617    fread(&word, 2, 1, file);
 618    bpp = (int)word;
 619    if (bpp != 1 && bpp != 4 && bpp != 8 && bpp && 16 && bpp != 24 && bpp != 32)
 620      {
 621         fprintf(stderr, "IMLIB ERROR: unknown bitdepth in file\n");
 622         fclose(file);
 623         return FALSE;
 624      }
 625    fread(dbuf, 4, 4, file);
 626    comp = (int)dbuf[0];
 627    if (comp != BI_RGB && comp != BI_RLE4 && comp != BI_RLE8 && comp != BI_BITFIELDS)
 628      {
 629         fprintf(stderr, "IMLIB ERROR: unknown encoding in Windows BMP file\n");
 630         fclose(file);
 631         return FALSE;
 632      }
 633    fread(dbuf, 4, 2, file);
 634    ncolors = (int)dbuf[0];
 635    if (ncolors == 0)
 636       ncolors = 1 << bpp;
 637    /* some more sanity checks */
 638    if (((comp == BI_RLE4) && (bpp != 4)) || ((comp == BI_RLE8) && (bpp != 8)) || ((comp == BI_BITFIELDS) && (bpp != 16 && bpp != 32)))
 639      {
 640         fprintf(stderr, "IMLIB ERROR: encoding of BMP doesn't match bitdepth\n");
 641         fclose(file);
 642         return FALSE;
 643      }
 644    if (bpp < 16)
 645      {
 646         cmap = (struct _cmap *)malloc(sizeof(struct _cmap) * ncolors);
 647
 648         if (!cmap)
 649           {
 650              fprintf(stderr, "IMLIB ERROR: Cannot allocate RAM for color map in BMP file\n");
 651              fclose(file);
 652              return FALSE;
 653           }
 654      }
 655    else
 656       cmap = NULL;
 657
 658    image->Create( width, height );
 659    ptr = image->GetData();
 660    if (!ptr)
 661      {
 662         fprintf(stderr, "IMLIB ERROR: Cannot allocate RAM for RGB data in file\n");
 663         fclose(file);
 664         if (cmap)
 665            free(cmap);
 666         return FALSE;
 667      }
 668
 669    /*
 670     * Reading the palette, if it exists.
 671     */
 672    if (bpp < 16 && ncolors != 0)
 673      {
 674         for (i = 0; i < ncolors; i++)
 675           {
 676              fread(bbuf, 1, 4, file);
 677              cmap[i].b = bbuf[0];
 678              cmap[i].g = bbuf[1];
 679              cmap[i].r = bbuf[2];
 680           }
 681      }
 682    else if (bpp == 16 || bpp == 32)
 683      {
 684         if (comp == BI_BITFIELDS)
 685           {
 686              int                 bit = 0;
 687
 688              fread(dbuf, 4, 3, file);
 689              bmask = dbuf[0];
 690              gmask = dbuf[1];
 691              rmask = dbuf[2];
 692              /* find shift amount.. ugly, but i can't think of a better way */
 693              for (bit = 0; bit < bpp; bit++)
 694                {
 695                   if (bmask & (1 << bit))
 696                      bshift = bit;
 697                   if (gmask & (1 << bit))
 698                      gshift = bit;
 699                   if (rmask & (1 << bit))
 700                      rshift = bit;
 701                }
 702           }
 703         else if (bpp == 16)
 704           {
 705              rmask = 0x7C00;
 706              gmask = 0x03E0;
 707              bmask = 0x001F;
 708              rshift = 10;
 709              gshift = 5;
 710              bshift = 0;
 711           }
 712         else if (bpp == 32)
 713           {
 714              rmask = 0x00FF0000;
 715              gmask = 0x0000FF00;
 716              bmask = 0x000000FF;
 717              rshift = 16;
 718              gshift = 8;
 719              bshift = 0;
 720           }
 721      }
 722
 723    /*
 724     * REading the image data
 725     */
 726    fseek(file, offset, SEEK_SET);
 727    data = ptr;
 728
 729    /* set the whole image to the background color */
 730    if (bpp < 16 && (comp == BI_RLE4 || comp == BI_RLE8))
 731      {
 732         for (i = 0; i < width * height; i++)
 733           {
 734              *ptr++ = cmap[0].r;
 735              *ptr++ = cmap[0].g;
 736              *ptr++ = cmap[0].b;
 737           }
 738         ptr = data;
 739      }
 740    line = 0;
 741    column = 0;
 742 #define poffset (line * width * 3 + column * 3)
 743
 744    /*
 745     * BMPs are stored upside down... hmmmmmmmmmm....
 746     */
 747
 748    linesize = ((width * bpp + 31) / 32) * 4;
 749    for (line = (height - 1); line >= 0; line--)
 750      {
 751         linepos = 0;
 752         for (column = 0; column < width;)
 753           {
 754              if (bpp < 16)
 755                {
 756                   int                 index;
 757
 758                   linepos++;
 759                   byte = getc(file);
 760                   if (bpp == 1)
 761                     {
 762                        int                 bit = 0;
 763
 764                        for (bit = 0; bit < 8; bit++)
 765                          {
 766                             index = ((byte & (0x80 >> bit)) ? 1 : 0);
 767                             ptr[poffset] = cmap[index].r;
 768                             ptr[poffset + 1] = cmap[index].g;
 769                             ptr[poffset + 2] = cmap[index].b;
 770                             column++;
 771                          }
 772                     }
 773                   else if (bpp == 4)
 774                     {
 775                        if (comp == BI_RLE4)
 776                          {
 777                             fprintf(stderr, "can't deal with 4bit encoded yet.\n");
 778                             image->Destroy();
 779                             free(cmap);
 780                             return FALSE;
 781                          }
 782                        else
 783                          {
 784                             int                 nibble = 0;
 785
 786                             for (nibble = 0; nibble < 2; nibble++)
 787                               {
 788                                  index = ((byte & (0xF0 >> nibble * 4)) >> (!nibble * 4));
 789                                  if (index >= 16)
 790                                     index = 15;
 791                                  ptr[poffset] = cmap[index].r;
 792                                  ptr[poffset + 1] = cmap[index].g;
 793                                  ptr[poffset + 2] = cmap[index].b;
 794                                  column++;
 795                               }
 796                          }
 797                     }
 798                   else if (bpp == 8)
 799                     {
 800                        if (comp == BI_RLE8)
 801                          {
 802                             unsigned char       first;
 803
 804                             first = byte;
 805                             byte = getc(file);
 806                             if (first == 0)
 807                               {
 808                                  if (byte == 0)
 809                                    {
 810 /*                                    column = width; */
 811                                    }
 812                                  else if (byte == 1)
 813                                    {
 814                                       column = width;
 815                                       line = -1;
 816                                    }
 817                                  else if (byte == 2)
 818                                    {
 819                                       byte = getc(file);
 820                                       column += byte;
 821                                       linepos = column * bpp / 8;
 822                                       byte = getc(file);
 823                                       line += byte;
 824                                    }
 825                                  else
 826                                    {
 827                                       int                 absolute = byte;
 828
 829                                       for (i = 0; i < absolute; i++)
 830                                         {
 831                                            +linepos++;
 832                                            byte = getc(file);
 833                                            ptr[poffset] = cmap[byte].r;
 834                                            ptr[poffset + 1] = cmap[byte].g;
 835                                            ptr[poffset + 2] = cmap[byte].b;
 836                                            column++;
 837                                         }
 838                                       if (absolute & 0x01)
 839                                          byte = getc(file);
 840                                    }
 841                               }
 842                             else
 843                               {
 844                                  for (i = 0; i < first; i++)
 845                                    {
 846                                       ptr[poffset] = cmap[byte].r;
 847                                       ptr[poffset + 1] = cmap[byte].g;
 848                                       ptr[poffset + 2] = cmap[byte].b;
 849                                       column++;
 850                                       linepos++;
 851                                    }
 852                               }
 853                          }
 854                        else
 855                          {
 856                             ptr[poffset] = cmap[byte].r;
 857                             ptr[poffset + 1] = cmap[byte].g;
 858                             ptr[poffset + 2] = cmap[byte].b;
 859                             column++;
 860                             linepos += size;
 861                          }
 862                     }
 863                }
 864              else if (bpp == 24)
 865                {
 866                   linepos += fread(&bbuf, 1, 3, file);
 867                   ptr[poffset] = (unsigned char)bbuf[2];
 868                   ptr[poffset + 1] = (unsigned char)bbuf[1];
 869                   ptr[poffset + 2] = (unsigned char)bbuf[0];
 870                   column++;
 871                }
 872              else if (bpp == 16)
 873                {
 874                   unsigned char       temp;
 875
 876                   linepos += fread(&word, 2, 1, file);
 877                   temp = (word & rmask) >> rshift;
 878                   ptr[poffset] = temp;
 879                   temp = (word & gmask) >> gshift;
 880                   ptr[poffset + 1] = temp;
 881                   temp = (word & bmask) >> gshift;
 882                   ptr[poffset + 2] = temp;
 883                   column++;
 884                }
 885              else
 886                {
 887                   unsigned char       temp;
 888
 889                   linepos += fread(&dword, 4, 1, file);
 890                   temp = (dword & rmask) >> rshift;
 891                   ptr[poffset] = temp;
 892                   temp = (dword & gmask) >> gshift;
 893                   ptr[poffset + 1] = temp;
 894                   temp = (dword & bmask) >> bshift;
 895                   ptr[poffset + 2] = temp;
 896                   column++;
 897                }
 898           }
 899         while ((linepos < linesize) && (comp != 1) && (comp != 2))
 900           {
 901              int                 temp = fread(&byte, 1, 1, file);
 902
 903              linepos += temp;
 904              if (!temp)
 905                 break;
 906           }
 907      }
 908    if (cmap) free(cmap);
 909
 910    image->SetMask( FALSE );
 911
 912    fclose(file);
 913    return TRUE;
 914 }
 915