Hi all,
It's a hokey one-liner, but I keep using it when I want to see what look
up tables are available in PDL::Graphics::LUT. I hope it helps someone!
Cheers,
Matt
perl -e 'use PDL;use PDL::Graphics::PGPLOT;
use PDL::Graphics::LUT;dev("/xs",3,15);
foreach(lut_names()){print"$_\n";ctab(lut_data($_));imag sequence(250,1);
text $_,20,-0.2,{CHARSIZE=>20,LINEWIDTH=>20,COLOUR=>0};
text $_,20,-0.2,{CHARSIZE=>20,LINEWIDTH=>1,COLOUR=>1};}'
--
Matthew Kenworthy / Instrument Scientist / CAAO / Steward Observatory
Room N414 / 933 N. Cherry Ave / Tucson AZ 85721 / vox 520 626 6720
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
