BMP_MAP.C

Go to the documentation of this file.

/* --
OpenFX version 2.0 - Modelling, Animation and Rendering Package
Copyright (C) 2000 - 2007 OpenFX Development Team
-- */

/*  BMP_MAP.C  */

#include <stdlib.h>
#include <stdio.h>

#include <windows.h>

#define BFT_BITMAP 0x4d42   /* 'BM' */

#include "../common/mem.h"

typedef struct SCREENBUFFER {
 unsigned char R,G,B,A;
} fullscreenbuffer;

static long LoadBmpImageMap(char *fn, long *xxx, long *yyy, BOOL size_only,
   unsigned char *pR, unsigned char *pG, unsigned char *pB, unsigned char *source_buffer);
static long LoadBmpImageMap32(char *fn, long *xxx, long *yyy, BOOL size_only,
   unsigned char *pR, unsigned char *pG, unsigned char *pB, unsigned char *pA, unsigned char *source_buffer);
static HINSTANCE hThisInstance;

#if __WATCOMC__
int APIENTRY LibMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#else
BOOL WINAPI DllMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#endif
  switch (dwReason) {
    case DLL_PROCESS_ATTACH: {
      hThisInstance=hDLL;
      break;
    }
    case DLL_PROCESS_DETACH:
      break;
  }
  return TRUE;
}

BOOL _GetExternalImageSize
 (char *filename,
  long *x,
  long *y,
  unsigned char *source_buffer){
 return LoadBmpImageMap(filename,x,y,1,NULL,NULL,NULL,source_buffer);
}

BOOL _GetExternalImage
 (char *filename,
  long x, long y,
  unsigned char *Red,
  unsigned char *Green,
  unsigned char *Blue,
  unsigned char *source_buffer){
 return LoadBmpImageMap(filename,&x,&y,0,Red,Green,Blue,source_buffer);
}

BOOL _GetExternalImageA
 (char *filename,
  long x, long y,
  unsigned char *Red,
  unsigned char *Green,
  unsigned char *Blue,
  unsigned char *Alpha,
  unsigned char *source_buffer){
 return LoadBmpImageMap32(filename,&x,&y,0,Red,Green,Blue,Alpha,source_buffer);
}


BOOL _PutExternalImage
 (char *szOutFileName,
  long nx, long ny,
  long quality,
  fullscreenbuffer *image){
 HANDLE hfbm;
 DWORD dwRead;
 BITMAPFILEHEADER hdr,*lphdr;
 BITMAPINFOHEADER bfi,*lpbi;
 long i,j,imagesize,mx;
 unsigned char *Screen1,*p;
 mx=((nx*24+31)/32) * 4;
 if((Screen1=(unsigned char *)X__Malloc(nx*ny*3)) == NULL){
   MessageBox(NULL,"Out of Memory","Warning",MB_OK);
   return FALSE;
 }
 p=Screen1;
 for(i=0;i<ny;i++){
   p=Screen1+(ny-i-1)*nx*3;
   for(j=0;j<nx;j++){
     *p++ = (unsigned char)image->B;
     *p++ = (unsigned char)image->G;
     *p++ = (unsigned char)image->R;
     image++;
   }
 }
 if((hfbm=CreateFile(szOutFileName,GENERIC_WRITE,FILE_SHARE_WRITE,
   NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,
   (HANDLE)NULL)) == INVALID_HANDLE_VALUE){
   X__Free(Screen1);
   MessageBox(NULL,szOutFileName,"File Open Fail",MB_OK);
   MessageBeep(MB_OK);
   return FALSE;
 }
 lpbi=&bfi;
 lpbi->biSize=sizeof(BITMAPINFOHEADER);
 lpbi->biWidth=(DWORD)nx;
 lpbi->biHeight=(DWORD)ny;
 lpbi->biPlanes=1;
 lpbi->biBitCount=24;
 lpbi->biCompression=BI_RGB;
 lpbi->biSizeImage = imagesize = (DWORD)(mx*ny);
 lpbi->biXPelsPerMeter=0;
 lpbi->biYPelsPerMeter=0;
 lpbi->biClrUsed=0;
 lpbi->biClrImportant=0;
 lphdr=&hdr;
 hdr.bfType          = BFT_BITMAP;
 hdr.bfSize          = (sizeof(BITMAPFILEHEADER)+sizeof(BITMAPINFOHEADER)
                        + imagesize);
 hdr.bfReserved1     = 0;
 hdr.bfReserved2     = 0;
 hdr.bfOffBits       = (DWORD)sizeof(BITMAPFILEHEADER) + lpbi->biSize;
 WriteFile(hfbm,lphdr,sizeof(BITMAPFILEHEADER),&dwRead,(LPOVERLAPPED)NULL);
 WriteFile(hfbm,lpbi,sizeof(BITMAPINFOHEADER),&dwRead,(LPOVERLAPPED)NULL);
 WriteFile(hfbm,Screen1,imagesize,&dwRead,(LPOVERLAPPED)NULL);
 if(dwRead != imagesize){
   MessageBeep(MB_OK);
   MessageBox(NULL,"Bad write",NULL,MB_OK);
 }
 if(!CloseHandle(hfbm)){
   MessageBeep(MB_OK);
   MessageBox(NULL,"Bad close",NULL,MB_OK);
 }
 X__Free(Screen1);
 return TRUE;
}


