diff --git a/elements.inc b/elements.inc
index f5fb595..4a10dd4 100644
--- a/elements.inc
+++ b/elements.inc
@@ -38,9 +38,15 @@ union	{
 	#local xR  = (rand(Rng2)-0.5000) * kR;
 	#local yR  = (rand(Rng2)-0.5000) * kR;
 	#local zR  = (rand(Rng2)-0.5000) * kR;
-	#local Red = abs(sin(NormClock * 35.536));
-	#local Red = Red * rand(Rng2);
-	light_source { <xR, yR, xR>, rgb <Red, 0.03, 0.03>
+	#local Value = sin(NormClock * 25.536);
+	#if (Value < 0)
+	  #local Couleur = rgb <abs(Value), 0, 0>;
+	#else
+	  #local Couleur = rgb <0, abs(Value), 0>;
+	#end
+	#local Couleur = Couleur * rand(Rng2);
+	light_source {
+		<xR, yR, xR>, Couleur
 		fade_distance	0.99
 		fade_power	1.58
 		}