BLUR.C

Go to the documentation of this file.

/* --
OpenFX version 2.x - Modelling, Animation and Rendering Package
-- */

/* BLUR.C  */

#include <stdlib.h>
#include <stdio.h>
#include <float.h>
#include <math.h>
#include <windows.h>
#include "struct.h"           /* general structures    */
#include "..\common\postprocess\ximage.h"
#include "local.h"

#include "blur.h"

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

static HINSTANCE hDLLinstance=NULL; /* use to pick up resources from DLL  */

#include "utils.h"
#include "paint.c"

#if __WATCOMC__
int APIENTRY LibMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#elif __BC__
BOOL WINAPI DllEntryPoint(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
      hDLLinstance = hDLL;  /* handle to DLL file */
      break;
    case DLL_PROCESS_DETACH:
#if __X__MIPS__
      if(!_CRT_INIT(hDLL,dwReason,lpReserved))return(int)FALSE;
#endif
      break;
  }
return (int)TRUE;
}

#if __SC__
#pragma startaddress(DllMain)
#endif

long _RenderImageProcess(char *PrmList, XIMAGE *lpXimage){
 long v,i,j,k,l,ai,aj,atype,back,nmax,n1,n2,Xres,Yres,id1,kmax,lmax,disp;
 long matype,mback,mid1,mnmax;
 double ar,ag,ab,an,z,mr,dscale;
 char name_path[255];
 fullscreenbuffer *S,*So,*Si;
#include "pro_key.c"
 Xres=lpXimage->Xmax; Yres=lpXimage->Ymax;
 So=(fullscreenbuffer *)X__Malloc(Xres*Yres*(long)sizeof(fullscreenbuffer));
 if(So == NULL){
   MessageBox(GetFocus(),"Memory Out",NULL,MB_OK);
   return 0;
 }
 memcpy(So,lpXimage->Screen,sizeof(fullscreenbuffer)*Xres*Yres);
 sscanf(PrmList,"%s %ld %ld %ld %ld %ld",name_path,&nmax,&atype,&back,&id1,&v);
 if(lpXimage->Morph && lpXimage->mParameters != NULL){
   mr=lpXimage->MorphRatio;
   sscanf(lpXimage->mParameters,"%s %ld %ld %ld %ld %ld",
          name_path,&mnmax,&matype,&mback,&mid1,&v);
   id1=(long)((double)mid1 + mr*((double)id1-(double)mid1));
   nmax=(long)((double)mnmax + mr*((double)nmax-(double)mnmax));
 }
 nmax=nmax*(Xres/320);
 if(atype == 2){kmax=1; n1=0;} else {kmax=nmax; n1=nmax/2;}
 if(atype == 3){lmax=1; n2=0;} else {lmax=nmax; n2=nmax/2;}
 dscale = (double)id1*((double)Xres/320.0)/16384.0;

 if(atype == 1)for(i=0;i<Yres;i++){
   for(j=0;j<Xres;j++){
     if(back && (lpXimage->Screen+(Xres*i+j))->A > 0)continue;
     ar=ag=ab=an=0.0;
     for(k=0;k<kmax;k++)for(l=0;l<lmax;l++){
       aj=l-n2;
       ai=k-n1;
       if((i+ai) >= 0 && (j+aj) >= 0 &&
          (j+aj) < Xres && (i+ai) < Yres){
         Si=(lpXimage->Screen+(Xres*(i+ai))+(j+aj));
         if(back && Si->A > 0)continue;
         ar+=(double)Si->R;
         ag+=(double)Si->G;
         ab+=(double)Si->B;
         an += 1.0;
       }
     }
     if(an > 0.0){
       S=(So+(Xres*i)+j);
       S->R = (unsigned char)(min(255.0,ar/an));
       S->G = (unsigned char)(min(255.0,ag/an));
       S->B = (unsigned char)(min(255.0,ab/an));
     }
   }
 }

 if(atype == 2)for(i=0;i<Yres;i++){
   disp=(long)((double)(rand()-16384)*dscale);
   for(j=0;j<Xres;j++){
     if(back && (lpXimage->Screen+(Xres*i+j))->A > 0)continue;
     ar=ag=ab=an=0.0;
     for(k=0;k<kmax;k++)for(l=0;l<lmax;l++){
       aj=l-n2+disp;
       ai=k-n1;
       if((i+ai) >= 0 && (j+aj) >= 0 &&
          (j+aj) < Xres && (i+ai) < Yres){
         Si=(lpXimage->Screen+(Xres*(i+ai))+(j+aj));
         if(back && Si->A > 0)continue;
         ar+=(double)Si->R;
         ag+=(double)Si->G;
         ab+=(double)Si->B;
         an += 1.0;
       }
     }
     if(an > 0.0){
       S=(So+(Xres*i)+j);
       S->R = (unsigned char)(min(255.0,ar/an));
       S->G = (unsigned char)(min(255.0,ag/an));
       S->B = (unsigned char)(min(255.0,ab/an));
     }
   }
 }

 if(atype == 3)for(j=0;j<Xres;j++){
   disp=(long)((double)(rand()-16384)*dscale);
   for(i=0;i<Yres;i++){
     if(back && (lpXimage->Screen+(Xres*i+j))->A > 0)continue;
     ar=ag=ab=an=0.0;
     for(l=0;l<lmax;l++)for(k=0;k<kmax;k++){
       aj=l-n2;
       ai=k-n1+disp;
       if((i+ai) >= 0 && (j+aj) >= 0 &&
          (j+aj) < Xres && (i+ai) < Yres){
         Si=(lpXimage->Screen+(Xres*(i+ai))+(j+aj));
         if(back && Si->A > 0)continue;
         ar+=(double)Si->R;
         ag+=(double)Si->G;
         ab+=(double)Si->B;
         an += 1.0;
       }
     }
     if(an > 0.0){
       S=(So+(Xres*i)+j);
       S->R = (unsigned char)(min(255.0,ar/an));
       S->G = (unsigned char)(min(255.0,ag/an));
       S->B = (unsigned char)(min(255.0,ab/an));
     }
   }
 }

 memcpy(lpXimage->Screen,So,sizeof(fullscreenbuffer)*Xres*Yres);
 X__Free(So);
 return 1;
}

