misc. cleanup, bubble trails fixed, improved lightmap compatibility.
[xonotic/darkplaces.git] / gl_warp.c
1 /*
2 Copyright (C) 1996-1997 Id Software, Inc.
3
4 This program is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License
6 as published by the Free Software Foundation; either version 2
7 of the License, or (at your option) any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
12
13 See the 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 // gl_warp.c -- sky and water polygons
21
22 #include "quakedef.h"
23
24 extern  model_t *loadmodel;
25
26 int             skytexturenum;
27
28 int             solidskytexture;
29 int             alphaskytexture;
30 float   speedscale;             // for top sky and bottom sky
31
32 msurface_t      *warpface;
33
34 extern cvar_t gl_subdivide_size;
35
36 void BoundPoly (int numverts, float *verts, vec3_t mins, vec3_t maxs)
37 {
38         int             i, j;
39         float   *v;
40
41         mins[0] = mins[1] = mins[2] = 9999;
42         maxs[0] = maxs[1] = maxs[2] = -9999;
43         v = verts;
44         for (i=0 ; i<numverts ; i++)
45                 for (j=0 ; j<3 ; j++, v++)
46                 {
47                         if (*v < mins[j])
48                                 mins[j] = *v;
49                         if (*v > maxs[j])
50                                 maxs[j] = *v;
51                 }
52 }
53
54 void SubdividePolygon (int numverts, float *verts)
55 {
56         int             i, j, k;
57         vec3_t  mins, maxs;
58         float   m;
59         float   *v;
60         vec3_t  front[64], back[64];
61         int             f, b;
62         float   dist[64];
63         float   frac;
64         glpoly_t        *poly;
65         float   s, t;
66
67         if (numverts > 60)
68                 Sys_Error ("numverts = %i", numverts);
69
70         BoundPoly (numverts, verts, mins, maxs);
71
72         for (i=0 ; i<3 ; i++)
73         {
74                 m = (mins[i] + maxs[i]) * 0.5;
75                 m = gl_subdivide_size.value * floor (m/gl_subdivide_size.value + 0.5);
76                 if (maxs[i] - m < 8)
77                         continue;
78                 if (m - mins[i] < 8)
79                         continue;
80
81                 // cut it
82                 v = verts + i;
83                 for (j=0 ; j<numverts ; j++, v+= 3)
84                         dist[j] = *v - m;
85
86                 // wrap cases
87                 dist[j] = dist[0];
88                 v-=i;
89                 VectorCopy (verts, v);
90
91                 f = b = 0;
92                 v = verts;
93                 for (j=0 ; j<numverts ; j++, v+= 3)
94                 {
95                         if (dist[j] >= 0)
96                         {
97                                 VectorCopy (v, front[f]);
98                                 f++;
99                         }
100                         if (dist[j] <= 0)
101                         {
102                                 VectorCopy (v, back[b]);
103                                 b++;
104                         }
105                         if (dist[j] == 0 || dist[j+1] == 0)
106                                 continue;
107                         if ( (dist[j] > 0) != (dist[j+1] > 0) )
108                         {
109                                 // clip point
110                                 frac = dist[j] / (dist[j] - dist[j+1]);
111                                 for (k=0 ; k<3 ; k++)
112                                         front[f][k] = back[b][k] = v[k] + frac*(v[3+k] - v[k]);
113                                 f++;
114                                 b++;
115                         }
116                 }
117
118                 SubdividePolygon (f, front[0]);
119                 SubdividePolygon (b, back[0]);
120                 return;
121         }
122
123         poly = Hunk_Alloc (sizeof(glpoly_t) + (numverts-4) * VERTEXSIZE*sizeof(float));
124         poly->next = warpface->polys;
125         warpface->polys = poly;
126         poly->numverts = numverts;
127         for (i=0 ; i<numverts ; i++, verts+= 3)
128         {
129                 VectorCopy (verts, poly->verts[i]);
130                 s = DotProduct (verts, warpface->texinfo->vecs[0]);
131                 t = DotProduct (verts, warpface->texinfo->vecs[1]);
132                 poly->verts[i][3] = s;
133                 poly->verts[i][4] = t;
134         }
135 }
136
137 /*
138 ================
139 GL_SubdivideSurface
140
141 Breaks a polygon up along axial 64 unit
142 boundaries so that turbulent and sky warps
143 can be done reasonably.
144 ================
145 */
146 void GL_SubdivideSurface (msurface_t *fa)
147 {
148         vec3_t          verts[64];
149         int                     numverts;
150         int                     i;
151         int                     lindex;
152         float           *vec;
153
154         warpface = fa;
155
156         //
157         // convert edges back to a normal polygon
158         //
159         numverts = 0;
160         for (i=0 ; i<fa->numedges ; i++)
161         {
162                 lindex = loadmodel->surfedges[fa->firstedge + i];
163
164                 if (lindex > 0)
165                         vec = loadmodel->vertexes[loadmodel->edges[lindex].v[0]].position;
166                 else
167                         vec = loadmodel->vertexes[loadmodel->edges[-lindex].v[1]].position;
168                 VectorCopy (vec, verts[numverts]);
169                 numverts++;
170         }
171
172         SubdividePolygon (numverts, verts[0]);
173 }
174
175 //=========================================================
176
177
178
179 extern qboolean lighthalf;
180
181 #define SKY_TEX         4000
182
183 char skyname[256];
184
185 // LordHavoc: moved LoadTGA and LoadPCX to gl_draw.c
186
187 extern int image_width, image_height;
188
189 byte* loadimagepixels (char* filename, qboolean complain, int matchwidth, int matchheight);
190 /*
191 ==================
192 R_LoadSkyBox
193 ==================
194 */
195 char    *suf[6] = {"rt", "bk", "lf", "ft", "up", "dn"};
196 void R_LoadSkyBox (void)
197 {
198         int             i;
199         char    name[64];
200         byte*   image_rgba;
201
202         for (i=0 ; i<6 ; i++)
203         {
204                 glBindTexture(GL_TEXTURE_2D, SKY_TEX + i);
205                 sprintf (name, "env/%s%s", skyname, suf[i]);
206                 if (!(image_rgba = loadimagepixels(name, FALSE, 0, 0)))
207                 {
208                         sprintf (name, "gfx/env/%s%s", skyname, suf[i]);
209                         if (!(image_rgba = loadimagepixels(name, FALSE, 0, 0)))
210                         {
211                                 Con_Printf ("Couldn't load %s\n", name);
212                                 continue;
213                         }
214                 }
215                 glTexImage2D (GL_TEXTURE_2D, 0, gl_solid_format, image_width, image_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, image_rgba);
216                 free (image_rgba);
217                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
218                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
219         }
220 }
221
222 void R_SetSkyBox (char *sky)
223 {
224         strcpy(skyname, sky);
225         R_LoadSkyBox ();
226 }
227
228 // LordHavoc: added LoadSky console command
229 void LoadSky_f (void)
230 {
231         switch (Cmd_Argc())
232         {
233         case 1:
234                 if (skyname[0])
235                         Con_Printf("current sky: %s\n", skyname);
236                 else
237                         Con_Printf("no skybox has been set\n", skyname);
238                 break;
239         case 2:
240                 R_SetSkyBox(Cmd_Argv(1));
241                 Con_Printf("skybox set to %s\n", skyname);
242                 break;
243         default:
244                 Con_Printf("usage: loadsky skyname\n");
245                 break;
246         }
247 }
248
249 extern cvar_t r_skyboxsize;
250
251 #define R_SkyBoxPolyVec(s,t,x,y,z) \
252         glTexCoord2f((s) * (254.0f/256.0f) + (1.0f/256.0f), (t) * (254.0f/256.0f) + (1.0f/256.0f));\
253         glVertex3f((x) * 1024.0 + r_refdef.vieworg[0], (y) * 1024.0 + r_refdef.vieworg[1], (z) * 1024.0 + r_refdef.vieworg[2]);
254
255 void R_SkyBox()
256 {
257         glDisable (GL_BLEND);
258         glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
259         if (lighthalf)
260                 glColor3f(0.5,0.5,0.5);
261         else
262                 glColor3f(1,1,1);
263         glBindTexture(GL_TEXTURE_2D, SKY_TEX + 3); // front
264         glBegin(GL_QUADS);
265         R_SkyBoxPolyVec(1, 0,  1, -1,  1);
266         R_SkyBoxPolyVec(1, 1,  1, -1, -1);
267         R_SkyBoxPolyVec(0, 1,  1,  1, -1);
268         R_SkyBoxPolyVec(0, 0,  1,  1,  1);
269         glEnd();
270         glBindTexture(GL_TEXTURE_2D, SKY_TEX + 1); // back
271         glBegin(GL_QUADS);
272         R_SkyBoxPolyVec(1, 0, -1,  1,  1);
273         R_SkyBoxPolyVec(1, 1, -1,  1, -1);
274         R_SkyBoxPolyVec(0, 1, -1, -1, -1);
275         R_SkyBoxPolyVec(0, 0, -1, -1,  1);
276         glEnd();
277         glBindTexture(GL_TEXTURE_2D, SKY_TEX + 0); // right
278         glBegin(GL_QUADS);
279         R_SkyBoxPolyVec(1, 0,  1,  1,  1);
280         R_SkyBoxPolyVec(1, 1,  1,  1, -1);
281         R_SkyBoxPolyVec(0, 1, -1,  1, -1);
282         R_SkyBoxPolyVec(0, 0, -1,  1,  1);
283         glEnd();
284         glBindTexture(GL_TEXTURE_2D, SKY_TEX + 2); // left
285         glBegin(GL_QUADS);
286         R_SkyBoxPolyVec(1, 0, -1, -1,  1);
287         R_SkyBoxPolyVec(1, 1, -1, -1, -1);
288         R_SkyBoxPolyVec(0, 1,  1, -1, -1);
289         R_SkyBoxPolyVec(0, 0,  1, -1,  1);
290         glEnd();
291         glBindTexture(GL_TEXTURE_2D, SKY_TEX + 4); // up
292         glBegin(GL_QUADS);
293         R_SkyBoxPolyVec(1, 0,  1, -1,  1);
294         R_SkyBoxPolyVec(1, 1,  1,  1,  1);
295         R_SkyBoxPolyVec(0, 1, -1,  1,  1);
296         R_SkyBoxPolyVec(0, 0, -1, -1,  1);
297         glEnd();
298         glBindTexture(GL_TEXTURE_2D, SKY_TEX + 5); // down
299         glBegin(GL_QUADS);
300         R_SkyBoxPolyVec(1, 0,  1,  1, -1);
301         R_SkyBoxPolyVec(1, 1,  1, -1, -1);
302         R_SkyBoxPolyVec(0, 1, -1, -1, -1);
303         R_SkyBoxPolyVec(0, 0, -1,  1, -1);
304         glEnd();
305 }
306
307 /*
308 float skydomeouter[33*33*3];
309 float skydomeinner[33*33*3];
310 unsigned short skydomeindices[32*66];
311 qboolean skydomeinitialized = 0;
312 void skydomecalc(float *dome, float dx, float dy, float dz)
313 {
314         float a, b, x, ax, ay;
315         int i;
316         unsigned short *index;
317         for (a = 0;a <= 1;a += (1.0 / 32.0))
318         {
319                 ax = cos(a * M_PI * 2);
320                 ay = -sin(a * M_PI * 2);
321                 for (b = 0;b <= 1;b += (1.0 / 32.0))
322                 {
323                         x = cos(b * M_PI * 2);
324                         *dome++ = ax*x * dx;
325                         *dome++ = ay*x * dy;
326                         *dome++ = -sin(b * M_PI * 2) * dz;
327                 }
328         }
329         index = skydomeindices;
330         for (i = 0;i < (32*33);i++)
331         {
332                 *index++ = i;
333                 *index++ = i + 33;
334         }
335 }
336
337 extern cvar_t gl_vertexarrays;
338 void skydome(float *source, float s, float texscale)
339 {
340         vec_t vert[33*33][3], tex[33*33][2], *v, *t;
341         int i, j;
342         unsigned short *index;
343         v = &vert[0][0];t = &tex[0][0];
344         for (i = 0;i < (33*33);i++)
345         {
346                 *t++ = source[0] * texscale + s;
347                 *t++ = source[1] * texscale + s;
348                 *v++ = *source++ + r_refdef.vieworg[0];
349                 *v++ = *source++ + r_refdef.vieworg[1];
350                 *v++ = *source++ + r_refdef.vieworg[2];
351         }
352         if (gl_vertexarrays.value)
353         {
354                 qglTexCoordPointer(2, GL_FLOAT, 0, tex);
355                 qglVertexPointer(3, GL_FLOAT, 0, vert);
356                 glEnableClientState(GL_TEXTURE_COORD_ARRAY);
357                 glEnableClientState(GL_VERTEX_ARRAY);
358 //              qglInterleavedArrays(GL_T2F_V3F, 0, vert);
359                 for (i = 0;i < (32*66);i+=66)
360                         qglDrawElements(GL_TRIANGLE_STRIP, 66, GL_UNSIGNED_SHORT, &skydomeindices[i]);
361                 glDisableClientState(GL_VERTEX_ARRAY);
362                 glDisableClientState(GL_TEXTURE_COORD_ARRAY);
363         }
364         else
365         {
366                 index = skydomeindices;
367                 for (i = 0;i < (32*66);i+=66)
368                 {
369                         glBegin(GL_TRIANGLE_STRIP);
370                         for (j = 0;j < 66;j++)
371                         {
372                                 // Matrox G200 (and possibly G400) drivers don't support TexCoord2fv...
373                                 glTexCoord2f(tex[*index][0], tex[*index][1]);
374                                 glVertex3fv(&vert[*index++][0]);
375                         }
376                         glEnd();
377                 }
378         }
379 }
380
381 void R_SkyDome()
382 {
383         glDisable (GL_BLEND);
384         glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
385         glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
386         if (lighthalf)
387                 glColor3f(0.5,0.5,0.5);
388         else
389                 glColor3f(1,1,1);
390         glBindTexture(GL_TEXTURE_2D, solidskytexture); // upper clouds
391         if (!skydomeinitialized)
392         {
393                 skydomeinitialized = true;
394                 skydomecalc(skydomeouter, 1024, 1024, 256);
395                 skydomecalc(skydomeinner, 512, 512, 128);
396         }
397         speedscale = realtime*8.0/256.0;
398         speedscale -= (int)speedscale;
399         skydome(skydomeouter, speedscale, 1.0 / 256.0);
400         glEnable (GL_BLEND);
401         glBindTexture(GL_TEXTURE_2D, alphaskytexture); // lower clouds
402         speedscale = realtime*8.0/128.0;
403         speedscale -= (int)speedscale;
404         skydome(skydomeinner, speedscale, 1.0 / 128.0);
405         glDisable (GL_BLEND);
406 }
407 */
408
409 void R_Sky()
410 {
411         if (!skyname[0])
412                 return;
413         glDisable(GL_DEPTH_TEST);
414         glDepthMask(0);
415 //      if (skyname[0])
416                 R_SkyBox();
417 //      else // classic quake sky
418 //              R_SkyDome();
419         glDepthMask(1);
420         glEnable (GL_DEPTH_TEST);
421         glColor3f (1,1,1);
422 }
423
424 //===============================================================
425
426 /*
427 =============
428 R_InitSky
429
430 A sky texture is 256*128, with the right side being a masked overlay
431 ==============
432 */
433 // LordHavoc: changed this for GLQuake
434 void R_InitSky (byte *src, int bytesperpixel) //texture_t *mt)
435 {
436         int                     i, j, p;
437 //      byte            *src;
438         unsigned        trans[128*128];
439         unsigned        transpix;
440         int                     r, g, b;
441         unsigned        *rgba;
442         extern  int                     skytexturenum;
443
444 //      src = (byte *)mt + mt->offsets[0];
445
446         if (bytesperpixel == 4)
447         {
448                 for (i = 0;i < 128;i++)
449                         for (j = 0;j < 128;j++)
450                                 trans[(i*128) + j] = src[i*256+j+128];
451         }
452         else
453         {
454                 // make an average value for the back to avoid
455                 // a fringe on the top level
456                 r = g = b = 0;
457                 for (i=0 ; i<128 ; i++)
458                         for (j=0 ; j<128 ; j++)
459                         {
460                                 p = src[i*256 + j + 128];
461                                 rgba = &d_8to24table[p];
462                                 trans[(i*128) + j] = *rgba;
463                                 r += ((byte *)rgba)[0];
464                                 g += ((byte *)rgba)[1];
465                                 b += ((byte *)rgba)[2];
466                         }
467
468                 ((byte *)&transpix)[0] = r/(128*128);
469                 ((byte *)&transpix)[1] = g/(128*128);
470                 ((byte *)&transpix)[2] = b/(128*128);
471                 ((byte *)&transpix)[3] = 0;
472         }
473
474         if (!solidskytexture)
475                 solidskytexture = texture_extension_number++;
476         if (!isDedicated)
477         {
478                 glBindTexture(GL_TEXTURE_2D, solidskytexture );
479                 glTexImage2D (GL_TEXTURE_2D, 0, gl_solid_format, 128, 128, 0, GL_RGBA, GL_UNSIGNED_BYTE, trans);
480                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
481                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
482         }
483
484
485         if (bytesperpixel == 4)
486         {
487                 for (i = 0;i < 128;i++)
488                         for (j = 0;j < 128;j++)
489                                 trans[(i*128) + j] = src[i*256+j];
490         }
491         else
492         {
493                 for (i=0 ; i<128 ; i++)
494                         for (j=0 ; j<128 ; j++)
495                         {
496                                 p = src[i*256 + j];
497                                 if (p == 0)
498                                         trans[(i*128) + j] = transpix;
499                                 else
500                                         trans[(i*128) + j] = d_8to24table[p];
501                         }
502         }
503
504         if (!alphaskytexture)
505                 alphaskytexture = texture_extension_number++;
506         if (!isDedicated)
507         {
508                 glBindTexture(GL_TEXTURE_2D, alphaskytexture);
509                 glTexImage2D (GL_TEXTURE_2D, 0, gl_alpha_format, 128, 128, 0, GL_RGBA, GL_UNSIGNED_BYTE, trans);
510                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
511                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
512         }
513 }
514