+ }
+}
+
+
+void R_BuildLightList(void)
+{
+ int i;
+ dlight_t *cd;
+ rdlight_t *rd;
+
+ r_numdlights = 0;
+ c_dlights = 0;
+
+ if (!r_dynamic.integer)
+ return;
+
+ for (i = 0;i < MAX_DLIGHTS;i++)
+ {
+ cd = cl_dlights + i;
+ if (cd->radius <= 0)
+ continue;
+ rd = &r_dlight[r_numdlights++];
+ VectorCopy(cd->origin, rd->origin);
+ VectorScale(cd->color, cd->radius * 128.0f, rd->light);
+ rd->cullradius = (1.0f / 128.0f) * sqrt(DotProduct(rd->light, rd->light));
+ // clamp radius to avoid overflowing division table in lightmap code
+ if (rd->cullradius > 2048.0f)
+ rd->cullradius = 2048.0f;
+ rd->cullradius2 = rd->cullradius * rd->cullradius;
+ rd->lightsubtract = 1.0f / rd->cullradius2;
+ rd->ent = cd->ent;
+ r_numdlights++;
+ c_dlights++; // count every dlight in use
+ }
+}
+
+static int coronapolyindex[6] = {0, 1, 2, 0, 2, 3};
+
+void R_DrawCoronas(void)
+{
+ int i;
+ rmeshinfo_t m;
+ float tvxyz[4][4], tvst[4][2], scale, viewdist, diff[3], dist;
+ rdlight_t *rd;
+ memset(&m, 0, sizeof(m));
+ m.transparent = false;
+ m.blendfunc1 = GL_SRC_ALPHA;
+ m.blendfunc2 = GL_ONE;
+ m.depthdisable = true; // magic
+ m.numtriangles = 2;
+ m.numverts = 4;
+ m.index = coronapolyindex;
+ m.vertex = &tvxyz[0][0];
+ m.vertexstep = sizeof(float[4]);
+ m.tex[0] = R_GetTexture(lightcorona);
+ m.texcoords[0] = &tvst[0][0];
+ m.texcoordstep[0] = sizeof(float[2]);
+ tvst[0][0] = 0;
+ tvst[0][1] = 0;
+ tvst[1][0] = 0;
+ tvst[1][1] = 1;
+ tvst[2][0] = 1;
+ tvst[2][1] = 1;
+ tvst[3][0] = 1;
+ tvst[3][1] = 0;
+ viewdist = DotProduct(r_origin, vpn);
+ for (i = 0;i < r_numdlights;i++)
+ {
+ rd = r_dlight + i;
+ dist = (DotProduct(rd->origin, vpn) - viewdist);
+ if (dist >= 24.0f)
+ {
+ // trace to a point just barely closer to the eye
+ VectorSubtract(rd->origin, vpn, diff);
+ if (TraceLine(r_origin, diff, NULL, NULL, 0, true) == 1)
+ {
+ scale = 1.0f / 65536.0f;//64.0f / (dist * dist + 1024.0f);
+ m.cr = rd->light[0] * scale;
+ m.cg = rd->light[1] * scale;
+ m.cb = rd->light[2] * scale;
+ m.ca = 1;
+ if (fogenabled)
+ {
+ VectorSubtract(rd->origin, r_origin, diff);
+ m.ca *= 1 - exp(fogdensity/DotProduct(diff,diff));
+ }
+ // make it larger in the distance to keep a consistent size
+ //scale = 0.4f * dist;
+ //scale = 128.0f;
+ scale = rd->cullradius;
+ tvxyz[0][0] = rd->origin[0] - vright[0] * scale - vup[0] * scale;
+ tvxyz[0][1] = rd->origin[1] - vright[1] * scale - vup[1] * scale;
+ tvxyz[0][2] = rd->origin[2] - vright[2] * scale - vup[2] * scale;
+ tvxyz[1][0] = rd->origin[0] - vright[0] * scale + vup[0] * scale;
+ tvxyz[1][1] = rd->origin[1] - vright[1] * scale + vup[1] * scale;
+ tvxyz[1][2] = rd->origin[2] - vright[2] * scale + vup[2] * scale;
+ tvxyz[2][0] = rd->origin[0] + vright[0] * scale + vup[0] * scale;
+ tvxyz[2][1] = rd->origin[1] + vright[1] * scale + vup[1] * scale;
+ tvxyz[2][2] = rd->origin[2] + vright[2] * scale + vup[2] * scale;
+ tvxyz[3][0] = rd->origin[0] + vright[0] * scale - vup[0] * scale;
+ tvxyz[3][1] = rd->origin[1] + vright[1] * scale - vup[1] * scale;
+ tvxyz[3][2] = rd->origin[2] + vright[2] * scale - vup[2] * scale;
+ R_Mesh_DrawDecal(&m);
+ }
+ }
+ }