Add a way for photons to set the colour of FILT (major version bump required)

Also add some new FILT modes, and make FILT modes affect BIZR and
BRAY colour in the same way as they affect photon colour. Photons
passing next to DTEC will set the colour of all FILT in a straight
line starting from any FILT adjacent to the DTEC (a bit like an
ARAY beam), and the exact colour of the photon will be used for
FILT interactions instead of the colour based on temperature.

FILT tmp=4: red shift, tmp=5: blue shift. Size of shift determined
by FILT temperature. tmp=6: FILT has no effect on photon colour
(possible before by using invalid tmp modes, but here's a supported
method of doing it. Invalid tmp modes should be automatically replaced
in existing saves).

Also, FILT mode is now described in the HUD.

4 files changed, 83 insertions, 10 deletions

diff --git a/src/simulation/elements/ARAY.cpp b/src/simulation/elements/ARAY.cpp
index ac28834..16bff2d 100644
--- a/src/simulation/elements/ARAY.cpp
+++ b/src/simulation/elements/ARAY.cpp
@@ -98,7 +98,7 @@ int Element_ARAY::update(UPDATE_FUNC_ARGS)
 										break;
 									}
 								} else if ((r&0xFF)==PT_FILT) {//get color if passed through FILT
-									colored = parts[r>>8].ctype;
+									colored = Element_FILT::interactWavelengths(&parts[r>>8], colored);
 									//this if prevents BRAY from stopping on certain materials
 								} else if ((r&0xFF)!=PT_STOR && (r&0xFF)!=PT_INWR && ((r&0xFF)!=PT_SPRK || parts[r>>8].ctype!=PT_INWR) && (r&0xFF)!=PT_ARAY && (r&0xFF)!=PT_WIFI && !((r&0xFF)==PT_SWCH && parts[r>>8].life>=10)) {
 									if (nyy!=0 || nxx!=0) {
diff --git a/src/simulation/elements/CRAY.cpp b/src/simulation/elements/CRAY.cpp
index 2933dcf..b906c33 100644
--- a/src/simulation/elements/CRAY.cpp
+++ b/src/simulation/elements/CRAY.cpp
@@ -102,7 +102,7 @@ int Element_CRAY::update(UPDATE_FUNC_ARGS)
 										docontinue = 0;
 								}
 							} else if ((r&0xFF)==PT_FILT) { // get color if passed through FILT
-								colored = wavelengthToDecoColour(parts[r>>8].ctype);
+								colored = wavelengthToDecoColour(Element_FILT::getWavelengths(&parts[r>>8]));
 							} else if ((r&0xFF) == PT_CRAY || nostop) {
 								docontinue = 1;
 							} else if(destroy && r && ((r&0xFF) != PT_DMND)) {
diff --git a/src/simulation/elements/DTEC.cpp b/src/simulation/elements/DTEC.cpp
index 8ecaf2e..ed894a2 100644
--- a/src/simulation/elements/DTEC.cpp
+++ b/src/simulation/elements/DTEC.cpp
@@ -73,6 +73,7 @@ int Element_DTEC::update(UPDATE_FUNC_ARGS)
 					}
 				}
 	}
+	int photonWl = 0;
 	for (rx=-rd; rx<rd+1; rx++)
 		for (ry=-rd; ry<rd+1; ry++)
 			if (x+rx>=0 && y+ry>=0 && x+rx<XRES && y+ry<YRES && (rx || ry))
@@ -84,7 +85,32 @@ int Element_DTEC::update(UPDATE_FUNC_ARGS)
 					continue;
 				if (parts[r>>8].type == parts[i].ctype && (parts[i].ctype != PT_LIFE || parts[i].tmp == parts[r>>8].ctype || !parts[i].tmp))
 					parts[i].life = 1;
+				if (parts[r>>8].type == PT_PHOT)
+					photonWl = parts[r>>8].ctype;
 			}
