TV.C

Go to the documentation of this file.

/* --
OpenFX 
/*                                                                       */

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

#include "tv.h"

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

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

/************************** Local Utility Functions ***********************/

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

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

#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

/*******************************************************************\
|                Code that executes the process                     |
\*******************************************************************/
/* h is 0->360  s and v are 0-1 */
static void Hsv2Rgb(double h, double s, double v,
             unsigned char *r, unsigned char *g, unsigned char *b){
 double rr,gg,bb,hh,ss,vv,maxcol,mincol;
 hh=(double)h; ss=(double)s; vv=(double)v;
 mincol=vv*(1.0-ss);
 if(hh <= 120.0){bb=mincol;
   if(hh <=  60){rr=vv; gg=mincol+hh*(vv-mincol)/(120.0-hh);}
   else         {gg=vv; rr=mincol+(120.0-hh)*(vv-mincol)/hh;}
 }
 else if( hh <= 240){rr=mincol;
   if(hh <= 180){gg=vv; bb=mincol+(hh-120.0)*(vv-mincol)/(240.0-hh);}
   else         {bb=vv; gg=mincol+(240.0-hh)*(vv-mincol)/(hh-120.0);}
 }
 else {gg=mincol;
   if(hh <= 300){bb=vv; rr=mincol+(hh-240.0)*(vv-mincol)/(360.0-hh);}
   else         {rr=vv; bb=mincol+(360.0-hh)*(vv-mincol)/(hh-240.0);}
 }
 rr = rr*255.0; *r=(unsigned char)min(255,rr);
 gg = gg*255.0; *g=(unsigned char)min(255,gg);
 bb = bb*255.0; *b=(unsigned char)min(255,bb);
}

static void Rgb2Hsv(unsigned char r, unsigned char g, unsigned char b,
             double *h, double *s, double *v){
 double rr,gg,bb,hh,ss,vv,maxcol,mincol;
 rr=(double)r; gg=(double)g; bb=(double)b;
 rr /= 255.0; gg /= 255.0; bb /= 255.0;
 maxcol=max(rr,max(gg,bb));
 mincol=min(rr,min(gg,bb));
 vv=maxcol;
 if(maxcol == mincol){ss=0; hh=0;}
 else{
  ss=(maxcol-mincol)/maxcol;
  if(mincol == bb)
    hh = 120.0*(gg-mincol)/(rr+gg-2.0*mincol);
  else if(mincol == rr)
    hh = 120.0*(1.0+(bb-mincol)/(bb+gg-2.0*mincol));
  else
    hh = 120.0*(2.0+(rr-mincol)/(rr+bb-2.0*mincol));
 }
  *h=hh;
  *s=ss;
  *v=vv;
}

