avi24_dll.c

Go to the documentation of this file.

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

/* FILE AVI24_DLL.C    DLL to build AVI video movie from TEMPORARY files */

// NOTE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! TO USE the DIRECT SHOW PLAYER
// THE alignment must be default!!!!   Zp2 alignment was used for FLC and
// the old AVI player so if moving back to OLD AVI this needs to be checked.

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

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


#if !__WATCOMC__
#define fflush(a) 0
#endif

extern int AVIEntryPoint(HINSTANCE hInstance, long first_file, long last_file, char *avi_outname);

extern void configureAVIfile(HWND, char *, void *);
extern void openAVIfile(char *Name, LPBITMAPINFOHEADER lpbi, int compress, long speed);
extern void appendAVIfile(LPBITMAPINFOHEADER lpbi);
extern void closeAVIfile(void);

#if __X__MIPS__
BOOL WINAPI _CRT_INIT(HINSTANCE ,DWORD , LPVOID );
#endif

static HINSTANCE app_handle;
static HWND      g_status_window;
static long      compressbuffer[4096];
static LPSTR     lpBitmapHeader = NULL;
static LPSTR     lpBitmapBits   = NULL;
static long  g_range_l,g_range_f;
static long  g_tzeros;
static long  g_pitch;
static char *g_stem_file;
static long  g_ResolutionX,g_ResolutionY;

#define GOOD 2
#define ALIGNULONG(i)   ((i+3)/4*4)

void UnCompressLongLine(long bufsize, long *buffer,
                         unsigned long *output);

// read and decompress code

void  UnCompressLongLine(long bufsize, long *buffer,unsigned long *output){
 long p,k;
 long i;
 k=0; while(k < bufsize){
   p = *buffer++; k++;
   if(p < 0)
     for(i=0; i<= -p; i++){*output++ = *buffer++; k++;}
   else{
     for(i=0; i<=  p; i++) *output++ = *buffer;
     buffer++; k++;
   }
 }
}

// end of read and uncompress code

static long MakeBitmapStructure(int x_size, int y_size){ // make a suitably sized bitmap framework
 long imagesize;
 int x4_size;
 LPBITMAPINFOHEADER lpbi;

 x4_size = ALIGNULONG(x_size*3);
 imagesize = (DWORD)x4_size*(DWORD)y_size;
 lpBitmapHeader = (LPSTR)X__Malloc((long)sizeof(BITMAPINFOHEADER)
                                +imagesize);
 if(lpBitmapHeader == NULL){
   return FALSE;
 }
 lpbi=(LPBITMAPINFOHEADER)lpBitmapHeader;
 lpbi->biSize=sizeof(BITMAPINFOHEADER);
 lpbi->biWidth=(DWORD)x_size;
 lpbi->biHeight=(DWORD)y_size;
 lpbi->biPlanes=1;
 lpbi->biBitCount=24;
 lpbi->biCompression=BI_RGB;
 lpbi->biSizeImage=(DWORD)imagesize;
 lpbi->biXPelsPerMeter=0;
 lpbi->biYPelsPerMeter=0;
 lpbi->biClrUsed=0;
 lpbi->biClrImportant=0;
 lpBitmapBits=(LPSTR)(lpbi);
 lpBitmapBits += (lpbi->biSize);
 if(lpBitmapBits == NULL){
   return 0;
 }
 memset(lpBitmapBits,255,imagesize);
 return x4_size;
}

/* range_l is last included frame+1 */

