Select Code to Download

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);

 
use PDL;
use PDL::Graphics::PGPLOT;
...
  #Finally we need to map the final 10x10 array to the 100x100 image 
$tr = pdl(0,10,0,0,0,10); 
vect $xcomp->slice($s), $ycomp->slice($s), {Transform=>$tr};