1 files changed, 86 insertions, 0 deletions
diff --git a/DTColorStack.c b/DTColorStack.c
new file mode 100644
index 0000000..9f9535f
--- /dev/null
+++ b/DTColorStack.c
@@ -0,0 +1,86 @@
+#strict 2
+
+global func GetClrModulationStack(object target)
+{
+	target || FatalError("GetClrModulationStack: no target object given");
+	return GetEffect("ClrModulationStack", target) || AddEffect("ClrModulationStack", target, 200);
+}
+
+global func AddClrModulation(int color, int baseColor, int factor, int precision, object target)
+{
+	baseColor = baseColor || RGB(127, 127, 127);
+	target = target || this || FatalError("AddClrModulation: no target object given");
+	factor = factor || 1;
+	precision = precision || 1;
+	
+	return EffectCall(target, GetClrModulationStack(target), "AddModulation", color, baseColor, factor, precision);
+}
+
+global func RemoveClrModulation(int id, object target)
+{
+	target = target || this || FatalError("RemoveClrModulation: no target object given");
+
+	return EffectCall(target, GetClrModulationStack(target), "RemoveModulation", id);
+}
+
+global func FxClrModulationStackStart(object target, int effectNumber, int temp)
+{
+	if(!temp)
+	{
+		EffectVar(1, target, effectNumber) = [];
+	}
+}
+
+global func FxClrModulationStackAddModulation(object target, int effectNumber, int color, int baseColor, int factor, int precision)
+{
+	ArrayAppend(EffectVar(1, target, effectNumber), [++EffectVar(0, target, effectNumber), color, baseColor, factor, precision]);
+	EffectCall(target, effectNumber, "ApplyModulation");
+	return EffectVar(0, target, effectNumber);
+}
+
+global func FxClrModulationStackRemoveModulation(object target, int effectNumber, int id)
+{
+	for(var i = 0; i < GetLength(EffectVar(1, target, effectNumber)); ++i)
+	{
+		if(EffectVar(1, target, effectNumber)[i][0] == id)
+		{
+			ArrayErase(EffectVar(1, target, effectNumber), i);
+			EffectCall(target, effectNumber, "ApplyModulation");
+			return true;
+		}
+	}
+	return 0;
+}
+
+global func FxClrModulationStackApplyModulation(object target, int effectNumber)
+{
+	if(GetLength(EffectVar(1, target, effectNumber)) == 0)
+	{
+		SetClrModulation(0, target);
+		return 0;
+	}
+	var r, g, b, a;
+	SplitRGBaValue(EffectVar(1, target, effectNumber)[0][1], r, g, b, a);
+	a = 255 - a;
+	for(var i = 1; i < GetLength(EffectVar(1, target, effectNumber)); ++i)
+	{
+		var clrPart = EffectVar(1, target, effectNumber)[i];
+		var mr, mg, mb, ma, br, bg, bb, ba;
+		SplitRGBaValue(clrPart[1], mr, mg, mb, ma);
+		SplitRGBaValue(clrPart[2], br, bg, bb, ba);
+		ma = 255 - ma;
+		a *= ma;
+		a /= 0xFF;
+		r += mr - br;
+		r *= clrPart[3];
+		r /= clrPart[4];
+		g += mg - bg;
+		g *= clrPart[3];
+		g /= clrPart[4];
+		b += mb - bb;
+		b *= clrPart[3];
+		b /= clrPart[4];
+	}
+	SetClrModulation(RGBa(BoundBy(r, 0, 255), BoundBy(g, 0, 255), BoundBy(b, 0, 255), 255 - a), target);
+	return true;
+}