use PDL::Math;
     imag3d [SURF2D,bessj0(rvals(zeroes(50,50))/2)], {Lines=>0};