domino.c

Go to the documentation of this file.

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

-- */

/* Domino.C external Startup Preset for OpenFX animate module            */
/*                                                                         */

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

#include "domino.h"

#if __ZTC__ || __SC__
#ifndef max
#define max(a,b)  ( ((a) > (b)) ? (a) : (b) )
#endif
#endif

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

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

#include "..\animate\astruct.h"
#include "..\animate\dstruct.h"

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


#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
      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(LibMain)
#endif

/*******************************************************************\
|                Code that define the preset                        |
\*******************************************************************/

static int rows=1,ndoms=50,nint=5;    // rows and how many and  time interval (frames)
static double fint=0.85,fstep=1.5, // of height and width 
              fangle=30.0,langle=75.0,  // partial angle - full angle
              freq=2.0,ampx=0.0,ampz=0.0;  // for Z and X offsets
static double Phi=0.0;
static BOOL   bPath=FALSE,bAlign=FALSE; 


double GetPathPos(double t, int nPath, vector pPath[], double pathParam[], double *x, double *y, double *z){
  int l,id=0;
  double f,dx,dy;
  for(l=1;l<nPath;l++)if(t < pathParam[l])break; else id++;
  if(id >= nPath-1){
    *x = pPath[nPath-1][0]; *y = pPath[nPath-1][1]; *z = pPath[nPath-1][2];
    dx=pPath[nPath-1][0] - pPath[nPath-2][0];
    dy=pPath[nPath-1][1] - pPath[nPath-2][1];
  }
  else{
    f = (t - pathParam[id])/(pathParam[id+1] - pathParam[id]);
    *x = pPath[id][0] + f*((dx=pPath[id+1][0] - pPath[id][0])); 
    *y = pPath[id][1] + f*((dy=pPath[id+1][1] - pPath[id][1]));
    *z = pPath[id][2] + f*(pPath[id+1][2] - pPath[id][2]);
  }
  return atan2(dx,dy)*180.0/3.1415926;
}

