\(\(\( (*\ 
      for\ 3 - tuple\ from\ list\ of\ \(eight : \ \ 8  x\ 8  x\ 8\)\  = \ 
        512; \ \(+\ 20\)\ padding\  = \ 
        532\ \((c)\)\ Doug\ Youvan\ doug@youvan . com\ February\ 16, \ 
      2006; \ also\ see\ www . youvan . com\ and\ www . pseudocolor . 
          com\  . \ \ YOU\ NEED\ AT\ LEAST\ 256\ MB\ RAM\ TO\ RUN\ \(THIS!\); \ CLOSE\ ALL\ OTHER\ APPLICATIONS\ \ *) \)\(
\)\(
\)\(\(name = 
        Table[i, {i, 1, 10}];\)


    For[loop = 1, \ 
      loop ≤ 
        10, \ \(loop++\), 

bckrow =. ; 

      bckcol =. ; 
sum =. ; 
gsum =. ; 


      bckrow = Table[{x, y}, {x, 1, 532}, {y, 1, 532}]; 

      bckcol = Table[{x, y}, {x, 1, 532}, {y, 1, 532}]; 


      bckrow[\([All, All]\)] = {0.0, 0.0, 0.0}; 

      bckcol[\([All, All]\)] = {0.0, 0.0, 0.0}; 

      tup = Tuples[{
Random[
              Real, {\((\(-1.0\) + \((loop/400)\))\), \(-0.25\)}, 
              4], 
Random[
              Real, {\((\(-1.0\) + \((loop/400)\))\), \(-0.25\)}, 
              4], 
Random[
              Real, {\((0 + \((loop/100)\))\), 1.0}, 
              4], 
Random[
              Real, {\((0 + \((loop/100)\))\), 1.0}, 
              4], 
Random[
              Real, {\((1.0 - \((loop/100)\))\), 0.0}, 
              4], 
Random[
              Real, {\((1.0 - \((loop/100)\))\), 0.0}, 
              4], 
Random[
              Real, {0.25, \ \((1.0 - \((loop/400)\))\)}, 
              4], 
Random[
              Real, {0.25, \ \((1.0 - \((loop/400)\))\)}, 
              4]}, 
3]; 

For[j = 1, 
        j ≤ 512, \(j++\), bckcol[\([All, j]\)] = tup[\([j]\)]]; 

      For[i = 1, i ≤ 512, \(i++\), 
        bckrow[\([i, All]\)] = tup[\([i]\)]]; 

sum = bckrow + bckcol; 


      For[i = 1, i ≤ 532, \(i++\), 
        For[j = 1, 
          j ≤ 
            532, \(j++\), 
If[\((\((0 > 
                    sum[\([i, j, 1]\)])\) || \((sum[\([i, j, 1]\)] > 
                    1)\) || 
\((0 > 
                    sum[\([i, j, 2]\)])\) || \((sum[\([i, j, 2]\)] > 
                    1)\) || 
\((0 > 
                    sum[\([i, j, 3]\)])\) || \((sum[\([i, j, 3]\)] > 
                    1)\))\), 
\((\ 
              sum[\([i, j, 
                    1]\)] = \(sum[\([i, j, 2]\)] = \(sum[\([i, j, 3]\)] = 
                    0\)\))\)]]]; 

gsum = 
        Graphics[RasterArray[Apply[RGBColor, sum, {2}]], 
          AspectRatio -> \ error, \ 
          ImageSize -> {532, \ 532}]; \ \  (*\ 
        intentional\ error\ to\ get\ image\ size\ and\ aspect\ ratio\ correct\ in\ both\ the\ displayed\ and\ exported\ images\ *) 

Show[
        gsum]; 

Export["C:\Documents and Settings\Doug\Desktop\Mathematica\Anticolor512\" <> \ 
          ToString[name[\([loop]\)]]\  <> \ ".gif", \ gsum, \ "GIF", 
        ImageSize -> {532, 532}]; \ \  (*\ Formats : \ gif, \ GIF, \ 
        jpg, \ JPG, \ tif, \ 
        TIFF\ *) 

]\  (*\ 
      This\ right\ bracket\ is\ attached\ to\ the\ beginning\ loop\ *) 

    \)\)\)