use PDL; use PDL::Graphics::TriD;
#Color Mandelbrot animation
nokeeptwiddling3d();
$a=zeroes 300,300;$r=$a->xlinvals(-1.5,0.5);
$i=$a->ylinvals(-1,1);
$t=$r;$u=$i;
for(1..30){$q=$r**2-$i**2+$t;
$h = 2*$r*$i+$u; $d=$r**2+$i**2;
$a=lclip($a,$_*($d>2.0)*($a==0));
($r,$i) = map{$_->clip(-5,5)}$q,$h;
imagrgb[($a==0)*($r/2+0.75),($a==0)*($i+1)/2,$a/30]};
# [press 'q' in the graphics window when done]
keeptwiddling3d();
twiddle3d();