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