+ basex = ((texnum >> 0) & 7) * PARTICLETEXTURESIZE;
+ basey = ((texnum >> 3) & 7) * PARTICLETEXTURESIZE;
+ particletexture[texnum].s1 = (basex + 1) / (float)PARTICLEFONTSIZE;
+ particletexture[texnum].t1 = (basey + 1) / (float)PARTICLEFONTSIZE;
+ particletexture[texnum].s2 = (basex + PARTICLETEXTURESIZE - 1) / (float)PARTICLEFONTSIZE;
+ particletexture[texnum].t2 = (basey + PARTICLETEXTURESIZE - 1) / (float)PARTICLEFONTSIZE;
+ for (y = 0;y < PARTICLETEXTURESIZE;y++)
+ memcpy(particletexturedata + ((basey + y) * PARTICLEFONTSIZE + basex) * 4, data + y * PARTICLETEXTURESIZE * 4, PARTICLETEXTURESIZE * 4);
+}
+
+void particletextureblotch(qbyte *data, float radius, float red, float green, float blue, float alpha)
+{
+ int x, y;
+ float cx, cy, dx, dy, f, iradius;
+ qbyte *d;
+ cx = (lhrandom(radius + 1, PARTICLETEXTURESIZE - 2 - radius) + lhrandom(radius + 1, PARTICLETEXTURESIZE - 2 - radius)) * 0.5f;
+ cy = (lhrandom(radius + 1, PARTICLETEXTURESIZE - 2 - radius) + lhrandom(radius + 1, PARTICLETEXTURESIZE - 2 - radius)) * 0.5f;
+ iradius = 1.0f / radius;
+ alpha *= (1.0f / 255.0f);
+ for (y = 0;y < PARTICLETEXTURESIZE;y++)
+ {
+ for (x = 0;x < PARTICLETEXTURESIZE;x++)
+ {
+ dx = (x - cx);
+ dy = (y - cy);
+ f = (1.0f - sqrt(dx * dx + dy * dy) * iradius) * alpha;
+ if (f > 0)
+ {
+ d = data + (y * PARTICLETEXTURESIZE + x) * 4;
+ d[0] += f * (red - d[0]);
+ d[1] += f * (green - d[1]);
+ d[2] += f * (blue - d[2]);
+ }
+ }
+ }
+}
+
+void particletextureclamp(qbyte *data, int minr, int ming, int minb, int maxr, int maxg, int maxb)
+{
+ int i;
+ for (i = 0;i < PARTICLETEXTURESIZE*PARTICLETEXTURESIZE;i++, data += 4)
+ {
+ data[0] = bound(minr, data[0], maxr);
+ data[1] = bound(ming, data[1], maxg);
+ data[2] = bound(minb, data[2], maxb);
+ }
+}
+
+void particletextureinvert(qbyte *data)
+{
+ int i;
+ for (i = 0;i < PARTICLETEXTURESIZE*PARTICLETEXTURESIZE;i++, data += 4)
+ {
+ data[0] = 255 - data[0];
+ data[1] = 255 - data[1];
+ data[2] = 255 - data[2];
+ }
+}
+
+// Those loops are in a separate function to work around an optimization bug in Mac OS X's GCC
+static void R_InitBloodTextures (qbyte *particletexturedata)
+{
+ int i, j, k, m;
+ qbyte data[PARTICLETEXTURESIZE][PARTICLETEXTURESIZE][4];
+
+ // blood particles
+ for (i = 0;i < 8;i++)
+ {
+ memset(&data[0][0][0], 255, sizeof(data));
+ for (k = 0;k < 24;k++)
+ particletextureblotch(&data[0][0][0], PARTICLETEXTURESIZE/16, 96, 0, 0, 160);
+ //particletextureclamp(&data[0][0][0], 32, 32, 32, 255, 255, 255);
+ particletextureinvert(&data[0][0][0]);
+ setuptex(tex_bloodparticle[i], &data[0][0][0], particletexturedata);
+ }
+
+ // blood decals
+ for (i = 0;i < 8;i++)
+ {
+ memset(&data[0][0][0], 255, sizeof(data));
+ m = 8;
+ for (j = 1;j < 10;j++)
+ for (k = min(j, m - 1);k < m;k++)
+ particletextureblotch(&data[0][0][0], (float)j*PARTICLETEXTURESIZE/64.0f, 96, 0, 0, 192 - j * 8);
+ //particletextureclamp(&data[0][0][0], 32, 32, 32, 255, 255, 255);
+ particletextureinvert(&data[0][0][0]);
+ setuptex(tex_blooddecal[i], &data[0][0][0], particletexturedata);
+ }
+