long _RenderImageProcess(char *PrmList, XIMAGE *lpXimage){
 /* Z is UP, Y is forward (in front of observer, X to the RIGHT    */
 /* the camera is located at 0,0,0. All real numbers are floats    */
 /* xx and yy are screen co-ords of light (0,0) is at top left     */
 /* Zbuffer values are distances from Camera (at 0,0,0) to surface */
 /* visible in pixel. Z buffer addressing is similar to Screen     */
 /* buffer addressing.                                             */
 int i,j,ftype,id1,id2;
 int mftype,mid1,mid2;
 double mr,range,d1,d2,h,s,v;  // d1 is upper limit d2 is lower
 char name_path[255];
 fullscreenbuffer *S;
 BOOL bMorph;
 sscanf(PrmList,"%s %d %d %d",name_path,&ftype,&id1,&id2);
 d1=(double)id1;
 d2=(double)id2; 
 if(lpXimage->Morph && lpXimage->mParameters != NULL){
   bMorph=TRUE; mr=lpXimage->MorphRatio;
   sscanf(lpXimage->mParameters,"%s %d %d %d",
          name_path,&mftype,&mid1,&mid2);
 }
 d1/=255.0; d2/=255.0;
 range=(d1-d2);
 S=lpXimage->Screen;
 for(i=0;i<lpXimage->Ymax;i++){
   for(j=0;j<lpXimage->Xmax;j++){
     if(ftype == 0){
       if(j < lpXimage->Xmax - 2){ // filter 
         S->R=(unsigned char)(((double)(S->R) + (double)((S+1)->R) + (double)((S+2)->R))/3);
         S->G=(unsigned char)(((double)(S->G) + (double)((S+1)->G) + (double)((S+2)->G))/3);
         S->B=(unsigned char)(((double)(S->B) + (double)((S+1)->B) + (double)((S+2)->B))/3);
       }
       else if(j < lpXimage->Xmax - 1){ // filter 
         S->R=(unsigned char)(((double)(S->R) + (double)((S+1)->R))/2);
         S->G=(unsigned char)(((double)(S->G) + (double)((S+1)->G))/2);
         S->B=(unsigned char)(((double)(S->B) + (double)((S+1)->B))/2);
       }
     }
     Rgb2Hsv(S->R,S->G,S->B,&h,&s,&v);
     s=max(0.0,(s-d2))*range+d2; 
     v=max(0.0,(v-d2))*range+d2;
     Hsv2Rgb(h,s,v,&(S->R),&(S->G),&(S->B));
//     S->R=(unsigned char)((((double)(S->R)/255.0)*range+d2)*255.0); 
//     S->G=(unsigned char)((((double)(S->G)/255.0)*range+d2)*255.0); 
//     S->B=(unsigned char)((((double)(S->B)/255.0)*range+d2)*255.0); 
     S++;
   }
 }
 return 1;
}

/*************** Function that renders anyof the OpenGL Functionality ************/

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

/*************** Functions used to setup      ***************/


/* Dialog box callback  */
BOOL CALLBACK DlgProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam);

static double   d1=200.0,d2=50.0;
static int      ftype=0;

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];
 long id1,id2;   /* integer scaled radius value */
 if(Op != NULL){  /* parameters exist so read them off the list */
   sscanf(Op,"%s %ld %ld %ld",buffer,&ftype,&id1,&id2);
   d1=(double)id1;
   d2=(double)id2;
 }
 /*   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_FOG),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 */
 id1=(long)d1;
 id2=(long)d2; 
 sprintf(buffer,"%s %ld %ld %ld",name,ftype,id1,id2);
 /* 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];
 switch( msg ) {
   case WM_INITDIALOG:
     if(ftype == 0)
       SendDlgItemMessage(hwnd,DLG_FOG_HAZE,BM_SETCHECK,TRUE,0);
     else
       SendDlgItemMessage(hwnd,DLG_FOG_FOG,BM_SETCHECK,TRUE,0);
     sprintf(str,"%.0f",d1);
     SetDlgItemText(hwnd,DLG_FOG_D1,str);
     sprintf(str,"%.0f",d2);
     SetDlgItemText(hwnd,DLG_FOG_D2,str);
     CentreDialogOnScreen(hwnd);
     return TRUE;
   case WM_PAINT:
     PaintBackground(hwnd);
     break;
   case WM_DRAWITEM:{
       LPDRAWITEMSTRUCT lpdis;
       HBRUSH   hbr,hbrold;
       BYTE r,g,b;
       lpdis=(LPDRAWITEMSTRUCT)lparam;
     }
     break;
   case WM_COMMAND:
     switch(LOWORD(wparam)){
        case IDCANCEL:
          EndDialog(hwnd,FALSE);
          return(TRUE);
        case IDOK:
          if(SendDlgItemMessage(hwnd,DLG_FOG_FOG,BM_GETCHECK,0,0))
               ftype=1;
          else ftype=0;
          if(GetDlgItemText(hwnd,DLG_FOG_D1,str,12) != 0)d1=atof(str);
          if(GetDlgItemText(hwnd,DLG_FOG_D2,str,12) != 0)d2=atof(str);
          EndDialog(hwnd,TRUE);
          return(TRUE);
        default:
          break;
      }
      break;
    default: break;
 }
 return FALSE;
}