/*************** Function that renders any of the OpenGL Functionality ************/

long _RenderGLexternal(char *PrmList, XIMAGE *lpXimage){
MessageBox(NULL,"OpenGL function called","OK",MB_OK);
 return 1;
}


BOOL CALLBACK DlgProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam);

static int  id1=3,version=1,samples=7,atype=1,back=1;

char * _SetExternalParameters(
  char *Op,                 /* string for the parameters                  */
  HWND hWnd,                /* parent window                              */
  long ruler,               /* ruler scale value to facilitate scaling    */
  char *name,               /* name of DLL file with the effect           */
  X__MEMORY_MANAGER *lpEVI /* pointer to structure with memory functions */
                                    ){
 /* output name and buffer should be as long as necessary to hold full string */
 char buffer[256];
 if(Op != NULL){  /* parameters exist so read them off the list */
   sscanf(Op,"%s %ld %ld %ld %ld %ld",buffer,&samples,&atype,&back,&id1,&version);
 }
 /*   Do the user interface as required to set up the effect, may use a     */
 /*   dialog box etc. Return old string if effect is cancelled (no change)  */
 if(DialogBox(hDLLinstance,MAKEINTRESOURCE(DLG_BLUR),hWnd,
              (DLGPROC)DlgProc) == FALSE)return Op;
 /* Free space occupied by old parameter string */
 if(Op != NULL)CALL_FREE(Op);  /* free the old string */
 /* print the parameters into the buffer */
 sprintf(buffer,"%s %ld %ld %ld %ld %ld",name,samples,atype,back,id1,version);
 /* Prepare the output buffer to take copy of parameter list */
 if((Op=(char *)CALL_MALLOC(strlen(buffer)+1)) == NULL){
  MessageBox (GetFocus(),"External effect: Out of memory","Error",
                MB_OK|MB_TASKMODAL|MB_ICONSTOP);
   return NULL;
 }
 /* Copy the parameter string to the output buffer */
 strcpy(Op,buffer);
 return Op;
}

BOOL CALLBACK DlgProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam){
 char str[32];
 BOOL err;
 switch( msg ) {
   case WM_INITDIALOG:
     SetDlgItemInt(hwnd,DLG_BLUR_SAMPLES,samples,FALSE);
     SetDlgItemInt(hwnd,DLG_BLUR_D1,id1,FALSE);
     if(back == 1)SendDlgItemMessage(hwnd,DLG_BLUR_BACK,BM_SETCHECK,TRUE,0);
     if     (atype == 1)
       SendDlgItemMessage(hwnd,DLG_BLUR_ACC1,BM_SETCHECK,TRUE,0);
     else if(atype == 2)
       SendDlgItemMessage(hwnd,DLG_BLUR_ACC2,BM_SETCHECK,TRUE,0);
     else
       SendDlgItemMessage(hwnd,DLG_BLUR_ACC3,BM_SETCHECK,TRUE,0);
     CentreDialogOnScreen(hwnd);
     return TRUE;
   case WM_PAINT:
     PaintBackground(hwnd);
     break;
   case WM_COMMAND:
     switch(LOWORD(wparam)){
        case IDCANCEL:
          EndDialog(hwnd,FALSE);
          return(TRUE);
        case IDOK:
          samples=GetDlgItemInt(hwnd,DLG_BLUR_SAMPLES,&err,FALSE);
          id1=GetDlgItemInt(hwnd,DLG_BLUR_D1,&err,FALSE);
          if(samples < 0)samples=1;
          if(SendDlgItemMessage(hwnd,DLG_BLUR_BACK,BM_GETCHECK,0,0))
               back=1;
          else back=0;
          if   (SendDlgItemMessage(hwnd,DLG_BLUR_ACC3,BM_GETCHECK,0,0))
               atype=3;
          else if(SendDlgItemMessage(hwnd,DLG_BLUR_ACC2,BM_GETCHECK,0,0))
               atype=2;
          else atype=1;
          EndDialog(hwnd,TRUE);
          return(TRUE);
        default:
          break;
      }
      break;
    default: break;
 }
 return FALSE;
}