Ucode00.h

   1 /*
   2 * Glide64 - Glide video plugin for Nintendo 64 emulators.
   3 * Copyright (c) 2002  Dave2001
   4 *
   5 * This program is free software; you can redistribute it and/or modify
   6 * it under the terms of the GNU General Public License as published by
   7 * the Free Software Foundation; either version 2 of the License, or
   8 * any later version.
   9 *
  10 * This program is distributed in the hope that it will be useful,
  11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 * GNU General Public License for more details.
  14 *
  15 * You should have received a copy of the GNU General Public License
  16 * along with this program; if not, write to the Free Software
  17 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18 */
  19
  20 //****************************************************************
  21 //
  22 // Glide64 - Glide Plugin for Nintendo 64 emulators (tested mostly with Project64)
  23 // Project started on December 29th, 2001
  24 //
  25 // To modify Glide64:
  26 // * Write your name and (optional)email, commented by your work, so I know who did it, and so that you can find which parts you modified when it comes time to send it to me.
  27 // * Do NOT send me the whole project or file that you modified.  Take out your modified code sections, and tell me where to put them.  If people sent the whole thing, I would have many different versions, but no idea how to combine them all.
  28 //
  29 // Official Glide64 development channel: #Glide64 on EFnet
  30 //
  31 // Original author: Dave2001 (Dave2999@hotmail.com)
  32 // Other authors: Gonetz, Gugaman
  33 //
  34 //****************************************************************
  35
  36 #include <string.h>
  37 #ifdef GCC
  38 #include <stdint.h>
  39 #define __int32 int32_t
  40 #endif
  41
  42 static void uc0_enddl();
  43
  44 // ** Definitions **
  45
  46 //
  47 // matrix functions ***** SWITCH TO POINTERS LATER ******
  48 //
  49
  50 void modelview_load (float m[4][4])
  51 {
  52   memcpy (rdp.model, m, 64);  // 4*4*4(float)
  53
  54   rdp.update |= UPDATE_MULT_MAT | UPDATE_LIGHTS;
  55 }
  56
  57 void modelview_mul (float m[4][4])
  58 {
  59   __declspec( align(16) ) float m_src[4][4];
  60   memcpy (m_src, rdp.model, 64);
  61   MulMatrices(m, m_src, rdp.model);
  62   rdp.update |= UPDATE_MULT_MAT | UPDATE_LIGHTS;
  63 }
  64
  65 void modelview_push ()
  66 {
  67   if (rdp.model_i == rdp.model_stack_size)
  68   {
  69     RDP_E ("** Model matrix stack overflow ** too many pushes\n");
  70     RDP ("** Model matrix stack overflow ** too many pushes\n");
  71     return;
  72   }
  73
  74   memcpy (rdp.model_stack[rdp.model_i], rdp.model, 64);
  75   rdp.model_i ++;
  76 }
  77
  78 void modelview_pop (int num = 1)
  79 {
  80   if (rdp.model_i > num - 1)
  81   {
  82          rdp.model_i -= num;
  83   }
  84   else
  85   {
  86     RDP_E ("** Model matrix stack error ** too many pops\n");
  87     RDP ("** Model matrix stack error ** too many pops\n");
  88     return;
  89   }
  90   memcpy (rdp.model, rdp.model_stack[rdp.model_i], 64);
  91   rdp.update |= UPDATE_MULT_MAT | UPDATE_LIGHTS;
  92 }
  93
  94 void modelview_load_push (float m[4][4])
  95 {
  96   modelview_push ();
  97   modelview_load (m);
  98 }
  99
 100 void modelview_mul_push (float m[4][4])
 101 {
 102   modelview_push ();
 103   modelview_mul (m);
 104 }
 105
 106 void projection_load (float m[4][4])
 107 {
 108   memcpy (rdp.proj, m, 64); // 4*4*4(float)
 109
 110   rdp.update |= UPDATE_MULT_MAT;
 111 }
 112
 113 void projection_mul (float m[4][4])
 114 {
 115   __declspec( align(16) ) float m_src[4][4];
 116   memcpy (m_src, rdp.proj, 64);
 117   MulMatrices(m, m_src, rdp.proj);
 118   rdp.update |= UPDATE_MULT_MAT;
 119 }
 120
 121 //
 122 // uc0:matrix - performs matrix operations
 123 //
 124
 125 static void uc0_matrix()
 126 {
 127   RDP("uc0:matrix ");
 128
 129   // Use segment offset to get the address
 130   DWORD addr = segoffset(rdp.cmd1) & 0x00FFFFFF;
 131   BYTE command = (BYTE)((rdp.cmd0 >> 16) & 0xFF);
 132
 133   __declspec( align(16) ) float m[4][4];
 134   int x,y;  // matrix index
 135
 136   addr >>= 1;
 137
 138   for (x=0; x<16; x+=4) { // Adding 4 instead of one, just to remove mult. later
 139     for (y=0; y<4; y++) {
 140       m[x>>2][y] = (float)(
 141         (((__int32)((WORD*)gfx.RDRAM)[(addr+x+y)^1]) << 16) |
 142         ((WORD*)gfx.RDRAM)[(addr+x+y+16)^1]
 143         ) / 65536.0f;
 144     }
 145   }
 146
 147   switch (command)
 148   {
 149   case 0: // modelview mul nopush
 150     RDP ("modelview mul\n");
 151     modelview_mul (m);
 152     break;
 153
 154   case 1: // projection mul nopush
 155   case 5: // projection mul push, can't push projection
 156     RDP ("projection mul\n");
 157     projection_mul (m);
 158     break;
 159
 160   case 2: // modelview load nopush
 161     RDP ("modelview load\n");
 162     modelview_load (m);
 163     break;
 164
 165   case 3: // projection load nopush
 166   case 7: // projection load push, can't push projection
 167     RDP ("projection load\n");
 168     projection_load (m);
 169
 170     break;
 171
 172   case 4: // modelview mul push
 173     RDP ("modelview mul push\n");
 174     modelview_mul_push (m);
 175     break;
 176
 177   case 6: // modelview load push
 178     RDP ("modelview load push\n");
 179     modelview_load_push (m);
 180     break;
 181
 182   default:
 183     FRDP_E ("Unknown matrix command, %02lx", command);
 184     FRDP ("Unknown matrix command, %02lx", command);
 185   }
 186
 187 #ifdef EXTREME_LOGGING
 188   FRDP ("{%f,%f,%f,%f}\n", m[0][0], m[0][1], m[0][2], m[0][3]);
 189   FRDP ("{%f,%f,%f,%f}\n", m[1][0], m[1][1], m[1][2], m[1][3]);
 190   FRDP ("{%f,%f,%f,%f}\n", m[2][0], m[2][1], m[2][2], m[2][3]);
 191   FRDP ("{%f,%f,%f,%f}\n", m[3][0], m[3][1], m[3][2], m[3][3]);
 192   FRDP ("\nmodel\n{%f,%f,%f,%f}\n", rdp.model[0][0], rdp.model[0][1], rdp.model[0][2], rdp.model[0][3]);
 193   FRDP ("{%f,%f,%f,%f}\n", rdp.model[1][0], rdp.model[1][1], rdp.model[1][2], rdp.model[1][3]);
 194   FRDP ("{%f,%f,%f,%f}\n", rdp.model[2][0], rdp.model[2][1], rdp.model[2][2], rdp.model[2][3]);
 195   FRDP ("{%f,%f,%f,%f}\n", rdp.model[3][0], rdp.model[3][1], rdp.model[3][2], rdp.model[3][3]);
 196   FRDP ("\nproj\n{%f,%f,%f,%f}\n", rdp.proj[0][0], rdp.proj[0][1], rdp.proj[0][2], rdp.proj[0][3]);
 197   FRDP ("{%f,%f,%f,%f}\n", rdp.proj[1][0], rdp.proj[1][1], rdp.proj[1][2], rdp.proj[1][3]);
 198   FRDP ("{%f,%f,%f,%f}\n", rdp.proj[2][0], rdp.proj[2][1], rdp.proj[2][2], rdp.proj[2][3]);
 199   FRDP ("{%f,%f,%f,%f}\n", rdp.proj[3][0], rdp.proj[3][1], rdp.proj[3][2], rdp.proj[3][3]);
 200 #endif
 201 }
 202
 203 //
 204 // uc0:movemem - loads a structure with data
 205 //
 206
 207 static void uc0_movemem()
 208 {
 209   RDP("uc0:movemem ");
 210
 211   DWORD i,a;
 212
 213   // Check the command
 214   switch ((rdp.cmd0 >> 16) & 0xFF)
 215   {
 216   case 0x80:
 217     {
 218     a = (segoffset(rdp.cmd1) & 0xFFFFFF) >> 1;
 219
 220     short scale_x = ((short*)gfx.RDRAM)[(a+0)^1] / 4;
 221     short scale_y = ((short*)gfx.RDRAM)[(a+1)^1] / 4;
 222     short scale_z  = ((short*)gfx.RDRAM)[(a+2)^1];
 223     short trans_x = ((short*)gfx.RDRAM)[(a+4)^1] / 4;
 224     short trans_y = ((short*)gfx.RDRAM)[(a+5)^1] / 4;
 225     short trans_z = ((short*)gfx.RDRAM)[(a+6)^1];
 226     rdp.view_scale[0] = scale_x * rdp.scale_x;
 227     rdp.view_scale[1] = -scale_y * rdp.scale_y;
 228       rdp.view_scale[2] = 32.0f * scale_z;
 229     rdp.view_trans[0] = trans_x * rdp.scale_x + rdp.offset_x;
 230     rdp.view_trans[1] = trans_y * rdp.scale_y + rdp.offset_y;
 231       rdp.view_trans[2] = 32.0f * trans_z;
 232
 233     // there are other values than x and y, but I don't know what they do
 234
 235     rdp.update |= UPDATE_VIEWPORT;
 236
 237       FRDP ("viewport scale(%d, %d, %d), trans(%d, %d, %d), from:%08lx\n", scale_x, scale_y, scale_z,
 238         trans_x, trans_y, trans_z, rdp.cmd1);
 239     }
 240     break;
 241
 242   case 0x82:
 243     {
 244       a = segoffset(rdp.cmd1) & 0x00ffffff;
 245       char dir_x = ((char*)gfx.RDRAM)[(a+8)^3];
 246       rdp.lookat[1][0] = (float)(dir_x) / 127.0f;
 247       char dir_y = ((char*)gfx.RDRAM)[(a+9)^3];
 248       rdp.lookat[1][1] = (float)(dir_y) / 127.0f;
 249       char dir_z = ((char*)gfx.RDRAM)[(a+10)^3];
 250       rdp.lookat[1][2] = (float)(dir_z) / 127.0f;
 251       if (!dir_x && !dir_y)
 252         rdp.use_lookat = FALSE;
 253       else
 254         rdp.use_lookat = TRUE;
 255       FRDP("lookat_y (%f, %f, %f)\n", rdp.lookat[1][0], rdp.lookat[1][1], rdp.lookat[1][2]);
 256     }
 257     break;
 258
 259   case 0x84:
 260     a = segoffset(rdp.cmd1) & 0x00ffffff;
 261     rdp.lookat[0][0] = (float)(((char*)gfx.RDRAM)[(a+8)^3]) / 127.0f;
 262     rdp.lookat[0][1] = (float)(((char*)gfx.RDRAM)[(a+9)^3]) / 127.0f;
 263     rdp.lookat[0][2] = (float)(((char*)gfx.RDRAM)[(a+10)^3]) / 127.0f;
 264     rdp.use_lookat = TRUE;
 265     FRDP("lookat_x (%f, %f, %f)\n", rdp.lookat[1][0], rdp.lookat[1][1], rdp.lookat[1][2]);
 266     break;
 267
 268   case 0x86:
 269   case 0x88:
 270   case 0x8a:
 271   case 0x8c:
 272   case 0x8e:
 273   case 0x90:
 274   case 0x92:
 275   case 0x94:
 276     // Get the light #
 277     i = (((rdp.cmd0 >> 16) & 0xff) - 0x86) >> 1;
 278     a = segoffset(rdp.cmd1) & 0x00ffffff;
 279
 280     // Get the data
 281     rdp.light[i].r = (float)(((BYTE*)gfx.RDRAM)[(a+0)^3]) / 255.0f;
 282     rdp.light[i].g = (float)(((BYTE*)gfx.RDRAM)[(a+1)^3]) / 255.0f;
 283     rdp.light[i].b = (float)(((BYTE*)gfx.RDRAM)[(a+2)^3]) / 255.0f;
 284     rdp.light[i].a = 1.0f;
 285     // ** Thanks to Icepir8 for pointing this out **
 286     // Lighting must be signed byte instead of byte
 287     rdp.light[i].dir_x = (float)(((char*)gfx.RDRAM)[(a+8)^3]) / 127.0f;
 288     rdp.light[i].dir_y = (float)(((char*)gfx.RDRAM)[(a+9)^3]) / 127.0f;
 289     rdp.light[i].dir_z = (float)(((char*)gfx.RDRAM)[(a+10)^3]) / 127.0f;
 290     // **
 291
 292     //rdp.update |= UPDATE_LIGHTS;
 293
 294     FRDP ("light: n: %d, r: %.3f, g: %.3f, b: %.3f, x: %.3f, y: %.3f, z: %.3f\n",
 295       i, rdp.light[i].r, rdp.light[i].g, rdp.light[i].b,
 296       rdp.light_vector[i][0], rdp.light_vector[i][1], rdp.light_vector[i][2]);
 297     break;
 298
 299
 300   case 0x9E:  //gSPForceMatrix command. Modification of uc2_movemem:matrix. Gonetz.
 301     {
 302       // do not update the combined matrix!
 303       rdp.update &= ~UPDATE_MULT_MAT;
 304
 305       int x,y;
 306           DWORD addr = segoffset(rdp.cmd1) & 0x00FFFFFF;
 307       FRDP ("matrix addr: %08lx\n", addr);
 308       addr >>= 1;
 309
 310           DWORD a = rdp.pc[rdp.pc_i] & BMASK;
 311           rdp.pc[rdp.pc_i] = (a+24) & BMASK; //skip next 3 command, b/c they all are part of gSPForceMatrix
 312
 313       for (x=0; x<16; x+=4) { // Adding 4 instead of one, just to remove mult. later
 314
 315         for (y=0; y<4; y++) {
 316           rdp.combined[x>>2][y] = (float)(
 317                 (((__int32)((WORD*)gfx.RDRAM)[(addr+x+y)^1]) << 16) |
 318                 ((WORD*)gfx.RDRAM)[(addr+x+y+16)^1]
 319                 ) / 65536.0f;
 320         }
 321       }
 322
 323 #ifdef EXTREME_LOGGING
 324       FRDP ("{%f,%f,%f,%f}\n", rdp.combined[0][0], rdp.combined[0][1], rdp.combined[0][2], rdp.combined[0][3]);
 325       FRDP ("{%f,%f,%f,%f}\n", rdp.combined[1][0], rdp.combined[1][1], rdp.combined[1][2], rdp.combined[1][3]);
 326       FRDP ("{%f,%f,%f,%f}\n", rdp.combined[2][0], rdp.combined[2][1], rdp.combined[2][2], rdp.combined[2][3]);
 327       FRDP ("{%f,%f,%f,%f}\n", rdp.combined[3][0], rdp.combined[3][1], rdp.combined[3][2], rdp.combined[3][3]);
 328 #endif
 329     }
 330     break;
 331
 332         //next 3 command should never appear since they will be skipped in previous command
 333   case 0x98:
 334     RDP_E ("uc0:movemem matrix 0 - ERROR!\n");
 335     RDP ("matrix 0 - IGNORED\n");
 336     break;
 337
 338   case 0x9A:
 339     RDP_E ("uc0:movemem matrix 1 - ERROR!\n");
 340     RDP ("matrix 1 - IGNORED\n");
 341     break;
 342
 343   case 0x9C:
 344     RDP_E ("uc0:movemem matrix 2 - ERROR!\n");
 345     RDP ("matrix 2 - IGNORED\n");
 346     break;
 347
 348   default:
 349     FRDP_E ("uc0:movemem unknown (index: 0x%08lx)\n", (rdp.cmd0 >> 16) & 0xFF);
 350     FRDP ("unknown (index: 0x%08lx)\n", (rdp.cmd0 >> 16) & 0xFF);
 351   }
 352 }
 353
 354 //
 355 // uc0:vertex - loads vertices
 356 //
 357
 358 static void uc0_vertex()
 359 {
 360   DWORD addr = segoffset(rdp.cmd1) & 0x00FFFFFF;
 361   int v0, i, n;
 362   float x, y, z;
 363
 364   rdp.v0 = v0 = (rdp.cmd0 >> 16) & 0xF;      // Current vertex
 365   rdp.vn = n = ((rdp.cmd0 >> 20) & 0xF) + 1; // Number of vertices to copy
 366
 367   FRDP("uc0:vertex: v0: %d, n: %d\n", v0, n);
 368
 369   // This is special, not handled in update(), but here
 370   // * Matrix Pre-multiplication idea by Gonetz (Gonetz@ngs.ru)
 371   if (rdp.update & UPDATE_MULT_MAT)
 372   {
 373     rdp.update ^= UPDATE_MULT_MAT;
 374     MulMatrices(rdp.model, rdp.proj, rdp.combined);
 375   }
 376   // *
 377
 378   // This is special, not handled in update()
 379   if (rdp.update & UPDATE_LIGHTS)
 380   {
 381     rdp.update ^= UPDATE_LIGHTS;
 382
 383     // Calculate light vectors
 384     for (DWORD l=0; l<rdp.num_lights; l++)
 385     {
 386       InverseTransformVector(&rdp.light[l].dir_x, rdp.light_vector[l], rdp.model);
 387       NormalizeVector (rdp.light_vector[l]);
 388     }
 389   }
 390
 391   for (i=0; i < (n<<4); i+=16)
 392   {
 393     VERTEX *v = &rdp.vtx[v0 + (i>>4)];
 394     x   = (float)((short*)gfx.RDRAM)[(((addr+i) >> 1) + 0)^1];
 395     y   = (float)((short*)gfx.RDRAM)[(((addr+i) >> 1) + 1)^1];
 396     z   = (float)((short*)gfx.RDRAM)[(((addr+i) >> 1) + 2)^1];
 397     v->flags  = ((WORD*)gfx.RDRAM)[(((addr+i) >> 1) + 3)^1];
 398     v->ou   = (float)((short*)gfx.RDRAM)[(((addr+i) >> 1) + 4)^1] * rdp.tiles[rdp.cur_tile].s_scale;
 399     v->ov   = (float)((short*)gfx.RDRAM)[(((addr+i) >> 1) + 5)^1] * rdp.tiles[rdp.cur_tile].t_scale;
 400     v->a    = ((BYTE*)gfx.RDRAM)[(addr+i + 15)^3];
 401
 402     v->x = x*rdp.combined[0][0] + y*rdp.combined[1][0] + z*rdp.combined[2][0] + rdp.combined[3][0];
 403     v->y = x*rdp.combined[0][1] + y*rdp.combined[1][1] + z*rdp.combined[2][1] + rdp.combined[3][1];
 404     v->z = x*rdp.combined[0][2] + y*rdp.combined[1][2] + z*rdp.combined[2][2] + rdp.combined[3][2];
 405     v->w = x*rdp.combined[0][3] + y*rdp.combined[1][3] + z*rdp.combined[2][3] + rdp.combined[3][3];
 406
 407 #ifdef EXTREME_LOGGING
 408     FRDP ("v%d - x: %f, y: %f, z: %f, u: %f, v: %f\n", i>>4, v->x, v->y, v->z, v->ou, v->ov);
 409 #endif
 410
 411     v->oow = 1.0f / v->w;
 412     v->x_w = v->x * v->oow;
 413     v->y_w = v->y * v->oow;
 414     v->z_w = v->z * v->oow;
 415     CalculateFog (v);
 416
 417     v->uv_calculated = 0xFFFFFFFF;
 418     v->screen_translated = 0;
 419         v->shade_mods_allowed = 1;
 420
 421     v->scr_off = 0;
 422     if (v->x < -v->w) v->scr_off |= 1;
 423     if (v->x > v->w) v->scr_off |= 2;
 424     if (v->y < -v->w) v->scr_off |= 4;
 425     if (v->y > v->w) v->scr_off |= 8;
 426     if (v->w < 0.1f) v->scr_off |= 16;
 427
 428     if (rdp.geom_mode & 0x00020000)
 429     {
 430       v->vec[0] = ((char*)gfx.RDRAM)[(addr+i + 12)^3];
 431       v->vec[1] = ((char*)gfx.RDRAM)[(addr+i + 13)^3];
 432       v->vec[2] = ((char*)gfx.RDRAM)[(addr+i + 14)^3];
 433       if (rdp.geom_mode & 0x80000) calc_linear (v);
 434       else if (rdp.geom_mode & 0x40000) calc_sphere (v);
 435       NormalizeVector (v->vec);
 436
 437       calc_light (v);
 438     }
 439     else
 440     {
 441       v->r = ((BYTE*)gfx.RDRAM)[(addr+i + 12)^3];
 442       v->g = ((BYTE*)gfx.RDRAM)[(addr+i + 13)^3];
 443       v->b = ((BYTE*)gfx.RDRAM)[(addr+i + 14)^3];
 444     }
 445   }
 446 }
 447
 448 //
 449 // uc0:displaylist - makes a call to another section of code
 450 //
 451
 452 static void uc0_displaylist()
 453 {
 454   DWORD addr = segoffset(rdp.cmd1) & 0x00FFFFFF;
 455
 456   // This fixes partially Gauntlet: Legends
 457   if (addr == rdp.pc[rdp.pc_i] - 8) { RDP ("display list not executed!\n"); return; }
 458
 459   DWORD push = (rdp.cmd0 >> 16) & 0xFF; // push the old location?
 460
 461   FRDP("uc0:displaylist: %08lx, push:%s", addr, push?"no":"yes");
 462   FRDP(" (seg %d, offset %08lx)\n", (rdp.cmd1>>24)&0x0F, rdp.cmd1&0x00FFFFFF);
 463
 464   switch (push)
 465   {
 466   case 0: // push
 467     if (rdp.pc_i >= 9) {
 468       RDP_E ("** DL stack overflow **");
 469       RDP ("** DL stack overflow **\n");
 470       return;
 471     }
 472     rdp.pc_i ++;  // go to the next PC in the stack
 473     rdp.pc[rdp.pc_i] = addr;  // jump to the address
 474     break;
 475
 476   case 1: // no push
 477     rdp.pc[rdp.pc_i] = addr;  // just jump to the address
 478     break;
 479
 480   default:
 481     RDP_E("Unknown displaylist operation\n");
 482     RDP ("Unknown displaylist operation\n");
 483   }
 484 }
 485
 486 //
 487 // tri1 - renders a triangle
 488 //
 489
 490 static void uc0_tri1()
 491 {
 492   FRDP("uc0:tri1 #%d - %d, %d, %d\n", rdp.tri_n,
 493     ((rdp.cmd1>>16) & 0xFF) / 10,
 494     ((rdp.cmd1>>8) & 0xFF) / 10,
 495     (rdp.cmd1 & 0xFF) / 10);
 496
 497   VERTEX *v[3] = {
 498     &rdp.vtx[((rdp.cmd1 >> 16) & 0xFF) / 10],
 499     &rdp.vtx[((rdp.cmd1 >> 8) & 0xFF) / 10],
 500     &rdp.vtx[(rdp.cmd1 & 0xFF) / 10]
 501   };
 502   if (cull_tri(v))
 503     rdp.tri_n ++;
 504   else
 505   {
 506     update ();
 507     DrawTri (v);
 508     rdp.tri_n ++;
 509   }
 510 }
 511
 512 static void uc0_culldl()
 513 {
 514   BYTE vStart = (BYTE)((rdp.cmd0 & 0x00FFFFFF) / 40) & 0xF;
 515   BYTE vEnd = (BYTE)(rdp.cmd1 / 40) & 0x0F;
 516   DWORD cond = 0;
 517   VERTEX *v;
 518
 519   FRDP("uc0:culldl start: %d, end: %d\n", vStart, vEnd);
 520
 521   if (vEnd < vStart) return;
 522   for (WORD i=vStart; i<=vEnd; i++)
 523   {
 524     v = &rdp.vtx[i];
 525     // Check if completely off the screen (quick frustrum clipping for 90 FOV)
 526     if (v->x >= -v->w)
 527       cond |= 0x01;
 528     if (v->x <= v->w)
 529       cond |= 0x02;
 530     if (v->y >= -v->w)
 531       cond |= 0x04;
 532     if (v->y <= v->w)
 533       cond |= 0x08;
 534     if (v->w >= 0.1f)
 535       cond |= 0x10;
 536
 537     if (cond == 0x1F)
 538       return;
 539   }
 540
 541   RDP (" - ");  // specify that the enddl is not a real command
 542   uc0_enddl ();
 543 }
 544
 545 static void uc0_popmatrix()
 546 {
 547   RDP("uc0:popmatrix\n");
 548
 549   DWORD param = rdp.cmd1;
 550
 551   switch (param)
 552   {
 553   case 0: // modelview
 554     modelview_pop ();
 555     break;
 556
 557   case 1: // projection, can't
 558     break;
 559
 560   default:
 561     FRDP_E ("Unknown uc0:popmatrix command: 0x%08lx\n", param);
 562     FRDP ("Unknown uc0:popmatrix command: 0x%08lx\n", param);
 563   }
 564 }
 565
 566 void uc6_obj_sprite ();
 567
 568 static void uc0_modifyvtx(BYTE where, WORD vtx, DWORD val)
 569 {
 570   VERTEX *v = &rdp.vtx[vtx];
 571
 572   switch (where)
 573   {
 574   case 0:
 575     uc6_obj_sprite ();
 576     break;
 577
 578   case 0x10:    // RGBA
 579     v->r = (BYTE)(val >> 24);
 580     v->g = (BYTE)((val >> 16) & 0xFF);
 581     v->b = (BYTE)((val >> 8) & 0xFF);
 582     v->a = (BYTE)(val & 0xFF);
 583         v->shade_mods_allowed = 1;
 584
 585     FRDP ("RGBA: %d, %d, %d, %d\n", v->r, v->g, v->b, v->a);
 586     break;
 587
 588   case 0x14:    // ST
 589     v->ou = (float)((short)(val>>16)) / 32.0f;
 590     v->ov = (float)((short)(val&0xFFFF)) / 32.0f;
 591     v->uv_calculated = 0xFFFFFFFF;
 592         v->uv_fixed = 0;
 593
 594     FRDP ("u/v: (%04lx, %04lx), (%f, %f)\n", (short)(val>>16), (short)(val&0xFFFF),
 595       v->ou, v->ov);
 596     break;
 597
 598   case 0x18:    // XY screen
 599     {
 600     float scr_x = (float)((short)(val>>16)) / 4.0f;
 601     float scr_y = (float)((short)(val&0xFFFF)) / 4.0f;
 602     v->screen_translated = 1;
 603     v->sx = scr_x * rdp.scale_x;
 604     v->sy = scr_y * rdp.scale_y;
 605       if (v->w < 0.01f)
 606       {
 607         v->w = 1.0f;
 608         v->oow = 1.0f;
 609         v->z_w = 1.0f;
 610       }
 611       v->sz = rdp.view_trans[2] + v->z_w * rdp.view_scale[2];
 612
 613     v->scr_off = 0;
 614     if (scr_x < 0) v->scr_off |= 1;
 615     if (scr_x > rdp.vi_width) v->scr_off |= 2;
 616     if (scr_y < 0) v->scr_off |= 4;
 617     if (scr_y > rdp.vi_height) v->scr_off |= 8;
 618     if (v->w < 0.1f) v->scr_off |= 16;
 619
 620     FRDP ("x/y: (%f, %f)\n", scr_x, scr_y);
 621     }
 622     break;
 623
 624   case 0x1C:    // Z screen
 625         {
 626       float scr_z = (float)((short)(val>>16));
 627     v->z_w = (scr_z - rdp.view_trans[2]) / rdp.view_scale[2];
 628     v->z = v->z_w * v->w;
 629     FRDP ("z: %f\n", scr_z);
 630         }
 631     break;
 632
 633   default:
 634     RDP("UNKNOWN\n");
 635     break;
 636   }
 637 }
 638
 639 //
 640 // uc0:moveword - moves a word to someplace, like the segment pointers
 641 //
 642
 643 static void uc0_moveword()
 644 {
 645   RDP("uc0:moveword ");
 646
 647   // Find which command this is (lowest byte of cmd0)
 648   switch (rdp.cmd0 & 0xFF)
 649   {
 650   case 0x00:
 651     RDP_E ("uc0:moveword matrix - IGNORED\n");
 652     RDP ("matrix - IGNORED\n");
 653     break;
 654
 655   case 0x02:
 656     rdp.num_lights = ((rdp.cmd1 - 0x80000000) >> 5) - 1;  // inverse of equation
 657     if (rdp.num_lights > 8) rdp.num_lights = 0;
 658
 659     rdp.update |= UPDATE_LIGHTS;
 660     FRDP ("numlights: %d\n", rdp.num_lights);
 661     break;
 662
 663   case 0x04:
 664     FRDP ("clip %08lx, %08lx\n", rdp.cmd0, rdp.cmd1);
 665     break;
 666
 667   case 0x06:  // segment
 668     FRDP ("segment: %08lx -> seg%d\n", rdp.cmd1, (rdp.cmd0 >> 10) & 0x0F);
 669     if ((rdp.cmd1&BMASK)<BMASK)
 670       rdp.segment[(rdp.cmd0 >> 10) & 0x0F] = rdp.cmd1;
 671     break;
 672
 673   case 0x08:
 674     {
 675       rdp.fog_multiplier = (short)(rdp.cmd1 >> 16);
 676       rdp.fog_offset = (short)(rdp.cmd1 & 0x0000FFFF);
 677       FRDP ("fog: multiplier: %f, offset: %f\n", rdp.fog_multiplier, rdp.fog_offset);
 678     }
 679     break;
 680
 681   case 0x0a:  // moveword LIGHTCOL
 682     {
 683       int n = (rdp.cmd0&0xE000) >> 13;
 684       FRDP ("lightcol light:%d, %08lx\n", n, rdp.cmd1);
 685
 686       rdp.light[n].r = (float)((rdp.cmd1 >> 24) & 0xFF) / 255.0f;
 687       rdp.light[n].g = (float)((rdp.cmd1 >> 16) & 0xFF) / 255.0f;
 688       rdp.light[n].b = (float)((rdp.cmd1 >> 8) & 0xFF) / 255.0f;
 689       rdp.light[n].a = 255;
 690     }
 691     break;
 692
 693   case 0x0c:
 694     {
 695     WORD val = (WORD)((rdp.cmd0 >> 8) & 0xFFFF);
 696     WORD vtx = val / 40;
 697     BYTE where = val%40;
 698     uc0_modifyvtx(where, vtx, rdp.cmd1);
 699     FRDP ("uc0:modifyvtx: vtx: %d, where: 0x%02lx, val: %08lx - ", vtx, where, rdp.cmd1);
 700     }
 701     break;
 702
 703   case 0x0e:
 704     RDP ("perspnorm - IGNORED\n");
 705     break;
 706
 707   default:
 708     FRDP_E ("uc0:moveword unknown (index: 0x%08lx)\n", rdp.cmd0 & 0xFF);
 709     FRDP ("unknown (index: 0x%08lx)\n", rdp.cmd0 & 0xFF);
 710   }
 711 }
 712
 713 static void uc0_texture()
 714 {
 715   int tile = (rdp.cmd0 >> 8) & 0x07;
 716   rdp.mipmap_level = (rdp.cmd0 >> 11) & 0x07;
 717   DWORD on = (rdp.cmd0 & 0xFF);
 718
 719   if (on)
 720   {
 721     rdp.cur_tile = tile;
 722
 723     WORD s = (WORD)((rdp.cmd1 >> 16) & 0xFFFF);
 724     WORD t = (WORD)(rdp.cmd1 & 0xFFFF);
 725
 726     TILE *tmp_tile = &rdp.tiles[tile];
 727     tmp_tile->on = (BYTE)on;
 728     tmp_tile->org_s_scale = s;
 729     tmp_tile->org_t_scale = t;
 730     tmp_tile->s_scale = (float)(s+1)/65536.0f;
 731     tmp_tile->t_scale = (float)(t+1)/65536.0f;
 732     tmp_tile->s_scale /= 32.0f;
 733         tmp_tile->t_scale /= 32.0f;
 734
 735     rdp.update |= UPDATE_TEXTURE;
 736
 737     FRDP("uc0:texture: tile: %d, mipmap_lvl: %d, on: %d, s_scale: %f, t_scale: %f\n",
 738       tile, rdp.mipmap_level, on, tmp_tile->s_scale, tmp_tile->t_scale);
 739   }
 740   else
 741   {
 742     RDP("uc0:texture skipped b/c of off\n");
 743   }
 744 }
 745
 746
 747 static void uc0_setothermode_h()
 748 {
 749   RDP ("uc0:setothermode_h: ");
 750
 751   int shift, len;
 752   if ((settings.ucode == 2) || (settings.ucode == 8))
 753   {
 754     len = (rdp.cmd0 & 0xFF) + 1;
 755     shift = 32 - ((rdp.cmd0 >> 8) & 0xFF) - len;
 756   }
 757   else
 758   {
 759     shift = (rdp.cmd0 >> 8) & 0xFF;
 760     len = rdp.cmd0 & 0xFF;
 761   }
 762
 763   DWORD mask = 0;
 764   int i = len;
 765   for (; i; i--)
 766     mask = (mask << 1) | 1;
 767   mask <<= shift;
 768
 769   rdp.cmd1 &= mask;
 770   rdp.othermode_h &= ~mask;
 771   rdp.othermode_h |= rdp.cmd1;
 772
 773   if (mask & 0x00003000)  // filter mode
 774   {
 775     rdp.filter_mode = (int)((rdp.othermode_h & 0x00003000) >> 12);
 776     rdp.update |= UPDATE_TEXTURE;
 777     FRDP ("filter mode: %s\n", str_filter[rdp.filter_mode]);
 778   }
 779
 780   if (mask & 0x0000C000)  // tlut mode
 781   {
 782     rdp.tlut_mode = (BYTE)((rdp.othermode_h & 0x0000C000) >> 14);
 783     FRDP ("tlut mode: %s\n", str_tlut[rdp.tlut_mode]);
 784   }
 785
 786   if (mask & 0x00300000)  // cycle type
 787   {
 788     rdp.cycle_mode = (BYTE)((rdp.othermode_h & 0x00300000) >> 20);
 789     FRDP ("cycletype: %d\n", rdp.cycle_mode);
 790   }
 791
 792   if (mask & 0x00010000)  // LOD enable
 793   {
 794     rdp.LOD_en = (rdp.othermode_h & 0x00010000) ? TRUE : FALSE;
 795     FRDP ("LOD_en: %d\n", rdp.LOD_en);
 796   }
 797
 798   DWORD unk = mask & 0xFFCF0FFF;
 799   if (unk)  // unknown portions, LARGE
 800   {
 801     FRDP ("UNKNOWN PORTIONS: shift: %d, len: %d, unknowns: %08lx\n", shift, len, unk);
 802   }
 803 }
 804
 805 static void uc0_setothermode_l()
 806 {
 807   RDP("uc0:setothermode_l ");
 808
 809   int shift, len;
 810   if ((settings.ucode == 2) || (settings.ucode == 8))
 811   {
 812     len = (rdp.cmd0 & 0xFF) + 1;
 813     shift = 32 - ((rdp.cmd0 >> 8) & 0xFF) - len;
 814   }
 815   else
 816   {
 817     len = rdp.cmd0 & 0xFF;
 818     shift = (rdp.cmd0 >> 8) & 0xFF;
 819   }
 820
 821   DWORD mask = 0;
 822   int i = len;
 823   for (; i; i--)
 824     mask = (mask << 1) | 1;
 825   mask <<= shift;
 826
 827   rdp.cmd1 &= mask;
 828   rdp.othermode_l &= ~mask;
 829   rdp.othermode_l |= rdp.cmd1;
 830
 831   if (mask & 0x00000003)  // alpha compare
 832   {
 833     rdp.acmp = rdp.othermode_l & 0x00000003;
 834     FRDP ("alpha compare %s\n", ACmp[rdp.acmp]);
 835     rdp.update |= UPDATE_ALPHA_COMPARE;
 836   }
 837
 838   if (mask & 0x00000004)  // z-src selection
 839   {
 840     rdp.zsrc = (rdp.othermode_l & 0x00000004) >> 2;
 841     FRDP ("z-src sel: %s\n", str_zs[rdp.zsrc]);
 842     FRDP ("z-src sel: %08lx\n", rdp.zsrc);
 843   }
 844
 845   if (mask & 0xFFFFFFF8)  // rendermode / blender bits
 846   {
 847     rdp.update |= UPDATE_FOG_ENABLED; //if blender has no fog bits, fog must be set off
 848     rdp.render_mode_changed |= rdp.rm ^ rdp.othermode_l;
 849     rdp.rm = rdp.othermode_l;
 850     if (settings.flame_corona && (rdp.rm == 0x00504341)) //hack for flame's corona
 851       rdp.othermode_l |= /*0x00000020 |*/ 0x00000010;
 852     FRDP ("rendermode: %08lx\n", rdp.othermode_l);  // just output whole othermode_l
 853   }
 854
 855   // there is not one setothermode_l that's not handled :)
 856 }
 857
 858 //
 859 // uc0:enddl - ends a call made by uc0:displaylist
 860 //
 861
 862 static void uc0_enddl()
 863 {
 864   RDP("uc0:enddl\n");
 865
 866   if (rdp.pc_i == 0)
 867   {
 868     RDP ("RDP end\n");
 869
 870     // Halt execution here
 871     rdp.halt = 1;
 872   }
 873
 874   rdp.pc_i --;
 875 }
 876
 877 static void uc0_setgeometrymode()
 878 {
 879   FRDP("uc0:setgeometrymode %08lx\n", rdp.cmd1);
 880
 881   rdp.geom_mode |= rdp.cmd1;
 882
 883   if (rdp.cmd1 & 0x00000001)  // Z-Buffer enable
 884   {
 885     if (!(rdp.flags & ZBUF_ENABLED))
 886     {
 887       rdp.flags |= ZBUF_ENABLED;
 888       rdp.update |= UPDATE_ZBUF_ENABLED;
 889     }
 890   }
 891   if (rdp.cmd1 & 0x00001000)  // Front culling
 892   {
 893     if (!(rdp.flags & CULL_FRONT))
 894     {
 895       rdp.flags |= CULL_FRONT;
 896       rdp.update |= UPDATE_CULL_MODE;
 897     }
 898   }
 899   if (rdp.cmd1 & 0x00002000)  // Back culling
 900   {
 901     if (!(rdp.flags & CULL_BACK))
 902     {
 903       rdp.flags |= CULL_BACK;
 904       rdp.update |= UPDATE_CULL_MODE;
 905     }
 906   }
 907
 908     //Added by Gonetz
 909     if (rdp.cmd1 & 0x00010000)      // Fog enable
 910     {
 911     if (!(rdp.flags & FOG_ENABLED))
 912     {
 913       rdp.flags |= FOG_ENABLED;
 914       rdp.update |= UPDATE_FOG_ENABLED;
 915     }
 916     }
 917 }
 918
 919 static void uc0_cleargeometrymode()
 920 {
 921   FRDP("uc0:cleargeometrymode %08lx\n", rdp.cmd1);
 922
 923   rdp.geom_mode &= (~rdp.cmd1);
 924
 925   if (rdp.cmd1 & 0x00000001)  // Z-Buffer enable
 926   {
 927     if (rdp.flags & ZBUF_ENABLED)
 928     {
 929       rdp.flags ^= ZBUF_ENABLED;
 930       rdp.update |= UPDATE_ZBUF_ENABLED;
 931     }
 932   }
 933   if (rdp.cmd1 & 0x00001000)  // Front culling
 934   {
 935     if (rdp.flags & CULL_FRONT)
 936     {
 937       rdp.flags ^= CULL_FRONT;
 938       rdp.update |= UPDATE_CULL_MODE;
 939     }
 940   }
 941   if (rdp.cmd1 & 0x00002000)  // Back culling
 942   {
 943     if (rdp.flags & CULL_BACK)
 944     {
 945       rdp.flags ^= CULL_BACK;
 946       rdp.update |= UPDATE_CULL_MODE;
 947     }
 948   }
 949
 950   //Added by Gonetz
 951   if (rdp.cmd1 & 0x00010000)      // Fog enable
 952   {
 953     if (rdp.flags & FOG_ENABLED)
 954     {
 955       rdp.flags ^= FOG_ENABLED;
 956       rdp.update |= UPDATE_FOG_ENABLED;
 957     }
 958   }
 959 }
 960
 961 static void uc0_quad3d()
 962 {
 963   // Actually line3d, not supported I think
 964
 965   int v0 = ((rdp.cmd1 >> 16) & 0xff) / 10;
 966   int v1 = ((rdp.cmd1 >>  8) & 0xff) / 10;
 967   int f = (rdp.cmd1 >> 24) & 0xff;
 968
 969   FRDP("uc0:line3d v0:%d, v1:%d, f:%02lx - IGNORED\n", v0, v1, f);
 970 }
 971
 972 static void uc0_rdphalf_1()
 973 {
 974   RDP_E("uc0:rdphalf_1 - IGNORED\n");
 975   RDP ("uc0:rdphalf_1 - IGNORED\n");
 976 }
 977
 978 static void uc0_rdphalf_2()
 979 {
 980   RDP_E("uc0:rdphalf_2 - IGNORED\n");
 981   RDP ("uc0:rdphalf_2 - IGNORED\n");
 982 }
 983
 984 static void uc0_rdphalf_cont()
 985 {
 986   RDP_E("uc0:rdphalf_cont - IGNORED\n");
 987   RDP ("uc0:rdphalf_cont - IGNORED\n");
 988 }
 989
 990 static void uc0_tri4 ()
 991 {
 992   // c0: 0000 0123, c1: 456789ab
 993   // becomes: 405 617 829 a3b
 994
 995   RDP ("uc0:tri4");
 996   FRDP(" #%d, #%d, #%d, #%d - %d, %d, %d - %d, %d, %d - %d, %d, %d - %d, %d, %d\n", rdp.tri_n, rdp.tri_n+1, rdp.tri_n+2, rdp.tri_n+3,
 997     (rdp.cmd1 >> 28) & 0xF,
 998     (rdp.cmd0 >> 12) & 0xF,
 999     (rdp.cmd1 >> 24) & 0xF,
1000     (rdp.cmd1 >> 20) & 0xF,
1001     (rdp.cmd0 >> 8) & 0xF,
1002     (rdp.cmd1 >> 16) & 0xF,
1003     (rdp.cmd1 >> 12) & 0xF,
1004     (rdp.cmd0 >> 4) & 0xF,
1005     (rdp.cmd1 >> 8) & 0xF,
1006     (rdp.cmd1 >> 4) & 0xF,
1007     (rdp.cmd0 >> 0) & 0xF,
1008     (rdp.cmd1 >> 0) & 0xF);
1009
1010   VERTEX *v[12] = {
1011     &rdp.vtx[(rdp.cmd1 >> 28) & 0xF],
1012     &rdp.vtx[(rdp.cmd0 >> 12) & 0xF],
1013     &rdp.vtx[(rdp.cmd1 >> 24) & 0xF],
1014     &rdp.vtx[(rdp.cmd1 >> 20) & 0xF],
1015     &rdp.vtx[(rdp.cmd0 >> 8) & 0xF],
1016     &rdp.vtx[(rdp.cmd1 >> 16) & 0xF],
1017     &rdp.vtx[(rdp.cmd1 >> 12) & 0xF],
1018     &rdp.vtx[(rdp.cmd0 >> 4) & 0xF],
1019     &rdp.vtx[(rdp.cmd1 >> 8) & 0xF],
1020     &rdp.vtx[(rdp.cmd1 >> 4) & 0xF],
1021     &rdp.vtx[(rdp.cmd0 >> 0) & 0xF],
1022     &rdp.vtx[(rdp.cmd1 >> 0) & 0xF],
1023   };
1024
1025   BOOL updated = 0;
1026
1027   if (cull_tri(v))
1028     rdp.tri_n ++;
1029   else
1030   {
1031     updated = 1;
1032     update ();
1033
1034     DrawTri (v);
1035     rdp.tri_n ++;
1036   }
1037
1038   if (cull_tri(v+3))
1039     rdp.tri_n ++;
1040   else
1041   {
1042     if (!updated)
1043     {
1044       updated = 1;
1045       update ();
1046     }
1047
1048     DrawTri (v+3);
1049     rdp.tri_n ++;
1050   }
1051
1052   if (cull_tri(v+6))
1053     rdp.tri_n ++;
1054   else
1055   {
1056     if (!updated)
1057     {
1058       updated = 1;
1059       update ();
1060     }
1061
1062     DrawTri (v+6);
1063     rdp.tri_n ++;
1064   }
1065
1066   if (cull_tri(v+9))
1067     rdp.tri_n ++;
1068   else
1069   {
1070     if (!updated)
1071     {
1072       updated = 1;
1073       update ();
1074     }
1075
1076     DrawTri (v+9);
1077     rdp.tri_n ++;
1078   }
1079 }