Cool black random theme that also fades the folder list and slowly changes

the background color of the pages.

themes/darkness.php

@@ -0,0 +1,146 @@
+<?php
+   /** Author:       Tyler Akins
+       Theme Name:   "Darkness"
+
+       Like black?
+       
+   **/
+
+   $TargetDistance = 16384;
+
+function IsUnique($Distance, $r, $g, $b, $usedArray)
+{
+   foreach ($usedArray as $data) {
+      $a = abs($data[0] - $r);
+      $b = abs($data[1] - $g);
+      $c = abs($data[2] - $b);
+      $newDistance = $a * $a + $b * $b + $c * $c;
+      if ($newDistance < $Distance)
+         return false;
+   }
+   return true;
+}
+
+
+// Extra spiffy page fade if left frame
+// Always tremble background
+// This might make people go insane.  Yes!  *Victory dance!*
+function Darkness_HeaderPlugin() {
+   global $PHP_SELF, $Darkness_Transition;
+   
+   if (substr($PHP_SELF, -18) == "/src/left_main.php") {
+      echo '<meta http-equiv="Page-Enter" content="' .
+         'blendTrans(Duration=2.0)">' . "\n";
+   }
+	 
+?><script language=javascript>
+darkness_color = 0;
+darkness_dir = +1;
+darkness_hex = new Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", 
+   "A", "B", "C", "D", "E", "F");
+function DarknessTremble() {
+   if (darkness_color >= 32 || darkness_color <= 0)
+      darkness_dir = - darkness_dir;
+   darkness_color += darkness_dir;
+   if (darkness_color < 0)
+      darkness_color = 0;
+   bigDigit = Math.floor(darkness_color / 16);
+   littleDigit = darkness_color - (bigDigit * 16);
+   Color = darkness_hex[bigDigit] + darkness_hex[littleDigit];
+   document.bgColor="#" + Color + Color + Color;
+   setTimeout("DarknessTremble()", 5000);
+}
+setTimeout("DarknessTremble()", 10000);
+</script>
+<?PHP
+}
+
+global $squirrelmail_plugin_hooks;
+$squirrelmail_plugin_hooks['generic_header']['theme_darkness'] =
+    'Darkness_HeaderPlugin';
+
+   /** seed the random number generator **/
+   sq_mt_randomize();
+
+   $color[3] = "#000000";
+   $color[4] = "#000000";
+   $used = array(array(0, 0, 0));
+   $targetDistance = $TargetDistance;
+   $Left = array(0, 5, 9, 10, 12);
+   while (count($Left) > 0) {
+      // Some background colors
+      $r = mt_rand(32,64);
+      $g = $r;
+      $b = $r;
+      if (IsUnique($targetDistance, $r, $g, $b, $used)) {
+         $i = array_shift($Left);
+         $color[$i] = sprintf("#%02X%02X%02X",$r,$g,$b);
+	 $used[] = array($r, $g, $b);
+	 $targetDistance = $TargetDistance;
+      } else {
+         $targetDistance *= 0.9;
+      }
+   }
+   
+   // Set the error color to some shade of red
+   $r = mt_rand(196, 255);
+   $g = mt_rand(144, ($r * .8));
+   $color[2] = sprintf("#%02X%02X%02X", $r, $g, $g);
+   $used = array(array($r, $g, $g));
+   
+   // Set normal text colors
+   $cmin = 196;
+   $cmax = 255;
+   foreach (array(6, 8) as $i) {
+      /** generate random color **/
+      $r = mt_rand($cmin,$cmax);
+      $g = mt_rand($cmin,$cmax);
+      $b = mt_rand($cmin,$cmax);
+      $color[$i] = sprintf("#%02X%02X%02X",$r,$g,$b);
+      $used[] = array($r, $g, $b);
+   }
+      
+   $Left = array(1, 7, 11, 13, 14);
+   $targetDistance = $TargetDistance;
+   while (count($Left) > 0) {
+      // Text colors -- Try to keep the colors distinct
+      $cmin = 196;
+      $cmax = 255;
+      
+      /** generate random color **/
+      $r = mt_rand($cmin,$cmax);
+      $g = mt_rand($cmin,$cmax);
+      $b = mt_rand($cmin,$cmax);
+
+      if (IsUnique($targetDistance, $r, $g, $b, $used)) {
+         $i = array_shift($Left);
+         $color[$i] = sprintf("#%02X%02X%02X",$r,$g,$b);
+	 $used[] = array($r, $g, $b);
+	 $targetDistance = $TargetDistance;
+      } else {
+         $targetDistance *= 0.9;
+      }
+   }
+
+
+/** Reference from  doc/themes.txt
+
+b  0: Title Bar at the top of the page header
+f  1: <not currently used>
+f  2: Error messages, usually red
+b  3: Left folder list background color
+b  4: Normal background color
+b  5: Header of the message index [From, Date, Subject]
+f  6: Normal text on the left folder list
+f  7: Links in the right frame, Folders with subfolders in left frame
+f  8: Normal text [usually black]
+b  9: Darker version of #0
+b 10: Darker version of #9
+f 11: Special folders color [Inbox, Trash, Sent]
+b 12: Alternate color for message list [alters between 4 and this one]
+f 13: Color for single-quoted text ("> text") when reading (default:  #800000)
+f 14: Color for text with more than one quote (default: #FF0000)
+
+**/
+
+?>