+	if (photonWl)
+	{
+		int nx, ny;
+		for (rx=-1; rx<2; rx++)
+			for (ry=-1; ry<2; ry++)
+				if (BOUNDS_CHECK && (rx || ry))
+				{
+					r = pmap[y+ry][x+rx];
+					if (!r)
+						continue;
+					nx = x+rx;
+					ny = y+ry;
+					while ((r&0xFF)==PT_FILT)
+					{
+						parts[r>>8].ctype = photonWl;
+						nx += rx;
+						ny += ry;
+						if (nx<0 || ny<0 || nx>=XRES || ny>=YRES)
+							break;
+						r = pmap[ny][nx];
+					}
+				}
+	}
 	return 0;
 }
 
diff --git a/src/simulation/elements/FILT.cpp b/src/simulation/elements/FILT.cpp
index d6b82f2..62c3afc 100644
--- a/src/simulation/elements/FILT.cpp
+++ b/src/simulation/elements/FILT.cpp
@@ -48,21 +48,17 @@ Element_FILT::Element_FILT()
 
 //#TPT-Directive ElementHeader Element_FILT static int graphics(GRAPHICS_FUNC_ARGS)
 int Element_FILT::graphics(GRAPHICS_FUNC_ARGS)
-
 {
-	int x, temp_bin = (int)((cpart->temp-273.0f)*0.025f);
-	if (temp_bin < 0) temp_bin = 0;
-	if (temp_bin > 25) temp_bin = 25;
-	cpart->ctype = 0x1F << temp_bin;
+	int x, wl = Element_FILT::getWavelengths(cpart);
 	*colg = 0;
 	*colb = 0;
 	*colr = 0;
 	for (x=0; x<12; x++) {
-		*colr += (cpart->ctype >> (x+18)) & 1;
-		*colb += (cpart->ctype >>  x)     & 1;
+		*colr += (wl >> (x+18)) & 1;
+		*colb += (wl >>  x)     & 1;
 	}
 	for (x=0; x<12; x++)
-		*colg += (cpart->ctype >> (x+9))  & 1;
+		*colg += (wl >> (x+9))  & 1;
 	x = 624/(*colr+*colg+*colb+1);
 	*cola = 127;
 	*colr *= x;
@@ -73,5 +69,56 @@ int Element_FILT::graphics(GRAPHICS_FUNC_ARGS)
 	return 0;
 }
 
+//#TPT-Directive ElementHeader Element_FILT static int interactWavelengths(Particle* cpart, int origWl)
+// Returns the wavelengths in a particle after FILT interacts with it (e.g. a photon)
+// cpart is the FILT particle, origWl the original wavelengths in the interacting particle
+int Element_FILT::interactWavelengths(Particle* cpart, int origWl)
+{
+	const int mask = 0x3FFFFFFF;
+	int filtWl = getWavelengths(cpart);
+	switch (cpart->tmp)
+	{
+		case 0:
+			return filtWl; //Assign Colour
+		case 1:
+			return origWl & filtWl; //Filter Colour
+		case 2:
+			return origWl | filtWl; //Add Colour
+		case 3:
+			return origWl & (~filtWl); //Subtract colour of filt from colour of photon
+		case 4:
+			{
+				int shift = int((cpart->temp-273.0f)*0.025f);
+				if (shift<=0) shift = 1;
+				return (origWl << shift) & mask; // red shift
+			}
+		case 5:
+			{
+				int shift = int((cpart->temp-273.0f)*0.025f);
+				if (shift<=0) shift = 1;
+				return (origWl >> shift) & mask; // blue shift
+			}
+		case 6:
+			return origWl; // No change
+		default:
+			return filtWl;
+	}
+}
+
+//#TPT-Directive ElementHeader Element_FILT static int getWavelengths(Particle* cpart)
+int Element_FILT::getWavelengths(Particle* cpart)
+{
+	if (cpart->ctype)
+	{
+		return cpart->ctype;
+	}
+	else
+	{
+		int temp_bin = (int)((cpart->temp-273.0f)*0.025f);
+		if (temp_bin < 0) temp_bin = 0;
+		if (temp_bin > 25) temp_bin = 25;
+		return (0x1F << temp_bin);
+	}
+}
 
 Element_FILT::~Element_FILT() {}