BYTE *GetNextBitmapFromTemporaryFile(long frame){
 char filename[512],speed_string[128],format[64];
 long x_x,y_y;
 unsigned long val,Nt,RGB[4096];
 int i,j;
 unsigned char *screen,*lp,R,G,B;
 FILE *ipf;
 //return (BYTE *)lpBitmapHeader;
 sprintf(speed_string,"Building frame %03ld",min(frame,g_range_l));
 SendMessage(g_status_window,WM_SETTEXT,0,(LPARAM)speed_string);
 sprintf(format,"%s%ld%s","%s%0",g_tzeros,"d.32b");
 if(frame < g_range_l)sprintf(filename,format,g_stem_file,frame);
 else               sprintf(filename,format,g_stem_file,g_range_f);
 if((ipf=fopen(strlwr(filename),"rb")) == NULL){
   goto FATALOPEN1;
 }
 if( fread((char *)&x_x,sizeof(long),1,ipf) != 1 ||
     fread((char *)&y_y,sizeof(long),1,ipf) != 1)goto FATALREAD;
 if(x_x != g_ResolutionX || y_y != g_ResolutionY)goto FATALREAD;
 screen=(unsigned char *)lpBitmapBits + g_pitch*(g_ResolutionY - 1); 
 for (i = 0; i < g_ResolutionY; i++) {
   if(fread((char *)&Nt,sizeof(long),1,ipf) != 1)goto FATALREAD;
   if(Nt == 0){
     if(fread((char *)RGB,sizeof(unsigned long),g_ResolutionX,ipf)
        != g_ResolutionX)goto FATALREAD;
   }
   else{
     if(fread((char *)compressbuffer,sizeof(long),Nt,ipf) != Nt)
       goto FATALREAD;
     UnCompressLongLine(Nt,compressbuffer,RGB);
   }
   lp=screen;
   for (j = 0; j < g_ResolutionX; j++) {
      val=RGB[j];
      R = (unsigned char)((val & 0x00ff0000) >> 16);
      G = (unsigned char)((val & 0x0000ff00) >>  8);
      B = (unsigned char)((val & 0x000000ff));
      *lp++ = B; *lp++ = G; *lp++ = R;
   }
   screen -= g_pitch;
 }
 fclose(ipf);
 //memset(lpBitmapBits,255-frame*10,g_ResolutionX*g_ResolutionY*3);
 //{ char ttt[255]; sprintf(ttt,"Load Frame %ld from File [%s] (%ld,%ld)- Pitch=%ld",frame,filename,g_ResolutionX,g_ResolutionY,g_pitch); MessageBox(NULL,ttt,"Load",MB_OK);}
 goto XXIT;
 FATALREAD:
   MessageBox(GetFocus(),(LPCTSTR)"Read failed on temporary file",(LPCTSTR)"Error",MB_OK|MB_TASKMODAL);
   fclose(ipf); goto XXIT;
 FATALOPEN1:
   MessageBox(GetFocus(),(LPCTSTR)"Temporary file open failed",(LPCTSTR)"Error",MB_OK|MB_TASKMODAL);
   goto XXIT;
 XXIT:
 return (BYTE *)lpBitmapHeader;
}

