tools/quake3/q3map2/shaders.c

   1 /* -------------------------------------------------------------------------------
   2
   3    Copyright (C) 1999-2007 id Software, Inc. and contributors.
   4    For a list of contributors, see the accompanying CONTRIBUTORS file.
   5
   6    This file is part of GtkRadiant.
   7
   8    GtkRadiant is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    GtkRadiant is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with GtkRadiant; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  21
  22    ----------------------------------------------------------------------------------
  23
  24    This code has been altered significantly from its original form, to support
  25    several games based on the Quake III Arena engine, in the form of "Q3Map2."
  26
  27    ------------------------------------------------------------------------------- */
  28
  29
  30
  31 /* marker */
  32 #define SHADERS_C
  33
  34
  35
  36 /* dependencies */
  37 #include "q3map2.h"
  38
  39
  40
  41 /*
  42    ColorMod()
  43    routines for dealing with vertex color/alpha modification
  44  */
  45
  46 void ColorMod( colorMod_t *cm, int numVerts, bspDrawVert_t *drawVerts ){
  47         int i, j, k;
  48         float c;
  49         vec4_t mult, add;
  50         bspDrawVert_t   *dv;
  51         colorMod_t      *cm2;
  52
  53
  54         /* dummy check */
  55         if ( cm == NULL || numVerts < 1 || drawVerts == NULL ) {
  56                 return;
  57         }
  58
  59
  60         /* walk vertex list */
  61         for ( i = 0; i < numVerts; i++ )
  62         {
  63                 /* get vertex */
  64                 dv = &drawVerts[ i ];
  65
  66                 /* walk colorMod list */
  67                 for ( cm2 = cm; cm2 != NULL; cm2 = cm2->next )
  68                 {
  69                         /* default */
  70                         VectorSet( mult, 1.0f, 1.0f, 1.0f );
  71                         mult[ 3 ] = 1.0f;
  72                         VectorSet( add, 0.0f, 0.0f, 0.0f );
  73                         add[ 3 ] = 0.0f;
  74
  75                         /* switch on type */
  76                         switch ( cm2->type )
  77                         {
  78                         case CM_COLOR_SET:
  79                                 VectorClear( mult );
  80                                 VectorScale( cm2->data, 255.0f, add );
  81                                 break;
  82
  83                         case CM_ALPHA_SET:
  84                                 mult[ 3 ] = 0.0f;
  85                                 add[ 3 ] = cm2->data[ 0 ] * 255.0f;
  86                                 break;
  87
  88                         case CM_COLOR_SCALE:
  89                                 VectorCopy( cm2->data, mult );
  90                                 break;
  91
  92                         case CM_ALPHA_SCALE:
  93                                 mult[ 3 ] = cm2->data[ 0 ];
  94                                 break;
  95
  96                         case CM_COLOR_DOT_PRODUCT:
  97                                 c = DotProduct( dv->normal, cm2->data );
  98                                 VectorSet( mult, c, c, c );
  99                                 break;
 100
 101                         case CM_COLOR_DOT_PRODUCT_SCALE:
 102                                 c = DotProduct( dv->normal, cm2->data );
 103                                 c = ( c - cm2->data[3] ) / ( cm2->data[4] - cm2->data[3] );
 104                                 VectorSet( mult, c, c, c );
 105                                 break;
 106
 107                         case CM_ALPHA_DOT_PRODUCT:
 108                                 mult[ 3 ] = DotProduct( dv->normal, cm2->data );
 109                                 break;
 110
 111                         case CM_ALPHA_DOT_PRODUCT_SCALE:
 112                                 c = DotProduct( dv->normal, cm2->data );
 113                                 c = ( c - cm2->data[3] ) / ( cm2->data[4] - cm2->data[3] );
 114                                 mult[ 3 ] = c;
 115                                 break;
 116
 117                         case CM_COLOR_DOT_PRODUCT_2:
 118                                 c = DotProduct( dv->normal, cm2->data );
 119                                 c *= c;
 120                                 VectorSet( mult, c, c, c );
 121                                 break;
 122
 123                         case CM_COLOR_DOT_PRODUCT_2_SCALE:
 124                                 c = DotProduct( dv->normal, cm2->data );
 125                                 c *= c;
 126                                 c = ( c - cm2->data[3] ) / ( cm2->data[4] - cm2->data[3] );
 127                                 VectorSet( mult, c, c, c );
 128                                 break;
 129
 130                         case CM_ALPHA_DOT_PRODUCT_2:
 131                                 mult[ 3 ] = DotProduct( dv->normal, cm2->data );
 132                                 mult[ 3 ] *= mult[ 3 ];
 133                                 break;
 134
 135                         case CM_ALPHA_DOT_PRODUCT_2_SCALE:
 136                                 c = DotProduct( dv->normal, cm2->data );
 137                                 c *= c;
 138                                 c = ( c - cm2->data[3] ) / ( cm2->data[4] - cm2->data[3] );
 139                                 mult[ 3 ] = c;
 140                                 break;
 141
 142                         default:
 143                                 break;
 144                         }
 145
 146                         /* apply mod */
 147                         for ( j = 0; j < MAX_LIGHTMAPS; j++ )
 148                         {
 149                                 for ( k = 0; k < 4; k++ )
 150                                 {
 151                                         c = ( mult[ k ] * dv->color[ j ][ k ] ) + add[ k ];
 152                                         if ( c < 0 ) {
 153                                                 c = 0;
 154                                         }
 155                                         else if ( c > 255 ) {
 156                                                 c = 255;
 157                                         }
 158                                         dv->color[ j ][ k ] = c;
 159                                 }
 160                         }
 161                 }
 162         }
 163 }
 164
 165
 166
 167 /*
 168    TCMod*()
 169    routines for dealing with a 3x3 texture mod matrix
 170  */
 171
 172 void TCMod( tcMod_t mod, float st[ 2 ] ){
 173         float old[ 2 ];
 174
 175
 176         old[ 0 ] = st[ 0 ];
 177         old[ 1 ] = st[ 1 ];
 178         st[ 0 ] = ( mod[ 0 ][ 0 ] * old[ 0 ] ) + ( mod[ 0 ][ 1 ] * old[ 1 ] ) + mod[ 0 ][ 2 ];
 179         st[ 1 ] = ( mod[ 1 ][ 0 ] * old[ 0 ] ) + ( mod[ 1 ][ 1 ] * old[ 1 ] ) + mod[ 1 ][ 2 ];
 180 }
 181
 182
 183 void TCModIdentity( tcMod_t mod ){
 184         mod[ 0 ][ 0 ] = 1.0f;   mod[ 0 ][ 1 ] = 0.0f;   mod[ 0 ][ 2 ] = 0.0f;
 185         mod[ 1 ][ 0 ] = 0.0f;   mod[ 1 ][ 1 ] = 1.0f;   mod[ 1 ][ 2 ] = 0.0f;
 186         mod[ 2 ][ 0 ] = 0.0f;   mod[ 2 ][ 1 ] = 0.0f;   mod[ 2 ][ 2 ] = 1.0f;   /* this row is only used for multiples, not transformation */
 187 }
 188
 189
 190 void TCModMultiply( tcMod_t a, tcMod_t b, tcMod_t out ){
 191         int i;
 192
 193
 194         for ( i = 0; i < 3; i++ )
 195         {
 196                 out[ i ][ 0 ] = ( a[ i ][ 0 ] * b[ 0 ][ 0 ] ) + ( a[ i ][ 1 ] * b[ 1 ][ 0 ] ) + ( a[ i ][ 2 ] * b[ 2 ][ 0 ] );
 197                 out[ i ][ 1 ] = ( a[ i ][ 0 ] * b[ 0 ][ 1 ] ) + ( a[ i ][ 1 ] * b[ 1 ][ 1 ] ) + ( a[ i ][ 2 ] * b[ 2 ][ 1 ] );
 198                 out[ i ][ 2 ] = ( a[ i ][ 0 ] * b[ 0 ][ 2 ] ) + ( a[ i ][ 1 ] * b[ 1 ][ 2 ] ) + ( a[ i ][ 2 ] * b[ 2 ][ 2 ] );
 199         }
 200 }
 201
 202
 203 void TCModTranslate( tcMod_t mod, float s, float t ){
 204         mod[ 0 ][ 2 ] += s;
 205         mod[ 1 ][ 2 ] += t;
 206 }
 207
 208
 209 void TCModScale( tcMod_t mod, float s, float t ){
 210         mod[ 0 ][ 0 ] *= s;
 211         mod[ 1 ][ 1 ] *= t;
 212 }
 213
 214
 215 void TCModRotate( tcMod_t mod, float euler ){
 216         tcMod_t old, temp;
 217         float radians, sinv, cosv;
 218
 219
 220         memcpy( old, mod, sizeof( tcMod_t ) );
 221         TCModIdentity( temp );
 222
 223         radians = euler / 180 * Q_PI;
 224         sinv = sin( radians );
 225         cosv = cos( radians );
 226
 227         temp[ 0 ][ 0 ] = cosv;  temp[ 0 ][ 1 ] = -sinv;
 228         temp[ 1 ][ 0 ] = sinv;  temp[ 1 ][ 1 ] = cosv;
 229
 230         TCModMultiply( old, temp, mod );
 231 }
 232
 233
 234
 235 /*
 236    ApplySurfaceParm() - ydnar
 237    applies a named surfaceparm to the supplied flags
 238  */
 239
 240 qboolean ApplySurfaceParm( char *name, int *contentFlags, int *surfaceFlags, int *compileFlags ){
 241         int i, fake;
 242         surfaceParm_t   *sp;
 243
 244
 245         /* dummy check */
 246         if ( name == NULL ) {
 247                 name = "";
 248         }
 249         if ( contentFlags == NULL ) {
 250                 contentFlags = &fake;
 251         }
 252         if ( surfaceFlags == NULL ) {
 253                 surfaceFlags = &fake;
 254         }
 255         if ( compileFlags == NULL ) {
 256                 compileFlags = &fake;
 257         }
 258
 259         /* walk the current game's surfaceparms */
 260         sp = game->surfaceParms;
 261         while ( sp->name != NULL )
 262         {
 263                 /* match? */
 264                 if ( !Q_stricmp( name, sp->name ) ) {
 265                         /* clear and set flags */
 266                         *contentFlags &= ~( sp->contentFlagsClear );
 267                         *contentFlags |= sp->contentFlags;
 268                         *surfaceFlags &= ~( sp->surfaceFlagsClear );
 269                         *surfaceFlags |= sp->surfaceFlags;
 270                         *compileFlags &= ~( sp->compileFlagsClear );
 271                         *compileFlags |= sp->compileFlags;
 272
 273                         /* return ok */
 274                         return qtrue;
 275                 }
 276
 277                 /* next */
 278                 sp++;
 279         }
 280
 281         /* check custom info parms */
 282         for ( i = 0; i < numCustSurfaceParms; i++ )
 283         {
 284                 /* get surfaceparm */
 285                 sp = &custSurfaceParms[ i ];
 286
 287                 /* match? */
 288                 if ( !Q_stricmp( name, sp->name ) ) {
 289                         /* clear and set flags */
 290                         *contentFlags &= ~( sp->contentFlagsClear );
 291                         *contentFlags |= sp->contentFlags;
 292                         *surfaceFlags &= ~( sp->surfaceFlagsClear );
 293                         *surfaceFlags |= sp->surfaceFlags;
 294                         *compileFlags &= ~( sp->compileFlagsClear );
 295                         *compileFlags |= sp->compileFlags;
 296
 297                         /* return ok */
 298                         return qtrue;
 299                 }
 300         }
 301
 302         /* no matching surfaceparm found */
 303         return qfalse;
 304 }
 305
 306
 307
 308 /*
 309    BeginMapShaderFile() - ydnar
 310    erases and starts a new map shader script
 311  */
 312
 313 void BeginMapShaderFile( const char *mapFile ){
 314         char base[ 1024 ];
 315         int len;
 316
 317
 318         /* dummy check */
 319         mapName[ 0 ] = '\0';
 320         mapShaderFile[ 0 ] = '\0';
 321         if ( mapFile == NULL || mapFile[ 0 ] == '\0' ) {
 322                 return;
 323         }
 324
 325         /* copy map name */
 326         strcpy( base, mapFile );
 327         StripExtension( base );
 328
 329         /* extract map name */
 330         len = strlen( base ) - 1;
 331         while ( len > 0 && base[ len ] != '/' && base[ len ] != '\\' )
 332                 len--;
 333         strcpy( mapName, &base[ len + 1 ] );
 334         base[ len ] = '\0';
 335         if ( len <= 0 ) {
 336                 return;
 337         }
 338
 339         /* append ../scripts/q3map2_<mapname>.shader */
 340         sprintf( mapShaderFile, "%s/../%s/q3map2_%s.shader", base, game->shaderPath, mapName );
 341         Sys_FPrintf( SYS_VRB, "Map has shader script %s\n", mapShaderFile );
 342
 343         /* remove it */
 344         remove( mapShaderFile );
 345
 346         /* stop making warnings about missing images */
 347         warnImage = qfalse;
 348 }
 349
 350
 351
 352 /*
 353    WriteMapShaderFile() - ydnar
 354    writes a shader to the map shader script
 355  */
 356
 357 void WriteMapShaderFile( void ){
 358         FILE            *file;
 359         shaderInfo_t    *si;
 360         int i, num;
 361
 362
 363         /* dummy check */
 364         if ( mapShaderFile[ 0 ] == '\0' ) {
 365                 return;
 366         }
 367
 368         /* are there any custom shaders? */
 369         for ( i = 0, num = 0; i < numShaderInfo; i++ )
 370         {
 371                 if ( shaderInfo[ i ].custom ) {
 372                         break;
 373                 }
 374         }
 375         if ( i == numShaderInfo ) {
 376                 return;
 377         }
 378
 379         /* note it */
 380         Sys_FPrintf( SYS_VRB, "--- WriteMapShaderFile ---\n" );
 381         Sys_FPrintf( SYS_VRB, "Writing %s", mapShaderFile );
 382
 383         /* open shader file */
 384         file = fopen( mapShaderFile, "w" );
 385         if ( file == NULL ) {
 386                 Sys_FPrintf( SYS_WRN, "WARNING: Unable to open map shader file %s for writing\n", mapShaderFile );
 387                 return;
 388         }
 389
 390         /* print header */
 391         fprintf( file,
 392                          "// Custom shader file for %s.bsp\n"
 393                          "// Generated by Q3Map2 (ydnar)\n"
 394                          "// Do not edit! This file is overwritten on recompiles.\n\n",
 395                          mapName );
 396
 397         /* walk the shader list */
 398         for ( i = 0, num = 0; i < numShaderInfo; i++ )
 399         {
 400                 /* get the shader and print it */
 401                 si = &shaderInfo[ i ];
 402                 if ( si->custom == qfalse || si->shaderText == NULL || si->shaderText[ 0 ] == '\0' ) {
 403                         continue;
 404                 }
 405                 num++;
 406
 407                 /* print it to the file */
 408                 fprintf( file, "%s%s\n", si->shader, si->shaderText );
 409                 //Sys_Printf( "%s%s\n", si->shader, si->shaderText ); /* FIXME: remove debugging code */
 410
 411                 Sys_FPrintf( SYS_VRB, "." );
 412         }
 413
 414         /* close the shader */
 415         fflush( file );
 416         fclose( file );
 417
 418         Sys_FPrintf( SYS_VRB, "\n" );
 419
 420         /* print some stats */
 421         Sys_Printf( "%9d custom shaders emitted\n", num );
 422 }
 423
 424
 425
 426 /*
 427    CustomShader() - ydnar
 428    sets up a custom map shader
 429  */
 430
 431 shaderInfo_t *CustomShader( shaderInfo_t *si, char *find, char *replace ){
 432         shaderInfo_t    *csi;
 433         char shader[ MAX_QPATH ];
 434         char            *s;
 435         int loc;
 436         byte digest[ 16 ];
 437         char            *srcShaderText, temp[ 8192 ], shaderText[ 8192 ];   /* ydnar: fixme (make this bigger?) */
 438
 439
 440         /* dummy check */
 441         if ( si == NULL ) {
 442                 return ShaderInfoForShader( "default" );
 443         }
 444
 445         /* default shader text source */
 446         srcShaderText = si->shaderText;
 447
 448         /* et: implicitMap */
 449         if ( si->implicitMap == IM_OPAQUE ) {
 450                 srcShaderText = temp;
 451                 sprintf( temp, "\n"
 452                                            "{ // Q3Map2 defaulted (implicitMap)\n"
 453                                            "\t{\n"
 454                                            "\t\tmap $lightmap\n"
 455                                            "\t\trgbGen identity\n"
 456                                            "\t}\n"
 457                                            "\tq3map_styleMarker\n"
 458                                            "\t{\n"
 459                                            "\t\tmap %s\n"
 460                                            "\t\tblendFunc GL_DST_COLOR GL_ZERO\n"
 461                                            "\t\trgbGen identity\n"
 462                                            "\t}\n"
 463                                            "}\n",
 464                                  si->implicitImagePath );
 465         }
 466
 467         /* et: implicitMask */
 468         else if ( si->implicitMap == IM_MASKED ) {
 469                 srcShaderText = temp;
 470                 sprintf( temp, "\n"
 471                                            "{ // Q3Map2 defaulted (implicitMask)\n"
 472                                            "\tcull none\n"
 473                                            "\t{\n"
 474                                            "\t\tmap %s\n"
 475                                            "\t\talphaFunc GE128\n"
 476                                            "\t\tdepthWrite\n"
 477                                            "\t}\n"
 478                                            "\t{\n"
 479                                            "\t\tmap $lightmap\n"
 480                                            "\t\trgbGen identity\n"
 481                                            "\t\tdepthFunc equal\n"
 482                                            "\t}\n"
 483                                            "\tq3map_styleMarker\n"
 484                                            "\t{\n"
 485                                            "\t\tmap %s\n"
 486                                            "\t\tblendFunc GL_DST_COLOR GL_ZERO\n"
 487                                            "\t\tdepthFunc equal\n"
 488                                            "\t\trgbGen identity\n"
 489                                            "\t}\n"
 490                                            "}\n",
 491                                  si->implicitImagePath,
 492                                  si->implicitImagePath );
 493         }
 494
 495         /* et: implicitBlend */
 496         else if ( si->implicitMap == IM_BLEND ) {
 497                 srcShaderText = temp;
 498                 sprintf( temp, "\n"
 499                                            "{ // Q3Map2 defaulted (implicitBlend)\n"
 500                                            "\tcull none\n"
 501                                            "\t{\n"
 502                                            "\t\tmap %s\n"
 503                                            "\t\tblendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA\n"
 504                                            "\t}\n"
 505                                            "\t{\n"
 506                                            "\t\tmap $lightmap\n"
 507                                            "\t\trgbGen identity\n"
 508                                            "\t\tblendFunc GL_DST_COLOR GL_ZERO\n"
 509                                            "\t}\n"
 510                                            "\tq3map_styleMarker\n"
 511                                            "}\n",
 512                                  si->implicitImagePath );
 513         }
 514
 515         /* default shader text */
 516         else if ( srcShaderText == NULL ) {
 517                 srcShaderText = temp;
 518                 sprintf( temp, "\n"
 519                                            "{ // Q3Map2 defaulted\n"
 520                                            "\t{\n"
 521                                            "\t\tmap $lightmap\n"
 522                                            "\t\trgbGen identity\n"
 523                                            "\t}\n"
 524                                            "\tq3map_styleMarker\n"
 525                                            "\t{\n"
 526                                            "\t\tmap %s.tga\n"
 527                                            "\t\tblendFunc GL_DST_COLOR GL_ZERO\n"
 528                                            "\t\trgbGen identity\n"
 529                                            "\t}\n"
 530                                            "}\n",
 531                                  si->shader );
 532         }
 533
 534         /* error check */
 535         if ( ( strlen( mapName ) + 1 + 32 ) > MAX_QPATH ) {
 536                 Error( "Custom shader name length (%d) exceeded. Shorten your map name.\n", MAX_QPATH );
 537         }
 538
 539         /* do some bad find-replace */
 540         s = strstr( srcShaderText, find );
 541         if ( s == NULL ) {
 542                 //%     strcpy( shaderText, srcShaderText );
 543                 return si;  /* testing just using the existing shader if this fails */
 544         }
 545         else
 546         {
 547                 /* substitute 'find' with 'replace' */
 548                 loc = s - srcShaderText;
 549                 strcpy( shaderText, srcShaderText );
 550                 shaderText[ loc ] = '\0';
 551                 strcat( shaderText, replace );
 552                 strcat( shaderText, &srcShaderText[ loc + strlen( find ) ] );
 553         }
 554
 555         /* make md4 hash of the shader text */
 556         Com_BlockFullChecksum( shaderText, strlen( shaderText ), digest );
 557
 558         /* mangle hash into a shader name */
 559         sprintf( shader, "%s/%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X", mapName,
 560                          digest[ 0 ], digest[ 1 ], digest[ 2 ], digest[ 3 ], digest[ 4 ], digest[ 5 ], digest[ 6 ], digest[ 7 ],
 561                          digest[ 8 ], digest[ 9 ], digest[ 10 ], digest[ 11 ], digest[ 12 ], digest[ 13 ], digest[ 14 ], digest[ 15 ] );
 562
 563         /* get shader */
 564         csi = ShaderInfoForShader( shader );
 565
 566         /* might be a preexisting shader */
 567         if ( csi->custom ) {
 568                 return csi;
 569         }
 570
 571         /* clone the existing shader and rename */
 572         memcpy( csi, si, sizeof( shaderInfo_t ) );
 573         strcpy( csi->shader, shader );
 574         csi->custom = qtrue;
 575
 576         /* store new shader text */
 577         csi->shaderText = safe_malloc( strlen( shaderText ) + 1 );
 578         strcpy( csi->shaderText, shaderText );  /* LEAK! */
 579
 580         /* return it */
 581         return csi;
 582 }
 583
 584
 585
 586 /*
 587    EmitVertexRemapShader()
 588    adds a vertexremapshader key/value pair to worldspawn
 589  */
 590
 591 void EmitVertexRemapShader( char *from, char *to ){
 592         byte digest[ 16 ];
 593         char key[ 64 ], value[ 256 ];
 594
 595
 596         /* dummy check */
 597         if ( from == NULL || from[ 0 ] == '\0' ||
 598                  to == NULL || to[ 0 ] == '\0' ) {
 599                 return;
 600         }
 601
 602         /* build value */
 603         sprintf( value, "%s;%s", from, to );
 604
 605         /* make md4 hash */
 606         Com_BlockFullChecksum( value, strlen( value ), digest );
 607
 608         /* make key (this is annoying, as vertexremapshader is precisely 17 characters,
 609            which is one too long, so we leave off the last byte of the md5 digest) */
 610         sprintf( key, "vertexremapshader%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X",
 611                          digest[ 0 ], digest[ 1 ], digest[ 2 ], digest[ 3 ], digest[ 4 ], digest[ 5 ], digest[ 6 ], digest[ 7 ],
 612                          digest[ 8 ], digest[ 9 ], digest[ 10 ], digest[ 11 ], digest[ 12 ], digest[ 13 ], digest[ 14 ] ); /* no: digest[ 15 ] */
 613
 614         /* add key/value pair to worldspawn */
 615         SetKeyValue( &entities[ 0 ], key, value );
 616 }
 617
 618
 619
 620 /*
 621    AllocShaderInfo()
 622    allocates and initializes a new shader
 623  */
 624
 625 static shaderInfo_t *AllocShaderInfo( void ){
 626         shaderInfo_t    *si;
 627
 628
 629         /* allocate? */
 630         if ( shaderInfo == NULL ) {
 631                 shaderInfo = safe_malloc( sizeof( shaderInfo_t ) * MAX_SHADER_INFO );
 632                 numShaderInfo = 0;
 633         }
 634
 635         /* bounds check */
 636         if ( numShaderInfo == MAX_SHADER_INFO ) {
 637                 Error( "MAX_SHADER_INFO exceeded. Remove some PK3 files or shader scripts from shaderlist.txt and try again." );
 638         }
 639         si = &shaderInfo[ numShaderInfo ];
 640         numShaderInfo++;
 641
 642         /* ydnar: clear to 0 first */
 643         memset( si, 0, sizeof( shaderInfo_t ) );
 644
 645         /* set defaults */
 646         ApplySurfaceParm( "default", &si->contentFlags, &si->surfaceFlags, &si->compileFlags );
 647
 648         si->backsplashFraction = DEF_BACKSPLASH_FRACTION;
 649         si->backsplashDistance = DEF_BACKSPLASH_DISTANCE;
 650
 651         si->bounceScale = DEF_RADIOSITY_BOUNCE;
 652
 653         si->lightStyle = LS_NORMAL;
 654
 655         si->polygonOffset = qfalse;
 656
 657         si->shadeAngleDegrees = 0.0f;
 658         si->lightmapSampleSize = 0;
 659         si->lightmapSampleOffset = DEFAULT_LIGHTMAP_SAMPLE_OFFSET;
 660         si->patchShadows = qfalse;
 661         si->vertexShadows = qtrue;  /* ydnar: changed default behavior */
 662         si->forceSunlight = qfalse;
 663         si->vertexScale = vertexglobalscale;
 664         si->notjunc = qfalse;
 665
 666         /* ydnar: set texture coordinate transform matrix to identity */
 667         TCModIdentity( si->mod );
 668
 669         /* ydnar: lightmaps can now be > 128x128 in certain games or an externally generated tga */
 670         si->lmCustomWidth = lmCustomSize;
 671         si->lmCustomHeight = lmCustomSize;
 672
 673         /* return to sender */
 674         return si;
 675 }
 676
 677
 678
 679 /*
 680    FinishShader() - ydnar
 681    sets a shader's width and height among other things
 682  */
 683
 684 void FinishShader( shaderInfo_t *si ){
 685         int x, y;
 686         float st[ 2 ], o[ 2 ], dist, bestDist;
 687         vec4_t color, delta;
 688
 689
 690         /* don't double-dip */
 691         if ( si->finished ) {
 692                 return;
 693         }
 694
 695         /* if they're explicitly set, copy from image size */
 696         if ( si->shaderWidth == 0 && si->shaderHeight == 0 ) {
 697                 si->shaderWidth = si->shaderImage->width;
 698                 si->shaderHeight = si->shaderImage->height;
 699         }
 700
 701         /* legacy terrain has explicit image-sized texture projection */
 702         if ( si->legacyTerrain && si->tcGen == qfalse ) {
 703                 /* set xy texture projection */
 704                 si->tcGen = qtrue;
 705                 VectorSet( si->vecs[ 0 ], ( 1.0f / ( si->shaderWidth * 0.5f ) ), 0, 0 );
 706                 VectorSet( si->vecs[ 1 ], 0, ( 1.0f / ( si->shaderHeight * 0.5f ) ), 0 );
 707         }
 708
 709         /* find pixel coordinates best matching the average color of the image */
 710         bestDist = 99999999;
 711         o[ 0 ] = 1.0f / si->shaderImage->width;
 712         o[ 1 ] = 1.0f / si->shaderImage->height;
 713         for ( y = 0, st[ 1 ] = 0.0f; y < si->shaderImage->height; y++, st[ 1 ] += o[ 1 ] )
 714         {
 715                 for ( x = 0, st[ 0 ] = 0.0f; x < si->shaderImage->width; x++, st[ 0 ] += o[ 0 ] )
 716                 {
 717                         /* sample the shader image */
 718                         RadSampleImage( si->shaderImage->pixels, si->shaderImage->width, si->shaderImage->height, st, color );
 719
 720                         /* determine error squared */
 721                         VectorSubtract( color, si->averageColor, delta );
 722                         delta[ 3 ] = color[ 3 ] - si->averageColor[ 3 ];
 723                         dist = delta[ 0 ] * delta[ 0 ] + delta[ 1 ] * delta[ 1 ] + delta[ 2 ] * delta[ 2 ] + delta[ 3 ] * delta[ 3 ];
 724                         if ( dist < bestDist ) {
 725                                 si->stFlat[ 0 ] = st[ 0 ];
 726                                 si->stFlat[ 1 ] = st[ 1 ];
 727                         }
 728                 }
 729         }
 730                 if (noob && !(si->compileFlags & C_OB)){
 731                         ApplySurfaceParm( "noob", &si->contentFlags, &si->surfaceFlags, &si->compileFlags );
 732                 }
 733
 734         /* set to finished */
 735         si->finished = qtrue;
 736 }
 737
 738
 739
 740 /*
 741    LoadShaderImages()
 742    loads a shader's images
 743    ydnar: image.c made this a bit simpler
 744  */
 745
 746 static void LoadShaderImages( shaderInfo_t *si ){
 747         int i, count;
 748         float color[ 4 ];
 749
 750
 751         /* nodraw shaders don't need images */
 752         if ( si->compileFlags & C_NODRAW ) {
 753                 si->shaderImage = ImageLoad( DEFAULT_IMAGE );
 754         }
 755         else
 756         {
 757                 /* try to load editor image first */
 758                 si->shaderImage = ImageLoad( si->editorImagePath );
 759
 760                 /* then try shadername */
 761                 if ( si->shaderImage == NULL ) {
 762                         si->shaderImage = ImageLoad( si->shader );
 763                 }
 764
 765                 /* then try implicit image path (note: new behavior!) */
 766                 if ( si->shaderImage == NULL ) {
 767                         si->shaderImage = ImageLoad( si->implicitImagePath );
 768                 }
 769
 770                 /* then try lightimage (note: new behavior!) */
 771                 if ( si->shaderImage == NULL ) {
 772                         si->shaderImage = ImageLoad( si->lightImagePath );
 773                 }
 774
 775                 /* otherwise, use default image */
 776                 if ( si->shaderImage == NULL ) {
 777                         si->shaderImage = ImageLoad( DEFAULT_IMAGE );
 778                         if ( warnImage && strcmp( si->shader, "noshader" ) ) {
 779                                 Sys_FPrintf( SYS_WRN, "WARNING: Couldn't find image for shader %s\n", si->shader );
 780                         }
 781                 }
 782
 783                 /* load light image */
 784                 si->lightImage = ImageLoad( si->lightImagePath );
 785
 786                 /* load normalmap image (ok if this is NULL) */
 787                 si->normalImage = ImageLoad( si->normalImagePath );
 788                 if ( si->normalImage != NULL ) {
 789                         Sys_FPrintf( SYS_VRB, "Shader %s has\n"
 790                                                                   "    NM %s\n", si->shader, si->normalImagePath );
 791                 }
 792         }
 793
 794         /* if no light image, use shader image */
 795         if ( si->lightImage == NULL ) {
 796                 si->lightImage = ImageLoad( si->shaderImage->name );
 797         }
 798
 799         /* create default and average colors */
 800         count = si->lightImage->width * si->lightImage->height;
 801         VectorClear( color );
 802         color[ 3 ] = 0.0f;
 803         for ( i = 0; i < count; i++ )
 804         {
 805                 color[ 0 ] += si->lightImage->pixels[ i * 4 + 0 ];
 806                 color[ 1 ] += si->lightImage->pixels[ i * 4 + 1 ];
 807                 color[ 2 ] += si->lightImage->pixels[ i * 4 + 2 ];
 808                 color[ 3 ] += si->lightImage->pixels[ i * 4 + 3 ];
 809         }
 810
 811         if ( VectorLength( si->color ) <= 0.0f ) {
 812                 ColorNormalize( color, si->color );
 813                 VectorScale( color, ( 1.0f / count ), si->averageColor );
 814                 si->averageColor[ 3 ] = color[ 3 ] / count;
 815         }
 816         else
 817         {
 818                 VectorCopy( si->color, si->averageColor );
 819                 si->averageColor[ 3 ] = 1.0f;
 820         }
 821 }
 822
 823
 824
 825 /*
 826    ShaderInfoForShader()
 827    finds a shaderinfo for a named shader
 828  */
 829
 830 #define MAX_SHADER_DEPRECATION_DEPTH 16
 831
 832 shaderInfo_t *ShaderInfoForShaderNull( const char *shaderName ){
 833         if ( !strcmp( shaderName, "noshader" ) ) {
 834                 return NULL;
 835         }
 836         return ShaderInfoForShader( shaderName );
 837 }
 838
 839 shaderInfo_t *ShaderInfoForShader( const char *shaderName ){
 840         int i;
 841         int deprecationDepth;
 842         shaderInfo_t    *si;
 843         char shader[ MAX_QPATH ];
 844
 845         /* dummy check */
 846         if ( shaderName == NULL || shaderName[ 0 ] == '\0' ) {
 847                 Sys_FPrintf( SYS_WRN, "WARNING: Null or empty shader name\n" );
 848                 shaderName = "missing";
 849         }
 850
 851         /* strip off extension */
 852         strcpy( shader, shaderName );
 853         StripExtension( shader );
 854
 855         /* search for it */
 856         deprecationDepth = 0;
 857         for ( i = 0; i < numShaderInfo; i++ )
 858         {
 859                 si = &shaderInfo[ i ];
 860                 if ( !Q_stricmp( shader, si->shader ) ) {
 861                         /* check if shader is deprecated */
 862                         if ( deprecationDepth < MAX_SHADER_DEPRECATION_DEPTH && si->deprecateShader && si->deprecateShader[ 0 ] ) {
 863                                 /* override name */
 864                                 strcpy( shader, si->deprecateShader );
 865                                 StripExtension( shader );
 866                                 /* increase deprecation depth */
 867                                 deprecationDepth++;
 868                                 if ( deprecationDepth == MAX_SHADER_DEPRECATION_DEPTH ) {
 869                                         Sys_FPrintf( SYS_WRN, "WARNING: Max deprecation depth of %i is reached on shader '%s'\n", MAX_SHADER_DEPRECATION_DEPTH, shader );
 870                                 }
 871                                 /* search again from beginning */
 872                                 i = -1;
 873                                 continue;
 874                         }
 875
 876                         /* load image if necessary */
 877                         if ( si->finished == qfalse ) {
 878                                 LoadShaderImages( si );
 879                                 FinishShader( si );
 880                         }
 881
 882                         /* return it */
 883                         return si;
 884                 }
 885         }
 886
 887         /* allocate a default shader */
 888         si = AllocShaderInfo();
 889         strcpy( si->shader, shader );
 890         LoadShaderImages( si );
 891         FinishShader( si );
 892
 893         /* return it */
 894         return si;
 895 }
 896
 897
 898
 899 /*
 900    GetTokenAppend() - ydnar
 901    gets a token and appends its text to the specified buffer
 902  */
 903
 904 static int oldScriptLine = 0;
 905 static int tabDepth = 0;
 906
 907 qboolean GetTokenAppend( char *buffer, qboolean crossline ){
 908         qboolean r;
 909         int i;
 910
 911
 912         /* get the token */
 913         r = GetToken( crossline );
 914         if ( r == qfalse || buffer == NULL || token[ 0 ] == '\0' ) {
 915                 return r;
 916         }
 917
 918         /* pre-tabstops */
 919         if ( token[ 0 ] == '}' ) {
 920                 tabDepth--;
 921         }
 922
 923         /* append? */
 924         if ( oldScriptLine != scriptline ) {
 925                 strcat( buffer, "\n" );
 926                 for ( i = 0; i < tabDepth; i++ )
 927                         strcat( buffer, "\t" );
 928         }
 929         else{
 930                 strcat( buffer, " " );
 931         }
 932         oldScriptLine = scriptline;
 933         strcat( buffer, token );
 934
 935         /* post-tabstops */
 936         if ( token[ 0 ] == '{' ) {
 937                 tabDepth++;
 938         }
 939
 940         /* return */
 941         return r;
 942 }
 943
 944
 945 void Parse1DMatrixAppend( char *buffer, int x, vec_t *m ){
 946         int i;
 947
 948
 949         if ( !GetTokenAppend( buffer, qtrue ) || strcmp( token, "(" ) ) {
 950                 Error( "Parse1DMatrixAppend(): line %d: ( not found!\nFile location be: %s\n", scriptline, g_strLoadedFileLocation );
 951         }
 952         for ( i = 0; i < x; i++ )
 953         {
 954                 if ( !GetTokenAppend( buffer, qfalse ) ) {
 955                         Error( "Parse1DMatrixAppend(): line %d: Number not found!\nFile location be: %s\n", scriptline, g_strLoadedFileLocation );
 956                 }
 957                 m[ i ] = atof( token );
 958         }
 959         if ( !GetTokenAppend( buffer, qtrue ) || strcmp( token, ")" ) ) {
 960                 Error( "Parse1DMatrixAppend(): line %d: ) not found!\nFile location be: %s\n", scriptline, g_strLoadedFileLocation );
 961         }
 962 }
 963
 964
 965
 966
 967 /*
 968    ParseShaderFile()
 969    parses a shader file into discrete shaderInfo_t
 970  */
 971
 972 static void ParseShaderFile( const char *filename ){
 973         int i, val;
 974         shaderInfo_t    *si;
 975         char            *suffix, temp[ 1024 ];
 976         char shaderText[ 8192 ];            /* ydnar: fixme (make this bigger?) */
 977
 978
 979         /* init */
 980         si = NULL;
 981         shaderText[ 0 ] = '\0';
 982
 983         /* load the shader */
 984         LoadScriptFile( filename, 0 );
 985
 986         /* tokenize it */
 987         while ( 1 )
 988         {
 989                 /* copy shader text to the shaderinfo */
 990                 if ( si != NULL && shaderText[ 0 ] != '\0' ) {
 991                         strcat( shaderText, "\n" );
 992                         si->shaderText = safe_malloc( strlen( shaderText ) + 1 );
 993                         strcpy( si->shaderText, shaderText );
 994                         //%     if( VectorLength( si->vecs[ 0 ] ) )
 995                         //%             Sys_Printf( "%s\n", shaderText );
 996                 }
 997
 998                 /* ydnar: clear shader text buffer */
 999                 shaderText[ 0 ] = '\0';
1000
1001                 /* test for end of file */
1002                 if ( !GetToken( qtrue ) ) {
1003                         break;
1004                 }
1005
1006                 /* shader name is initial token */
1007                 si = AllocShaderInfo();
1008                 strcpy( si->shader, token );
1009
1010                 /* ignore ":q3map" suffix */
1011                 suffix = strstr( si->shader, ":q3map" );
1012                 if ( suffix != NULL ) {
1013                         *suffix = '\0';
1014                 }
1015
1016                 /* handle { } section */
1017                 if ( !GetTokenAppend( shaderText, qtrue ) ) {
1018                         break;
1019                 }
1020                 if ( strcmp( token, "{" ) ) {
1021                         if ( si != NULL ) {
1022                                 Error( "ParseShaderFile(): %s, line %d: { not found!\nFound instead: %s\nLast known shader: %s\nFile location be: %s\n",
1023                                            filename, scriptline, token, si->shader, g_strLoadedFileLocation );
1024                         }
1025                         else{
1026                                 Error( "ParseShaderFile(): %s, line %d: { not found!\nFound instead: %s\nFile location be: %s\n",
1027                                            filename, scriptline, token, g_strLoadedFileLocation );
1028                         }
1029                 }
1030
1031                 while ( 1 )
1032                 {
1033                         /* get the next token */
1034                         if ( !GetTokenAppend( shaderText, qtrue ) ) {
1035                                 break;
1036                         }
1037                         if ( !strcmp( token, "}" ) ) {
1038                                 break;
1039                         }
1040
1041
1042                         /* -----------------------------------------------------------------
1043                            shader stages (passes)
1044                            ----------------------------------------------------------------- */
1045
1046                         /* parse stage directives */
1047                         if ( !strcmp( token, "{" ) ) {
1048                                 si->hasPasses = qtrue;
1049                                 while ( 1 )
1050                                 {
1051                                         if ( !GetTokenAppend( shaderText, qtrue ) ) {
1052                                                 break;
1053                                         }
1054                                         if ( !strcmp( token, "}" ) ) {
1055                                                 break;
1056                                         }
1057
1058                                         /* only care about images if we don't have a editor/light image */
1059                                         if ( si->editorImagePath[ 0 ] == '\0' && si->lightImagePath[ 0 ] == '\0' && si->implicitImagePath[ 0 ] == '\0' ) {
1060                                                 /* digest any images */
1061                                                 if ( !Q_stricmp( token, "map" ) ||
1062                                                          !Q_stricmp( token, "clampMap" ) ||
1063                                                          !Q_stricmp( token, "animMap" ) ||
1064                                                          !Q_stricmp( token, "clampAnimMap" ) ||
1065                                                          !Q_stricmp( token, "mapComp" ) ||
1066                                                          !Q_stricmp( token, "mapNoComp" ) ) {
1067                                                         /* skip one token for animated stages */
1068                                                         if ( !Q_stricmp( token, "animMap" ) || !Q_stricmp( token, "clampAnimMap" ) ) {
1069                                                                 GetTokenAppend( shaderText, qfalse );
1070                                                         }
1071
1072                                                         /* get an image */
1073                                                         GetTokenAppend( shaderText, qfalse );
1074                                                         if ( token[ 0 ] != '*' && token[ 0 ] != '$' ) {
1075                                                                 strcpy( si->lightImagePath, token );
1076                                                                 DefaultExtension( si->lightImagePath, ".tga" );
1077
1078                                                                 /* debug code */
1079                                                                 //%     Sys_FPrintf( SYS_VRB, "Deduced shader image: %s\n", si->lightImagePath );
1080                                                         }
1081                                                 }
1082                                         }
1083                                 }
1084                         }
1085
1086
1087                         /* -----------------------------------------------------------------
1088                            surfaceparm * directives
1089                            ----------------------------------------------------------------- */
1090
1091                         /* match surfaceparm */
1092                         else if ( !Q_stricmp( token, "surfaceparm" ) ) {
1093                                 GetTokenAppend( shaderText, qfalse );
1094                                 if ( ApplySurfaceParm( token, &si->contentFlags, &si->surfaceFlags, &si->compileFlags ) == qfalse ) {
1095                                         Sys_FPrintf( SYS_WRN, "WARNING: Unknown surfaceparm: \"%s\"\n", token );
1096                                 }
1097                         }
1098
1099
1100                         /* -----------------------------------------------------------------
1101                            game-related shader directives
1102                            ----------------------------------------------------------------- */
1103
1104                         /* ydnar: fogparms (for determining fog volumes) */
1105                         else if ( !Q_stricmp( token, "fogparms" ) ) {
1106                                 si->fogParms = qtrue;
1107                         }
1108
1109                         /* ydnar: polygonoffset (for no culling) */
1110                         else if ( !Q_stricmp( token, "polygonoffset" ) ) {
1111                                 si->polygonOffset = qtrue;
1112                         }
1113
1114                         /* tesssize is used to force liquid surfaces to subdivide */
1115                         else if ( !Q_stricmp( token, "tessSize" ) || !Q_stricmp( token, "q3map_tessSize" ) /* sof2 */ ) {
1116                                 GetTokenAppend( shaderText, qfalse );
1117                                 si->subdivisions = atof( token );
1118                         }
1119
1120                         /* cull none will set twoSided (ydnar: added disable too) */
1121                         else if ( !Q_stricmp( token, "cull" ) ) {
1122                                 GetTokenAppend( shaderText, qfalse );
1123                                 if ( !Q_stricmp( token, "none" ) || !Q_stricmp( token, "disable" ) || !Q_stricmp( token, "twosided" ) ) {
1124                                         si->twoSided = qtrue;
1125                                 }
1126                         }
1127
1128                         /* deformVertexes autosprite[ 2 ]
1129                            we catch this so autosprited surfaces become point
1130                            lights instead of area lights */
1131                         else if ( !Q_stricmp( token, "deformVertexes" ) ) {
1132                                 GetTokenAppend( shaderText, qfalse );
1133
1134                                 /* deformVertexes autosprite(2) */
1135                                 if ( !Q_strncasecmp( token, "autosprite", 10 ) ) {
1136                                         /* set it as autosprite and detail */
1137                                         si->autosprite = qtrue;
1138                                         ApplySurfaceParm( "detail", &si->contentFlags, &si->surfaceFlags, &si->compileFlags );
1139
1140                                         /* ydnar: gs mods: added these useful things */
1141                                         si->noClip = qtrue;
1142                                         si->notjunc = qtrue;
1143                                 }
1144
1145                                 /* deformVertexes move <x> <y> <z> <func> <base> <amplitude> <phase> <freq> (ydnar: for particle studio support) */
1146                                 if ( !Q_stricmp( token, "move" ) ) {
1147                                         vec3_t amt, mins, maxs;
1148                                         float base, amp;
1149
1150
1151                                         /* get move amount */
1152                                         GetTokenAppend( shaderText, qfalse );   amt[ 0 ] = atof( token );
1153                                         GetTokenAppend( shaderText, qfalse );   amt[ 1 ] = atof( token );
1154                                         GetTokenAppend( shaderText, qfalse );   amt[ 2 ] = atof( token );
1155
1156                                         /* skip func */
1157                                         GetTokenAppend( shaderText, qfalse );
1158
1159                                         /* get base and amplitude */
1160                                         GetTokenAppend( shaderText, qfalse );   base = atof( token );
1161                                         GetTokenAppend( shaderText, qfalse );   amp = atof( token );
1162
1163                                         /* calculate */
1164                                         VectorScale( amt, base, mins );
1165                                         VectorMA( mins, amp, amt, maxs );
1166                                         VectorAdd( si->mins, mins, si->mins );
1167                                         VectorAdd( si->maxs, maxs, si->maxs );
1168                                 }
1169                         }
1170
1171                         /* light <value> (old-style flare specification) */
1172                         else if ( !Q_stricmp( token, "light" ) ) {
1173                                 GetTokenAppend( shaderText, qfalse );
1174                                 si->flareShader = game->flareShader;
1175                         }
1176
1177                         /* ydnar: damageShader <shader> <health> (sof2 mods) */
1178                         else if ( !Q_stricmp( token, "damageShader" ) ) {
1179                                 GetTokenAppend( shaderText, qfalse );
1180                                 if ( token[ 0 ] != '\0' ) {
1181                                         si->damageShader = safe_malloc( strlen( token ) + 1 );
1182                                         strcpy( si->damageShader, token );
1183                                 }
1184                                 GetTokenAppend( shaderText, qfalse );   /* don't do anything with health */
1185                         }
1186
1187                         /* ydnar: enemy territory implicit shaders */
1188                         else if ( !Q_stricmp( token, "implicitMap" ) ) {
1189                                 si->implicitMap = IM_OPAQUE;
1190                                 GetTokenAppend( shaderText, qfalse );
1191                                 if ( token[ 0 ] == '-' && token[ 1 ] == '\0' ) {
1192                                         sprintf( si->implicitImagePath, "%s.tga", si->shader );
1193                                 }
1194                                 else{
1195                                         strcpy( si->implicitImagePath, token );
1196                                 }
1197                         }
1198
1199                         else if ( !Q_stricmp( token, "implicitMask" ) ) {
1200                                 si->implicitMap = IM_MASKED;
1201                                 GetTokenAppend( shaderText, qfalse );
1202                                 if ( token[ 0 ] == '-' && token[ 1 ] == '\0' ) {
1203                                         sprintf( si->implicitImagePath, "%s.tga", si->shader );
1204                                 }
1205                                 else{
1206                                         strcpy( si->implicitImagePath, token );
1207                                 }
1208                         }
1209
1210                         else if ( !Q_stricmp( token, "implicitBlend" ) ) {
1211                                 si->implicitMap = IM_MASKED;
1212                                 GetTokenAppend( shaderText, qfalse );
1213                                 if ( token[ 0 ] == '-' && token[ 1 ] == '\0' ) {
1214                                         sprintf( si->implicitImagePath, "%s.tga", si->shader );
1215                                 }
1216                                 else{
1217                                         strcpy( si->implicitImagePath, token );
1218                                 }
1219                         }
1220
1221
1222                         /* -----------------------------------------------------------------
1223                            image directives
1224                            ----------------------------------------------------------------- */
1225
1226                         /* qer_editorimage <image> */
1227                         else if ( !Q_stricmp( token, "qer_editorImage" ) ) {
1228                                 GetTokenAppend( shaderText, qfalse );
1229                                 strcpy( si->editorImagePath, token );
1230                                 DefaultExtension( si->editorImagePath, ".tga" );
1231                         }
1232
1233                         /* ydnar: q3map_normalimage <image> (bumpmapping normal map) */
1234                         else if ( !Q_stricmp( token, "q3map_normalImage" ) ) {
1235                                 GetTokenAppend( shaderText, qfalse );
1236                                 strcpy( si->normalImagePath, token );
1237                                 DefaultExtension( si->normalImagePath, ".tga" );
1238                         }
1239
1240                         /* q3map_lightimage <image> */
1241                         else if ( !Q_stricmp( token, "q3map_lightImage" ) ) {
1242                                 GetTokenAppend( shaderText, qfalse );
1243                                 strcpy( si->lightImagePath, token );
1244                                 DefaultExtension( si->lightImagePath, ".tga" );
1245                         }
1246
1247                         /* ydnar: skyparms <outer image> <cloud height> <inner image> */
1248                         else if ( !Q_stricmp( token, "skyParms" ) ) {
1249                                 /* get image base */
1250                                 GetTokenAppend( shaderText, qfalse );
1251
1252                                 /* ignore bogus paths */
1253                                 if ( Q_stricmp( token, "-" ) && Q_stricmp( token, "full" ) ) {
1254                                         strcpy( si->skyParmsImageBase, token );
1255
1256                                         /* use top image as sky light image */
1257                                         if ( si->lightImagePath[ 0 ] == '\0' ) {
1258                                                 sprintf( si->lightImagePath, "%s_up.tga", si->skyParmsImageBase );
1259                                         }
1260                                 }
1261
1262                                 /* skip rest of line */
1263                                 GetTokenAppend( shaderText, qfalse );
1264                                 GetTokenAppend( shaderText, qfalse );
1265                         }
1266
1267                         /* -----------------------------------------------------------------
1268                            q3map_* directives
1269                            ----------------------------------------------------------------- */
1270
1271                         /* q3map_sun <red> <green> <blue> <intensity> <degrees> <elevation>
1272                            color will be normalized, so it doesn't matter what range you use
1273                            intensity falls off with angle but not distance 100 is a fairly bright sun
1274                            degree of 0 = from the east, 90 = north, etc.  altitude of 0 = sunrise/set, 90 = noon
1275                            ydnar: sof2map has bareword 'sun' token, so we support that as well */
1276                         else if ( !Q_stricmp( token, "sun" ) /* sof2 */ || !Q_stricmp( token, "q3map_sun" ) || !Q_stricmp( token, "q3map_sunExt" ) ) {
1277                                 float a, b;
1278                                 sun_t       *sun;
1279                                 qboolean ext = qfalse;
1280
1281
1282                                 /* ydnar: extended sun directive? */
1283                                 if ( !Q_stricmp( token, "q3map_sunext" ) ) {
1284                                         ext = qtrue;
1285                                 }
1286
1287                                 /* allocate sun */
1288                                 sun = safe_malloc( sizeof( *sun ) );
1289                                 memset( sun, 0, sizeof( *sun ) );
1290
1291                                 /* set style */
1292                                 sun->style = si->lightStyle;
1293
1294                                 /* get color */
1295                                 GetTokenAppend( shaderText, qfalse );
1296                                 sun->color[ 0 ] = atof( token );
1297                                 GetTokenAppend( shaderText, qfalse );
1298                                 sun->color[ 1 ] = atof( token );
1299                                 GetTokenAppend( shaderText, qfalse );
1300                                 sun->color[ 2 ] = atof( token );
1301
1302                                 if ( colorsRGB ) {
1303                                         sun->color[0] = Image_LinearFloatFromsRGBFloat( sun->color[0] );
1304                                         sun->color[1] = Image_LinearFloatFromsRGBFloat( sun->color[1] );
1305                                         sun->color[2] = Image_LinearFloatFromsRGBFloat( sun->color[2] );
1306                                 }
1307
1308                                 /* normalize it */
1309                                 ColorNormalize( sun->color, sun->color );
1310
1311                                 /* scale color by brightness */
1312                                 GetTokenAppend( shaderText, qfalse );
1313                                 sun->photons = atof( token );
1314
1315                                 /* get sun angle/elevation */
1316                                 GetTokenAppend( shaderText, qfalse );
1317                                 a = atof( token );
1318                                 a = a / 180.0f * Q_PI;
1319
1320                                 GetTokenAppend( shaderText, qfalse );
1321                                 b = atof( token );
1322                                 b = b / 180.0f * Q_PI;
1323
1324                                 sun->direction[ 0 ] = cos( a ) * cos( b );
1325                                 sun->direction[ 1 ] = sin( a ) * cos( b );
1326                                 sun->direction[ 2 ] = sin( b );
1327
1328                                 /* get filter radius from shader */
1329                                 sun->filterRadius = si->lightFilterRadius;
1330
1331                                 /* ydnar: get sun angular deviance/samples */
1332                                 if ( ext && TokenAvailable() ) {
1333                                         GetTokenAppend( shaderText, qfalse );
1334                                         sun->deviance = atof( token );
1335                                         sun->deviance = sun->deviance / 180.0f * Q_PI;
1336
1337                                         GetTokenAppend( shaderText, qfalse );
1338                                         sun->numSamples = atoi( token );
1339                                 }
1340
1341                                 /* store sun */
1342                                 sun->next = si->sun;
1343                                 si->sun = sun;
1344
1345                                 /* apply sky surfaceparm */
1346                                 ApplySurfaceParm( "sky", &si->contentFlags, &si->surfaceFlags, &si->compileFlags );
1347
1348                                 /* don't process any more tokens on this line */
1349                                 continue;
1350                         }
1351
1352                         /* match q3map_ */
1353                         else if ( !Q_strncasecmp( token, "q3map_", 6 ) ) {
1354                                 /* ydnar: q3map_baseShader <shader> (inherit this shader's parameters) */
1355                                 if ( !Q_stricmp( token, "q3map_baseShader" ) ) {
1356                                         shaderInfo_t    *si2;
1357                                         qboolean oldWarnImage;
1358
1359
1360                                         /* get shader */
1361                                         GetTokenAppend( shaderText, qfalse );
1362                                         //%     Sys_FPrintf( SYS_VRB, "Shader %s has base shader %s\n", si->shader, token );
1363                                         oldWarnImage = warnImage;
1364                                         warnImage = qfalse;
1365                                         si2 = ShaderInfoForShader( token );
1366                                         warnImage = oldWarnImage;
1367
1368                                         /* subclass it */
1369                                         if ( si2 != NULL ) {
1370                                                 /* preserve name */
1371                                                 strcpy( temp, si->shader );
1372
1373                                                 /* copy shader */
1374                                                 memcpy( si, si2, sizeof( *si ) );
1375
1376                                                 /* restore name and set to unfinished */
1377                                                 strcpy( si->shader, temp );
1378                                                 si->shaderWidth = 0;
1379                                                 si->shaderHeight = 0;
1380                                                 si->finished = qfalse;
1381                                         }
1382                                 }
1383
1384                                 /* ydnar: q3map_surfacemodel <path to model> <density> <min scale> <max scale> <min angle> <max angle> <oriented (0 or 1)> */
1385                                 else if ( !Q_stricmp( token, "q3map_surfacemodel" ) ) {
1386                                         surfaceModel_t  *model;
1387
1388                                         /* allocate new model and attach it */
1389                                         model = safe_malloc( sizeof( *model ) );
1390                                         memset( model, 0, sizeof( *model ) );
1391                                         model->next = si->surfaceModel;
1392                                         si->surfaceModel = model;
1393
1394                                         /* get parameters */
1395                                         GetTokenAppend( shaderText, qfalse );
1396                                         strcpy( model->model, token );
1397
1398                                         GetTokenAppend( shaderText, qfalse );
1399                                         model->density = atof( token );
1400                                         GetTokenAppend( shaderText, qfalse );
1401                                         model->odds = atof( token );
1402
1403                                         GetTokenAppend( shaderText, qfalse );
1404                                         model->minScale = atof( token );
1405                                         GetTokenAppend( shaderText, qfalse );
1406                                         model->maxScale = atof( token );
1407
1408                                         GetTokenAppend( shaderText, qfalse );
1409                                         model->minAngle = atof( token );
1410                                         GetTokenAppend( shaderText, qfalse );
1411                                         model->maxAngle = atof( token );
1412
1413                                         GetTokenAppend( shaderText, qfalse );
1414                                         model->oriented = ( token[ 0 ] == '1' ? qtrue : qfalse );
1415                                 }
1416
1417                                 /* ydnar/sd: q3map_foliage <path to model> <scale> <density> <odds> <invert alpha (1 or 0)> */
1418                                 else if ( !Q_stricmp( token, "q3map_foliage" ) ) {
1419                                         foliage_t   *foliage;
1420
1421
1422                                         /* allocate new foliage struct and attach it */
1423                                         foliage = safe_malloc( sizeof( *foliage ) );
1424                                         memset( foliage, 0, sizeof( *foliage ) );
1425                                         foliage->next = si->foliage;
1426                                         si->foliage = foliage;
1427
1428                                         /* get parameters */
1429                                         GetTokenAppend( shaderText, qfalse );
1430                                         strcpy( foliage->model, token );
1431
1432                                         GetTokenAppend( shaderText, qfalse );
1433                                         foliage->scale = atof( token );
1434                                         GetTokenAppend( shaderText, qfalse );
1435                                         foliage->density = atof( token );
1436                                         GetTokenAppend( shaderText, qfalse );
1437                                         foliage->odds = atof( token );
1438                                         GetTokenAppend( shaderText, qfalse );
1439                                         foliage->inverseAlpha = atoi( token );
1440                                 }
1441
1442                                 /* ydnar: q3map_bounce <value> (fraction of light to re-emit during radiosity passes) */
1443                                 else if ( !Q_stricmp( token, "q3map_bounce" ) || !Q_stricmp( token, "q3map_bounceScale" ) ) {
1444                                         GetTokenAppend( shaderText, qfalse );
1445                                         si->bounceScale = atof( token );
1446                                 }
1447
1448                                 /* ydnar/splashdamage: q3map_skyLight <value> <iterations> */
1449                                 else if ( !Q_stricmp( token, "q3map_skyLight" )  ) {
1450                                         GetTokenAppend( shaderText, qfalse );
1451                                         si->skyLightValue = atof( token );
1452                                         GetTokenAppend( shaderText, qfalse );
1453                                         si->skyLightIterations = atoi( token );
1454
1455                                         /* clamp */
1456                                         if ( si->skyLightValue < 0.0f ) {
1457                                                 si->skyLightValue = 0.0f;
1458                                         }
1459                                         if ( si->skyLightIterations < 2 ) {
1460                                                 si->skyLightIterations = 2;
1461                                         }
1462                                 }
1463
1464                                 /* q3map_surfacelight <value> */
1465                                 else if ( !Q_stricmp( token, "q3map_surfacelight" )  ) {
1466                                         GetTokenAppend( shaderText, qfalse );
1467                                         si->value = atof( token );
1468                                 }
1469
1470                                 /* q3map_lightStyle (sof2/jk2 lightstyle) */
1471                                 else if ( !Q_stricmp( token, "q3map_lightStyle" ) ) {
1472                                         GetTokenAppend( shaderText, qfalse );
1473                                         val = atoi( token );
1474                                         if ( val < 0 ) {
1475                                                 val = 0;
1476                                         }
1477                                         else if ( val > LS_NONE ) {
1478                                                 val = LS_NONE;
1479                                         }
1480                                         si->lightStyle = val;
1481                                 }
1482
1483                                 /* wolf: q3map_lightRGB <red> <green> <blue> */
1484                                 else if ( !Q_stricmp( token, "q3map_lightRGB" ) ) {
1485                                         VectorClear( si->color );
1486                                         GetTokenAppend( shaderText, qfalse );
1487                                         si->color[ 0 ] = atof( token );
1488                                         GetTokenAppend( shaderText, qfalse );
1489                                         si->color[ 1 ] = atof( token );
1490                                         GetTokenAppend( shaderText, qfalse );
1491                                         si->color[ 2 ] = atof( token );
1492                                         if ( colorsRGB ) {
1493                                                 si->color[0] = Image_LinearFloatFromsRGBFloat( si->color[0] );
1494                                                 si->color[1] = Image_LinearFloatFromsRGBFloat( si->color[1] );
1495                                                 si->color[2] = Image_LinearFloatFromsRGBFloat( si->color[2] );
1496                                         }
1497                                         ColorNormalize( si->color, si->color );
1498                                 }
1499
1500                                 /* q3map_lightSubdivide <value> */
1501                                 else if ( !Q_stricmp( token, "q3map_lightSubdivide" )  ) {
1502                                         GetTokenAppend( shaderText, qfalse );
1503                                         si->lightSubdivide = atoi( token );
1504                                 }
1505
1506                                 /* q3map_backsplash <percent> <distance> */
1507                                 else if ( !Q_stricmp( token, "q3map_backsplash" ) ) {
1508                                         GetTokenAppend( shaderText, qfalse );
1509                                         si->backsplashFraction = atof( token ) * 0.01f;
1510                                         GetTokenAppend( shaderText, qfalse );
1511                                         si->backsplashDistance = atof( token );
1512                                 }
1513
1514                                 /* q3map_floodLight <r> <g> <b> <diste> <intensity> <light_direction_power> */
1515                                 else if ( !Q_stricmp( token, "q3map_floodLight" ) ) {
1516                                         /* get color */
1517                                         GetTokenAppend( shaderText, qfalse );
1518                                         si->floodlightRGB[ 0 ] = atof( token );
1519                                         GetTokenAppend( shaderText, qfalse );
1520                                         si->floodlightRGB[ 1 ] = atof( token );
1521                                         GetTokenAppend( shaderText, qfalse );
1522                                         si->floodlightRGB[ 2 ] = atof( token );
1523                                         GetTokenAppend( shaderText, qfalse );
1524                                         si->floodlightDistance = atof( token );
1525                                         GetTokenAppend( shaderText, qfalse );
1526                                         si->floodlightIntensity = atof( token );
1527                                         GetTokenAppend( shaderText, qfalse );
1528                                         si->floodlightDirectionScale = atof( token );
1529                                         if ( colorsRGB ) {
1530                                                 si->floodlightRGB[0] = Image_LinearFloatFromsRGBFloat( si->floodlightRGB[0] );
1531                                                 si->floodlightRGB[1] = Image_LinearFloatFromsRGBFloat( si->floodlightRGB[1] );
1532                                                 si->floodlightRGB[2] = Image_LinearFloatFromsRGBFloat( si->floodlightRGB[2] );
1533                                         }
1534                                         ColorNormalize( si->floodlightRGB, si->floodlightRGB );
1535                                 }
1536
1537                                 /* jal: q3map_nodirty : skip dirty */
1538                                 else if ( !Q_stricmp( token, "q3map_nodirty" ) ) {
1539                                         si->noDirty = qtrue;
1540                                 }
1541
1542                                 /* q3map_lightmapSampleSize <value> */
1543                                 else if ( !Q_stricmp( token, "q3map_lightmapSampleSize" ) ) {
1544                                         GetTokenAppend( shaderText, qfalse );
1545                                         si->lightmapSampleSize = atoi( token );
1546                                 }
1547
1548                                 /* q3map_lightmapSampleOffset <value> */
1549                                 else if ( !Q_stricmp( token, "q3map_lightmapSampleOffset" ) ) {
1550                                         GetTokenAppend( shaderText, qfalse );
1551                                         si->lightmapSampleOffset = atof( token );
1552                                 }
1553
1554                                 /* ydnar: q3map_lightmapFilterRadius <self> <other> */
1555                                 else if ( !Q_stricmp( token, "q3map_lightmapFilterRadius" ) ) {
1556                                         GetTokenAppend( shaderText, qfalse );
1557                                         si->lmFilterRadius = atof( token );
1558                                         GetTokenAppend( shaderText, qfalse );
1559                                         si->lightFilterRadius = atof( token );
1560                                 }
1561
1562                                 /* ydnar: q3map_lightmapAxis [xyz] */
1563                                 else if ( !Q_stricmp( token, "q3map_lightmapAxis" ) ) {
1564                                         GetTokenAppend( shaderText, qfalse );
1565                                         if ( !Q_stricmp( token, "x" ) ) {
1566                                                 VectorSet( si->lightmapAxis, 1, 0, 0 );
1567                                         }
1568                                         else if ( !Q_stricmp( token, "y" ) ) {
1569                                                 VectorSet( si->lightmapAxis, 0, 1, 0 );
1570                                         }
1571                                         else if ( !Q_stricmp( token, "z" ) ) {
1572                                                 VectorSet( si->lightmapAxis, 0, 0, 1 );
1573                                         }
1574                                         else
1575                                         {
1576                                                 Sys_FPrintf( SYS_WRN, "WARNING: Unknown value for lightmap axis: %s\n", token );
1577                                                 VectorClear( si->lightmapAxis );
1578                                         }
1579                                 }
1580
1581                                 /* ydnar: q3map_lightmapSize <width> <height> (for autogenerated shaders + external tga lightmaps) */
1582                                 else if ( !Q_stricmp( token, "q3map_lightmapSize" ) ) {
1583                                         GetTokenAppend( shaderText, qfalse );
1584                                         si->lmCustomWidth = atoi( token );
1585                                         GetTokenAppend( shaderText, qfalse );
1586                                         si->lmCustomHeight = atoi( token );
1587
1588                                         /* must be a power of 2 */
1589                                         if ( ( ( si->lmCustomWidth - 1 ) & si->lmCustomWidth ) ||
1590                                                  ( ( si->lmCustomHeight - 1 ) & si->lmCustomHeight ) ) {
1591                                                 Sys_FPrintf( SYS_WRN, "WARNING: Non power-of-two lightmap size specified (%d, %d)\n",
1592                                                                         si->lmCustomWidth, si->lmCustomHeight );
1593                                                 si->lmCustomWidth = lmCustomSize;
1594                                                 si->lmCustomHeight = lmCustomSize;
1595                                         }
1596                                 }
1597
1598                                 /* ydnar: q3map_lightmapBrightness N (for autogenerated shaders + external tga lightmaps) */
1599                                 else if ( !Q_stricmp( token, "q3map_lightmapBrightness" ) || !Q_stricmp( token, "q3map_lightmapGamma" ) ) {
1600                                         GetTokenAppend( shaderText, qfalse );
1601                                         si->lmBrightness = atof( token );
1602                                         if ( si->lmBrightness < 0 ) {
1603                                                 si->lmBrightness = 1.0;
1604                                         }
1605                                 }
1606
1607                                 /* q3map_vertexScale (scale vertex lighting by this fraction) */
1608                                 else if ( !Q_stricmp( token, "q3map_vertexScale" ) ) {
1609                                         GetTokenAppend( shaderText, qfalse );
1610                                         si->vertexScale *= atof( token );
1611                                 }
1612
1613                                 /* q3map_noVertexLight */
1614                                 else if ( !Q_stricmp( token, "q3map_noVertexLight" ) ) {
1615                                         si->noVertexLight = qtrue;
1616                                 }
1617
1618                                 /* q3map_flare[Shader] <shader> */
1619                                 else if ( !Q_stricmp( token, "q3map_flare" ) || !Q_stricmp( token, "q3map_flareShader" ) ) {
1620                                         GetTokenAppend( shaderText, qfalse );
1621                                         if ( token[ 0 ] != '\0' ) {
1622                                                 si->flareShader = safe_malloc( strlen( token ) + 1 );
1623                                                 strcpy( si->flareShader, token );
1624                                         }
1625                                 }
1626
1627                                 /* q3map_backShader <shader> */
1628                                 else if ( !Q_stricmp( token, "q3map_backShader" ) ) {
1629                                         GetTokenAppend( shaderText, qfalse );
1630                                         if ( token[ 0 ] != '\0' ) {
1631                                                 si->backShader = safe_malloc( strlen( token ) + 1 );
1632                                                 strcpy( si->backShader, token );
1633                                         }
1634                                 }
1635
1636                                 /* ydnar: q3map_cloneShader <shader> */
1637                                 else if ( !Q_stricmp( token, "q3map_cloneShader" ) ) {
1638                                         GetTokenAppend( shaderText, qfalse );
1639                                         if ( token[ 0 ] != '\0' ) {
1640                                                 si->cloneShader = safe_malloc( strlen( token ) + 1 );
1641                                                 strcpy( si->cloneShader, token );
1642                                         }
1643                                 }
1644
1645                                 /* q3map_remapShader <shader> */
1646                                 else if ( !Q_stricmp( token, "q3map_remapShader" ) ) {
1647                                         GetTokenAppend( shaderText, qfalse );
1648                                         if ( token[ 0 ] != '\0' ) {
1649                                                 si->remapShader = safe_malloc( strlen( token ) + 1 );
1650                                                 strcpy( si->remapShader, token );
1651                                         }
1652                                 }
1653
1654                                 /* q3map_deprecateShader <shader> */
1655                                 else if ( !Q_stricmp( token, "q3map_deprecateShader" ) ) {
1656                                         GetTokenAppend( shaderText, qfalse );
1657                                         if ( token[ 0 ] != '\0' ) {
1658
1659                                                 si->deprecateShader = safe_malloc( strlen( token ) + 1 );
1660                                                 strcpy( si->deprecateShader, token );
1661                                         }
1662                                 }
1663
1664                                 /* ydnar: q3map_offset <value> */
1665                                 else if ( !Q_stricmp( token, "q3map_offset" ) ) {
1666                                         GetTokenAppend( shaderText, qfalse );
1667                                         si->offset = atof( token );
1668                                 }
1669
1670                                 /* ydnar: q3map_fur <numlayers> <offset> <fade> */
1671                                 else if ( !Q_stricmp( token, "q3map_fur" ) ) {
1672                                         GetTokenAppend( shaderText, qfalse );
1673                                         si->furNumLayers = atoi( token );
1674                                         GetTokenAppend( shaderText, qfalse );
1675                                         si->furOffset = atof( token );
1676                                         GetTokenAppend( shaderText, qfalse );
1677                                         si->furFade = atof( token );
1678                                 }
1679
1680                                 /* ydnar: gs mods: legacy support for terrain/terrain2 shaders */
1681                                 else if ( !Q_stricmp( token, "q3map_terrain" ) ) {
1682                                         /* team arena terrain is assumed to be nonplanar, with full normal averaging,
1683                                            passed through the metatriangle surface pipeline, with a lightmap axis on z */
1684                                         si->legacyTerrain = qtrue;
1685                                         si->noClip = qtrue;
1686                                         si->notjunc = qtrue;
1687                                         si->indexed = qtrue;
1688                                         si->nonplanar = qtrue;
1689                                         si->forceMeta = qtrue;
1690                                         si->shadeAngleDegrees = 179.0f;
1691                                         //%     VectorSet( si->lightmapAxis, 0, 0, 1 ); /* ydnar 2002-09-21: turning this off for better lightmapping of cliff faces */
1692                                 }
1693
1694                                 /* ydnar: picomodel: q3map_forceMeta (forces brush faces and/or triangle models to go through the metasurface pipeline) */
1695                                 else if ( !Q_stricmp( token, "q3map_forceMeta" ) ) {
1696                                         si->forceMeta = qtrue;
1697                                 }
1698
1699                                 /* ydnar: gs mods: q3map_shadeAngle <degrees> */
1700                                 else if ( !Q_stricmp( token, "q3map_shadeAngle" ) ) {
1701                                         GetTokenAppend( shaderText, qfalse );
1702                                         si->shadeAngleDegrees = atof( token );
1703                                 }
1704
1705                                 /* ydnar: q3map_textureSize <width> <height> (substitute for q3map_lightimage derivation for terrain) */
1706                                 else if ( !Q_stricmp( token, "q3map_textureSize" ) ) {
1707                                         GetTokenAppend( shaderText, qfalse );
1708                                         si->shaderWidth = atoi( token );
1709                                         GetTokenAppend( shaderText, qfalse );
1710                                         si->shaderHeight = atoi( token );
1711                                 }
1712
1713                                 /* ydnar: gs mods: q3map_tcGen <style> <parameters> */
1714                                 else if ( !Q_stricmp( token, "q3map_tcGen" ) ) {
1715                                         si->tcGen = qtrue;
1716                                         GetTokenAppend( shaderText, qfalse );
1717
1718                                         /* q3map_tcGen vector <s vector> <t vector> */
1719                                         if ( !Q_stricmp( token, "vector" ) ) {
1720                                                 Parse1DMatrixAppend( shaderText, 3, si->vecs[ 0 ] );
1721                                                 Parse1DMatrixAppend( shaderText, 3, si->vecs[ 1 ] );
1722                                         }
1723
1724                                         /* q3map_tcGen ivector <1.0/s vector> <1.0/t vector> (inverse vector, easier for mappers to understand) */
1725                                         else if ( !Q_stricmp( token, "ivector" ) ) {
1726                                                 Parse1DMatrixAppend( shaderText, 3, si->vecs[ 0 ] );
1727                                                 Parse1DMatrixAppend( shaderText, 3, si->vecs[ 1 ] );
1728                                                 for ( i = 0; i < 3; i++ )
1729                                                 {
1730                                                         si->vecs[ 0 ][ i ] = si->vecs[ 0 ][ i ] ? 1.0 / si->vecs[ 0 ][ i ] : 0;
1731                                                         si->vecs[ 1 ][ i ] = si->vecs[ 1 ][ i ] ? 1.0 / si->vecs[ 1 ][ i ] : 0;
1732                                                 }
1733                                         }
1734                                         else
1735                                         {
1736                                                 Sys_FPrintf( SYS_WRN, "WARNING: Unknown q3map_tcGen method: %s\n", token );
1737                                                 VectorClear( si->vecs[ 0 ] );
1738                                                 VectorClear( si->vecs[ 1 ] );
1739                                         }
1740                                 }
1741
1742                                 /* ydnar: gs mods: q3map_[color|rgb|alpha][Gen|Mod] <style> <parameters> */
1743                                 else if ( !Q_stricmp( token, "q3map_colorGen" ) || !Q_stricmp( token, "q3map_colorMod" ) ||
1744                                                   !Q_stricmp( token, "q3map_rgbGen" ) || !Q_stricmp( token, "q3map_rgbMod" ) ||
1745                                                   !Q_stricmp( token, "q3map_alphaGen" ) || !Q_stricmp( token, "q3map_alphaMod" ) ) {
1746                                         colorMod_t  *cm, *cm2;
1747                                         int alpha;
1748
1749
1750                                         /* alphamods are colormod + 1 */
1751                                         alpha = ( !Q_stricmp( token, "q3map_alphaGen" ) || !Q_stricmp( token, "q3map_alphaMod" ) ) ? 1 : 0;
1752
1753                                         /* allocate new colormod */
1754                                         cm = safe_malloc( sizeof( *cm ) );
1755                                         memset( cm, 0, sizeof( *cm ) );
1756
1757                                         /* attach to shader */
1758                                         if ( si->colorMod == NULL ) {
1759                                                 si->colorMod = cm;
1760                                         }
1761                                         else
1762                                         {
1763                                                 for ( cm2 = si->colorMod; cm2 != NULL; cm2 = cm2->next )
1764                                                 {
1765                                                         if ( cm2->next == NULL ) {
1766                                                                 cm2->next = cm;
1767                                                                 break;
1768                                                         }
1769                                                 }
1770                                         }
1771
1772                                         /* get type */
1773                                         GetTokenAppend( shaderText, qfalse );
1774
1775                                         /* alpha set|const A */
1776                                         if ( alpha && ( !Q_stricmp( token, "set" ) || !Q_stricmp( token, "const" ) ) ) {
1777                                                 cm->type = CM_ALPHA_SET;
1778                                                 GetTokenAppend( shaderText, qfalse );
1779                                                 cm->data[ 0 ] = atof( token );
1780                                         }
1781
1782                                         /* color|rgb set|const ( X Y Z ) */
1783                                         else if ( !Q_stricmp( token, "set" ) || !Q_stricmp( token, "const" ) ) {
1784                                                 cm->type = CM_COLOR_SET;
1785                                                 Parse1DMatrixAppend( shaderText, 3, cm->data );
1786                                                 if ( colorsRGB ) {
1787                                                         cm->data[0] = Image_LinearFloatFromsRGBFloat( cm->data[0] );
1788                                                         cm->data[1] = Image_LinearFloatFromsRGBFloat( cm->data[1] );
1789                                                         cm->data[2] = Image_LinearFloatFromsRGBFloat( cm->data[2] );
1790                                                 }
1791                                         }
1792
1793                                         /* alpha scale A */
1794                                         else if ( alpha && !Q_stricmp( token, "scale" ) ) {
1795                                                 cm->type = CM_ALPHA_SCALE;
1796                                                 GetTokenAppend( shaderText, qfalse );
1797                                                 cm->data[ 0 ] = atof( token );
1798                                         }
1799
1800                                         /* color|rgb scale ( X Y Z ) */
1801                                         else if ( !Q_stricmp( token, "scale" ) ) {
1802                                                 cm->type = CM_COLOR_SCALE;
1803                                                 Parse1DMatrixAppend( shaderText, 3, cm->data );
1804                                         }
1805
1806                                         /* dotProduct ( X Y Z ) */
1807                                         else if ( !Q_stricmp( token, "dotProduct" ) ) {
1808                                                 cm->type = CM_COLOR_DOT_PRODUCT + alpha;
1809                                                 Parse1DMatrixAppend( shaderText, 3, cm->data );
1810                                         }
1811
1812                                         /* dotProductScale ( X Y Z MIN MAX ) */
1813                                         else if ( !Q_stricmp( token, "dotProductScale" ) ) {
1814                                                 cm->type = CM_COLOR_DOT_PRODUCT_SCALE + alpha;
1815                                                 Parse1DMatrixAppend( shaderText, 5, cm->data );
1816                                         }
1817
1818                                         /* dotProduct2 ( X Y Z ) */
1819                                         else if ( !Q_stricmp( token, "dotProduct2" ) ) {
1820                                                 cm->type = CM_COLOR_DOT_PRODUCT_2 + alpha;
1821                                                 Parse1DMatrixAppend( shaderText, 3, cm->data );
1822                                         }
1823
1824                                         /* dotProduct2scale ( X Y Z MIN MAX ) */
1825                                         else if ( !Q_stricmp( token, "dotProduct2scale" ) ) {
1826                                                 cm->type = CM_COLOR_DOT_PRODUCT_2_SCALE + alpha;
1827                                                 Parse1DMatrixAppend( shaderText, 5, cm->data );
1828                                         }
1829
1830                                         /* volume */
1831                                         else if ( !Q_stricmp( token, "volume" ) ) {
1832                                                 /* special stub mode for flagging volume brushes */
1833                                                 cm->type = CM_VOLUME;
1834                                         }
1835
1836                                         /* unknown */
1837                                         else{
1838                                                 Sys_FPrintf( SYS_WRN, "WARNING: Unknown colorMod method: %s\n", token );
1839                                         }
1840                                 }
1841
1842                                 /* ydnar: gs mods: q3map_tcMod <style> <parameters> */
1843                                 else if ( !Q_stricmp( token, "q3map_tcMod" ) ) {
1844                                         float a, b;
1845
1846
1847                                         GetTokenAppend( shaderText, qfalse );
1848
1849                                         /* q3map_tcMod [translate | shift | offset] <s> <t> */
1850                                         if ( !Q_stricmp( token, "translate" ) || !Q_stricmp( token, "shift" ) || !Q_stricmp( token, "offset" ) ) {
1851                                                 GetTokenAppend( shaderText, qfalse );
1852                                                 a = atof( token );
1853                                                 GetTokenAppend( shaderText, qfalse );
1854                                                 b = atof( token );
1855
1856                                                 TCModTranslate( si->mod, a, b );
1857                                         }
1858
1859                                         /* q3map_tcMod scale <s> <t> */
1860                                         else if ( !Q_stricmp( token, "scale" ) ) {
1861                                                 GetTokenAppend( shaderText, qfalse );
1862                                                 a = atof( token );
1863                                                 GetTokenAppend( shaderText, qfalse );
1864                                                 b = atof( token );
1865
1866                                                 TCModScale( si->mod, a, b );
1867                                         }
1868
1869                                         /* q3map_tcMod rotate <s> <t> (fixme: make this communitive) */
1870                                         else if ( !Q_stricmp( token, "rotate" ) ) {
1871                                                 GetTokenAppend( shaderText, qfalse );
1872                                                 a = atof( token );
1873                                                 TCModRotate( si->mod, a );
1874                                         }
1875                                         else{
1876                                                 Sys_FPrintf( SYS_WRN, "WARNING: Unknown q3map_tcMod method: %s\n", token );
1877                                         }
1878                                 }
1879
1880                                 /* q3map_fogDir (direction a fog shader fades from transparent to opaque) */
1881                                 else if ( !Q_stricmp( token, "q3map_fogDir" ) ) {
1882                                         Parse1DMatrixAppend( shaderText, 3, si->fogDir );
1883                                         VectorNormalize( si->fogDir, si->fogDir );
1884                                 }
1885
1886                                 /* q3map_globaltexture */
1887                                 else if ( !Q_stricmp( token, "q3map_globaltexture" )  ) {
1888                                         si->globalTexture = qtrue;
1889                                 }
1890
1891                                 /* ydnar: gs mods: q3map_nonplanar (make it a nonplanar merge candidate for meta surfaces) */
1892                                 else if ( !Q_stricmp( token, "q3map_nonplanar" ) ) {
1893                                         si->nonplanar = qtrue;
1894                                 }
1895
1896                                 /* ydnar: gs mods: q3map_noclip (preserve original face winding, don't clip by bsp tree) */
1897                                 else if ( !Q_stricmp( token, "q3map_noclip" ) ) {
1898                                         si->noClip = qtrue;
1899                                 }
1900
1901                                 /* q3map_notjunc */
1902                                 else if ( !Q_stricmp( token, "q3map_notjunc" ) ) {
1903                                         si->notjunc = qtrue;
1904                                 }
1905
1906                                 /* q3map_nofog */
1907                                 else if ( !Q_stricmp( token, "q3map_nofog" ) ) {
1908                                         si->noFog = qtrue;
1909                                 }
1910
1911                                 /* ydnar: gs mods: q3map_indexed (for explicit terrain-style indexed mapping) */
1912                                 else if ( !Q_stricmp( token, "q3map_indexed" ) ) {
1913                                         si->indexed = qtrue;
1914                                 }
1915
1916                                 /* ydnar: q3map_invert (inverts a drawsurface's facing) */
1917                                 else if ( !Q_stricmp( token, "q3map_invert" ) ) {
1918                                         si->invert = qtrue;
1919                                 }
1920
1921                                 /* ydnar: gs mods: q3map_lightmapMergable (ok to merge non-planar */
1922                                 else if ( !Q_stricmp( token, "q3map_lightmapMergable" ) ) {
1923                                         si->lmMergable = qtrue;
1924                                 }
1925
1926                                 /* ydnar: q3map_nofast */
1927                                 else if ( !Q_stricmp( token, "q3map_noFast" ) ) {
1928                                         si->noFast = qtrue;
1929                                 }
1930
1931                                 /* q3map_patchshadows */
1932                                 else if ( !Q_stricmp( token, "q3map_patchShadows" ) ) {
1933                                         si->patchShadows = qtrue;
1934                                 }
1935
1936                                 /* q3map_vertexshadows */
1937                                 else if ( !Q_stricmp( token, "q3map_vertexShadows" ) ) {
1938                                         si->vertexShadows = qtrue;  /* ydnar */
1939
1940                                 }
1941                                 /* q3map_novertexshadows */
1942                                 else if ( !Q_stricmp( token, "q3map_noVertexShadows" ) ) {
1943                                         si->vertexShadows = qfalse; /* ydnar */
1944
1945                                 }
1946                                 /* q3map_splotchfix (filter dark lightmap luxels on lightmapped models) */
1947                                 else if ( !Q_stricmp( token, "q3map_splotchfix" ) ) {
1948                                         si->splotchFix = qtrue; /* ydnar */
1949
1950                                 }
1951                                 /* q3map_forcesunlight */
1952                                 else if ( !Q_stricmp( token, "q3map_forceSunlight" ) ) {
1953                                         si->forceSunlight = qtrue;
1954                                 }
1955
1956                                 /* q3map_onlyvertexlighting (sof2) */
1957                                 else if ( !Q_stricmp( token, "q3map_onlyVertexLighting" ) ) {
1958                                         ApplySurfaceParm( "pointlight", &si->contentFlags, &si->surfaceFlags, &si->compileFlags );
1959                                 }
1960
1961                                 /* q3map_material (sof2) */
1962                                 else if ( !Q_stricmp( token, "q3map_material" ) ) {
1963                                         GetTokenAppend( shaderText, qfalse );
1964                                         sprintf( temp, "*mat_%s", token );
1965                                         if ( ApplySurfaceParm( temp, &si->contentFlags, &si->surfaceFlags, &si->compileFlags ) == qfalse ) {
1966                                                 Sys_FPrintf( SYS_WRN, "WARNING: Unknown material \"%s\"\n", token );
1967                                         }
1968                                 }
1969
1970                                 /* ydnar: q3map_clipmodel (autogenerate clip brushes for model triangles using this shader) */
1971                                 else if ( !Q_stricmp( token, "q3map_clipmodel" )  ) {
1972                                         si->clipModel = qtrue;
1973                                 }
1974
1975                                 /* ydnar: q3map_styleMarker[2] */
1976                                 else if ( !Q_stricmp( token, "q3map_styleMarker" ) ) {
1977                                         si->styleMarker = 1;
1978                                 }
1979                                 else if ( !Q_stricmp( token, "q3map_styleMarker2" ) ) {  /* uses depthFunc equal */
1980                                         si->styleMarker = 2;
1981                                 }
1982
1983                                 /* ydnar: default to searching for q3map_<surfaceparm> */
1984 #if 0
1985                                 else
1986                                 {
1987                                         Sys_FPrintf( SYS_VRB, "Attempting to match %s with a known surfaceparm\n", token );
1988                                         if ( ApplySurfaceParm( &token[ 6 ], &si->contentFlags, &si->surfaceFlags, &si->compileFlags ) == qfalse ) {
1989                                                 Sys_FPrintf( SYS_WRN, "WARNING: Unknown q3map_* directive \"%s\"\n", token );
1990                                         }
1991                                 }
1992 #endif
1993                         }
1994
1995
1996                         /* -----------------------------------------------------------------
1997                            skip
1998                            ----------------------------------------------------------------- */
1999
2000                         /* ignore all other tokens on the line */
2001                         while ( TokenAvailable() && GetTokenAppend( shaderText, qfalse ) ) ;
2002                 }
2003         }
2004 }
2005
2006
2007
2008 /*
2009    ParseCustomInfoParms() - rr2do2
2010    loads custom info parms file for mods
2011  */
2012
2013 static void ParseCustomInfoParms( void ){
2014         qboolean parsedContent, parsedSurface;
2015
2016
2017         /* file exists? */
2018         if ( vfsGetFileCount( "scripts/custinfoparms.txt" ) == 0 ) {
2019                 return;
2020         }
2021
2022         /* load it */
2023         LoadScriptFile( "scripts/custinfoparms.txt", 0 );
2024
2025         /* clear the array */
2026         memset( custSurfaceParms, 0, sizeof( custSurfaceParms ) );
2027         numCustSurfaceParms = 0;
2028         parsedContent = parsedSurface = qfalse;
2029
2030         /* parse custom contentflags */
2031         MatchToken( "{" );
2032         while ( 1 )
2033         {
2034                 if ( !GetToken( qtrue ) ) {
2035                         break;
2036                 }
2037
2038                 if ( !strcmp( token, "}" ) ) {
2039                         parsedContent = qtrue;
2040                         break;
2041                 }
2042
2043                 custSurfaceParms[ numCustSurfaceParms ].name = safe_malloc( MAX_OS_PATH );
2044                 strcpy( custSurfaceParms[ numCustSurfaceParms ].name, token );
2045                 GetToken( qfalse );
2046                 sscanf( token, "%x", (unsigned int *) &custSurfaceParms[ numCustSurfaceParms ].contentFlags );
2047                 numCustSurfaceParms++;
2048         }
2049
2050         /* any content? */
2051         if ( !parsedContent ) {
2052                 Sys_FPrintf( SYS_WRN, "WARNING: Couldn't find valid custom contentsflag section\n" );
2053                 return;
2054         }
2055
2056         /* parse custom surfaceflags */
2057         MatchToken( "{" );
2058         while ( 1 )
2059         {
2060                 if ( !GetToken( qtrue ) ) {
2061                         break;
2062                 }
2063
2064                 if ( !strcmp( token, "}" ) ) {
2065                         parsedSurface = qtrue;
2066                         break;
2067                 }
2068
2069                 custSurfaceParms[ numCustSurfaceParms ].name = safe_malloc( MAX_OS_PATH );
2070                 strcpy( custSurfaceParms[ numCustSurfaceParms ].name, token );
2071                 GetToken( qfalse );
2072                 sscanf( token, "%x", (unsigned int *) &custSurfaceParms[ numCustSurfaceParms ].surfaceFlags );
2073                 numCustSurfaceParms++;
2074         }
2075
2076         /* any content? */
2077         if ( !parsedContent ) {
2078                 Sys_FPrintf( SYS_WRN, "WARNING: Couldn't find valid custom surfaceflag section\n" );
2079         }
2080 }
2081
2082
2083
2084 /*
2085    LoadShaderInfo()
2086    the shaders are parsed out of shaderlist.txt from a main directory
2087    that is, if using -fs_game we ignore the shader scripts that might be in baseq3/
2088    on linux there's an additional twist, we actually merge the stuff from ~/.q3a/ and from the base dir
2089  */
2090
2091 #define MAX_SHADER_FILES    1024
2092
2093 void LoadShaderInfo( void ){
2094         int i, j, numShaderFiles, count;
2095         char filename[ 1024 ];
2096         char            *shaderFiles[ MAX_SHADER_FILES ];
2097
2098
2099         /* rr2do2: parse custom infoparms first */
2100         if ( useCustomInfoParms ) {
2101                 ParseCustomInfoParms();
2102         }
2103
2104         /* start with zero */
2105         numShaderFiles = 0;
2106
2107         /* we can pile up several shader files, the one in baseq3 and ones in the mod dir or other spots */
2108         sprintf( filename, "%s/shaderlist.txt", game->shaderPath );
2109         count = vfsGetFileCount( filename );
2110
2111         /* load them all */
2112         for ( i = 0; i < count; i++ )
2113         {
2114                 /* load shader list */
2115                 sprintf( filename, "%s/shaderlist.txt", game->shaderPath );
2116                 LoadScriptFile( filename, i );
2117
2118                 /* parse it */
2119                 while ( GetToken( qtrue ) )
2120                 {
2121                         /* check for duplicate entries */
2122                         for ( j = 0; j < numShaderFiles; j++ )
2123                                 if ( !strcmp( shaderFiles[ j ], token ) ) {
2124                                         break;
2125                                 }
2126
2127                         /* test limit */
2128                         if ( j >= MAX_SHADER_FILES ) {
2129                                 Error( "MAX_SHADER_FILES (%d) reached, trim your shaderlist.txt!", (int) MAX_SHADER_FILES );
2130                         }
2131
2132                         /* new shader file */
2133                         if ( j == numShaderFiles ) {
2134                                 shaderFiles[ numShaderFiles ] = safe_malloc( MAX_OS_PATH );
2135                                 strcpy( shaderFiles[ numShaderFiles ], token );
2136                                 numShaderFiles++;
2137                         }
2138                 }
2139         }
2140
2141         /* parse the shader files */
2142         for ( i = 0; i < numShaderFiles; i++ )
2143         {
2144                 sprintf( filename, "%s/%s.shader", game->shaderPath, shaderFiles[ i ] );
2145                 ParseShaderFile( filename );
2146                 free( shaderFiles[ i ] );
2147         }
2148
2149         /* emit some statistics */
2150         Sys_FPrintf( SYS_VRB, "%9d shaderInfo\n", numShaderInfo );
2151 }