00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026 #include <stdlib.h>
00027 #include <stdio.h>
00028 #include <math.h>
00029 #include <float.h>
00030 #include <windows.h>
00031 #include <gl/gl.h>
00032
00033 #if __ZTC__ || __SC__
00034 #ifndef max
00035 #define max(a,b) ( ((a) > (b)) ? (a) : (b) )
00036 #endif
00037 #endif
00038
00039 #if __WATCOMC__
00040 #define PI 3.1415926
00041 #endif
00042
00043 #if __X__MIPS__
00044 BOOL WINAPI _CRT_INIT(HINSTANCE ,DWORD , LPVOID );
00045 #endif
00046
00047 static HINSTANCE hDLLinstance=NULL;
00048
00049 #include "..\animate\memory.h"
00050 #include "..\animate\memdef.h"
00051 #include "defines.h"
00052 #include "rstruct.h"
00053 #include "leather1.h"
00054
00055 #define VECCOPY(a,b) { b[0] = a[0]; b[1] = a[1]; b[2] = a[2]; }
00056 #define VECSUM(a,b,c) { c[0]=a[0]+b[0]; c[1]=a[1]+b[1]; c[2]=a[2]+b[2];}
00057 #define VECSUB(a,b,c) { c[0]=a[0]-b[0]; c[1]=a[1]-b[1]; c[2]=a[2]-b[2];}
00058 #define VECSCALE(a,b,c) { c[0]=(a)*b[0]; c[1]=(a)*b[1]; c[2]=(a)*b[2];}
00059 #define DOT(a,b) ( (a[0]*b[0]) + (a[1]*b[1]) + (a[2]*b[2]) )
00060
00061 #define IMOD(z,a) ((z) - ((z)/(a))*(a))
00062 #define PATTERN(x,y,z) ( ((z)+16384L)*64536L + \
00063 ((y)+16384L)*32768L + \
00064 ((x)+16384L))
00065 #define FLOOR(x) ((x) >= 0.0 ? floor(x) : (0.0 - floor(0.0 - (x)) - 1.0))
00066 #define FMOD(x,a) ((x) >= 0.0 ? fmod(x,a) :(a - fmod(-(x),a)))
00067
00068 #include "randno.c"
00069
00070 static long ip[27][3]={
00071 { 0, 0, 0},
00072 { 1, 0, 0},
00073 { 1, 1, 0},
00074 { 0, 1, 0},
00075 {-1, 1, 0},
00076 {-1, 0, 0},
00077 {-1,-1, 0},
00078 { 0,-1, 0},
00079 { 1,-1, 0},
00080 { 0, 0,-1},
00081 { 1, 0,-1},
00082 { 1, 1,-1},
00083 { 0, 1,-1},
00084 {-1, 1,-1},
00085 {-1, 0,-1},
00086 {-1,-1,-1},
00087 { 0,-1,-1},
00088 { 1,-1,-1},
00089 { 0, 0, 1},
00090 { 1, 0, 1},
00091 { 1, 1, 1},
00092 { 0, 1, 1},
00093 {-1, 1, 1},
00094 {-1, 0, 1},
00095 {-1,-1, 1},
00096 { 0,-1, 1},
00097 { 1,-1, 1}
00098 };
00099
00100 #if __WATCOMC__
00101 int APIENTRY LibMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
00102 #else
00103 BOOL WINAPI DllMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
00104 #endif
00105 HANDLE ghMod;
00106 switch (dwReason) {
00107 case DLL_PROCESS_ATTACH:
00108 #if __X__MIPS__
00109 if(!_CRT_INIT(hDLL,dwReason,lpReserved))return(int)FALSE;
00110 #endif
00111 hDLLinstance = hDLL;
00112 break;
00113 case DLL_PROCESS_DETACH:
00114 #if __X__MIPS__
00115 if(!_CRT_INIT(hDLL,dwReason,lpReserved))return(int)FALSE;
00116 #endif
00117 break;
00118 }
00119 return (int)TRUE;
00120 }
00121
00122 #if __SC__
00123 #pragma startaddress(DllMain)
00124 #endif
00125
00126 static double x=1.0,y=1.0,z=1.0;
00127
00128 #if 0
00129 long CALLBACK ExternalTextureStartup(
00130 #else
00131 long _ExternalTextureStartup(
00132 #endif
00133 long frame,long nframes,char *parameter_list, X__SHADER *lpEVI){
00134 if(parameter_list[0] != '#'){
00135 MessageBox ( GetFocus(),
00136 (LPCTSTR) "External texture: Startup",
00137 (LPCTSTR) "Parameter list missing",
00138 MB_OK | MB_SYSTEMMODAL );
00139 }
00140 else {
00141 parameter_list++;
00142 sscanf(parameter_list,"%f %f %f",
00143 &x,&y,&z);
00144 }
00145 return LoadAndCompileShader("leather1");
00146 }
00147
00148 #if 0
00149 long CALLBACK ExternalTextureMorph(
00150 #else
00151 long _ExternalTextureMorph(
00152 #endif
00153 char *parameter_list, double mr){
00154 double x_m,y_m,z_m;
00155 parameter_list++;
00156 sscanf(parameter_list,"%f %f %f",
00157 &x_m,&y_m,&z_m);
00158 x=x_m+(x-x_m)*mr;
00159 y=y_m+(y-y_m)*mr;
00160 z=z_m+(z-z_m)*mr;
00161 return 1;
00162 }
00163
00164 #if 0
00165 long CALLBACK ExternalTextureProcedure(
00166 #else
00167 long _ExternalTextureProcedure(
00168 #endif
00169 long coord_type, vector p, vector n,
00170 double alpha, double beta, double gamma,
00171 double bump, double map_x, double map_y,
00172 double *alpha_channel, unsigned char sc[3], double colour[3],
00173 double *reflectivity, double *transparency,
00174 X__SHADER *lpEVI
00175 ){
00176
00177 static long N=1;
00178 static double bradius=1.2,lradius=1.0;
00179 long i;
00180 double a;
00181 vector u,v;
00182 double xx,yy,zz;
00183 double dpoint[27];
00184 double dradius[27];
00185 vector pp[27];
00186 double dx,dy,dz,cx,cy,cz,zb,ccc,dc,zbb,radius;
00187 long ix,iy,iz;
00188 BOOL ins;
00189 long j,jid,id,pattern,patterni;
00190 double len,rad;
00191 vector ppc;
00192
00193 xx=alpha / x;
00194 yy=beta / y;
00195 zz=gamma / z;
00196
00197 xx *= 40.0;
00198 yy *= 40.0;
00199 zz *= 40.0;
00200
00201 id=0;
00202 ix=FLOOR(xx);
00203 iy=FLOOR(yy);
00204 iz=FLOOR(zz);
00205 cx=xx-(double)ix;
00206 cy=yy-(double)iy;
00207 cz=zz-(double)iz;
00208 zb=-10.0;
00209 ins=TRUE;
00210 id = -1;
00211 len=sqrt(tAxis_u[0]*tAxis_u[0]+
00212 tAxis_u[1]*tAxis_u[1]+
00213 tAxis_u[2]*tAxis_u[2]);
00214 VECCOPY(-tAxis_n,u)
00215 VECSCALE(len,u,u)
00216 VECCOPY(tAxis_o,v)
00217 VECSUM(v,cx*tAxis_u,v)
00218 VECSUM(v,cy*tAxis_v,v)
00219 VECSUM(v,cz*u,v)
00220 for(j=0;j<27;j++){
00221 pattern=PATTERN(ix+ip[j][0],iy+ip[j][1],iz+ip[j][2]);
00222 pattern=IMOD(N*pattern,1900);
00223 for(i=0;i<N;i++){
00224 jid=j*N+i;
00225 patterni=pattern+i;
00226 VECSUM((double)ip[j],rand_v[patterni],ppc)
00227 VECSUM(tAxis_o,ppc[0]*tAxis_u,pp[jid])
00228 VECSUM(pp[jid],ppc[1]*tAxis_v,pp[jid])
00229 VECSUM(pp[jid],ppc[2]*u, pp[jid])
00230 radius=(bradius+lradius*(rand_v[patterni][1]-0.5))*len;
00231 dradius[jid]=radius;
00232 dpoint[jid] = -1.0;
00233 dx=(v[0]-pp[jid][0]);
00234 dy=(v[1]-pp[jid][1]);
00235 dz=(v[2]-pp[jid][2]);
00236 if(fabs(dx) > radius)continue;
00237 if(fabs(dy) > radius)continue;
00238 if(fabs(dz) > radius)continue;
00239 if((a=sqrt(dx*dx+dy*dy+dz*dz)) < radius){
00240 dpoint[jid]=a;
00241 dc=(radius-a);
00242 if(dc > zb){
00243 id=jid;
00244 zb=dc;
00245 }
00246 }
00247 }
00248 }
00249 if(id >= 0 && ins){
00250 {
00251 VECCOPY(pp[id],ppc)
00252 rad=dradius[id];
00253 VECSUB(v,ppc,u)
00254 if((a=sqrt((u[0])*(u[0])+
00255 (u[1])*(u[1])+
00256 (u[2])*(u[2]))) < rad){
00257 double mu,moddn,rmu;
00258 vector c,dn;
00259 mu=DOT(u,n);
00260 c[0]=ppc[0]+mu*n[0];
00261 c[1]=ppc[1]+mu*n[1];
00262 c[2]=ppc[2]+mu*n[2];
00263 VECSUB(v,c,dn)
00264 moddn=sqrt(dn[0]*dn[0]+dn[1]*dn[1]+dn[2]*dn[2]);
00265 rmu=sqrt(rad*rad-mu*mu);
00266 if(moddn < rmu){
00267 a=1.0-moddn/rmu;
00268 if(a > 0.4){
00269 normalize(dn);
00270 a=pow(a,0.25);
00271 VECSUM((1.0-a)*dn,(a)*n,n)
00272 vNoise(v,xx*5,yy*5,zz*5);
00273 VECSUM(0.15*v,n,n)
00274 }
00275 normalize(n);
00276 }
00277 }
00278 }
00279 }
00280
00281 return 1;
00282 }
00283
00284 void _ExternalTextureClose(X__SHADER *lpEVI){
00285 UnloadCompiledShader(tGLshaderID);
00286 }
00287
00288 long _ExternalTextureProcedureGL(
00289 double bump_scale,
00290 unsigned char sc[3],
00291 unsigned char ac[3],
00292 X__SHADER *lpEVI
00293 ){
00294
00295 SetUniformVector(tGLshaderID,"MaterialC",(GLfloat)ac[0]/255.0,(GLfloat)ac[1]/255.0,(GLfloat)ac[2]/255.0);
00296 return 1;
00297 }
00299
00300
00301 void CentreDialogOnScreen(HWND hwnd){
00302 RECT rcDlg;
00303 long Xres,Yres;
00304 Yres=GetSystemMetrics(SM_CYSCREEN);
00305 Xres=GetSystemMetrics(SM_CXSCREEN);
00306 GetWindowRect(hwnd,&rcDlg);
00307 OffsetRect(&rcDlg,-rcDlg.left,-rcDlg.top);
00308 OffsetRect(&rcDlg,(Xres-rcDlg.right)/2,(Yres-rcDlg.bottom)/2);
00309 SetWindowPos(hwnd,HWND_TOP,rcDlg.left,rcDlg.top,0,0,SWP_NOSIZE);
00310 return;
00311 }
00312
00313 static void SetColour(double *colour, HWND parent){
00314 CHOOSECOLOR cc;
00315 static COLORREF CustColours[16]={
00316 RGB(255,255,255), RGB(239,239,239), RGB(223,223,223), RGB(207,207,207),
00317 RGB(191,191,191), RGB(175,175,175), RGB(159,159,159), RGB(143,143,143),
00318 RGB(127,127,127), RGB(111,111,111), RGB( 95, 95, 95), RGB( 79, 79, 79),
00319 RGB( 63, 63, 63), RGB( 47, 47, 47), RGB( 31, 31, 31), RGB( 15, 15, 15) };
00320 cc.lStructSize=sizeof(CHOOSECOLOR);
00321 cc.hwndOwner=parent;
00322 cc.rgbResult=RGB((BYTE)colour[0],(BYTE)colour[1],(BYTE)colour[2]);
00323 cc.lpCustColors=(LPDWORD)CustColours;
00324 cc.Flags= CC_RGBINIT;
00325 cc.lCustData=(DWORD)0;
00326 if(ChooseColor(&cc)){
00327 colour[0]=(double)GetRValue(cc.rgbResult);
00328 colour[1]=(double)GetGValue(cc.rgbResult);
00329 colour[2]=(double)GetBValue(cc.rgbResult);
00330 }
00331 }
00332
00333 BOOL CALLBACK DlgProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam);
00334
00335 #if 0
00336 char * CALLBACK SetExternalParameters(
00337 #else
00338 char * _SetExternalParameters(
00339 #endif
00340 char *Op,
00341 HWND hWnd,
00342 X__MEMORY_MANAGER *lpEVI
00343 ){
00344 char szbuf[255],*Op1;
00345 if(Op != NULL){
00346 Op1=Op;
00347 Op1++;
00348 sscanf(Op1,"%f %f %f",
00349 &x,&y,&z);
00350 }
00351 if(DialogBox(hDLLinstance,MAKEINTRESOURCE(DLG),hWnd,
00352 (DLGPROC)DlgProc) == FALSE)return Op;
00353 if(Op != NULL)CALL_FREE(Op);
00354 sprintf(szbuf,"# %.3f %.3f %.3f",
00355 x,y,z);
00356 if((Op=(char *)CALL_MALLOC(strlen(szbuf)+1)) == NULL){
00357 MessageBox (GetFocus(),"External shader: Out of memory","Error",
00358 MB_OK|MB_TASKMODAL|MB_ICONSTOP);
00359 return NULL;
00360 }
00361 strcpy(Op,szbuf);
00362 return Op;
00363 }
00364
00365 BOOL CALLBACK DlgProc(HWND hwnd,UINT msg,WPARAM wparam,LPARAM lparam){
00366 char str[16];
00367 switch( msg ) {
00368 case WM_INITDIALOG:
00369 sprintf(str,"%.2f",x);
00370 SendDlgItemMessage(hwnd,DLG_XSCALE,WM_SETTEXT,0,(LPARAM)str);
00371 SendDlgItemMessage(hwnd,DLG_XSCALE,EM_LIMITTEXT,(WPARAM)12,0);
00372 sprintf(str,"%.2f",y);
00373 SendDlgItemMessage(hwnd,DLG_YSCALE,WM_SETTEXT,0,(LPARAM)str);
00374 SendDlgItemMessage(hwnd,DLG_YSCALE,EM_LIMITTEXT,(WPARAM)12,0);
00375 sprintf(str,"%.2f",z);
00376 SendDlgItemMessage(hwnd,DLG_ZSCALE,WM_SETTEXT,0,(LPARAM)str);
00377 SendDlgItemMessage(hwnd,DLG_ZSCALE,EM_LIMITTEXT,(WPARAM)12,0);
00378 CentreDialogOnScreen(hwnd);
00379 return TRUE;
00380 case WM_COMMAND:
00381 switch(LOWORD(wparam)){
00382 case IDCANCEL:
00383 EndDialog(hwnd,FALSE);
00384 return(TRUE);
00385 case IDOK:
00386 if(GetDlgItemText(hwnd,DLG_XSCALE,str,10) == 0)
00387 EndDialog(hwnd,FALSE);
00388 if((x=atof(str)) == 0)EndDialog(hwnd,FALSE);
00389 if(GetDlgItemText(hwnd,DLG_YSCALE,str,10) == 0)
00390 EndDialog(hwnd,FALSE);
00391 if((y=atof(str)) == 0)EndDialog(hwnd,FALSE);
00392 if(GetDlgItemText(hwnd,DLG_ZSCALE,str,10) == 0)
00393 EndDialog(hwnd,FALSE);
00394 if((z=atof(str)) == 0)EndDialog(hwnd,FALSE);
00395 EndDialog(hwnd,TRUE);
00396 return(TRUE);
00397 default:
00398 break;
00399 }
00400 break;
00401 default: break;
00402 }
00403 return FALSE;
00404 }
