FILT mode for old QRTZ scattering, for Catelite.

FILT graphics could maybe do with changing in this mode.

1 files changed, 8 insertions, 0 deletions

diff --git a/src/simulation/elements/FILT.cpp b/src/simulation/elements/FILT.cpp
index 9c7615f..8ece142 100644
--- a/src/simulation/elements/FILT.cpp
+++ b/src/simulation/elements/FILT.cpp
@@ -104,6 +104,14 @@ int Element_FILT::interactWavelengths(Particle* cpart, int origWl)
 			return origWl ^ filtWl; // XOR colours
 		case 8:
 			return (~origWl) & mask; // Invert colours
+		case 9:
+		{
+			int t1, t2, t3, r;
+			t1 = (origWl & 0x0000FF)+(rand()%5)-2;
+			t1 = ((origWl & 0x00FF00)>>8)+(rand()%5)-2;
+			t3 = ((origWl & 0xFF0000)>>16)+(rand()%5)-2;
+			return (origWl & 0xFF000000) | (t3<<16) | (t2<<8) | t1;
+		}
 		default:
 			return filtWl;
 	}