double PositionOnPath(position *fpos, long startY, double spacing, int id, int n,
                    int nPath, vector pPath[], double pathLength, double pathParam[],long xpos){
  double pscale,x,y,z,direction;
  pscale = (spacing * (double)n)/pathLength;
  direction=GetPathPos((double)id/(double)n,nPath,pPath,pathParam,&x,&y,&z);
  fpos->finish[0]=xpos+x*pscale;
  fpos->finish[1]=startY+y*pscale;
  fpos->finish[2]=z*pscale;
  return direction;
}

 
BOOL _ExternalPreset(HWND parent, ANI_STRUCTURE *lpevi){
 object   *Op;
 position *Pp,*Pc;
 align    *Ap;
 char f_name[256],f_dir[256],name[32];
 char f_path[256],d_path[256];
 long xmax,ymax,zmax,size,xmin,ymin,zmin;
 short s;
 int i,j,k,l,nf;
 double rey,pathLength,pathParam[100],direction;
 long xpos=0,zpos=0;
 long nPath;
 vector pathP[100]; // max 100 points
 lpEVI=lpevi;
 LoadString(hDLLinstance,IDS_TITLE,f_name,256);
 //MessageBox(parent,f_name,"Domino Fall",MB_OK);
 DialogBox(hDLLinstance,MAKEINTRESOURCE(ID_DIALOG1),GetFocus(),(DLGPROC)DominoDlg);
 nf=ndoms*nint+nint;
 SetNumberOfFrames((short)nf);
 /* add Camera position channel and move the camera - Camera always present */
 if(CreatePosition(FirstNp,1,(short)Nframes) == NULL)return FALSE;
 Pc=FirstNp->fpos;
 FirstNp->fpos->finish[0]=0;
 FirstNp->fpos->finish[1]=TVpointY+TVsizeY*2;
 FirstNp->fpos->finish[2]=0;
 /* create a Target Actor and Costume default at (0,0,0) */
 if(CreateNode() == NULL)return FALSE;
 strcpy(MainNp->actorname,"Target");
 MainNp->type=TARGET;
 if((Op=CreateCostume(MainNp,1,(short)Nframes)) == NULL)return FALSE;
 Op->type=MainNp->type;
 /* Now point the Camera to Look at the target */
 if(CreateAlign(FirstNp,1,(short)Nframes) == NULL)return FALSE;
 FirstNp->fali->type=TRACK; FirstNp->fali->topath=MainNp;
 /* Add Actors with Chosen Model for Costume */
 strcpy(f_dir,gszHomeDir); strcat(f_dir,"objects"); strcpy(f_name,"*.mfx");
 if(SelectFileName(0,f_name,f_dir,"Choose Model",
                   "(*.MFX)|*.mfx|",parent) != TRUE)return FALSE;
 if(bPath){
   strcpy(d_path,gszHomeDir); strcat(d_path,"presets"); strcpy(f_path,"*.txt");
   if(SelectFileName(0,f_path,d_path,"Choose Path",
                     "(*.TXT)|*.txt|",parent) != TRUE)bPath=FALSE;
   else{ // read path
     FILE *pPathFile=NULL;
     if((pPathFile=fopen(f_path,"r")) == NULL)bPath=FALSE;
     else{
       fscanf(pPathFile,"%ld",&nPath); nPath = min(nPath,100);
       for(l=0,pathLength=0.0;l<nPath;l++){
         fscanf(pPathFile,"%lf %lf %lf",&pathP[l][0],&pathP[l][1],&pathP[l][2]);
         if(l > 0)pathLength += sqrt((pathP[l][0]-pathP[l-1][0])*(pathP[l][0]-pathP[l-1][0])+
                                     (pathP[l][1]-pathP[l-1][1])*(pathP[l][1]-pathP[l-1][1])+
                                     (pathP[l][2]-pathP[l-1][2])*(pathP[l][2]-pathP[l-1][2]));
         pathParam[l]=pathLength;
       }
       fclose(pPathFile);
       for(l=0;l<nPath;l++)pathParam[l] /= pathLength;
//{char xx[256]; sprintf(xx,"%ld %lf (%lf %lf %lf)",l,pathParam[l],pathP[l][0],pathP[l][1],pathP[l][2]);
//MessageBox(NULL,xx,"path",MB_OK);}}
     }
   }
 }
 xpos=0.0;
 for(l=0;l<rows;l++){ 
   s=1; 
   for(k=0;k<ndoms;k++){
     if(CreateNode() == NULL)return FALSE;
     sprintf(name,"%Domino%ld",k+1);
     strcpy(MainNp->actorname,name);
     MainNp->type=NORMAL;
     if((Op=CreateCostume(MainNp,1,(short)Nframes)) == NULL)return FALSE;
     Op->type=MainNp->type;
     strcpy(Op->name,f_name);
     Op->morph=NO;
     if(LoadMeshObject(f_name,Op,YES,YES,NO) == FAIL)DeleteCostume(MainNp,1);
     /* put camera so that it shows object */
     if(l ==0 && k == 0 && Op->npoints > 0 && Op->points != NULL){
       xmax=ymax=zmax=size= -MAXUNIT;
       xmin=ymin=zmin=MAXUNIT;
       for(i=0;i<Op->npoints;i++){
         if(Op->points[i][0]  > xmax)xmax=Op->points[i][0];
         if(Op->points[i][1]  > ymax)ymax=Op->points[i][1];
         if(Op->points[i][2]  > zmax)zmax=Op->points[i][2];
         if(Op->points[i][0]  < xmin)xmin=Op->points[i][0];
         if(Op->points[i][1]  < ymin)ymin=Op->points[i][1];
         if(Op->points[i][2]  < zmin)zmin=Op->points[i][2];
       }
       size=max(xmax-xmin,ymax-ymin);
       size=max(size,zmax-zmin);
       Pc->finish[1]=TVpointY+max(size*3,TVsizeY*2);
     }
     if(CreatePosition(MainNp,1,(short)Nframes) == NULL)return FALSE;
     rey=(double)(((zmax-zmin)*fint * k))/(double)(((zmax-zmin)*fint * ndoms));
     if(bPath){
       direction=PositionOnPath(MainNp->fpos,TVpointY,(zmax-zmin)*fint,k,ndoms,nPath,pathP,pathLength,pathParam,xpos);
       if(bAlign)Phi=-direction;
     }
     else{
       MainNp->fpos->finish[0]=xpos+(long)((double)(xmax-xmin)*ampx*sin(rey*3.14159*freq));
       MainNp->fpos->finish[1]=TVpointY+((zmax-zmin)*fint * k);
       MainNp->fpos->finish[2]=zpos+(long)((double)(zmax-zmin)*ampz*sin(rey*3.14159*freq));
     }
     if((Ap=CreateAlign(MainNp,1,s)) == NULL)return FALSE;
     Ap->type=TWEEN;
     Ap->im=0; Ap->ima=0.0;
     Ap->alpha=(0.0);  Ap->phi=Phi;
     if((Ap=CreateAlign(MainNp,s+1,s+nint-1)) == NULL)return FALSE;
     Ap->type=TWEEN;
     Ap->im=0; Ap->ima=0.0;
     Ap->alpha=(-fangle); Ap->phi=Phi;
     if((Ap=CreateAlign(MainNp,s+nint,s+2*nint-1)) == NULL)return FALSE;
     Ap->type=TWEEN;
     Ap->im=0; Ap->ima=0.0;
     Ap->alpha=(-langle); Ap->phi=Phi;
     if(s+2*nint < nf){
       if((Ap=CreateAlign(MainNp,s+2*nint,nf)) == NULL)return FALSE;
       Ap->type=TWEEN;
       Ap->im=0; Ap->ima=0.0;
       Ap->alpha=(-langle);
     }
     s+=nint;
   }
   xpos += (xmax-xmin)*fstep;
 }
 return TRUE;
}

