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