int _BuildAvi
  (HWND parent_window, HWND status_window,
   int range_f, int range_l, char *flic_file,
   char *stem_file,
   int ResolutionX,int ResolutionY,
   int nCOLOUR, long speed, long tzeros,
   unsigned long *cstats0,unsigned short *cstats1){
 char filename[512],format[64];
 long pitch,rval;
 int i;
 if(strrchr(flic_file,'.') != NULL)*strrchr(flic_file,'.')='\0';
 strcat(flic_file,".avi");
 g_status_window=status_window;
 g_tzeros=tzeros;
 g_stem_file=stem_file;
 g_ResolutionX = ResolutionX; g_ResolutionY = ResolutionY;
#if 0
 {
  char str[128];
  sprintf(str,"AVI-24: Stem=[%s]",stem_file);
  MessageBox(GetFocus(),(LPCTSTR)str,(LPCTSTR)"New Flic",MB_OK|MB_TASKMODAL);
  sprintf(str,"flic=[%s] ff=%ld lf=%ld",flic_file,range_f,range_l);
  MessageBox(GetFocus(),(LPCTSTR)str,(LPCTSTR)"New Flic",MB_OK|MB_TASKMODAL);
  sprintf(str,"x=%ld y=%ld speed=%ld",ResolutionX,ResolutionY,speed);
  MessageBox(GetFocus(),(LPCTSTR)str,(LPCTSTR)"New Flic",MB_OK|MB_TASKMODAL);
 }
#endif
 if((range_l - range_f) < 3)return 0;  /* don't animate < 3 frames */

 if((pitch=MakeBitmapStructure(ResolutionX,ResolutionY)) == 0){
   MessageBox(GetFocus(),(LPCTSTR)"Out of memory",(LPCTSTR)"AVI24",MB_OK|MB_TASKMODAL);
   return 0;
 }
 g_pitch=pitch; g_range_l=range_l; g_range_f=range_f;
 // start the rendering process - wait in loop until finished.
 rval=AVIEntryPoint(app_handle, range_f,range_l, flic_file);
 //
 if(MessageBox(GetFocus(),(LPCTSTR)"Delete Temporary files",
          (LPCTSTR)"Flic",MB_YESNO|MB_TASKMODAL|MB_ICONQUESTION) == IDYES){
   FILE *FF;
   sprintf(format,"%s%ld%s","%s%0",tzeros,"d.32b");
   sprintf(filename,format,stem_file,range_f);
   if((FF=fopen(filename,"r")) != NULL){
     fclose(FF);
     for(i=range_f;i<range_l;i++){
       sprintf(format,"%s%ld%s","%s%0",tzeros,"d.32b");
       sprintf(filename,format,stem_file,i);
       if(DeleteFile(filename) == FALSE){
         MessageBox(GetFocus(),(LPCTSTR)strcat(filename," Failed during delete"),
         (LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
         break;
       }
     }
   }
   else MessageBox(GetFocus(),(LPCTSTR)"Failed to delete temporary files",
          (LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
 }
 if(lpBitmapHeader != NULL)X__Free(lpBitmapHeader);
 return rval; 
}


int _BuildAviOld
  (HWND parent_window, HWND status_window,
   int range_f, int range_l, char *flic_file,
   char *stem_file,
   int ResolutionX,int ResolutionY,
   int nCOLOUR, long speed, long tzeros,
   unsigned long *cstats0,unsigned short *cstats1){
 char filename[512],speed_string[128],format[64];
 long x_x,y_y;
 unsigned long val,Nt,RGB[4096];
 int i,j,frame,pitch;
 unsigned char *screen,*lp,R,G,B;
 FILE *ipf;
 if(strrchr(flic_file,'.') != NULL)*strrchr(flic_file,'.')='\0';
 strcat(flic_file,".avi");
#if 0
 {
  char str[128];
  sprintf(str,"AVI-24: Stem=[%s]",stem_file);
  MessageBox(GetFocus(),(LPCTSTR)str,(LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
  sprintf(str,"flic=[%s] ff=%ld lf=%ld",flic_file,range_f,range_l);
  MessageBox(GetFocus(),(LPCTSTR)str,(LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
  sprintf(str,"x=%ld y=%ld speed=%ld",ResolutionX,ResolutionY,speed);
  MessageBox(GetFocus(),(LPCTSTR)str,(LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
 }
#endif
 if((range_l - range_f) < 3)return 0;  /* don't animate < 3 frames */
 // Palette not needed for AVI use this if we wish to compress the movie.
 if(nCOLOUR == 1)configureAVIfile(parent_window,NULL,NULL);
 if(speed < 0)speed=5;
 if((pitch=MakeBitmapStructure(ResolutionX,ResolutionY)) == 0){
   MessageBox(GetFocus(),(LPCTSTR)"Out of memory",(LPCTSTR)"AVI24",MB_OK|MB_TASKMODAL);
   return 0;
 }
 g_pitch=pitch; 
 for(frame=range_f;frame<=range_l;frame++){
   sprintf(speed_string,"Building frame %03ld",min(frame,range_l));
   SendMessage(status_window,WM_SETTEXT,0,(LPARAM)speed_string);
   sprintf(format,"%s%ld%s","%s%0",tzeros,"d.32b");
   if(frame < range_l)sprintf(filename,format,stem_file,frame);
   else               sprintf(filename,format,stem_file,range_f);
   if((ipf=fopen(strlwr(filename),"rb")) == NULL){
     goto FATALOPEN1;
   }
   if( fread((char *)&x_x,sizeof(long),1,ipf) != 1 ||
       fread((char *)&y_y,sizeof(long),1,ipf) != 1)goto FATALREAD;
   if(x_x != ResolutionX || y_y != ResolutionY)goto FATALREAD;
   screen=(unsigned char *)lpBitmapBits + pitch*(ResolutionY - 1); 
   for (i = 0; i < ResolutionY; i++) {
     if(fread((char *)&Nt,sizeof(long),1,ipf) != 1)goto FATALREAD;
     if(Nt == 0){
       if(fread((char *)RGB,sizeof(unsigned long),ResolutionX,ipf)
          != ResolutionX)goto FATALREAD;
     }
     else{
       if(fread((char *)compressbuffer,sizeof(long),Nt,ipf) != Nt)
         goto FATALREAD;
       UnCompressLongLine(Nt,compressbuffer,RGB);
     }
     lp=screen;
     for (j = 0; j < ResolutionX; j++) {
        val=RGB[j];
        R = (unsigned char)((val & 0x00ff0000) >> 16);
        G = (unsigned char)((val & 0x0000ff00) >>  8);
        B = (unsigned char)((val & 0x000000ff));
        *lp++ = B; *lp++ = G; *lp++ = R;
     }
     screen -= pitch;
   }
   fclose(ipf);
 
   if(frame == range_f){
     //openAVIfile(flic_file,(LPBITMAPINFOHEADER)lpBitmapHeader,1,25);
     openAVIfile(flic_file,(LPBITMAPINFOHEADER)lpBitmapHeader,0,25);
     appendAVIfile((LPBITMAPINFOHEADER)lpBitmapHeader);
   }
   else if(frame == range_l){
     closeAVIfile();
   }
   else{
     appendAVIfile((LPBITMAPINFOHEADER)lpBitmapHeader);
     Sleep(0);
   }
 }

 if(MessageBox(GetFocus(),(LPCTSTR)"Delete Temporary files",
          (LPCTSTR)"Flic",MB_YESNO|MB_TASKMODAL|MB_ICONQUESTION) == IDYES){
   FILE *FF;
   sprintf(format,"%s%ld%s","%s%0",tzeros,"d.32b");
   sprintf(filename,format,stem_file,range_f);
   if((FF=fopen(filename,"r")) != NULL){
     fclose(FF);
     for(i=range_f;i<range_l;i++){
       sprintf(format,"%s%ld%s","%s%0",tzeros,"d.32b");
       sprintf(filename,format,stem_file,i);
       if(DeleteFile(filename) == FALSE){
         MessageBox(GetFocus(),(LPCTSTR)strcat(filename," Failed during delete"),
         (LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
         break;
       }
     }
   }
   else MessageBox(GetFocus(),(LPCTSTR)"Failed to delete temporary files",
          (LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
 }
 goto XXIT;
 FATALREAD:
   MessageBox(GetFocus(),(LPCTSTR)"Read failed on temporary file",(LPCTSTR)"Error",MB_OK|MB_TASKMODAL);
   fclose(ipf); goto XXIT;
 FATALOPEN1:
   MessageBox(GetFocus(),(LPCTSTR)"Temporary file open failed",(LPCTSTR)"Error",MB_OK|MB_TASKMODAL);
   goto XXIT;
 XXIT:
 if(lpBitmapHeader != NULL)X__Free(lpBitmapHeader);
 return 1;
}


/************************** DLL entry point ********************************/

#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: {
#if __X__MIPS__
      if(!_CRT_INIT(hDLL,dwReason,lpReserved))return(int)FALSE;
#endif
      app_handle = hDLL; 
//      MessageBox (GetFocus(),"AVI builder attaching","Debug",MB_OK);
      break;
    }
    case DLL_PROCESS_DETACH:
#if __X__MIPS__
      if(!_CRT_INIT(hDLL,dwReason,lpReserved))return(int)FALSE;
#endif
//      MessageBox (GetFocus(),"AVI builder detaching","Debug",MB_OK);
      break;
  }
  return (int)TRUE;
}

#if __SC__
#pragma startaddress(DllMain)
#endif