squash.c

Go to the documentation of this file.

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

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

You may contact the OpenFX development team via elecronic mail
at core@openfx.org, or visit our website at http://openfx.org for
further information and support details.
-- */

/* squash.c */

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

#include "squash.h"

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

#ifndef PI
#define PI 3.1415926
#endif

#if __X__MIPS__
BOOL WINAPI _CRT_INIT(HINSTANCE ,DWORD , LPVOID );
#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:
#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

/* internal effects have no need to use this */

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){
 double scale,dpmax,dpmin,t,sp;
 int PRMcomp;
 long i;
 char buffer[128];
 int PRMeffect, PRMplane, axis, paxis, paxis2;
 sscanf(parameters,"%s %d %d %d",buffer,&PRMeffect,&PRMplane,&PRMcomp);
 t=SFXinfo->time;
 t = -1.00 * (t*t) + 2.00 * t;
 if(PRMeffect == 2) t = 1.00 - t;
 if(PRMplane == 1){           /* Horizontal Plane */
  axis=2; paxis=1; paxis2=0;
 }
 else if(PRMplane == 2){      /* Vertical Plane */
  axis=1; paxis=0; paxis2=2;
 }
 dpmax=max(fabs(SFXinfo->vmin[axis]),fabs(SFXinfo->vmax[axis]));
 dpmin=dpmax-t*dpmax*((double)PRMcomp/100.0);
 sp=dpmin/dpmax;
 for(i=0;i<SFXinfo->nvert;i++){
  scale=1.0+((double)PRMcomp/100.0)*t*cos(PI/2*v[i].p[axis]/dpmax);
  v[i].p[axis]   *= sp;
  v[i].p[paxis]  *= scale;
  v[i].p[paxis2] *= scale;
 }
 return 1;
}

void _PreviewExternalEffect(char *parameters, sfxinfo *SFXinfo,
                                    Svertex *v){
 double scale,dpmax,dpmin,t,sp;
 int PRMcomp;
 long i;
 char buffer[128];
 int PRMeffect, PRMplane, axis, paxis, paxis2;
 sscanf(parameters,"%s %d %d %d",buffer,&PRMeffect,&PRMplane,&PRMcomp);
 t=SFXinfo->time;
 t = -1.00 * (t*t) + 2.00 * t;
 if(PRMeffect == 2) t = 1.00 - t;
 if(PRMplane == 1){           /* Horizontal Plane */
  axis=2; paxis=1; paxis2=0;
 }
 else if(PRMplane == 2){      /* Vertical Plane */
  axis=1; paxis=0; paxis2=2;
 }
 dpmax=max(fabs(SFXinfo->vmin[axis]),fabs(SFXinfo->vmax[axis]));
 dpmin=dpmax-t*dpmax*((double)PRMcomp/100.0);
 sp=dpmin/dpmax;
 for(i=0;i<SFXinfo->nvert;i++){
  scale=1.0+((double)PRMcomp/100.0)*t*cos(PI/2*v[i][axis]/dpmax);
  v[i][axis]   *= sp;
  v[i][paxis]  *= scale;
  v[i][paxis2] *= scale;
 }
}

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

static int squash=1,plane=1,fraction=75;

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[128];
 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 %ld",buffer,&squash,&plane,&fraction);
 }
 if(DialogBox(hDLLinstance,MAKEINTRESOURCE(DLG_SQUASH),hWnd,
              (DLGPROC)DlgProc) == FALSE)return Op;
 if(Op != NULL)CALL_FREE(Op);  /* free the old string */
 sprintf(buffer,"6 %ld %ld %ld",squash,plane,fraction);
 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);
 return Op;
}

BOOL CALLBACK DlgProc(HWND hDlg,UINT msg,WPARAM wparam,LPARAM lparam){
 char str[12];
 switch( msg ) {
   case WM_INITDIALOG:
     if(squash == 1)SendDlgItemMessage(hDlg,DLG_SQUASH_SQUASH,BM_SETCHECK,1,0);
     else SendDlgItemMessage(hDlg,DLG_SQUASH_UNSQUASH,BM_SETCHECK,1,0);
     if(plane == 1)SendDlgItemMessage(hDlg,DLG_SQUASH_HORIZ,BM_SETCHECK,1,0);
     else          SendDlgItemMessage(hDlg,DLG_SQUASH_VERT,BM_SETCHECK,1,0);
     SetDlgItemInt(hDlg,DLG_SQUASH_FRACTION,fraction,FALSE);
     LoadAnimatedClip(hDlg);
     CentreDialogOnScreen(hDlg);
     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 DLG_SQUASH_SQUASH:    squash=1; break;
        case DLG_SQUASH_UNSQUASH:  squash=2; break;
        case DLG_SQUASH_HORIZ:     plane=1; break;
        case DLG_SQUASH_VERT:      plane=2; break;
        case DLG_SQUASH_OK:
          if(GetDlgItemText(hDlg,DLG_SQUASH_FRACTION,str,3) != 0)
            fraction=atoi(str);
          EndDialog(hDlg,TRUE);
          return(TRUE);
        case DLG_SQUASH_CANCEL:
          EndDialog(hDlg,FALSE);
          return(TRUE);
        default:
          break;
      }
      break;
    default: break;
 }
 return FALSE;
}