water.c

Go to the documentation of this file.

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

/* water.c */

#include <math.h>
#include <windows.h>
#include <commctrl.h>

#include "water.h"

#define UNIT 32767

#ifndef PI
#define PI 3.1415926
#endif

static HINSTANCE hDLLinstance=NULL;

#include "pstruct.h"

#include "paint.c"

#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:
     hDLLinstance = hDLL;  /* handle to DLL file */
     break;
   case DLL_PROCESS_DETACH:
     break;
 }
 return (int)TRUE;
}

static void norm(vector v){
 float l;
 l=1.0/sqrt(v[0]*v[0]+v[1]*v[1]);
 v[0]=v[0]*l; v[1]=v[1]*l;
}

#define NVECTORS 25

static vector d[NVECTORS];

static void setup_water(long n){
 long i;
 float dir;
 d[0][0] =  0.0000; d[0][1] =  1.0000; // straight
 srand(n);
 //d[1][0] =  0.1050; d[1][1] =  0.9490;
 //d[2][0] = -0.0552; d[2][1] =  1.0497;
 //d[3][0] =  0.5773; d[3][1] =  1.1547; // 60
 //d[4][0] = -0.5873; d[4][1] =  1.0547; // -60
 if(n > 1)for (i=0;i<n;i++){
   //d[i][0]=0.1+(float)rand(); d[i][1]=(float)rand();  
   //norm(d[i]);
   dir=6.283185*(float)(rand())/((float)RAND_MAX);
   d[i][0]=cos(dir); d[i][1]=sin(dir);
 } 
 return;
}


long _RenderGlobalEffect
(char *PrmList, sfxinfo *SFXinfo, sfxdata *SFXdata, vertex *Vlist){
 return 1;
}

void _PreviewGlobalEffect
(char *PrmList, sfxinfo *SFXinfo, sfxdata *SFXdata, Svertex *Vlist){
 return;
}

long _RenderExternalEffect(char *parameters, sfxinfo *SFXinfo,
                                 vertex *v){
 char buffer[256];
 long i,j;
 long ndirections, // number of directional waves
      n;           // number of wave cycles
 float speed,phi,lambda,A[NVECTORS],Q,theta,arg,height,scale;
 lambda=0.0;
 for(i=0;i<3;i++){
   lambda = max(lambda,SFXinfo->vmax[i]-SFXinfo->vmin[i]);
 }
 //MessageBox(NULL,parameters,NULL,MB_OK);
 sscanf(parameters,"%s %ld %ld %f %f %f",buffer,&n,&ndirections,&height,&speed,&Q);
 ndirections=min(NVECTORS,ndirections);
 phi=speed*2*PI;
 scale=1.0/(double)ndirections;
 setup_water(ndirections);
 //{char xxx[255]; sprintf(xxx,"%ld %lf",ndirections,scale); MessageBox(NULL,xxx,NULL,MB_OK);}
 for(i=0;i<ndirections;i++)A[i]=height*lambda*scale;
 for(i=0;i<SFXinfo->nvert;i++){
   v[i].p[2]=0.0;
   for(j=0;j<ndirections;j++){
     theta=(float)n*2.0*PI/lambda*(d[j][0]*v[i].p[0]+d[j][1]*v[i].p[1]);
     arg=theta-phi*SFXinfo->time;
     v[i].p[2] += A[j]*(1.0 - cos(arg));
     v[i].p[0] += Q*(lambda/2.0/PI/(float)n)*d[j][0]*sin(arg)*scale;
     v[i].p[1] += Q*(lambda/2.0/PI/(float)n)*d[j][1]*sin(arg)*scale;
   }
 }
 return 1;
}

