Select Code to Download

use PDL; use PDL::Graphics::TriD;
#Color Mandelbrot animation
...
# [press 'q' in the graphics window when done]
keeptwiddling3d();
twiddle3d();

use PDL;
use PDL::Graphics2D; #imports imag2d() and twiddle()
...
  $a /= $a->max;           # pixel values in [0.0,1.0]
  $a = sin(10*$a);
  $w = imag2d($a);