reimplemented rtlight portal culling (used for compiled rtlights, and can be used...
[divverent/darkplaces.git] / portals.c
1
2 #include "quakedef.h"
3
4 #define MAXRECURSIVEPORTALPLANES 1024
5 #define MAXRECURSIVEPORTALS 256
6
7 static tinyplane_t portalplanes[MAXRECURSIVEPORTALPLANES];
8 static int ranoutofportalplanes;
9 static int ranoutofportals;
10 static float portaltemppoints[2][256][3];
11 static float portaltemppoints2[256][3];
12 static int portal_markid = 0;
13 static float boxpoints[4*3];
14
15 int Portal_ClipPolygonToPlane(float *in, float *out, int inpoints, int maxoutpoints, tinyplane_t *p)
16 {
17         int i, outpoints, prevside, side;
18         float *prevpoint, prevdist, dist, dot;
19
20         if (inpoints < 3)
21                 return inpoints;
22         // begin with the last point, then enter the loop with the first point as current
23         prevpoint = in + 3 * (inpoints - 1);
24         prevdist = DotProduct(prevpoint, p->normal) - p->dist;
25         prevside = prevdist >= 0 ? SIDE_FRONT : SIDE_BACK;
26         i = 0;
27         outpoints = 0;
28         goto begin;
29         for (;i < inpoints;i++)
30         {
31                 prevpoint = in;
32                 prevdist = dist;
33                 prevside = side;
34                 in += 3;
35
36 begin:
37                 dist = DotProduct(in, p->normal) - p->dist;
38                 side = dist >= 0 ? SIDE_FRONT : SIDE_BACK;
39
40                 if (prevside == SIDE_FRONT)
41                 {
42                         if (outpoints >= maxoutpoints)
43                                 return -1;
44                         VectorCopy(prevpoint, out);
45                         out += 3;
46                         outpoints++;
47                         if (side == SIDE_FRONT)
48                                 continue;
49                 }
50                 else if (side == SIDE_BACK)
51                         continue;
52
53                 // generate a split point
54                 if (outpoints >= maxoutpoints)
55                         return -1;
56                 dot = prevdist / (prevdist - dist);
57                 out[0] = prevpoint[0] + dot * (in[0] - prevpoint[0]);
58                 out[1] = prevpoint[1] + dot * (in[1] - prevpoint[1]);
59                 out[2] = prevpoint[2] + dot * (in[2] - prevpoint[2]);
60                 out += 3;
61                 outpoints++;
62         }
63
64         return outpoints;
65 }
66
67
68 int Portal_PortalThroughPortalPlanes(tinyplane_t *clipplanes, int clipnumplanes, float *targpoints, int targnumpoints, float *out, int maxpoints)
69 {
70         int numpoints, i;
71         if (targnumpoints < 3)
72                 return targnumpoints;
73         if (maxpoints < 3)
74                 return -1;
75         numpoints = targnumpoints;
76         memcpy(&portaltemppoints[0][0][0], targpoints, numpoints * 3 * sizeof(float));
77         for (i = 0;i < clipnumplanes;i++)
78         {
79                 numpoints = Portal_ClipPolygonToPlane(&portaltemppoints[0][0][0], &portaltemppoints[1][0][0], numpoints, 256, clipplanes + i);
80                 if (numpoints < 3)
81                         return numpoints;
82                 memcpy(&portaltemppoints[0][0][0], &portaltemppoints[1][0][0], numpoints * 3 * sizeof(float));
83         }
84         if (numpoints > maxpoints)
85                 return -1;
86         memcpy(out, &portaltemppoints[0][0][0], numpoints * 3 * sizeof(float));
87         return numpoints;
88 }
89
90 int Portal_RecursiveFlowSearch (mleaf_t *leaf, vec3_t eye, int firstclipplane, int numclipplanes)
91 {
92         mportal_t *p;
93         int newpoints, i, prev;
94         vec3_t center, v1, v2;
95         tinyplane_t *newplanes;
96
97         if (leaf->portalmarkid == portal_markid)
98                 return true;
99
100         // follow portals into other leafs
101         for (p = leaf->portals;p;p = p->next)
102         {
103                 // only flow through portals facing away from the viewer
104                 if (PlaneDiff(eye, (&p->plane)) < 0)
105                 {
106                         newpoints = Portal_PortalThroughPortalPlanes(&portalplanes[firstclipplane], numclipplanes, (float *) p->points, p->numpoints, &portaltemppoints2[0][0], 256);
107                         if (newpoints < 3)
108                                 continue;
109                         else if (firstclipplane + numclipplanes + newpoints > MAXRECURSIVEPORTALPLANES)
110                                 ranoutofportalplanes = true;
111                         else
112                         {
113                                 // find the center by averaging
114                                 VectorClear(center);
115                                 for (i = 0;i < newpoints;i++)
116                                         VectorAdd(center, portaltemppoints2[i], center);
117                                 // ixtable is a 1.0f / N table
118                                 VectorScale(center, ixtable[newpoints], center);
119                                 // calculate the planes, and make sure the polygon can see it's own center
120                                 newplanes = &portalplanes[firstclipplane + numclipplanes];
121                                 for (prev = newpoints - 1, i = 0;i < newpoints;prev = i, i++)
122                                 {
123                                         VectorSubtract(eye, portaltemppoints2[i], v1);
124                                         VectorSubtract(portaltemppoints2[prev], portaltemppoints2[i], v2);
125                                         CrossProduct(v1, v2, newplanes[i].normal);
126                                         VectorNormalizeFast(newplanes[i].normal);
127                                         newplanes[i].dist = DotProduct(eye, newplanes[i].normal);
128                                         if (DotProduct(newplanes[i].normal, center) <= newplanes[i].dist)
129                                         {
130                                                 // polygon can't see it's own center, discard and use parent portal
131                                                 break;
132                                         }
133                                 }
134                                 if (i == newpoints)
135                                 {
136                                         if (Portal_RecursiveFlowSearch(p->past, eye, firstclipplane + numclipplanes, newpoints))
137                                                 return true;
138                                 }
139                                 else
140                                 {
141                                         if (Portal_RecursiveFlowSearch(p->past, eye, firstclipplane, numclipplanes))
142                                                 return true;
143                                 }
144                         }
145                 }
146         }
147
148         return false;
149 }
150
151 void Portal_PolygonRecursiveMarkLeafs(mnode_t *node, float *polypoints, int numpoints)
152 {
153         int i, front;
154         float *p;
155
156 loc0:
157         if (!node->plane)
158         {
159                 ((mleaf_t *)node)->portalmarkid = portal_markid;
160                 return;
161         }
162
163         front = 0;
164         for (i = 0, p = polypoints;i < numpoints;i++, p += 3)
165         {
166                 if (DotProduct(p, node->plane->normal) > node->plane->dist)
167                         front++;
168         }
169         if (front > 0)
170         {
171                 if (front == numpoints)
172                 {
173                         node = node->children[0];
174                         goto loc0;
175                 }
176                 else
177                         Portal_PolygonRecursiveMarkLeafs(node->children[0], polypoints, numpoints);
178         }
179         node = node->children[1];
180         goto loc0;
181 }
182
183 int Portal_CheckPolygon(model_t *model, vec3_t eye, float *polypoints, int numpoints)
184 {
185         int i, prev, returnvalue;
186         mleaf_t *eyeleaf;
187         vec3_t center, v1, v2;
188
189         // if there is no model, it can not block visibility
190         if (model == NULL || !model->brush.PointInLeaf)
191                 return true;
192
193         portal_markid++;
194
195         Mod_CheckLoaded(model);
196         Portal_PolygonRecursiveMarkLeafs(model->brush.data_nodes, polypoints, numpoints);
197
198         eyeleaf = model->brush.PointInLeaf(model, eye);
199
200         // find the center by averaging
201         VectorClear(center);
202         for (i = 0;i < numpoints;i++)
203                 VectorAdd(center, (&polypoints[i * 3]), center);
204         // ixtable is a 1.0f / N table
205         VectorScale(center, ixtable[numpoints], center);
206
207         // calculate the planes, and make sure the polygon can see it's own center
208         for (prev = numpoints - 1, i = 0;i < numpoints;prev = i, i++)
209         {
210                 VectorSubtract(eye, (&polypoints[i * 3]), v1);
211                 VectorSubtract((&polypoints[prev * 3]), (&polypoints[i * 3]), v2);
212                 CrossProduct(v1, v2, portalplanes[i].normal);
213                 VectorNormalizeFast(portalplanes[i].normal);
214                 portalplanes[i].dist = DotProduct(eye, portalplanes[i].normal);
215                 if (DotProduct(portalplanes[i].normal, center) <= portalplanes[i].dist)
216                 {
217                         // polygon can't see it's own center, discard
218                         return false;
219                 }
220         }
221
222         ranoutofportalplanes = false;
223         ranoutofportals = false;
224
225         returnvalue = Portal_RecursiveFlowSearch(eyeleaf, eye, 0, numpoints);
226
227         if (ranoutofportalplanes)
228                 Con_Printf("Portal_RecursiveFlowSearch: ran out of %d plane stack when recursing through portals\n", MAXRECURSIVEPORTALPLANES);
229         if (ranoutofportals)
230                 Con_Printf("Portal_RecursiveFlowSearch: ran out of %d portal stack when recursing through portals\n", MAXRECURSIVEPORTALS);
231
232         return returnvalue;
233 }
234
235 #define Portal_MinsBoxPolygon(axis, axisvalue, x1, y1, z1, x2, y2, z2, x3, y3, z3, x4, y4, z4) \
236 {\
237         if (eye[(axis)] < ((axisvalue) - 0.5f))\
238         {\
239                 boxpoints[ 0] = x1;boxpoints[ 1] = y1;boxpoints[ 2] = z1;\
240                 boxpoints[ 3] = x2;boxpoints[ 4] = y2;boxpoints[ 5] = z2;\
241                 boxpoints[ 6] = x3;boxpoints[ 7] = y3;boxpoints[ 8] = z3;\
242                 boxpoints[ 9] = x4;boxpoints[10] = y4;boxpoints[11] = z4;\
243                 if (Portal_CheckPolygon(model, eye, boxpoints, 4))\
244                         return true;\
245         }\
246 }
247
248 #define Portal_MaxsBoxPolygon(axis, axisvalue, x1, y1, z1, x2, y2, z2, x3, y3, z3, x4, y4, z4) \
249 {\
250         if (eye[(axis)] > ((axisvalue) + 0.5f))\
251         {\
252                 boxpoints[ 0] = x1;boxpoints[ 1] = y1;boxpoints[ 2] = z1;\
253                 boxpoints[ 3] = x2;boxpoints[ 4] = y2;boxpoints[ 5] = z2;\
254                 boxpoints[ 6] = x3;boxpoints[ 7] = y3;boxpoints[ 8] = z3;\
255                 boxpoints[ 9] = x4;boxpoints[10] = y4;boxpoints[11] = z4;\
256                 if (Portal_CheckPolygon(model, eye, boxpoints, 4))\
257                         return true;\
258         }\
259 }
260
261 int Portal_CheckBox(model_t *model, vec3_t eye, vec3_t a, vec3_t b)
262 {
263         if (eye[0] >= (a[0] - 1.0f) && eye[0] < (b[0] + 1.0f)
264          && eye[1] >= (a[1] - 1.0f) && eye[1] < (b[1] + 1.0f)
265          && eye[2] >= (a[2] - 1.0f) && eye[2] < (b[2] + 1.0f))
266                 return true;
267
268         Portal_MinsBoxPolygon
269         (
270                 0, a[0],
271                 a[0], a[1], a[2],
272                 a[0], b[1], a[2],
273                 a[0], b[1], b[2],
274                 a[0], a[1], b[2]
275         );
276         Portal_MaxsBoxPolygon
277         (
278                 0, b[0],
279                 b[0], b[1], a[2],
280                 b[0], a[1], a[2],
281                 b[0], a[1], b[2],
282                 b[0], b[1], b[2]
283         );
284         Portal_MinsBoxPolygon
285         (
286                 1, a[1],
287                 b[0], a[1], a[2],
288                 a[0], a[1], a[2],
289                 a[0], a[1], b[2],
290                 b[0], a[1], b[2]
291         );
292         Portal_MaxsBoxPolygon
293         (
294                 1, b[1],
295                 a[0], b[1], a[2],
296                 b[0], b[1], a[2],
297                 b[0], b[1], b[2],
298                 a[0], b[1], b[2]
299         );
300         Portal_MinsBoxPolygon
301         (
302                 2, a[2],
303                 a[0], a[1], a[2],
304                 b[0], a[1], a[2],
305                 b[0], b[1], a[2],
306                 a[0], b[1], a[2]
307         );
308         Portal_MaxsBoxPolygon
309         (
310                 2, b[2],
311                 b[0], a[1], b[2],
312                 a[0], a[1], b[2],
313                 a[0], b[1], b[2],
314                 b[0], b[1], b[2]
315         );
316
317         return false;
318 }
319
320 vec3_t trianglepoints[3];
321
322 typedef struct portalrecursioninfo_s
323 {
324         int exact;
325         int numfrustumplanes;
326         vec3_t boxmins;
327         vec3_t boxmaxs;
328         int numsurfaces;
329         int *surfacelist;
330         qbyte *surfacepvs;
331         int numleafs;
332         int *leaflist;
333         qbyte *leafpvs;
334         model_t *model;
335         vec3_t eye;
336         float *updateleafsmins;
337         float *updateleafsmaxs;
338 }
339 portalrecursioninfo_t;
340
341 void Portal_RecursiveFlow_ExactLeafFaces(portalrecursioninfo_t *info, int *mark, int numleafsurfaces, int firstclipplane, int numclipplanes)
342 {
343         int i, j, *elements;
344         float *v[3], *vertex3f;
345         vec3_t trimins, trimaxs;
346         msurface_t *surface;
347         for (i = 0;i < numleafsurfaces;i++, mark++)
348         {
349                 if (!CHECKPVSBIT(info->surfacepvs, *mark))
350                 {
351                         surface = info->model->brush.data_surfaces + *mark;
352                         if (!BoxesOverlap(surface->mins, surface->maxs, info->boxmins, info->boxmaxs))
353                                 continue;
354                         vertex3f = surface->groupmesh->data_vertex3f;
355                         for (j = 0, elements = (surface->groupmesh->data_element3i + 3 * surface->num_firsttriangle);j < surface->num_triangles;j++, elements += 3)
356                         {
357                                 v[0] = vertex3f + elements[0] * 3;
358                                 v[1] = vertex3f + elements[1] * 3;
359                                 v[2] = vertex3f + elements[2] * 3;
360                                 if (PointInfrontOfTriangle(info->eye, v[0], v[1], v[2]))
361                                 {
362                                         trimins[0] = min(v[0][0], min(v[1][0], v[2][0]));
363                                         trimaxs[0] = max(v[0][0], max(v[1][0], v[2][0]));
364                                         trimins[1] = min(v[0][1], min(v[1][1], v[2][1]));
365                                         trimaxs[1] = max(v[0][1], max(v[1][1], v[2][1]));
366                                         trimins[2] = min(v[0][2], min(v[1][2], v[2][2]));
367                                         trimaxs[2] = max(v[0][2], max(v[1][2], v[2][2]));
368                                         if (BoxesOverlap(trimins, trimaxs, info->boxmins, info->boxmaxs))
369                                                 if (Portal_PortalThroughPortalPlanes(&portalplanes[firstclipplane], numclipplanes, v[0], 3, &portaltemppoints2[0][0], 256) >= 3)
370                                                         break;
371                                 }
372                         }
373                         if (j == surface->num_triangles)
374                                 continue;
375                         SETPVSBIT(info->surfacepvs, *mark);
376                         info->surfacelist[info->numsurfaces++] = *mark;
377                 }
378         }
379 }
380
381 void Portal_RecursiveFlow (portalrecursioninfo_t *info, mleaf_t *leaf, int firstclipplane, int numclipplanes)
382 {
383         mportal_t *p;
384         int newpoints, i, prev;
385         float dist;
386         vec3_t center, v1, v2;
387         tinyplane_t *newplanes;
388
389         for (i = 0;i < 3;i++)
390         {
391                 if (info->updateleafsmins && info->updateleafsmins[i] > leaf->mins[i]) info->updateleafsmins[i] = leaf->mins[i];
392                 if (info->updateleafsmaxs && info->updateleafsmaxs[i] < leaf->maxs[i]) info->updateleafsmaxs[i] = leaf->maxs[i];
393         }
394
395
396         if (info->leafpvs)
397         {
398                 int leafindex = leaf - info->model->brush.data_leafs;
399                 if (!CHECKPVSBIT(info->leafpvs, leafindex))
400                 {
401                         SETPVSBIT(info->leafpvs, leafindex);
402                         info->leaflist[info->numleafs++] = leafindex;
403                 }
404         }
405
406         // mark surfaces in leaf that can be seen through portal
407         if (leaf->numleafsurfaces && info->surfacepvs)
408         {
409                 if (info->exact)
410                         Portal_RecursiveFlow_ExactLeafFaces(info, leaf->firstleafsurface, leaf->numleafsurfaces, firstclipplane, numclipplanes);
411                 else
412                 {
413                         for (i = 0;i < leaf->numleafsurfaces;i++)
414                         {
415                                 int surfaceindex = leaf->firstleafsurface[i];
416                                 if (!CHECKPVSBIT(info->surfacepvs, surfaceindex))
417                                 {
418                                         msurface_t *surface = info->model->brush.data_surfaces + surfaceindex;
419                                         if (BoxesOverlap(surface->mins, surface->maxs, info->boxmins, info->boxmaxs))
420                                         {
421                                                 SETPVSBIT(info->surfacepvs, surfaceindex);
422                                                 info->surfacelist[info->numsurfaces++] = surfaceindex;
423                                         }
424                                 }
425                         }
426                 }
427         }
428
429         // follow portals into other leafs
430         for (p = leaf->portals;p;p = p->next)
431         {
432                 // only flow through portals facing the viewer
433                 dist = PlaneDiff(info->eye, (&p->plane));
434                 if (dist < 0 && BoxesOverlap(p->past->mins, p->past->maxs, info->boxmins, info->boxmaxs))
435                 {
436                         newpoints = Portal_PortalThroughPortalPlanes(&portalplanes[firstclipplane], numclipplanes, (float *) p->points, p->numpoints, &portaltemppoints2[0][0], 256);
437                         if (newpoints < 3)
438                                 continue;
439                         else if (firstclipplane + numclipplanes + newpoints > MAXRECURSIVEPORTALPLANES)
440                                 ranoutofportalplanes = true;
441                         else
442                         {
443                                 // find the center by averaging
444                                 VectorClear(center);
445                                 for (i = 0;i < newpoints;i++)
446                                         VectorAdd(center, portaltemppoints2[i], center);
447                                 // ixtable is a 1.0f / N table
448                                 VectorScale(center, ixtable[newpoints], center);
449                                 // calculate the planes, and make sure the polygon can see it's own center
450                                 newplanes = &portalplanes[firstclipplane + numclipplanes];
451                                 for (prev = newpoints - 1, i = 0;i < newpoints;prev = i, i++)
452                                 {
453                                         VectorSubtract(portaltemppoints2[prev], portaltemppoints2[i], v1);
454                                         VectorSubtract(info->eye, portaltemppoints2[i], v2);
455                                         CrossProduct(v1, v2, newplanes[i].normal);
456                                         VectorNormalizeFast(newplanes[i].normal);
457                                         newplanes[i].dist = DotProduct(info->eye, newplanes[i].normal);
458                                         if (DotProduct(newplanes[i].normal, center) <= newplanes[i].dist)
459                                         {
460                                                 // polygon can't see it's own center, discard and use parent portal
461                                                 break;
462                                         }
463                                 }
464                                 if (i == newpoints)
465                                         Portal_RecursiveFlow(info, p->past, firstclipplane + numclipplanes, newpoints);
466                                 else
467                                         Portal_RecursiveFlow(info, p->past, firstclipplane, numclipplanes);
468                         }
469                 }
470         }
471 }
472
473 void Portal_RecursiveFindLeafForFlow(portalrecursioninfo_t *info, mnode_t *node)
474 {
475         if (node->plane)
476         {
477                 float f = DotProduct(info->eye, node->plane->normal) - node->plane->dist;
478                 if (f > -0.1)
479                         Portal_RecursiveFindLeafForFlow(info, node->children[0]);
480                 if (f < 0.1)
481                         Portal_RecursiveFindLeafForFlow(info, node->children[1]);
482         }
483         else
484         {
485                 mleaf_t *leaf = (mleaf_t *)node;
486                 if (leaf->portals)
487                         Portal_RecursiveFlow(info, leaf, 0, info->numfrustumplanes);
488         }
489 }
490
491 void Portal_Visibility(model_t *model, const vec3_t eye, int *leaflist, qbyte *leafpvs, int *numleafspointer, int *surfacelist, qbyte *surfacepvs, int *numsurfacespointer, const mplane_t *frustumplanes, int numfrustumplanes, int exact, const float *boxmins, const float *boxmaxs, float *updateleafsmins, float *updateleafsmaxs)
492 {
493         int i;
494         portalrecursioninfo_t info;
495
496         // if there is no model, it can not block visibility
497         if (model == NULL)
498         {
499                 Con_Print("Portal_Visibility: NULL model\n");
500                 return;
501         }
502
503         Mod_CheckLoaded(model);
504
505         if (!model->brush.num_portals)
506         {
507                 Con_Print("Portal_Visibility: not a brush model\n");
508                 return;
509         }
510
511         // put frustum planes (if any) into tinyplane format at start of buffer
512         for (i = 0;i < numfrustumplanes;i++)
513         {
514                 VectorCopy(frustumplanes[i].normal, portalplanes[i].normal);
515                 portalplanes[i].dist = frustumplanes[i].dist;
516         }
517
518         ranoutofportalplanes = false;
519         ranoutofportals = false;
520
521         VectorCopy(boxmins, info.boxmins);
522         VectorCopy(boxmaxs, info.boxmaxs);
523         info.exact = exact;
524         info.numsurfaces = 0;
525         info.surfacelist = surfacelist;
526         info.surfacepvs = surfacepvs;
527         info.numleafs = 0;
528         info.leaflist = leaflist;
529         info.leafpvs = leafpvs;
530         info.model = model;
531         VectorCopy(eye, info.eye);
532         info.numfrustumplanes = numfrustumplanes;
533         info.updateleafsmins = updateleafsmins;
534         info.updateleafsmaxs = updateleafsmaxs;
535
536         Portal_RecursiveFindLeafForFlow(&info, model->brush.data_nodes);
537
538         if (ranoutofportalplanes)
539                 Con_Printf("Portal_RecursiveFlow: ran out of %d plane stack when recursing through portals\n", MAXRECURSIVEPORTALPLANES);
540         if (ranoutofportals)
541                 Con_Printf("Portal_RecursiveFlow: ran out of %d portal stack when recursing through portals\n", MAXRECURSIVEPORTALS);
542         if (numsurfacespointer)
543                 *numsurfacespointer = info.numsurfaces;
544         if (numleafspointer)
545                 *numleafspointer = info.numleafs;
546 }
547