\(\(\( (*\ 
      Grayscale\ Rendering\ of\ Perpendicular\ Half - 
        Planes\ *) \)\(
\)\( (*\ Doug\ Youvan, \ 
      Copyright\ April\ 16, \ \(2006\  - \ www . youvan . com\  &\)\ www . 
          pseudocolor . com\ \ *) \)\(
\)\(
\)\(canvas = \ 
      Table[{x, y}, {x, 1, 250}, {y, 1, 250}]; 
    canvas[\([All, All]\)] = {0, 0, 
        0};\ 


    For[
a = 0, 
      a ≤ 32, \(a++\), 
n = 
        32^\((a/8.0)\); 
For[
x = 1, 
        x ≤ 32, \ \(x++\), 
        g = \((1.0/
                n)\)*\((x^\((a/
                    8.0)\))\); 
canvas[\([\ \ {112 + x}, 
              Range[1, 250]\ \ ]\)] = {g, g, 
            g}\ ; 
canvas[\([\ \ Range[1, 
                250], {112 + x}\ \ ]\)] = {g, g, 
            g}\ \ 
]; 

planes = 
        Graphics[RasterArray[Apply[RGBColor, canvas, {2}]], 
          ImageSize -> {250, 250}, 
          AspectRatio -> error]; \ 
Show[
        planes]; 
Export["C:\Documents and Settings\K64S\Desktop\Mathematica\Cross\" <> \ 
          ToString[a]\  <> \ ".gif", \ planes, \ "GIF", 
        ImageSize -> {250, 250}];
]

    \)\)\)