Matthew Kenworthy wrote:
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};}'
If someone has time [*] they could collect helpful little bits of code
like this in the wiki; also the image created here could go on the wiki
to save people actually having to type to see the results :-)
Doug
[* ie not me :-]
--
--------------------------------------------------------------
Doug Burke | Email: [EMAIL PROTECTED]
Harvard-Smithsonian | Phone: (617) 496 7853
Center for Astrophysics | Fax: (617) 495 7356
60 Garden Street MS-2 | Office: B-440
Cambridge, MA 02138 |
--------------------------------------------------------------
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