static long LoadBmpImageMap(char *fn, long *xxx, long *yyy, BOOL size_only,
   unsigned char *pR, unsigned char *pG, unsigned char *pB,
   unsigned char *source){
 BITMAPFILEHEADER bmfh;
 BITMAPINFOHEADER bmih;
 WORD bits;
 RGBQUAD *pRgb;
 FILE *t24;
 unsigned char *lpBitmapBits,*p;
 long imagesize,nc,wi,hi,fail=0,i,j,b;

 if((pRgb=(RGBQUAD *)X__Malloc(300*sizeof(RGBQUAD))) == NULL)return 0;

 t24=fopen((char *)fn,"rb");
 if(t24 == NULL)return 0;
 fread((char *)&bmfh,sizeof(BITMAPFILEHEADER),1,t24);
 fread((char *)&bmih,sizeof(BITMAPINFOHEADER),1,t24);
 if(bmih.biClrUsed != 0)nc=bmih.biClrUsed;
 else{
   bits = bmih.biBitCount;
   switch (bits){
     case 1:    nc=2;   break;
     case 4:    nc=16;  break;
     case 8:    nc=256; break;
     default:   nc=0;   break;
   }
 }
 *xxx=bmih.biWidth; 
 *yyy=bmih.biHeight;
 if(size_only){
   fclose(t24);
   X__Free(pRgb);
   return 1;
 }

 if(nc > 0)fread((char *)pRgb,nc*sizeof(RGBQUAD),1,t24);
 imagesize=bmfh.bfSize-bmfh.bfOffBits;
 if((lpBitmapBits=(unsigned char *)X__Malloc(imagesize)) == NULL){
   fclose(t24);
   X__Free(pRgb);
   return 0;
 }
 memset(lpBitmapBits,0,imagesize);
 fread((char *)lpBitmapBits,imagesize,1,t24);
 fclose(t24);
 wi=bmih.biWidth; hi=bmih.biHeight;

 imagesize=wi*hi;

 for(i=0;i<hi;i++){
   if(nc > 0)p=(lpBitmapBits+wi*(hi-i-1));
   else      p=(lpBitmapBits+wi*(hi-i-1)*3);

   for(j=0;j<wi;j++){
     if(nc > 0){
       b=(long)(*p++);
       *pR++ = pRgb[b].rgbRed;
       *pG++ = pRgb[b].rgbGreen;
       *pB++ = pRgb[b].rgbBlue;
     }
     else{
       *pB++ = *p++; *pG++ = *p++; *pR++ = *p++;
     }
   }
 }
 X__Free(pRgb);
 X__Free(lpBitmapBits);
 return 1;
}


static long LoadBmpImageMap32(char *fn, long *xxx, long *yyy, BOOL size_only,
   unsigned char *pR, unsigned char *pG, unsigned char *pB, unsigned char *pA,
   unsigned char *source){
 BITMAPFILEHEADER bmfh;
 BITMAPINFOHEADER bmih;
 WORD bits;
 RGBQUAD *pRgb;
 FILE *t24;
 unsigned char *lpBitmapBits,*p;
 long imagesize,nc,wi,hi,fail=0,i,j,b;

 if((pRgb=(RGBQUAD *)X__Malloc(300*sizeof(RGBQUAD))) == NULL)return 0;

 t24=fopen((char *)fn,"rb");
 if(t24 == NULL)return 0;
 fread((char *)&bmfh,sizeof(BITMAPFILEHEADER),1,t24);
 fread((char *)&bmih,sizeof(BITMAPINFOHEADER),1,t24);
 if(bmih.biClrUsed != 0)nc=bmih.biClrUsed;
 else{
   bits = bmih.biBitCount;
   switch (bits){
     case 1:    nc=2;   break;
     case 4:    nc=16;  break;
     case 8:    nc=256; break;
     default:   nc=0;   break;
   }
 }
 *xxx=bmih.biWidth; 
 *yyy=bmih.biHeight;
 if(size_only){
   fclose(t24);
   X__Free(pRgb);
   return 1;
 }

 if(nc > 0)fread((char *)pRgb,nc*sizeof(RGBQUAD),1,t24);
 imagesize=bmfh.bfSize-bmfh.bfOffBits;
 if((lpBitmapBits=(unsigned char *)X__Malloc(imagesize)) == NULL){
   fclose(t24);
   X__Free(pRgb);
   return 0;
 }
 memset(lpBitmapBits,0,imagesize);
 fread((char *)lpBitmapBits,imagesize,1,t24);
 fclose(t24);
 wi=bmih.biWidth; hi=bmih.biHeight;

 imagesize=wi*hi;

 for(i=0;i<hi;i++){
   if(nc > 0)p=(lpBitmapBits+wi*(hi-i-1));
   else      p=(lpBitmapBits+wi*(hi-i-1)*4);

   for(j=0;j<wi;j++){
     if(nc > 0){
       b=(long)(*p++);
       *pR++ = pRgb[b].rgbRed;
       *pG++ = pRgb[b].rgbGreen;
       *pB++ = pRgb[b].rgbBlue;
       *pA++ = 0;
     }
     else{
       *pB++ = *p++; *pG++ = *p++; *pR++ = *p++; *pA++ = *p++;
     }
   }
 }
 X__Free(pRgb);
 X__Free(lpBitmapBits);
 return 1;
}