3
# This program is a simple diagnostic example to
4
# check if TriD imagrgb is working
8
use PDL::Graphics::TriD;
11
# $PDL::Graphics::TriD::verbose = 100;
12
$im = sequence(640,480)/640.0/480.0;
13
$im3 = $im->dummy(0,3);
15
# print "\$im3 has dims of @{[$im3->dims()]}\n";