#!/usr/bin/perl
use PDL;
use PDL::Graphics::TriD;

# hit 'q' to exit

imag3d [sqrt(rvals(zeroes(50,50))/2)], {Lines=>0};