+cvar_t r_lightningbeam_thickness = {CVAR_SAVE, "r_lightningbeam_thickness", "4"};
+cvar_t r_lightningbeam_scroll = {CVAR_SAVE, "r_lightningbeam_scroll", "5"};
+cvar_t r_lightningbeam_repeatdistance = {CVAR_SAVE, "r_lightningbeam_repeatdistance", "1024"};
+cvar_t r_lightningbeam_color_red = {CVAR_SAVE, "r_lightningbeam_color_red", "1"};
+cvar_t r_lightningbeam_color_green = {CVAR_SAVE, "r_lightningbeam_color_green", "1"};
+cvar_t r_lightningbeam_color_blue = {CVAR_SAVE, "r_lightningbeam_color_blue", "1"};
+cvar_t r_lightningbeam_qmbtexture = {CVAR_SAVE, "r_lightningbeam_qmbtexture", "0"};
+
+rtexture_t *r_lightningbeamtexture;
+rtexture_t *r_lightningbeamqmbtexture;
+rtexturepool_t *r_lightningbeamtexturepool;
+
+int r_lightningbeamelements[18] = {0, 1, 2, 0, 2, 3, 4, 5, 6, 4, 6, 7, 8, 9, 10, 8, 10, 11};
+
+void r_lightningbeams_start(void)
+{
+ r_lightningbeamtexturepool = R_AllocTexturePool();
+ r_lightningbeamtexture = NULL;
+ r_lightningbeamqmbtexture = NULL;
+}
+
+void r_lightningbeams_setupqmbtexture(void)
+{
+ r_lightningbeamqmbtexture = loadtextureimage(r_lightningbeamtexturepool, "textures/particles/lightning.pcx", 0, 0, false, TEXF_ALPHA | TEXF_PRECACHE);
+ if (r_lightningbeamqmbtexture == NULL)
+ Cvar_SetValueQuick(&r_lightningbeam_qmbtexture, false);
+}
+
+void r_lightningbeams_setuptexture(void)
+{
+#if 0
+#define BEAMWIDTH 128
+#define BEAMHEIGHT 64
+#define PATHPOINTS 8
+ int i, j, px, py, nearestpathindex, imagenumber;
+ float particlex, particley, particlexv, particleyv, dx, dy, s, maxpathstrength;
+ qbyte *pixels;
+ int *image;
+ struct {float x, y, strength;} path[PATHPOINTS], temppath;
+
+ image = Mem_Alloc(tempmempool, BEAMWIDTH * BEAMHEIGHT * sizeof(int));
+ pixels = Mem_Alloc(tempmempool, BEAMWIDTH * BEAMHEIGHT * sizeof(qbyte[4]));
+
+ for (imagenumber = 0, maxpathstrength = 0.0339476;maxpathstrength < 0.5;imagenumber++, maxpathstrength += 0.01)
+ {
+ for (i = 0;i < PATHPOINTS;i++)
+ {
+ path[i].x = lhrandom(0, 1);
+ path[i].y = lhrandom(0.2, 0.8);
+ path[i].strength = lhrandom(0, 1);
+ }
+ for (i = 0;i < PATHPOINTS;i++)
+ {
+ for (j = i + 1;j < PATHPOINTS;j++)
+ {
+ if (path[j].x < path[i].x)
+ {
+ temppath = path[j];
+ path[j] = path[i];
+ path[i] = temppath;
+ }
+ }
+ }
+ particlex = path[0].x;
+ particley = path[0].y;
+ particlexv = lhrandom(0, 0.02);
+ particlexv = lhrandom(-0.02, 0.02);
+ memset(image, 0, BEAMWIDTH * BEAMHEIGHT * sizeof(int));
+ for (i = 0;i < 65536;i++)
+ {
+ for (nearestpathindex = 0;nearestpathindex < PATHPOINTS;nearestpathindex++)
+ if (path[nearestpathindex].x > particlex)
+ break;
+ nearestpathindex %= PATHPOINTS;
+ dx = path[nearestpathindex].x + lhrandom(-0.01, 0.01);dx = bound(0, dx, 1) - particlex;if (dx < 0) dx += 1;
+ dy = path[nearestpathindex].y + lhrandom(-0.01, 0.01);dy = bound(0, dy, 1) - particley;
+ s = path[nearestpathindex].strength / sqrt(dx*dx+dy*dy);
+ particlexv = particlexv /* (1 - lhrandom(0.08, 0.12))*/ + dx * s;
+ particleyv = particleyv /* (1 - lhrandom(0.08, 0.12))*/ + dy * s;
+ particlex += particlexv * maxpathstrength;particlex -= (int) particlex;
+ particley += particleyv * maxpathstrength;particley = bound(0, particley, 1);
+ px = particlex * BEAMWIDTH;
+ py = particley * BEAMHEIGHT;
+ if (px >= 0 && py >= 0 && px < BEAMWIDTH && py < BEAMHEIGHT)
+ image[py*BEAMWIDTH+px] += 16;
+ }
+
+ for (py = 0;py < BEAMHEIGHT;py++)
+ {
+ for (px = 0;px < BEAMWIDTH;px++)
+ {
+ pixels[(py*BEAMWIDTH+px)*4+0] = bound(0, image[py*BEAMWIDTH+px] * 1.0f, 255.0f);
+ pixels[(py*BEAMWIDTH+px)*4+1] = bound(0, image[py*BEAMWIDTH+px] * 1.0f, 255.0f);
+ pixels[(py*BEAMWIDTH+px)*4+2] = bound(0, image[py*BEAMWIDTH+px] * 1.0f, 255.0f);
+ pixels[(py*BEAMWIDTH+px)*4+3] = 255;
+ }
+ }
+
+ Image_WriteTGARGBA(va("lightningbeam%i.tga", imagenumber), BEAMWIDTH, BEAMHEIGHT, pixels);
+ }
+
+ r_lightningbeamtexture = R_LoadTexture2D(r_lightningbeamtexturepool, "lightningbeam", BEAMWIDTH, BEAMHEIGHT, pixels, TEXTYPE_RGBA, TEXF_PRECACHE, NULL);
+
+ Mem_Free(pixels);
+ Mem_Free(image);
+#else
+#define BEAMWIDTH 64
+#define BEAMHEIGHT 128
+ float r, g, b, intensity, fx, width, center;
+ int x, y;
+ qbyte *data, *noise1, *noise2;
+
+ data = Mem_Alloc(tempmempool, BEAMWIDTH * BEAMHEIGHT * 4);
+ noise1 = Mem_Alloc(tempmempool, BEAMHEIGHT * BEAMHEIGHT);
+ noise2 = Mem_Alloc(tempmempool, BEAMHEIGHT * BEAMHEIGHT);
+ fractalnoise(noise1, BEAMHEIGHT, BEAMHEIGHT / 8);
+ fractalnoise(noise2, BEAMHEIGHT, BEAMHEIGHT / 16);
+
+ for (y = 0;y < BEAMHEIGHT;y++)
+ {
+ width = 0.15;//((noise1[y * BEAMHEIGHT] * (1.0f / 256.0f)) * 0.1f + 0.1f);
+ center = (noise1[y * BEAMHEIGHT + (BEAMHEIGHT / 2)] / 256.0f) * (1.0f - width * 2.0f) + width;
+ for (x = 0;x < BEAMWIDTH;x++, fx++)
+ {
+ fx = (((float) x / BEAMWIDTH) - center) / width;
+ intensity = 1.0f - sqrt(fx * fx);
+ if (intensity > 0)
+ intensity = pow(intensity, 2) * ((noise2[y * BEAMHEIGHT + x] * (1.0f / 256.0f)) * 0.33f + 0.66f);
+ intensity = bound(0, intensity, 1);
+ r = intensity * 1.0f;
+ g = intensity * 1.0f;
+ b = intensity * 1.0f;
+ data[(y * BEAMWIDTH + x) * 4 + 0] = (qbyte)(bound(0, r, 1) * 255.0f);
+ data[(y * BEAMWIDTH + x) * 4 + 1] = (qbyte)(bound(0, g, 1) * 255.0f);
+ data[(y * BEAMWIDTH + x) * 4 + 2] = (qbyte)(bound(0, b, 1) * 255.0f);
+ data[(y * BEAMWIDTH + x) * 4 + 3] = (qbyte)255;
+ }
+ }
+
+ r_lightningbeamtexture = R_LoadTexture2D(r_lightningbeamtexturepool, "lightningbeam", BEAMWIDTH, BEAMHEIGHT, data, TEXTYPE_RGBA, TEXF_PRECACHE, NULL);
+ Mem_Free(noise1);
+ Mem_Free(noise2);
+ Mem_Free(data);
+#endif
+}
+
+void r_lightningbeams_shutdown(void)
+{
+ r_lightningbeamtexture = NULL;
+ r_lightningbeamqmbtexture = NULL;
+ R_FreeTexturePool(&r_lightningbeamtexturepool);
+}
+
+void r_lightningbeams_newmap(void)
+{
+}
+
+void R_LightningBeams_Init(void)
+{
+ Cvar_RegisterVariable(&r_lightningbeam_thickness);
+ Cvar_RegisterVariable(&r_lightningbeam_scroll);
+ Cvar_RegisterVariable(&r_lightningbeam_repeatdistance);
+ Cvar_RegisterVariable(&r_lightningbeam_color_red);
+ Cvar_RegisterVariable(&r_lightningbeam_color_green);
+ Cvar_RegisterVariable(&r_lightningbeam_color_blue);
+ Cvar_RegisterVariable(&r_lightningbeam_qmbtexture);
+ R_RegisterModule("R_LightningBeams", r_lightningbeams_start, r_lightningbeams_shutdown, r_lightningbeams_newmap);
+}
+
+void R_CalcLightningBeamPolygonVertex3f(float *v, const float *start, const float *end, const float *offset)
+{
+ // near right corner
+ VectorAdd (start, offset, (v + 0));
+ // near left corner
+ VectorSubtract(start, offset, (v + 3));
+ // far left corner
+ VectorSubtract(end , offset, (v + 6));
+ // far right corner
+ VectorAdd (end , offset, (v + 9));
+}
+
+void R_CalcLightningBeamPolygonTexCoord2f(float *tc, float t1, float t2)
+{
+ if (r_lightningbeam_qmbtexture.integer)
+ {
+ // near right corner
+ tc[0] = t1;tc[1] = 0;
+ // near left corner
+ tc[2] = t1;tc[3] = 1;
+ // far left corner
+ tc[4] = t2;tc[5] = 1;
+ // far right corner
+ tc[6] = t2;tc[7] = 0;
+ }
+ else
+ {
+ // near right corner
+ tc[0] = 0;tc[1] = t1;
+ // near left corner
+ tc[2] = 1;tc[3] = t1;
+ // far left corner
+ tc[4] = 1;tc[5] = t2;
+ // far right corner
+ tc[6] = 0;tc[7] = t2;
+ }
+}
+
+void R_FogLightningBeam_Vertex3f_Color4f(const float *v, float *c, int numverts, float r, float g, float b, float a)