void _PreviewExternalEffect(char *parameters, sfxinfo *SFXinfo,
                                    Svertex *v){
 char buffer[256];
 long i,j;
 long ndirections, // number of directional waves
      n;           // number of wave cycles
 float speed,phi,lambda,A[NVECTORS],Q,theta,arg,height,scale;
 lambda=0.0;
 for(i=0;i<3;i++){
   lambda = max(lambda,SFXinfo->vmax[i]-SFXinfo->vmin[i]);
 }
 sscanf(parameters,"%s %ld %ld %f %f %f",buffer,&n,&ndirections,&height,&speed,&Q);
 ndirections=min(NVECTORS,ndirections);
 phi=speed*2*PI;
 scale=1.0/(double)ndirections;
 setup_water(ndirections);
 for(i=0;i<ndirections;i++)A[i]=height*lambda*scale;
 for(i=0;i<SFXinfo->nvert;i++){
   v[i][2]=0.0;
   for(j=0;j<ndirections;j++){
     theta=(float)n*2.0*PI/lambda*(d[j][0]*v[i][0]+d[j][1]*v[i][1]);
     arg=theta-phi*SFXinfo->time;
     v[i][2] += A[j]*(1.0 - cos(arg));
     v[i][0] += Q*(lambda/2.0/PI/(float)n)*d[j][0]*sin(arg)*scale;
     v[i][1] += Q*(lambda/2.0/PI/(float)n)*d[j][1]*sin(arg)*scale;
   }
 }
 return;
}

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

static int   dlg_n=5,dlg_nwaves=1;
static float dlg_A=0.05,dlg_speed=1.0,dlg_Q=0.8;

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 */
  ){
 char buffer[256];
 if(Op != NULL){  /* parameters exist so read them off the list          */
                  /* the name of the DLL file is always the first string */
   sscanf(Op,"%s %ld %ld %f %f %f",buffer,&dlg_n,&dlg_nwaves,&dlg_A,&dlg_speed,&dlg_Q);
 }
 if(DialogBox(hDLLinstance,MAKEINTRESOURCE(DLG_WATER),hWnd,
              (DLGPROC)DlgProc) == FALSE)return Op;
 if(Op != NULL)CALL_FREE(Op);  /* free the old string */
 sprintf(buffer,"%s %ld %ld %f %f %f",name,dlg_n,dlg_nwaves,dlg_A,dlg_speed,dlg_Q);
 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;
 }
 strcpy(Op,buffer);
 //MessageBox(NULL,Op,"End",MB_OK);
 return Op;
}

BOOL CALLBACK DlgProc(HWND hDlg,UINT msg,WPARAM wparam,LPARAM lparam){
 char str[16];
 float f;
 switch( msg ) {
   case WM_INITDIALOG:
     LoadAnimatedClip(hDlg);
     CentreDialogOnScreen(hDlg);
     SetDlgItemInt(hDlg,DLG_N,dlg_n,FALSE);
     SetDlgItemInt(hDlg,DLG_NWAVES,dlg_nwaves,FALSE);
     sprintf(str,"%.0f",dlg_A*2000); SetDlgItemText(hDlg,DLG_A,str);
     sprintf(str,"%.0f",dlg_Q*100);  SetDlgItemText(hDlg,DLG_Q,str);
     sprintf(str,"%.2f",dlg_speed);  SetDlgItemText(hDlg,DLG_SPEED,str);
     return TRUE;
   case WM_PAINT:
     PaintBackground(hDlg);
     break;
   case WM_SYSCOMMAND:
     switch(LOWORD(wparam & 0xfff0)){
       case SC_CLOSE:
         EndDialog(hDlg,FALSE);
         return(TRUE);
       default:
         break;
     }
     break;
   case WM_COMMAND:
     switch(LOWORD(wparam)){
        case IDOK:
          if(GetDlgItemText(hDlg,DLG_N,str,12) != 0)sscanf(str,"%ld",&dlg_n);
          if(dlg_n < 1)dlg_n=1;
          if(GetDlgItemText(hDlg,DLG_NWAVES,str,12) != 0)sscanf(str,"%ld",&dlg_nwaves);
          if(dlg_nwaves < 1)dlg_nwaves=1;
          if(dlg_nwaves > NVECTORS)dlg_nwaves=NVECTORS;
          if(GetDlgItemText(hDlg,DLG_A,str,12) != 0){
            sscanf(str,"%f",&f);
            dlg_A = f/2000.0;
          }
          if(GetDlgItemText(hDlg,DLG_Q,str,12) != 0){
            sscanf(str,"%f",&f);
            dlg_Q = f/100.0;
          }
          if(GetDlgItemText(hDlg,DLG_SPEED,str,12) != 0){
            sscanf(str,"%f",&f);
            dlg_speed = f;
          }
          EndDialog(hDlg,TRUE);
          return(TRUE);
        case IDCANCEL:
          EndDialog(hDlg,FALSE);
          return(TRUE);
        default:
          break;
      }
      break;
    default: break;
 }
 return FALSE;
}