static BOOL CALLBACK DominoDlg(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam){
 
 int i;
 char str[255];
 BOOL err;
 switch( msg ) {
   case WM_INITDIALOG:
     sprintf(str,"%d",ndoms);
     SetDlgItemText(hwnd,ID_NDOMS,str);
     sprintf(str,"%d",rows);
     SetDlgItemText(hwnd,ID_ROWS,str);
     sprintf(str,"%d",nint);
     SetDlgItemText(hwnd,ID_NINT,str);
     sprintf(str,"%5.2f",fint);
     SetDlgItemText(hwnd,ID_FINT,str);
     sprintf(str,"%5.2f",fstep);
     SetDlgItemText(hwnd,ID_FSTEP,str);
     sprintf(str,"%5.2f",fangle);
     SetDlgItemText(hwnd,ID_FANGLE,str);
     sprintf(str,"%5.2f",langle);
     SetDlgItemText(hwnd,ID_LANGLE,str);
     sprintf(str,"%5.2f",freq);
     SetDlgItemText(hwnd,ID_FREQ,str);
     sprintf(str,"%5.2f",ampx);
     SetDlgItemText(hwnd,ID_AMPX,str);
     sprintf(str,"%5.2f",ampz);
     SetDlgItemText(hwnd,ID_AMPZ,str);
     sprintf(str,"%5.2f",Phi);
     SetDlgItemText(hwnd,ID_PHI,str);
     if(bPath)SendDlgItemMessage(hwnd,ID_PATH,BM_SETCHECK,TRUE,0);
     if(bAlign)SendDlgItemMessage(hwnd,ID_ALIGN,BM_SETCHECK,TRUE,0);
     //CentreDialogOnScreen(hwnd);
         return TRUE;
   case WM_COMMAND:
     switch(LOWORD(wparam)){
       case IDOK:
         if(GetDlgItemText(hwnd,ID_NDOMS,str,12) != 0)sscanf(str,"%d",&ndoms);
         if(GetDlgItemText(hwnd,ID_ROWS,str,12) != 0)sscanf(str,"%d",&rows);
         if(GetDlgItemText(hwnd,ID_NINT,str,12) != 0)sscanf(str,"%d",&nint);
         if(GetDlgItemText(hwnd,ID_FINT,str,12) != 0)sscanf(str,"%lf",&fint);
         if(GetDlgItemText(hwnd,ID_FSTEP,str,12) != 0)sscanf(str,"%lf",&fstep);
         if(GetDlgItemText(hwnd,ID_FANGLE,str,12) != 0)sscanf(str,"%lf",&fangle);
         if(GetDlgItemText(hwnd,ID_LANGLE,str,12) != 0)sscanf(str,"%lf",&langle);
         if(GetDlgItemText(hwnd,ID_FREQ,str,12) != 0)sscanf(str,"%lf",&freq);
         if(GetDlgItemText(hwnd,ID_AMPX,str,12) != 0)sscanf(str,"%lf",&ampx);
         if(GetDlgItemText(hwnd,ID_AMPZ,str,12) != 0)sscanf(str,"%lf",&ampz);
         if(GetDlgItemText(hwnd,ID_PHI,str,12) != 0)sscanf(str,"%lf",&Phi);
         if(SendDlgItemMessage(hwnd,ID_PATH,BM_GETCHECK,0,0))bPath=TRUE; else bPath=FALSE;
         if(SendDlgItemMessage(hwnd,ID_ALIGN,BM_GETCHECK,0,0))bAlign=TRUE; else bAlign=FALSE;
                 EndDialog(hwnd,TRUE);
       return(TRUE);
         default:
           break;
       }
           break;
   default: break;
 }
 return(FALSE);
}