PGPLOT-2.35/0000755000175000017500000000000014731233364012404 5ustar osboxesosboxesPGPLOT-2.35/INSTALL0000644000175000017500000000304113435120245013424 0ustar osboxesosboxesInstallation ------------ Last update to this file: Apr 10th 2006 1) First you must compile and install the pgplot graphics libraries: The source can be obtained from the ftp site astro.caltech.edu in directory /pub/pgplot. Alternatively see the home ftp sites above. To build pgplot you need a FORTRAN compiler - the free compiler GNU-77 (or the newer GFORTRAN) works just fine. There is a PGPLOT Home Page at: http://astro.caltech.edu/~tjp/pgplot/ 2) Download and unpack the module. Then follow the standard Perl build procedure: perl Makefile.PL If you want to install somewhere other than the standard perl location (e.g. in your home directory) replace this line with something like: perl Makefile.PL PREFIX=/home/me make make test [When you run 'make test' you will be prompted for a graphics device. Try /XSERVE for a X11 display.] If something goes wrong read the file HELP, if everything works: make install If you want to install in the standard perl location you will need to do this as root. (e.g. 'sudo make install') If you used PREFIX above the files will install themselves in /home/me/lib/perl5/site_perl/... Then to use them you will need to set the environment variable PERL5LIB to point to this, e.g. for csh users: setenv PERL5LIB /home/me/lib/perl5/site_perl ------------ See the file HELP for problem solutions. See the file INSTALL-Win32 for installation on Windows systems. See the file INSTALL-MacOSX for some Mac hints. PGPLOT-2.35/arrays.h0000644000175000017500000000206614012370505014051 0ustar osboxesosboxes/* These are the function prototypes for arrays.c */ /* Functions defined in this module, see header comments on each one for more details: */ #ifndef _INC_ARRAYS_ void* pack1D(SV* arg, char packtype); /* Pack perl 1D array */ void* pack2D(SV* arg, char packtype); /* Pack perl 1-2D array */ void* packND(SV* arg, char packtype); /* Pack perl array N-D array */ void unpack1D(SV* arg, void * var, /* Unpack 1D array */ char packtype, int n); AV* coerce1D ( SV* arg, int n ); /* Coerce/create array to specified size */ void* get_mortalspace( int n, char packtype ); /* Utility to just get workspace */ /* Sort out macro name changes in 5.004_53 (PATCHLEVEL < 5) Note that recent Perl versions don't define PATCHLEVEL by default */ #ifndef PATCHLEVEL #include #endif #if defined(PATCHLEVEL) && (PATCHLEVEL < 5) #define PL_na na #endif /* Prevent the prototypes being defined twice */ #define _INC_ARRAYS_ #endif PGPLOT-2.35/INSTALL-MacOSX0000644000175000017500000000140413435120245014515 0ustar osboxesosboxesInstallation on Mac OS X ------------------------ Last update to this file: Apr 10th 2006 Should be the same as for generic UNIX if libcpgplot and libpgplot are installed in 'the usual places' i.e. perl Makefile.PL PREFIX=/home/me make make test sudo make install This will then be installed in to something like /Library/Perl/5.8.6/... I compile the pgplot libs with gfortran 4.0 and everything worked smoothly (except for some device drivers I didn't need) after some fiddling. Note if pgplot includes the Aquaterm driver you will need to add the following by hand to the link step in the Makefile generated by Makefile.PL - -lpng -laquaterm -Wl,-framework -Wl,Foundation Sorry! One day maybe I can figure out how to autodetect this cleanly. PGPLOT-2.35/META.json0000644000175000017500000000276514731233364014037 0ustar osboxesosboxes{ "abstract" : "unknown", "author" : [ "unknown" ], "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010", "license" : [ "unknown" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : 2 }, "name" : "PGPLOT", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "Devel::CheckLib" : "1.14", "ExtUtils::F77" : "1.13" } }, "develop" : { "requires" : { "CPAN::Changes" : "0" } }, "runtime" : { "recommends" : { "PDL" : "2.089" }, "requires" : { "perl" : "5.010001" } }, "test" : { "requires" : { "Test::More" : "0.88" } } }, "release_status" : "stable", "resources" : { "bugtracker" : { "web" : "https://github.com/PDLPorters/perl5-PGPLOT/issues" }, "repository" : { "type" : "git", "url" : "git://github.com/PDLPorters/perl5-PGPLOT.git", "web" : "https://github.com/PDLPorters/perl5-PGPLOT" } }, "version" : "2.35", "x_IRC" : "irc://irc.perl.org/#pdl", "x_serialization_backend" : "JSON::PP version 4.04" } PGPLOT-2.35/typemap0000644000175000017500000000060214600070316013773 0ustar osboxesosboxesTYPEMAP int * T_INTP float T_NV float * T_FLOATP Logical T_IV int2D * T_INT2DP float2D * T_FLOAT2DP float_packed T_FLOATS INPUT T_INTP $var = ($type)pack1D($arg,'i') T_FLOATP $var = ($type)pack1D($arg,'f') T_INT2DP $var = ($type)pack2D($arg,'i') T_FLOAT2DP $var = ($type)pack2D($arg,'f') T_FLOATS $var = (float_packed)(SvPV(SvRV($arg), PL_na)) PGPLOT-2.35/INSTALL-Win320000644000175000017500000001067513435120245014337 0ustar osboxesosboxes INSTALL INSTRUCTIONS FOR Win32 Systems ======================================= Author: "Sisyphus" - sisyphus1 at optusnet dot com dot au Last update to this file: Apr 10th 2006 Caveats ======= Here's how to build the PGPLOT perl module on Win32 ... or at least here's one way to do it. There are no doubt other approaches that will work. These instructions relate to a native Win32 environment, NOT Cygwin. PGPLOT-2.19 should build straight out of the box on Cygwin if the pgplot C library can be found. I don't know what sort of graphics display Cygwin users have for running the test suite - they may also need to specify '/PNG'. From here on, I shall refer to the pgplot C library as "pgplot" - and to the perl module as "PGPLOT". ============= PRELIMINARIES ============= First up you need a pgplot C library against which to build PGPLOT. I've used Jose Fonseca's (MinGW-built) pgplot library available from http://www.kalinabears.com.au/w32perl/pgplot-5.2.2-mingw32.tar.bz2. It's an old port, but is adequate for building PGPLOT if you can't find a more recent port - and don't want to (or can't) build pgplot yourself. If you do want to build pgplot yourself using MinGW, then the diff at the following location might be useful to you: http://jrfonseca.home.dyndns.org/projects/gnu-win32/software/ported/patches/pgplot-5.2.2-mingw32.diff.gz Anyway, Fonseca's port of pgplot has all the files needed to build PGPLOT for both MinGW-built perl and MSVC++-built perl: pgplot/bin/cpgplot.dll pgplot/bin/pgplot.dll pgplot/bin/grfont.dat pgplot/include/cpgplot.h pgplot/lib/cpgplot.a pgplot/lib/pgplot.a The location of the 2 dll's (cpgplot.dll and pgplot.dll) needs to be added to the system path. We also need to set an environment variable so the system can find grfont.dat: set PGPLOT_FONT=\full_path\to_grfont.dat\grfont.dat On Win32 I don't have a decent graphics display, so I use PGPLOT's capability to write images to a png file. For that it's also necessary to add the location of libpng.dll and zlib.dll to the system path. (These can both be readily Googled if you don't have them.) The pgplot library needs to be found by the PGPLOT build process. To make sure that happens copy libcpgplot.a and libpgplot.a from Fonseca's library to X:\usr\lib. And copy cpgplot.h from Fonseca's library to X:\usr\include. (You'll need to replace X with whatever letter it is that denotes the drive you're building PGPLOT in - ie if your PGPLOT build directory is in the D drive, copy to D:\usr\lib and D:\usr\include respectively.) Install dmake (available from http://search.cpan.org/dist/dmake/) if you don't already have it and add the location of dmake.exe to your path. Install MinGW (available from http://www.mingw.org/download.shtml) if you don't already have it and add the MinGW\bin folder to your path. That should take care of the preliminaries. ================ MINGW-BUILT PERL ================ Having done the preliminaries: Install ExtUtils::F77-1.15 or later (from CPAN source). Then build PGPLOT by simply running (as per usual): perl Makefile.PL dmake dmake test (Here you'll be prompted to specify '/PNG' so that the tests can be written to png files and viewed at the conclusion of the test suite.) dmake install =========================================================== MSVC-BUILT PERL (including ActiveState and IndigoStar perl) =========================================================== Having done the preliminaries: Install Extutils::FakeConfig (according to the instructions in its readme). Install Extutils::F77-1.15 or later (from CPAN source) by running: perl -MConfig_m Makefile.PL dmake dmake test dmake install Then build PGPLOT by running: perl -MConfig_m Makefile.PL dmake dmake test (Here you'll be prompted to specify '/PNG' so that the tests can be written to png files and viewed at the conclusion of the test suite.) dmake install For ActiveState builds 815 and later it should NOT be necessary to install ExtUtils::FakeConfig as these builds should work seamlessly with dmake and the MinGW compiler. If you have such a build of ActiveState perl and opt to NOT install ExtUtils::FakeConfig, then do NOT supply the '-MConfig_m' option whenever running 'perl Makefile.PL'. Other than that, the procedure is identical. If that involves too much work there are ppm packages (which include the png and zlib dll's) for PGPLOT available from http://www.kalinabears.com.au/w32perl/pgplot.html (for both perl-5.6 and perl-5.8). PGPLOT-2.35/MANIFEST.SKIP0000644000175000017500000000067014012371716014301 0ustar osboxesosboxes%$ -stamp$ .*/TAGS$ .*Version_check$ .*\#$ .*\.0$ .*\.orig$ .*\.rej$ \.swp$ .exe$ /\.\#.* /pm_to_blib$ /tmp.* MANIFEST\.bak$ MANIFEST\.old META\.json META\.yml Makefile$ Makefile\.aperl Makefile\.old \.(tmp|new|diff|ori)$ \.BAK$ \.bck$ \.bs$ \.bundle$ \.lck$ \.m$ \.o$ \.out$ \.patch$ \.so$ \.tar\.gz$ /core$ \b_eumm/ ^\.\#.* ^\.exists ^\.git ^blib/ ^perl$ ^pm_to_blib$ ~$ ^xt/ ^\.github/ ^PGPLOT\.[co] \.gcov$ \.gcda$ \.gcno$ ^cover_db/ PGPLOT-2.35/t/0000755000175000017500000000000014731233364012647 5ustar osboxesosboxesPGPLOT-2.35/t/t6.t0000644000175000017500000000241714012360100013346 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing perl function passing to pgconx"; # Read in image (int*2 raw byte array) my $img=""; open(my $fh,"test.img") || die "Data file test.img not found"; if($^O =~ /mswin32/i) {binmode($fh)} read($fh, $img, 32768); close($fh) or die "Can't close test.img: $!"; note length($img)," bytes read\n"; my @image = unpack("n*",$img); print $#image+1," element image stored\n"; PGPLOT::pgbegin(0,$dev,1,1); note "Plotting"; PGPLOT::pgsci(3); PGPLOT::pgwnad(1,128,1,128); PGPLOT::pgbox("BCNST",0,0,"BCNST",0,0); PGPLOT::pglabel("X","Y","Dropped Galaxy"); PGPLOT::pgsci(5); PGPLOT::pgsls(1); my @cont = (-1,1000,2000,3000,4000,5000); PGPLOT::pgsci(5); PGPLOT::pgconx(\@image, 128, 128, 1,128,1,128, \@cont, 6, "squashplot"); PGPLOT::pgwnad(0,1000,0,1000); PGPLOT::pgend(); pass; done_testing; sub squashplot { my ($visible,$x,$y,$z) = @_; my $xworld = $x*$x/128; my $yworld = $y*$y/128; if ($visible) { PGPLOT::pgdraw($xworld,$yworld); }else{ PGPLOT::pgmove($xworld,$yworld); } } PGPLOT-2.35/t/t10.t0000644000175000017500000000370014012623747013440 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing multiple ways of passing things"; # Create 138x128 image - note must use transpose as # perl is column major like C (see docs) my $k=0; my (@img1D, @img2D); for(my $i=0; $i<128; $i++) { for(my $j=0; $j<138; $j++) { $img2D[$i][$j] = sqrt($i*$j) / 128; $img1D[$k] = $img2D[$i][$j]; $k++; # For 1D test }} my $imgchar = pack("f*",@img1D); PGPLOT::pgbegin(0,$dev,2,2); # Open plot device note "Plotting..."; my @tr=(0,1,0,0,0,1); my @x=(10,20,30,40,50,60,70,80,90,100,110); my @y=(30,35,40,45,50,55,60,65,70,75, 80); nextplot('Points: scalars passed one by one','Image: packed char string'); PGPLOT::pggray($imgchar,138,128,1,138,1,128,1,0,\@tr); for(my $i=0; $i<11; $i++){ PGPLOT::pgpt(1,$x[$i],$y[$i],17) } nextplot('Points: 1D array passed by glob','Image: 1D array passed by glob'); PGPLOT::pggray(\@img1D,138,128,1,138,1,128,1,0,\@tr); PGPLOT::pgpt(11,\@x,\@y,17); nextplot('Points: 1D array passed by reference','Image: 1D array passed by reference'); PGPLOT::pggray(\@img1D,138,128,1,138,1,128,1,0,\@tr); PGPLOT::pgpt(11,\@x,\@y,17); nextplot('Line: 1D cross-section of 2D array','Image: 2D array passed by reference'); PGPLOT::pggray(\@img2D,138,128,1,138,1,128,1,0,\@tr); PGPLOT::pgwindow(0,128,0,1); PGPLOT::pgline(128, [0..127], $img2D[127]); PGPLOT::pgend(); pass; done_testing; sub nextplot { note $_[0]; note $_[1]; note "--------------------------------------"; PGPLOT::pgpage(); PGPLOT::pgwnad(0,128,0,128); PGPLOT::pgsci(3); PGPLOT::pgsch(1.3); PGPLOT::pgbox("BCST",0,0,"BCST",0,0); if ($^O ne 'freebsd') { # blows up for some reason PGPLOT::pgmtext('T',1.0,0.2,0,$_[0]); PGPLOT::pgmtext('T',2.4,0.2,0,$_[1]); } PGPLOT::pgsci(4); } PGPLOT-2.35/t/lut.t0000644000175000017500000000225114657501272013643 0ustar osboxesosboxesuse strict; use warnings; use Test::More; BEGIN { eval {require PDL}; plan skip_all => "No PDL, can't test this ($@)" if $@; } use PDL::LiteF; use PDL::Types; use PDL::Graphics::LUT; my @names = lut_names(); isnt scalar(@names), 0, "lut_names returns non-empty list"; my @cols = lut_data( $names[0] ); is( scalar(@cols), 4, "lut_data returns 4 columns" ); is( $cols[0]->nelem, $cols[1]->nelem, "equal number of elements in cols 0 and 1"); is( $cols[2]->get_datatype, $PDL_F, "datatype of col 2 is float"); # check we can reverse things my @cols2 = lut_data( $names[0], 1 ); ok( all( approx($cols[3]->slice('-1:0'),$cols2[3])), "reverse lut works"); # check we know about the intensity ramps my @ramps = lut_ramps(); isnt scalar(@ramps), 0, "lut_ramps returns some ramps"; # load in a different intensity ramp my @cols3 = lut_data( $names[0], 0, $ramps[0] ); is( $cols3[0]->nelem, $cols3[1]->nelem, "intensity ramp nelem check"); ok( all(approx($cols[1],$cols3[1], 1e-6)), "intensity ramp vals check") or diag '[ difference, subtract, c[1], c3[1] ]: ', explain [ abs($cols[1] - $cols3[1]).'', ($cols[1] - $cols3[1]).'', $cols[1].'', $cols3[1].'', ]; done_testing; PGPLOT-2.35/t/t8.t0000644000175000017500000000200514012360571013355 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing scalars in array routines"; PGPLOT::pgbegin(0,$dev,1,1); # Open plot device PGPLOT::pgscf(2); PGPLOT::pgslw(4); PGPLOT::pgsch(1.6); PGPLOT::pgenv(10.0,30.0,-2.0,6.0,0,0); PGPLOT::pgsci(6); PGPLOT::pglabel("X axis \\gP","Y axis \\gF","Top Label \\gW"); PGPLOT::pgsci(7); PGPLOT::pgbbuf(); for(my $i=0; $i<10; $i++) { my $x = $i+15; my $y = $i-1; my $e = 0.9; my $x1 = $x - $e; my $x2 = $x + 2.0* $e; my $y1 = $y - 0.7* $e; my $y2 = $y + 0.3* $e; PGPLOT::pgsci(7); PGPLOT::pgpoint(1,$x,$y,$i+5); PGPLOT::pgsci(3); PGPLOT::pgerrb(3,1,$x,$y,4,3.0); PGPLOT::pgsci(2); PGPLOT::pgerrx(1,$x1,$x2,$y,1); PGPLOT::pgerry(1,$x,$y2,$y1,.1); } PGPLOT::pgebuf(); PGPLOT::pgiden(); PGPLOT::pgend(); pass; done_testing; PGPLOT-2.35/t/t2.t0000644000175000017500000001325314012623711013354 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing advanced point and line plot routines"; PGPLOT::pgbegin(0,$dev,1,1); PGPLOT::pgscf(2); # Set label character font PGPLOT::pgslw(4); # Set line width PGPLOT::pgsch(1.6); # Set label character height PGPLOT::pgenv(10.0,30.0,-2.0,6.0,0,0); PGPLOT::pgsci(6); PGPLOT::pglabel("X axis \\gP","Y axis \\gF","Top Label \\gW"); PGPLOT::pgsci(7); my $i=-1; our (@x, @y, @e, @x1, @x2, @y1, @y2); while(){ $i++; ($x[$i], $y[$i]) = split(' '); } PGPLOT::pgline($i,*x,*y); PGPLOT::pgsci(3); for($i=0; $i<10; $i++) { $x[$i] = $i+15; $y[$i] = $i-1; $e[$i] = 0.9; $x1[$i] = $x[$i] - $e[$i]; $x2[$i] = $x[$i] + 2.0* $e[$i]; $y1[$i] = $y[$i] - 0.7* $e[$i]; $y2[$i] = $y[$i] + 0.3* $e[$i]; } PGPLOT::pgpoint(10,\@x,\@y,14); PGPLOT::pgerrx(10,\@x1,\@x2,*y,1); PGPLOT::pgerry(10,*x,*y2,*y1,.1); # Note we can also pass globs PGPLOT::pgsci(2); PGPLOT::pgsah(1,30,0.5); PGPLOT::pgarro(20,0,25,2); PGPLOT::pgmtext('B', -2.0, 0.95, 1, "This is a test") if $^O ne 'freebsd'; # blows up for some reason PGPLOT::pgsci(9); PGPLOT::pgptxt(25,2,35,0,'This way...'); PGPLOT::pgqinf("CURSOR", my $ans, my $l); if ($ans eq "YES") { diag "Entering interactive cursor test...\n"; PGPLOT::pgsci(4); diag "Enter some points with the cursor, press 'x' when done\n"; our (@xt, @yt); PGPLOT::pglcur(5, (my $n = 0),\@xt,\@yt); PGPLOT::pgsci(9); PGPLOT::pgpoint($n,*xt,*yt,20); for(@xt) { diag sprintf "%5.2f ",$_; } for(@yt) { diag sprintf "%5.2f ",$_; } PGPLOT::pgsci(2); PGPLOT::pgpoly($n,\@xt,\@yt); } PGPLOT::pgiden(); PGPLOT::pgend(); pass; done_testing; __DATA__ 17.000000000000 1.8515548576633 17.090909090909 1.8907204814559 17.181818181818 1.9295359694614 17.272727272727 1.9680015320877 17.363636363636 2.0061177764022 17.454545454545 2.0438854788985 17.545454545455 2.0813053106065 17.636363636364 2.1183775285123 17.727272727273 2.1551016548418 17.818181818182 2.1914761754610 17.909090909091 2.2274982964675 18.000000000000 2.2631637990568 18.090909090909 2.2984670235480 18.181818181818 2.3334009941233 18.272727272727 2.3679576705054 18.363636363636 2.4021282884047 18.454545454545 2.4359037344501 18.545454545455 2.4692748984585 18.636363636364 2.5022329570773 18.727272727273 2.5347695641881 18.818181818182 2.5668769479863 18.909090909091 2.5985479346970 19.000000000000 2.6297759289711 19.090909090909 2.6605548795749 19.181818181818 2.6908792486119 19.272727272727 2.7207439885008 19.363636363636 2.7501445190802 19.454545454545 2.7790766916671 19.545454545455 2.8075367289695 19.636363636364 2.8355211378950 19.727272727273 2.8630266031458 19.818181818182 2.8900498792887 19.909090909091 2.9165877047968 20.000000000000 2.9426367619456 20.090909090909 2.9681937015030 20.181818181818 2.9932552421733 20.272727272727 3.0178183437014 20.363636363636 3.0418804415552 20.454545454545 3.0654397220766 20.545454545455 3.0884954112766 20.636363636364 3.1110480486517 20.727272727273 3.1330997194487 20.818181818182 3.1546542241000 20.909090909091 3.1757171712601 21.000000000000 3.1962959901364 21.090909090909 3.2163998676902 21.181818181818 3.2360396257475 21.272727272727 3.2552275607789 21.363636363636 3.2739772736228 21.454545454545 3.2923035164850 21.545454545455 3.3102220796353 21.636363636364 3.3277497309551 21.727272727273 3.3449042097046 21.818181818182 3.3617042642169 21.909090909091 3.3781697143502 22.000000000000 3.3943215153121 22.090909090909 3.4101818004154 22.181818181818 3.4257738855463 22.272727272727 3.4411222258316 22.363636363636 3.4562523231832 22.454545454545 3.4711905905443 22.545454545455 3.4859641839488 22.636363636364 3.5006008167596 22.727272727273 3.5151285717900 22.818181818182 3.5295757265490 22.909090909091 3.5439706045569 23.000000000000 3.5583414614507 23.090909090909 3.5727164084470 23.181818181818 3.5871233678865 23.272727272727 3.6015900466180 23.363636363636 3.6161439038134 23.454545454545 3.6308120817070 23.545454545455 3.6456212622683 23.636363636364 3.6605974115804 23.727272727273 3.6757653780882 23.818181818182 3.6911483216329 23.909090909091 3.7067669668871 24.000000000000 3.7226386953562 24.090909090909 3.7387765105380 24.181818181818 3.7551879257226 24.272727272727 3.7718738281295 24.363636363636 3.7888273645828 24.454545454545 3.8060328765675 24.545454545455 3.8234648968141 24.636363636364 3.8410872196533 24.727272727273 3.8588520839843 24.818181818182 3.8766995601456 24.909090909091 3.8945572940574 25.000000000000 3.9123408056662 25.090909090909 3.9299545354314 25.181818181818 3.9472937671957 25.272727272727 3.9642474355297 25.363636363636 3.9807016791172 25.454545454545 3.9965438681261 25.545454545455 4.0116667476424 25.636363636364 4.0259723198282 25.727272727273 4.0393751330183 25.818181818182 4.0518047388756 25.909090909091 4.0632071938271 26.000000000000 4.0735455942983 PGPLOT-2.35/t/t4.t0000644000175000017500000000246714012357377013377 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing greyscale, contour and vector routines"; # Read in image (int*2) my $img=""; open my $fh, "test.img" or die "Data file test.img not found: $!"; binmode $fh if $^O =~ /mswin32/i; read($fh, $img, 32768); close $fh or die "Can't close test.img: $!"; note length($img)," bytes read\n"; my @image = unpack("n*",$img); note $#image+1," element image stored\n"; PGPLOT::pgbegin(0,$dev,1,1); note "Plotting...\n"; PGPLOT::pgsci(3); PGPLOT::pgwnad(12000,13000,13000,12000); my @tr=(12000,8,0,12000,0,8); PGPLOT::pggray(\@image,128,128,1,128,1,128,5000,0,\@tr); PGPLOT::pglabel("\\ga","\\gd","Galaxy"); PGPLOT::pgtbox("ZYHBCNST",0,0,"ZYDBCNST",0,0); PGPLOT::pgwedg('R', 2, 5, 5000, 0, 'Counts'); PGPLOT::pgsci(4); PGPLOT::pgsls(1); my @cont = (-1,1000,2000,3000,4000,5000); PGPLOT::pgcons(\@image, 128, 128, 1,128,1,128, \@cont, 6, \@tr); PGPLOT::pgwnad(0,1000,0,1000); @tr=(0,100,0,0,0,100); PGPLOT::pgsah(1,30,0.5); PGPLOT::pgsci(2); PGPLOT::pgvect([(30) x 100], [(50) x 100], 10, 10, 1,9,1,9, 1, 1, \@tr, -10000); PGPLOT::pgend(); pass; done_testing; PGPLOT-2.35/t/t1.t0000644000175000017500000000237014700635352013361 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; diag <){ # Read data in 2 columns from file handle # and put in two perl arrays ($x[$i], $y[$i]) = split(' '); $i++; } # Plot points - note how perl arrays are passed PGPLOT::pgpoint($i,\@x,\@y,17); PGPLOT::pgend(); # Close plot pass; done_testing; __DATA__ 1 -4.5 2 -4 3 -3.2 4 -2.1 5 -1 6 0.3 7 1.2 8 2.4 9 2.9 PGPLOT-2.35/t/t5.t0000644000175000017500000000162514012357655013372 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; PGPLOT::pgbegin(0,$dev,2,2); PGPLOT::pgsci(3); PGPLOT::pgscf(2); PGPLOT::pgsch(1.4); my $pi=3.141592654; # Anonymous subs! PGPLOT::pgfunx(sub{ sqrt($_[0]) }, 500, 0, 10, 0); PGPLOT::pgfuny(sub{ sin(4*$_[0]) }, 360, 0, 2*$pi, 0); # Pass by name and pass by reference PGPLOT::pgfunt("funt_x", "funt_y", 360,0, 2*$pi, 0); PGPLOT::pgfunt(\&funt_x2, \&funt_y2, 360,0, 2*$pi, 0); PGPLOT::pgend(); pass; done_testing; sub funt_x { my($t)=$_[0]; return cos($t);; } sub funt_y { my($t)=$_[0]; return sin($t); } sub funt_x2 { my($t)=$_[0]; return cos(4*$t)*cos($t);; } sub funt_y2 { my($t)=$_[0]; return cos(4*$t)*sin($t); } PGPLOT-2.35/t/t9.t0000644000175000017500000000461614641117533013376 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; plan skip_all => 'CI fails with bus error' if $^O eq 'darwin' and $ENV{CI}; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing PGPLOT 5.0 colour image routines"; # Read in image (int*2) my $img=""; open(my $fh,"test.img") || die "Data file test.img not found"; if($^O =~ /mswin32/i) {binmode($fh)} read($fh, $img, 32768); close($fh) or die "Can't close test.img: $!"; note length($img)," bytes read"; my @image = unpack("n*",$img); note $#image+1," element image stored"; PGPLOT::pgbegin(0,$dev,1,1); # Open plot device note "Plotting..."; PGPLOT::pgsci(3); PGPLOT::pgwnad(12000,13000,13000,12000); my @tr=(12000,8,0,12000,0,8); PGPLOT::pgimag(\@image,128,128,1,128,1,128,0,5000,\@tr); PGPLOT::pglabel("\\ga","\\gd","Galaxy"); PGPLOT::pgtbox("ZYHBCNST",0,0,"ZYDBCNST",0,0); # Note: pgimag() usually defaults to a grey scale unless you explicitly set # a colour ramp look-up table with pgctab(). Because it is a look # up table it can be set after drawing the image. It is best to set an # explicit LUT as a grey scale default can not be guaranteed on all devices. # Set PHIL2 colour table my @l=(0,0.004,0.502,0.941,1); my @r=(0,0,1,1,1); my @g=(0,0,0.2,1,1); my @b=(0,0.2,0,0.1,1); PGPLOT::pgctab(\@l,\@r,\@g,\@b,5,1,0.5); PGPLOT::pgsci(4); PGPLOT::pgsls(1); my @cont = (-1,1000,2000,3000,4000,5000); PGPLOT::pgcons(\@image, 128, 128, 1,128,1,128, \@cont, 6, \@tr); for(@cont){ PGPLOT::pgconl(\@image, 128, 128, 1,128,1,128, $_, \@tr, $_,200,100); } PGPLOT::pgsci(4); PGPLOT::pgscf(2); my (@xbox, @ybox); PGPLOT::pgqtxt(12125,12100,45,0.5,'PGPLOT...',\@xbox,\@ybox); PGPLOT::pgpoly(4,\@xbox, \@ybox); PGPLOT::pgsci(7); PGPLOT::pgptxt(12125,12100,45,0.5,'PGPLOT...'); PGPLOT::pgqinf("CURSOR",my $ans,my $l); if ($ans eq "YES") { for(my $mode=0; $mode<8; $mode++){ note "Entering interactive PGBAND test MODE=$mode, hit any key, Q to exit early..."; PGPLOT::pgsci($mode+1); PGPLOT::pgband($mode,0,12500,12500,my $x,my $y,my $ch); last if $ch eq "q" || $ch eq "Q"; PGPLOT::pgqtxt($x,$y,45,0.5,'PGPLOT...',\@xbox,\@ybox); PGPLOT::pgpoly(4,\@xbox, \@ybox); PGPLOT::pgsci($mode+2); PGPLOT::pgptxt($x,$y,45,0.5,'PGPLOT...'); }} PGPLOT::pgend(); pass; done_testing; PGPLOT-2.35/t/t7.t0000644000175000017500000000155014012360354013357 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing pghi2d routine"; # Read in image (int*2) my $img=""; open(my $fh,"test.img") || die "Data file test.img not found"; if($^O =~ /mswin32/i) {binmode($fh)} read($fh, $img, 32768); close($fh) or die "Can't close test.img: $!"; note length($img)," bytes read"; my @image = unpack("n*",$img); note $#image+1," element image stored"; PGPLOT::pgbegin(0,$dev,1,1); note "Plotting\n"; PGPLOT::pgenv(0,256,0,65000,0,0); PGPLOT::pgsci(5); my @xvals = (1..128); my @work = (1..128); PGPLOT::pghi2d(\@image, 128, 128, 1,128,1,128, \@xvals, 1, 200, 1, \@work); PGPLOT::pgend(); pass; done_testing; PGPLOT-2.35/t/t11.t0000644000175000017500000000632014012362352013432 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing Object-Oriented stuff"; PGPLOT::pgbegin(9,$dev,1,1); PGPLOT::pgwnad(-100,100,-100,100); PGPLOT::pgpage(); PGPLOT::pgbox('BC',0,0,'BC',0,0); # Define some object classes ############################################################## package Square; # Create a new Square - colour is first argument sub new { my $type = shift; # Ignore as we know we are a Square; my $self = {}; # $self is ref to anonymous hash my $colour = shift; $colour = 2 unless defined($colour); # Default is red $self->{'Colour'}=$colour; $self->{'Xvertices'} = [-10, 10, 10,-10, -10]; # Initialise as square $self->{'Yvertices'} = [-10,-10, 10, 10, -10]; bless $self; } # Method to plot a Square object at $x,$y sub plot { my $self = shift; my($x,$y) = @_; my(@xpts) = @{$self->{'Xvertices'}}; my(@ypts) = @{$self->{'Yvertices'}}; for (@xpts) { $_ = $_ + $x } for (@ypts) { $_ = $_ + $y } PGPLOT::pgsci($self->{'Colour'}); PGPLOT::pgpoly(scalar(@xpts), \@xpts, \@ypts); PGPLOT::pgsci(1); PGPLOT::pgline(scalar(@xpts), \@xpts, \@ypts); } # Method to expand a Square object sub expand { my $self = shift; my $fac = shift; my $xpts = $self->{'Xvertices'}; my $ypts = $self->{'Yvertices'}; for (@$xpts) { $_ = $_ * $fac } for (@$ypts) { $_ = $_ * $fac } } # Method to rotate a Square object sub rotate { my $self = shift; my $angle = (shift)*(3.141592564/180); my $x = $self->{'Xvertices'}; my $y = $self->{'Yvertices'}; my ($x2,$y2); for(my $i=0; $i<=$#{$x}; $i++) { $x2 = $$x[$i]*cos($angle) + $$y[$i]*sin($angle); $y2 = -$$x[$i]*sin($angle) + $$y[$i]*cos($angle); $$x[$i] = $x2; $$y[$i] = $y2; } } ############################################################## package Triangle; # Only difference is "new" method. Otherwise inherit # all other properties from "Square"; our @ISA = qw( Square ); # Create a new Triangle sub new { my $type = shift; # Ignore as we know we are a Square; my $self = {}; # $self is ref to anonymous hash my $colour = shift; $colour = 3 unless defined($colour); # Default is green $self->{'Colour'}=$colour; $self->{'Xvertices'} = [-10, 10, 0, -10]; # Initialise as square $self->{'Yvertices'} = [-10,-10, 5, -10]; bless $self; } ############################################################## # Now let's use these objects package main; note "Testing Square Objects..."; my $shape1 = new Square; # Plot first shape at 50,50; note "Square plot method..."; $shape1->plot(50,50); note "Square expand and rotate methods..."; $shape1->expand(2.3); # Make the shape bigger $shape1->rotate(20); # Rotate the shape bigger $shape1->plot(-20,-50); note "Inheriting Square methods in Triangles..."; my $shape2 = new Triangle; $shape2->plot(-20,50); my $shape3 = new Triangle(4); # Blue triangle $shape3->rotate(-15); $shape3->expand(1.5); $shape3->plot(50,-50); PGPLOT::pgend(); pass; done_testing; PGPLOT-2.35/t/pdl-graphics.t0000644000175000017500000001337514600070515015412 0ustar osboxesosboxesBEGIN{ # Set perl to not try to resolve all symbols at startup # The default behavior causes some problems because # the PGPLOT code defines interfaces for all PGPLOT functions # whether or not they are linked. $ENV{'PERL_DL_NONLAZY'}=0; } use strict; use warnings; use Test::More; use PGPLOT; BEGIN { eval {require PDL}; plan skip_all => "No PDL, can't test this ($@)" if $@; plan skip_all => "DISPLAY environment variable not set" if !exists $ENV{'DISPLAY'} and !exists $ENV{HARNESS_ACTIVE}; } use PDL; use PDL::Graphics::PGPLOT; use PDL::Graphics::PGPLOT::Window; sub get_answer () { print STDERR "Does this look OK (y/n, y is default)? :"; my $answer = ; return $answer !~ m/n/i; } my $tick_txt = <<'EOD'; PGPLOT X device... you should see a 6 inch (153 mm) x 4 inch (102 mm) X window with four plots in it. All four images should have tick marks on the outside of the axes. [ Scaled image of m51; scale [Scaled image of m51 with scale from in pixels on both axes ] X=[-1.8, 2.0],Y=[-1.9, 1.9] arcmin, with cal. wedge, centered in rect. frame] [ Square image of m51; scale [Square image of m51 with scale as above, in pixels on both axes; ``shrink-wrapped''] ``shrinkwrapped'' ] EOD my $pitch_txt = <<'EOD'; ============================================================== You should see four plots demonstrating pitch setting, justification, and alignment: [ Square image of m51 scaled to [Short, squat image of m51 with 300 ppi (1.25 inches wide), aligned aspect ratio 1:2, width 1.25 inch, to bottom left corner of rect. plot and height 0.625 inch, shrinkwrapped box and cropped at the top. ] and placed at lower left of plot rgn] [ Square image of m51 scaled to [Tall, narrow image of m51 with 300 ppi (1.25 inches wide), aligned aspect ratio 2:1, width 0.625 inch, to upper right corner of rect. plot and height 1.25 inch, shrinkwrapped box and cropped at the bottom. ] and placed at upper right of plot rgn] EOD my $fib_txt = <<'EOD'; ============================================================== You should see two windows: One with two graphs, left with Fibonacci curve One with one graph EOD sub interactive ($$) { my $flag = shift; return unless $flag; # ie not interactive my $num = shift; if (1 == $num) { print STDERR $tick_txt; } elsif (2 == $num) { print STDERR $pitch_txt; } elsif (3 == $num) { print STDERR $fib_txt; } else { die "Internal error: unknown test number $num for interactive()!\n"; } return get_answer(); } my $interactive = exists($ENV{'PDL_INT'}); my $skip_interactive_msg = "no interactive tests as env var PDL_INT not set"; my $interactive_ctr = 0; my $dev = $ENV{'PGPLOT_DEV'} || "/xw"; $dev = '/null' if exists $ENV{HARNESS_ACTIVE} and not $interactive; my $w = PDL::Graphics::PGPLOT::Window->new( Dev => $dev, Size=> [6,4], NX=>2, NY=>2, Ch=>2.5, HardCH=>2.5 ); isa_ok($w, "PDL::Graphics::PGPLOT::Window"); # try and find m51.fits my @f = qw(PDL Demos m51.fits); our $m51file = undef; foreach my $path ( @INC ) { my $file = File::Spec->catfile( $path, @f ); if ( -f $file ) { $m51file = $file; last; } } die "Unable to find m51.fits within the perl libraries.\n" unless defined $m51file; my $x = rfits($m51file); ############################## # Page 1 # foreach my $str ( '$w->imag($x,{Title=>"\$w->imag(\$x);"} );', '$w->fits_imag($x,{Title=>"\$w->fits_imag(\$x);"});', '$w->imag($x,{J=>1,Title=>"\$w->imag(\$x,{J=>1});"});', '$w->fits_imag($x,{J=>1,Title=>"\$w->fits_imag(\$x,{J=>1});"});' ) { my $result = eval $str; is $@, '', "eval '$str'"; isnt $result, 0, 'returned true'; } $interactive_ctr++; SKIP: { skip $skip_interactive_msg, 1 unless $interactive; ok(interactive($interactive, $interactive_ctr), "interactive tests"); } ############################## # Page 2 # foreach my $str ( ( '$w->imag($x,{Pitch=>300,Align=>"LB",Title=>"\$w->imag(\$x,{Pitch=>300,Align=>LB})"});', '$w->imag($x,{J=>.5,Pitch=>300,Align=>"LB",Title=>"\$w->imag(\$x,{J=>.5,Pitch=>300,Align=>LB})"});', '$w->imag($x,{Pitch=>300,Align=>"RT",Title=>"\$w->imag(\$x,{Pitch=>300,Align=>RT})"});', '$w->imag($x,{J=>2,Pitch=>600,Align=>"RT",Title=>"\$w->imag(\$x,{J=>2,Pitch=>600,Align=>RT}) ."});', ) ) { my $result = eval $str; is $@, '', "eval '$str'"; isnt $result, 0, 'returned true'; } $interactive_ctr++; SKIP: { skip $skip_interactive_msg, 1 unless $interactive; ok(interactive($interactive, $interactive_ctr), "interactive tests"); } my $result = eval '$w->close'; is $@, '', "close window"; isnt $result, 0, 'returned true'; my @opts = (Device => $dev, Aspect => 1, WindowWidth => 5); my $rate_win = PDL::Graphics::PGPLOT::Window->new(@opts, NXPanel => 2); my $area_win = PDL::Graphics::PGPLOT::Window->new(@opts); isa_ok($rate_win, "PDL::Graphics::PGPLOT::Window"); isa_ok($area_win, "PDL::Graphics::PGPLOT::Window"); foreach my $str ( ( q($rate_win->env(0, 10, 0, 1000, {XTitle => 'Days', YTitle => '#Rabbits'})), q($rate_win->env(0, 10, 0, 100, {Xtitle=>'Days', Ytitle => 'Rabbits/day'})), q($area_win->env(0, 1, 0, 1, {XTitle => 'Km', Ytitle => 'Km'})), q($rate_win->line(sequence(10), fibonacci(10), {Panel => [1, 1]})), ) ) { my $result = eval $str; is $@, '', "eval '$str'"; isnt $result, 0, 'returned true'; } $interactive_ctr++; SKIP: { skip $skip_interactive_msg, 1 unless $interactive; ok(interactive($interactive, $interactive_ctr), "interactive tests"); } for my $win ($rate_win, $area_win) { my $result = eval { $win->close }; is $@, '', "close window"; isnt $result, 0, 'returned true'; } diag 'On X you need to close the X window to continue' if $interactive; done_testing; PGPLOT-2.35/t/00-report-prereqs.t0000644000175000017500000001347614660426261016257 0ustar osboxesosboxesuse strict; use warnings; # This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.020 # THEN modified with more info by Ed J for PDL project use Test::More tests => 1; use ExtUtils::MakeMaker; use File::Spec; # from $version::LAX my $lax_version_re = qr/(?: undef | (?: (?:[0-9]+) (?: \. | (?:\.[0-9]+) (?:_[0-9]+)? )? | (?:\.[0-9]+) (?:_[0-9]+)? ) | (?: v (?:[0-9]+) (?: (?:\.[0-9]+)+ (?:_[0-9]+)? )? | (?:[0-9]+)? (?:\.[0-9]+){2,} (?:_[0-9]+)? ) )/x; # hide optional CPAN::Meta modules from prereq scanner # and check if they are available my $cpan_meta = "CPAN::Meta"; my $cpan_meta_pre = "CPAN::Meta::Prereqs"; my $HAS_CPAN_META = eval "require $cpan_meta; $cpan_meta->VERSION('2.120900')" && eval "require $cpan_meta_pre"; ## no critic # Verify requirements? my $DO_VERIFY_PREREQS = 1; sub _max { my $max = shift; $max = ( $_ > $max ) ? $_ : $max for @_; return $max; } sub _merge_prereqs { my ($collector, $prereqs) = @_; # CPAN::Meta::Prereqs object if (ref $collector eq $cpan_meta_pre) { return $collector->with_merged_prereqs( CPAN::Meta::Prereqs->new( $prereqs ) ); } # Raw hashrefs for my $phase ( keys %$prereqs ) { for my $type ( keys %{ $prereqs->{$phase} } ) { for my $module ( keys %{ $prereqs->{$phase}{$type} } ) { $collector->{$phase}{$type}{$module} = $prereqs->{$phase}{$type}{$module}; } } } return $collector; } my @include = qw( ); my @exclude = qw( ); # Add static prereqs to the included modules list my $static_prereqs = do 't/00-report-prereqs.dd'; # Merge all prereqs (either with ::Prereqs or a hashref) my $full_prereqs = _merge_prereqs( ( $HAS_CPAN_META ? $cpan_meta_pre->new : {} ), $static_prereqs ); # Add dynamic prereqs to the included modules list (if we can) my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml'; if ( $source && $HAS_CPAN_META ) { if ( my $meta = eval { CPAN::Meta->load_file($source) } ) { $full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs); } } else { $source = 'static metadata'; } my @full_reports; my @dep_errors; my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs; # Add static includes into a fake section for my $mod (@include) { $req_hash->{other}{modules}{$mod} = 0; } for my $phase ( qw(configure build test runtime develop other) ) { next unless $req_hash->{$phase}; next if ($phase eq 'develop' and not $ENV{AUTHOR_TESTING}); for my $type ( qw(requires recommends suggests conflicts modules) ) { next unless $req_hash->{$phase}{$type}; my $title = ucfirst($phase).' '.ucfirst($type); my @reports = [qw/Module Want Have Where Howbig/]; for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) { next if $mod eq 'perl'; next if grep { $_ eq $mod } @exclude; my $file = $mod; $file =~ s{::}{/}g; $file .= ".pm"; my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC; my $want = $req_hash->{$phase}{$type}{$mod}; $want = "undef" unless defined $want; $want = "any" if !$want && $want == 0; my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required"; if ($prefix) { my $filename = File::Spec->catfile($prefix, $file); my $have = MM->parse_version( $filename ); $have = "undef" unless defined $have; push @reports, [$mod, $want, $have, $prefix, (-s $filename)]; if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) { if ( $have !~ /\A$lax_version_re\z/ ) { push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)"; } elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) { push @dep_errors, "$mod version '$have' is not in required range '$want'"; } } } else { push @reports, [$mod, $want, "missing", '', 0]; if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) { push @dep_errors, "$mod is not installed ($req_string)"; } } } if ( @reports ) { push @full_reports, "=== $title ===\n\n"; my $ml = _max( map { length $_->[0] } @reports ); my $wl = _max( map { length $_->[1] } @reports ); my $hl = _max( map { length $_->[2] } @reports ); my $ll = _max( map { length $_->[3] } @reports ); # location my $sl = _max( map { length $_->[4] } @reports ); # size if ($type eq 'modules') { splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl, "-" x $ll, "-" x $sl]; push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports; } else { splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl, "-" x $ll, "-" x $sl]; push @full_reports, map { sprintf(" %*s %*s %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2], -$ll, $_->[3], $sl, $_->[4]) } @reports; } push @full_reports, "\n"; } } } if ( @full_reports ) { diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports; } if ( @dep_errors ) { diag join("\n", "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n", "The following REQUIRED prerequisites were not satisfied:\n", @dep_errors, "\n" ); } pass; # vim: ts=4 sts=4 sw=4 et: PGPLOT-2.35/t/t12.t0000644000175000017500000000330214012363766013442 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing some new PGPLOT 5.2.0 routines"; PGPLOT::pgqinf("VERSION", my $val, my $len); $val =~ s/\.//g; $val =~ s/v//; plan skip_all => "PGPLOT version must be > 5.2.0 for this test $val\n" if $val<520; # Read in image (int*2) my $img=""; open(my $fh,"test.img") || die "Data file test.img not found"; if($^O =~ /mswin32/i) {binmode($fh)} read($fh, $img, 32768); close($fh) or die "can't close test.img: $!"; note length($img)," bytes read"; my @image = unpack("n*",$img); note $#image+1," element image stored"; PGPLOT::pgbegin(0,$dev,1,1); note "Plotting"; PGPLOT::pgsci(3); PGPLOT::pgwnad(12000,13000,13000,12000); my @tr=(12000,8,0,12000,0,8); PGPLOT::pglabel("\\ga","\\gd","Galaxy"); PGPLOT::pgtbox("ZYHBCNST",0,0,"ZYDBCNST",0,0); PGPLOT::pgsci(4); PGPLOT::pgconf(\@image, 128, 128, 1,128,1,128, 1000,2000, \@tr); PGPLOT::pgsci(2); PGPLOT::pgconf(\@image, 128, 128, 1,128,1,128, 2000,3000, \@tr); my @cont = (-1,1000,2000,3000,4000,5000); PGPLOT::pgsci(7); PGPLOT::pgcons(\@image, 128, 128, 1,128,1,128, \@cont, 6, \@tr); PGPLOT::pgsci(1); PGPLOT::pgaxis('LN2',12500,12800,12900,12100,1,4,0,0, 1,2,0.5, -2,30); PGPLOT::pgtick(12500,12800,12900,12100, 0.35, 3,5, 6,90,'pgperl!'); PGPLOT::pgqndt(my $ndrivers); note "Testing pgqdt() - $ndrivers drivers found"; for my $n (1..$ndrivers) { PGPLOT::pgqdt($n,my $type,my $tlen,my $descr,my $dlen,my $inter); note "$n: $type $tlen $descr $dlen $inter"; } PGPLOT::pgend(); pass; done_testing; PGPLOT-2.35/t/eu-f77-dump.t0000644000175000017500000000045314660440613015011 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use ExtUtils::F77; pass "ok"; my $mod = 'ExtUtils::F77'; is $mod->testcompiler, 1, 'testcompiler method returns 1'; is $mod->runtimeok, 1, 'runtime libs found'; diag "Method: $_, ", explain $mod->$_ for qw(runtime trail_ compiler cflags); done_testing; PGPLOT-2.35/t/t3.t0000644000175000017500000000127014012356745013363 0ustar osboxesosboxesuse strict; use warnings; use Test::More; use Config; # Stop f77-linking causing spurious undefined symbols (alpha) $ENV{'PERL_DL_NONLAZY'}=0 if $Config{'osname'} eq "dec_osf"; require PGPLOT; my $dev = $ENV{PGPLOT_DEV} || '/NULL'; $ENV{PGPLOT_XW_WIDTH}=0.3; note "Testing histogram routines"; my $i=0; my @data=(); while(){ $i++; chop; $data[$i-1] = $_; } PGPLOT::pgbegin(0,$dev,1,1); PGPLOT::pgscf(2); PGPLOT::pgslw(4); PGPLOT::pgsch(1.6); PGPLOT::pgsci(6); PGPLOT::pgsci(7); PGPLOT::pghist($i,\@data,0,10,10,2); PGPLOT::pglabel("Data Value","Number of data items","Test histogram"); PGPLOT::pgend(); pass; done_testing; __DATA__ 1 1 2 3 4 7 3 5 7 3 5 6 2 2 2 2 1 6 7 PGPLOT-2.35/pgcompatbility.p0000644000175000017500000000145513435120245015612 0ustar osboxesosboxes ;# Single point routines provided for backwards compatability ;# with old perl4 version of pgperl - note array routines ;# can now be used directly, e.g.: pgpt(1,$x,$y,$symbol) etc. sub pgerrb1 { die 'Usage: &pgerrb1($dir,$x,$y,$e,$t)' if (scalar(@_)!=5); local($dir,$x,$y,$e,$t) = @_; pgerrb($dir,1,$x,$y,$e,$t); } sub pgerrx1 { die 'Usage: &pgerrx1($x1,$x2,$y,$t)' if (scalar(@_)!=4); local($x1,$x2,$y,$t) = @_; pgerrx(1,$x1,$x2,$y,$t); } sub pgerry1 { die 'Usage: &pgerry1($x,$y1,$y2,$t)' if (scalar(@_)!=4); local($x,$y1,$y2,$t) = @_; pgerry(1,$x,$y1,$y2,$t); } sub pgpoint1 {pgpt1(@_)} sub pgpt1 { die 'Usage: &pgpt1($xpts,$ypts,$symbol)' if (scalar(@_)!=3); local($xpts,$ypts,$symbol) = @_; pgpt(1,$xpts,$ypts,$symbol); } ;# Exit with OK status 1; PGPLOT-2.35/HINTS.osf0000644000175000017500000000221013435120245013766 0ustar osboxesosboxes Digital Unix (dec_osf) ---------------------- Often a problem like this: apollo% perl -Iblib test.pl Default Device for plot tests [recommend /XSERVE] ? ============== Running test1.p ============== Can't load '/scratch/astrop/vjm/build/PGPLOT-2.11/blib/arch/auto/PGPLOT/PGPLOT.so' for module PGPLOT: dlopen: cannot load /scratch/astrop/vjm/build/PGPLOT-2.11/blib/arch/auto/PGPLOT/PGPLOT.so at /usr/physics/lib/perl5/DynaLoader.pm line 140, chunk 1. at /scratch/astrop/vjm/build/PGPLOT-2.11/blib/lib/PGPLOT.pm line 29 BEGIN failed--compilation aborted at test1.p line 3, chunk 1. The answer: From: Vince McIntyre Karl the immediate problem was LD_LIBRARY_PATH and the bastard OSF/1 ld. When I added /usr/X11R6/lib to LD_LIBRARY_PATH, the module loads ok. The problem appears to be that our libcpgplot doesn't have runtime paths embedded, and we need LD_LIBRARY_PATH. So you're off the hook :-) All I have to do now is figure out what's wrong with our installation of the pgplot x11 devices... Thanks for listening Vince ------------------------------------------------------------------------------ PGPLOT-2.35/pgfun.c0000644000175000017500000000716414700634722013676 0ustar osboxesosboxes /* This file contains miscelleneous C code which is required to initialise the module and handle C<->perl function passing. */ /* Alternate ways of calling F77 from C */ #ifdef NO_TRAILING_USCORE #define PGFUNX pgfunx #define PGFUNY pgfuny #define PGFUNT pgfunt #define PGCONX pgconx #else #define PGFUNX pgfunx_ #define PGFUNY pgfuny_ #define PGFUNT pgfunt_ #define PGCONX pgconx_ #endif /* Prototypes */ static SV* pgfunname[2]; float pgfun1(); float pgfun2(); void pgfunplot(); void PGFUNX(float fy(), int *n, float *xmin, float *xmax, int *pgflag); void PGFUNY(float fx(), int *n, float *ymin, float *ymax, int *pgflag); void PGFUNT(float fx(), float fy(), int *n, float *tmin, float *tmax, int *pgflag); void PGCONX(float *a, int *idim, int *jdim, int *i1, int *i2, int *j1, int *j2, float *c, int *nc, void plot()); /* CPGPLOT prototypes missing in PGPLOT 5 - these handle passed functions. Mechanism used below only works with standard UNIX C/F77 passing. I have yet to find a system where this doesn't work but patches are welcome. */ void cpgfunx (float pgfun1(), int n, float xmin, float xmax, int pgflag) { PGFUNX(pgfun1,&n,&xmin,&xmax,&pgflag); } void cpgfuny (float pgfun1(), int n, float ymin, float ymax, int pgflag) { PGFUNY(pgfun1,&n,&ymin,&ymax,&pgflag); } void cpgfunt (float pgfun1(), float pgfun2(), int n, float tmin, float tmax, int pgflag) { PGFUNT(pgfun1,pgfun2,&n,&tmin,&tmax,&pgflag); } void cpgconx ( float* a, int idim, int jdim, int i1, int i2, int j1, int j2, float* c, int nc, void pgfunplot()) { PGCONX(a,&idim,&jdim,&i1,&i2,&j1,&j2,c,&nc,pgfunplot); } /* The functions we actually pass to f77 - these call back to the correct perl function whose names(s) are passed via the back door (i.e. char static varables) */ /* pgplot called function perl intermediate number 1 */ float pgfun1(x) float *x; { dSP ; int count; SV* funname; float retval; funname = pgfunname[0]; /* Pass perl function name */ ENTER ; SAVETMPS ; PUSHMARK(sp) ; /* Push arguments */ XPUSHs(sv_2mortal(newSVnv(*x))); PUTBACK ; /* Call Perl */ count = perl_call_sv(funname, G_SCALAR); SPAGAIN; if (count !=1) croak("Error calling perl function\n"); retval = (float) POPn ; /* Return value */ PUTBACK ; FREETMPS ; LEAVE ; return retval; } /* pgplot called function perl intermediate number 2 */ float pgfun2(x) float *x; { dSP ; int count; SV* funname; float retval; funname = pgfunname[1]; /* Pass perl function name */ ENTER ; SAVETMPS ; PUSHMARK(sp) ; /* Push arguments */ XPUSHs(sv_2mortal(newSVnv(*x))); PUTBACK ; /* Call Perl */ count = perl_call_sv(funname, G_SCALAR); SPAGAIN; if (count !=1) croak("Error calling perl function\n"); retval = (float) POPn ; /* Return value */ PUTBACK ; FREETMPS ; LEAVE ; return retval; } /* pgplot called function perl intermediate for PGCONX */ void pgfunplot(visible,x,y,z) int *visible; float *x,*y,*z; { dSP ; int count; SV* funname; float retval; funname = pgfunname[0]; /* Pass perl function name */ ENTER ; SAVETMPS ; PUSHMARK(sp) ; /* Push arguments */ XPUSHs(sv_2mortal(newSViv(*visible))); XPUSHs(sv_2mortal(newSVnv(*x))); XPUSHs(sv_2mortal(newSVnv(*y))); XPUSHs(sv_2mortal(newSVnv(*z))); PUTBACK ; /* Call Perl */ count = perl_call_sv(funname, G_SCALAR); SPAGAIN; if (count !=1) croak("Error calling perl function\n"); PUTBACK ; FREETMPS ; LEAVE ; } PGPLOT-2.35/CHANGES0000644000175000017500000001440114731233307013374 0ustar osboxesosboxes2.35 2024-12-20 - be more careful with datatypes (https://github.com/PDLPorters/pdl/issues/511) 2.34 2024-11-25 - minimum Perl 5.10.1 - add PGPLOT::set_debugging - move PDL::Graphics::State to this distro 2.33 2024-09-17 - fix ramp and rgb LUTs (and neg to be compatible) to always increase values (#16) - thanks @d-lamb 2.32 2024-08-18 - if PDL installed, force 2.089+ 2.31 2024-08-15 - move PDL::Graphics::LUT to this distro 2.30 2024-07-29 - restructure .pm under "lib", CI and doc tweaks 2.29 2024-03-24 - incorporate PDL XS code into the XS, and the PDL modules so all under one roof 2.28 2022-02-24 - add NO_INIT to all output vars (#11) - thanks @djerius 2.27 2021-02-16 - need ExtUtils::F77 import to work at least on FreeBSD - disable calls to pgmtext(!) in tests on FreeBSD 2.26 2021-02-15 - ExtUtils::F77 is not a runtime requirement - tests no longer ask for device - set the environment var (default /NULL) 2.25 2021-02-13 - macOS11 patch for LD flags - thanks @karlglazebrook - use Devel::CheckLib to find right PNG lib 2.24 2019-03-19 - doc updates - thanks @djerius - patches to use pkg-config if available - thanks @djerius 2.23 2019-03-17 - typo fix from gregor herrmann - add CONFIGURE_REQUIRES dep - thanks CHORNY for report 2.22 2019-03-17 - Minor change to Makefile.PL to add link with libpng12,libz (avoids PERL_DL_NONLAZY error with SciPDL), and also to search SciPDL directory /Applications/PDL/pgplot - fixes to tests to work on Perl 5.26+ - metadata updates 2.21 2011-01-01 - Semi-dirty hack in Makefile.PL to force i386/x86_64 single arch only builds on Mac OS X. - Karl (for libpgplot compatibility which seems to be generally built this way, e.g. in SciKarl) Note added some clever code to try and match the arch of the pgplot binaries. - PGPLOT::HANDLE warning fix (Chris Phillips Jun 2010) - Make linking order -lcpgplot -lpgplot for cygwin (Chris Marshall Dec 2010) 2.20 2007-05-16 - Doug Burke's Makefile.PL patch - re-org and better OS X support. - Added /usr/local/pgplot to the include search path - Added -png to the default list of libs as just about every pgplot build needs this - Now works cleanly on Intel and PPC OS X with gcc, g77 and gfortran - Added INSTALL, INSTALL-MacOSX and INSTALL-Win32 instruction files and updated README 2.19 2006-01-03 - Diab's patch to allow specifying alternate libary paths on the command line (see HELP) - Added pgpt1 and pgerr1 back for compatibility with latest C PGPLOT - Win32 patches from Rob - Sisyphus (2005/1/25) 2.18 2000-12-28 - Added file HINTS.osf, updated HELP - Fixed memory leak in coerce1D (thanks to Pete Ratzlaff) - Added Doug Hunt's internals patch to export more pgplot C routines - Improvements to HELP file 2.17 2000-05-08 - Charles Lane's patch to do with new perl versions (PL_XXX stuff) - Changed my email address. 2.16 2000-03-10 - Added function struct to allow access to expose certain PGPLOT routines to the outside (currently cpgmove, cpgdraw) 2.15 1999-10-26 - Fixed Makefile.PL minor problem 2.14 1999-10-15 - Updated HELP some more. - Removed ExtUtils from distribution and made seperate to avoid confusing CPAN, is now a PREREQ_PM - Removed erroneous reference in PGPLOT.pm (Charles Lane). - Added HINTS.irix 2.13 1999-05-14 - Updates to ExtUtils::F77 (now v1.10) (q.t.) for RedHat 6.0 etc. 2.12 1999-05-11 - Added PGPLOT_DIR to path for include files. - Removed pgpt1 and pgerrb1 left over from old perl4 version - see pgcompatbility.p if you still need them. - Changed macro names for perl 5.004_53 (Joshua Pritikin ) and inserted a conditional so older perl's still work. - More ExtUtils::F77 changes (now at v1.09) - Small test.pl patch from Chuck Lane - Fixed error in test12.p 2.11 1998-09-11 - Added support for PGPLOT_DIR in Makefile.PL, updated HELP. - Mentioned 'perl Makefile.PL PREFIX=...' in README. - More HELP stuff. - ExtUtils::F77 v1.08 2.10 1998-05-21 - Various changes to ExtUtils::F77 q.v. 2.09 1998-02-17 - Documented xubpp problem in HELP because I got fed up with waiting for p5p to fix. No other changes. 2.08 1998-01-07 - Added improved -lgcc support. - PGPLOT version check in test12.p 2.07 1997-09-03 - Added support for new functions in PGPLOT 5.2.0 library. Note: TK driver looks nice but haven't yet implemented this in perl version. Presumably can be done with perl/Tk. - Extra test12.p for new routines - No longer supporting binary versions in any shape or form. Life is too short. Get a FORTRAN compiler. :-) - Added -lgcc for gcc built perls in ExtUtils::F77 2.06 1997-06-09 - Important bug fixes to array packing code which is now called arrays.{c,h} - Added fake MAIN__ symbol to stop annoying bug reports about some versions of gcc. :-) - arrays.c now supports unsigned chars and shorts. (Thanks Tim!) - Additions to HELP and documentation - Patches to improve ExtUtils::F77 - Improvements to tests - pgcompatibilty.p (NOT INSTALLED!) defines simple compatibilty routines for perl4 pgperl version. This had some gnarly single point versions of routines which are now superfluous. 2.02 1997-02-19 - Made Makefile.PL more clever. - Added a file HELP with useful problem fixing information. - Fixed some small type cast bugs in kgbpack.c 2.01 1997-01-03 - No longer providing perl4 version. - All the array packing functions reimplemented in C to improve speed and robustness. - Simplified build procedure - PGPLOT module should now build in standard Perl way. (i.e. 'perl Makefile.PL; make; make test; make install'). Makefile.PL should not have to be edited and upgrading should now be much easier. - Added 'pass by reference' convention to allow explicit use of pre-packed binary data. - Supports pgplot routines up to pgplot v5.1.1. - Added POD documentation. - FORTRAN link support is now via ExtUtils::F77 module (included). - Now providing binaries of pgplot libraries for various architectures rather than statically-linked module binaries. This should make upgrading easier. - Removed special one-point routine versions (hang-over from perl4 version). - Removed pgplot.pl (again a hang-over from old perl4 version). - General tidy up and reorganisation of distribution PGPLOT-2.35/HELP0000644000175000017500000001504413435120245013054 0ustar osboxesosboxes List of various gotchas! ------------------------ Last Change: Jan 3rd, 2006. Karl Glazebrook. ExtUtils::F77 ------------- This module requires installation of ExtUtils::F77 to compile. The latest version is v1.13 so you probably better get that from CPAN (www.cpan.org) Non-standard PATHs ------------------ If your PGPLOT, X11, etc. libs are located in non-standard places you may use the following command line command line options to "perl Makefile.PL" which take comma separated lists of values. The possible options are: * XDIR: The directories to search for X11 libraries (without the -L) * XLIB: The X11 libraries to link (without the -l * IDIR: The PGPLOT include directory * LDIR: The PGPLOT library directory * EXLIB: extra libraries to link (in my case it's png,z) * EXDIR: Library directories for the extra libraries perl5.004_?? problem -------------------- If you type 'make' and see an error message like: /usr/bin/perl -I/usr/lib/perl5/i586-linux/5.00404 -I/usr/lib/perl5 /usr/lib/perl5/ExtUtils/xsubpp -typemap /usr/lib/perl5/ExtUtils/typemap -typemap typemap PGPLOT.xs >PGPLOT.tc && mv PGPLOT.tc PGPLOT.c make: *** [PGPLOT.c] Error 139 (sometimes with a segmentation violation or bus error) Then you have encountered a bug in perl versions 5.004_01 and later (5.004 itself works just fine). The generation of PGPLOT.c from PGPLOT.xs fails because of a bug in xsubpp to do with handling of line numbers (of all things). This has been reported and ought to be fixed. Meanwhile here is a workaround: Edit the 'Makefile' which has been generated by the 'perl Makefile.PL ...' command and add the '-nolinenumbers' option to the xsubpp call. The line should look something like: XSUBPPARGS = -nolinenumbers -typemap $(XSUBPPDIR)/typemap -typemap typemap Then type 'make' again and everything should work. Common Problems and Possible Solutions -------------------------------------- *** First check the HINTS.* files for OS-specific problems. *** If you have libpgplot set up following the recommended defaults and the Makefile.PL recognises your system then Perl/PGPLOT should build out of the box. If you don't you may experience problems. Read on for possible fixes. Patches for ExtUtils::F77, to make it even smarter, are very welcome! o Check the -lX11 you are linking with is the same one that libpgplot was built against! This can cause the module to die with a very unhelpful error. Use -L/dir to fix this. o If 'make test' does not work try 'perl -Mblib test.pl'. Sometimes one can get funny dynamic loading problem. [The former sets PERL_DL_NONLAZY=1 which makes it fail on any unresolved symbol. Sometimes this is wrong.] If 'perl -Mblib test.pl' produces sensible graphs it is probably safe to do a 'make install'. o Next make sure you can compile, link and run successfully PGPLOT C programs (e.g. 'cpgdemo' in the PGPLOT distribution). If not you will not be able to run the perl version. A common requirement is to set the environment variable PGPLOT_DIR if PGPLOT is installed in a non-standard location. o You may experience problems if the module does not 'know' about the FORTRAN/C interface on your architecture. Please contact me and I will try to help if I have time. Alternatively - install GNU-77! (You gnu it makes sense...) and edit 'Makefile.PL' to select GNU-77 (this is the default on Linux, etc. anyway). o If you are using f2c based Fortran compilers (e.g. g77 or f2c) then it is possible that it is not picking this fact up. [e.g. on systems where the default f77 is something else like Solaris. Note is is SUPPOSED to figure this out. :-)]. In such cases try editing the line: use ExtUtils::F77; to become: use ExtUtils::F77 qw(generic g77); o Make sure when you build the pgplot library you did a 'make cpg' to create the C library and the cpgplot.h header file. o See if you can compile and run the C program cpgdemo.c which comes with the pgplot library itself - 'make cpg' in the pgplot build sequence. If this fails there is no way the PGPLOT module will work. o Check Perl normal dynamic loading works, try: perl -e 'use Socket' and see if there are any errors. If you contact me I can supply a simple test module. o Using Linux and G77, you might need to ensure that libf2c.a is present in the normal library search path. You might also need to add ' -lgcc' after the fortran runtime library in Makefile.PL o If using G77 check the library /usr/lib/libf2c.a is the one that came with g77 and not an older one that comes with F2C. Check also that is is not picking up an older shared library (e.g. /usr/lib/libf2c.so) that does not correspond to the current libf2c.a. The g77 one should be a link to libg77, e.g.: lrwxrwxrwx 1 root root 42 Aug 28 16:17 /usr/lib/libf2c.a -> /usr/lib/gcc-lib/i486-linux/2.7.2/libg77.a o Check the cc compiler you used to build cpgplot is the same one you used to build Perl (this is the one invoked by Makefile.PL) o Using the PGPLOT module with a dynamically loaded libpgplot library on some UNIX systems CAN be problematic (many confusing possibilites of -L/-R/LD_LIBRARY_PATH/LD_RUN_PATH exist). Commonly the module builds with no errors but fails to plot anything. You can maybe fix this by ensuring the pgplot libraries are linked in to /usr/local/lib/ (as per the pgplot install instructions) or alternatively playing with LD_LIBRARY_PATH. If this fails try deleting the libpgplot.so* or libpgplot.sl* shareable library (or at least move it to /tmp!). Alternatively, if you don't have system priviledge, try this dirty hack: mkdir pgplot_tmp cp /usr/local/pgplot/lib*pgplot.a pgplot_tmp ranlib pgplot_tmp/* (don't worry if the 'ranlib' command gives an error - many UNIX systems don't have or need it.) Now start from the top again. The Makefile.PL will automatically detect 'pgplot_tmp' and link in these files statically. o Finally, if you mail me for help include in your message the complete log output of: perl -V; perl Makefile.PL; make; make test Architecture-Specific Problems/Tips ----------------------------------- HP systems - Try using c89 with HP's fort77 compiler rather than gcc. (e.g. if you get a message about not being able to resolve symbol '__main__') DEC Alphas - are suceptible to the LD_LIBRARY_PATH problems mentioned above. RedHat 5.2 is reported to work with the following RPMs for C and FORTRAN :- egcs-c++-1.0.3a-1 egcs-1.0.3a-1 egcs-objc-1.0.3a-1 egcs-g77-1.0.3a-1 f2c-19970805-3 PGPLOT-2.35/META.yml0000644000175000017500000000134414731233364013657 0ustar osboxesosboxes--- abstract: unknown author: - unknown build_requires: ExtUtils::MakeMaker: '0' Test::More: '0.88' configure_requires: Devel::CheckLib: '1.14' ExtUtils::F77: '1.13' dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version 2.150010' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: PGPLOT no_index: directory: - t - inc recommends: PDL: '2.089' requires: perl: '5.010001' resources: bugtracker: https://github.com/PDLPorters/perl5-PGPLOT/issues repository: git://github.com/PDLPorters/perl5-PGPLOT.git version: '2.35' x_IRC: irc://irc.perl.org/#pdl x_serialization_backend: 'CPAN::Meta::YAML version 0.018' PGPLOT-2.35/PGPLOT.xs0000644000175000017500000005764614700635306014005 0ustar osboxesosboxes /* PGPLOT.xs This file contains the routines provide the glue which allow perl to call C and hence f77/pgplot via the CPGPLOT library. */ #include "EXTERN.h" /* std perl include */ #include "perl.h" /* std perl include */ #include "XSUB.h" /* XSUB include */ #include "cpgplot.h" /* CPGPLOT prototypes */ #include "pgfun.c" /* Function callback code */ #include "arrays.h" /* Pack functions decs */ #include "arrays.c" /* Pack functions defs */ typedef int int2D; /* So 2D arrays are handled automagically */ typedef float float2D; /* by typemap */ typedef float *float_packed; /* Buffers for routines that return strings */ static char strbuff[256]; static char strbuff2[256]; #define SIZEOF(X) sizeof(strbuff) static IV pgplot_debugging=0; #define DEBUG_PRINT(c) do { \ if (pgplot_debugging < 1) break; \ fprintf(stderr, "PGPLOT::" #c "\n"); \ } while (0) void MAIN__ () { /* Cheat to define MAIN__ symbol */ croak("This should never happen"); } /* New struct stuff */ /* Create structure to hold pointers to PGPLOT functions */ struct PGPLOT_function_handle { I32 binversion; void (*cpgmove) (float x, float y); void (*cpgdraw) (float x, float y); void (*cpgqcir) (int *icilo, int *icihi); void (*cpgsci) (int ci); void (*cpgpt1) (float x, float y, int sym); }; typedef struct PGPLOT_function_handle PGPLOT_function_handle; /* Now create an instance of this */ PGPLOT_function_handle myPGPLOT_handle; /* See BOOT section for the rest of the struct stuff */ MODULE = PGPLOT PACKAGE = PGPLOT IV set_debugging(i) IV i; CODE: RETVAL = pgplot_debugging; pgplot_debugging = i; OUTPUT: RETVAL void pgarro(x1,y1,x2,y2) float x1 float y1 float x2 float y2 CODE: DEBUG_PRINT(pgarro); cpgarro(x1,y1,x2,y2); void pgask(flag) Logical flag CODE: DEBUG_PRINT(pgask); cpgask(flag); void pgaxis(opt,x1,y1,x2,y2,v1,v2,step,nsub,dmajl,dmajr,fmin,disp,orient) char * opt float x1 float y1 float x2 float y2 float v1 float v2 float step int nsub float dmajl float dmajr float fmin float disp float orient CODE: DEBUG_PRINT(pgaxis); cpgaxis(opt,x1,y1,x2,y2,v1,v2,step,nsub,dmajl,dmajr,fmin,disp,orient); int pgband(mode,posn,xref,yref,x,y,ch) int mode int posn float xref float yref float x = NO_INIT float y = NO_INIT char ch = NO_INIT CODE: DEBUG_PRINT(pgband); RETVAL = cpgband(mode,posn,xref,yref,&x,&y,&ch); OUTPUT: x y ch RETVAL void pgbbuf() CODE: DEBUG_PRINT(pgbbuf); cpgbbuf(); int pgbeg(unit,file,nxsub,nysub) int unit char * file int nxsub int nysub CODE: DEBUG_PRINT(pgbeg); RETVAL = cpgbeg(unit,file,nxsub,nysub); OUTPUT: RETVAL int pgbegin(unit,file,nxsub,nysub) int unit char * file int nxsub int nysub CODE: DEBUG_PRINT(pgbegin); RETVAL = cpgbeg(unit,file,nxsub,nysub); OUTPUT: RETVAL void pgbin(nbin,x,data,center) int nbin float * x float * data Logical center CODE: DEBUG_PRINT(pgbin); cpgbin(nbin,x,data,center); void pgbox(xopt,xtick,nxsub,yopt,ytick,nysub) char * xopt float xtick int nxsub char * yopt float ytick int nysub CODE: DEBUG_PRINT(pgbox); cpgbox(xopt,xtick,nxsub,yopt,ytick,nysub); void pgcirc(xcent,ycent,radius) float xcent float ycent float radius CODE: DEBUG_PRINT(pgcirc); cpgcirc(xcent,ycent,radius); void pgclos() CODE: DEBUG_PRINT(pgclos); cpgclos(); void pgconb(a,idim,jdim,i1,i2,j1,j2,c,nc,tr,blank) float2D * a int idim int jdim int i1 int i2 int j1 int j2 float * c int nc float * tr float blank CODE: DEBUG_PRINT(pgconb); cpgconb(a,idim,jdim,i1,i2,j1,j2,c,nc,tr,blank); void pgconf(a,idim,jdim,i1,i2,j1,j2,c1,c2,tr) float2D * a int idim int jdim int i1 int i2 int j1 int j2 float c1 float c2 float * tr CODE: DEBUG_PRINT(pgconf); cpgconf(a,idim,jdim,i1,i2,j1,j2,c1,c2,tr); void pgconl(a,idim,jdim,i1,i2,j1,j2,c,tr,label,intval,minint) float2D * a int idim int jdim int i1 int i2 int j1 int j2 float c float * tr char * label int intval int minint CODE: DEBUG_PRINT(pgconl); cpgconl(a,idim,jdim,i1,i2,j1,j2,c,tr,label,intval,minint); void pgcons(a,idim,jdim,i1,i2,j1,j2,c,nc,tr) float2D * a int idim int jdim int i1 int i2 int j1 int j2 float * c int nc float * tr CODE: DEBUG_PRINT(pgcons); cpgcons(a,idim,jdim,i1,i2,j1,j2,c,nc,tr); void pgcont(a,idim,jdim,i1,i2,j1,j2,c,nc,tr) float2D * a int idim int jdim int i1 int i2 int j1 int j2 float * c int nc float * tr CODE: DEBUG_PRINT(pgcont); cpgcont(a,idim,jdim,i1,i2,j1,j2,c,nc,tr); void pgconx(a,idim,jdim,i1,i2,j1,j2,c,nc,plot) float2D * a int idim int jdim int i1 int i2 int j1 int j2 float * c int nc SV* plot CODE: DEBUG_PRINT(pgconx); pgfunname[0] = plot; cpgconx(a,idim,jdim,i1,i2,j1,j2,c,nc,pgfunplot); void pgctab(l,r,g,b,nc,contra,bright) float * l float * r float * g float * b int nc float contra float bright CODE: DEBUG_PRINT(pgctab); cpgctab(l,r,g,b,nc,contra,bright); int pgcurs(x,y,ch) float x = NO_INIT float y = NO_INIT char ch = NO_INIT CODE: DEBUG_PRINT(pgcurs); RETVAL = cpgcurs(&x,&y,&ch); OUTPUT: x y ch RETVAL int pgcurse(x,y,ch) float x = NO_INIT float y = NO_INIT char ch = NO_INIT CODE: DEBUG_PRINT(pgcurse); RETVAL = cpgcurs(&x,&y,&ch); OUTPUT: x y ch RETVAL void pgdraw(x,y) float x float y CODE: DEBUG_PRINT(pgdraw); cpgdraw(x,y); void pgebuf() CODE: DEBUG_PRINT(pgebuf); cpgebuf(); void pgend() CODE: DEBUG_PRINT(pgend); cpgend(); void pgenv(xmin,xmax,ymin,ymax,just,axis) float xmin float xmax float ymin float ymax int just int axis CODE: DEBUG_PRINT(pgenv); cpgenv(xmin,xmax,ymin,ymax,just,axis); void pgeras() CODE: DEBUG_PRINT(pgeras); cpgeras(); void pgerrb(dir,n,x,y,e,t) int dir int n float * x float * y float * e float t CODE: DEBUG_PRINT(pgerrb); cpgerrb(dir,n,x,y,e,t); void pgerr1(dir,x,y,e,t) int dir float x float y float e float t CODE: DEBUG_PRINT(pgerr1); cpgerr1(dir,x,y,e,t); void pgerrx(n,x1,x2,y,t) int n float * x1 float * x2 float * y float t CODE: DEBUG_PRINT(pgerrx); cpgerrx(n,x1,x2,y,t); void pgerry(n,x,y1,y2,t) int n float * x float * y1 float * y2 float t CODE: DEBUG_PRINT(pgerry); cpgerry(n,x,y1,y2,t); void pgetxt() CODE: DEBUG_PRINT(pgetxt); cpgetxt(); void pgfunt(fx,fy,n,tmin,tmax,pgflag) SV* fx SV* fy int n float tmin float tmax int pgflag CODE: DEBUG_PRINT(pgfunt); pgfunname[0] = fx; pgfunname[1] = fy; cpgfunt(pgfun1,pgfun2,n,tmin,tmax,pgflag); void pgfunx(fy,n,xmin,xmax,pgflag) SV* fy int n float xmin float xmax int pgflag CODE: DEBUG_PRINT(pgfunx); pgfunname[0] = fy; cpgfunx(pgfun1,n,xmin,xmax,pgflag); void pgfuny(fx,n,ymin,ymax,pgflag) SV* fx int n float ymin float ymax int pgflag CODE: DEBUG_PRINT(pgfuny); pgfunname[0] = fx; cpgfuny(pgfun1,n,ymin,ymax,pgflag); void pggray(a,idim,jdim,i1,i2,j1,j2,fg,bg,tr) float2D * a int idim int jdim int i1 int i2 int j1 int j2 float fg float bg float * tr CODE: DEBUG_PRINT(pggray); cpggray(a,idim,jdim,i1,i2,j1,j2,fg,bg,tr); void pghi2d(data,nxv,nyv,ix1,ix2,iy1,iy2,x,ioff,bias,center,ylims) float2D * data int nxv int nyv int ix1 int ix2 int iy1 int iy2 float * x int ioff float bias Logical center float * ylims CODE: DEBUG_PRINT(pghi2d); cpghi2d(data,nxv,nyv,ix1,ix2,iy1,iy2,x,ioff,bias,center,ylims); void pghist(n,data,datmin,datmax,nbin,pgflag) int n float * data float datmin float datmax int nbin int pgflag CODE: DEBUG_PRINT(pghist); cpghist(n,data,datmin,datmax,nbin,pgflag); void pgiden() CODE: DEBUG_PRINT(pgiden); cpgiden(); void pgimag(a,idim,jdim,i1,i2,j1,j2,a1,a2,tr) float2D * a int idim int jdim int i1 int i2 int j1 int j2 float a1 float a2 float * tr CODE: DEBUG_PRINT(pgimag); cpgimag(a,idim,jdim,i1,i2,j1,j2,a1,a2,tr); void pglab(xlbl,ylbl,toplbl) char * xlbl char * ylbl char * toplbl CODE: DEBUG_PRINT(pglab); cpglab(xlbl,ylbl,toplbl); void pglabel(xlbl,ylbl,toplbl) char * xlbl char * ylbl char * toplbl CODE: DEBUG_PRINT(pglabel); cpglab(xlbl,ylbl,toplbl); void pglcur(maxpt,npt,x,y) int maxpt int npt = NO_INIT float * x = NO_INIT float * y = NO_INIT CODE: DEBUG_PRINT(pglcur); coerce1D( (SV*)ST(2), maxpt ); /* Make sure arrays are big enough */ coerce1D( (SV*)ST(3), maxpt ); x = (float *) pack1D( (SV*)ST(2), 'f' ); /* Pack arrays */ y = (float *) pack1D( (SV*)ST(3), 'f' ); cpglcur(maxpt,&npt,x,y); unpack1D( (SV*)ST(2), (void *)x, 'f', 0); unpack1D( (SV*)ST(3), (void *)y, 'f', 0); OUTPUT: npt void pgldev() CODE: DEBUG_PRINT(pgldev); cpgldev(); void pglen(units,string,xl,yl) int units char * string float xl = NO_INIT float yl = NO_INIT CODE: DEBUG_PRINT(pglen); cpglen(units,string,&xl,&yl); OUTPUT: xl yl void pgline(n,xpts,ypts) int n float * xpts float * ypts CODE: DEBUG_PRINT(pgline); cpgline(n,xpts,ypts); void pgmove(x,y) float x float y CODE: DEBUG_PRINT(pgmove); cpgmove(x,y); void pgmtxt(side,disp,coord,fjust,text) char * side float disp float coord float fjust char * text CODE: DEBUG_PRINT(pgmtxt); cpgmtxt(side,disp,coord,fjust,text); void pgmtext(side,disp,coord,fjust,text) char * side float disp float coord float fjust char * text CODE: DEBUG_PRINT(pgmtext); cpgmtxt(side,disp,coord,fjust,text); void pgncur(maxpt,npt,x,y,symbol) int maxpt int npt = NO_INIT float * x = NO_INIT float * y = NO_INIT int symbol CODE: DEBUG_PRINT(pgncur); coerce1D( (SV*)ST(2), maxpt ); /* Make sure arrays are big enough */ coerce1D( (SV*)ST(3), maxpt ); x = (float *) pack1D( (SV*)ST(2), 'f' ); /* Pack arrays */ y = (float *) pack1D( (SV*)ST(3), 'f' ); cpgncur(maxpt,&npt,x,y,symbol); unpack1D( (SV*)ST(2), (void *)x, 'f', 0); unpack1D( (SV*)ST(3), (void *)y, 'f', 0); OUTPUT: npt void pgncurse(maxpt,npt,x,y,symbol) int maxpt int npt = NO_INIT float * x = NO_INIT float * y = NO_INIT int symbol CODE: DEBUG_PRINT(pgncurse); coerce1D( (SV*)ST(2), maxpt ); /* Make sure arrays are big enough */ coerce1D( (SV*)ST(3), maxpt ); x = (float *) pack1D( (SV*)ST(2), 'f' ); /* Pack arrays */ y = (float *) pack1D( (SV*)ST(3), 'f' ); cpgncur(maxpt,&npt,x,y,symbol); unpack1D( (SV*)ST(2), (void *)x, 'f', 0); unpack1D( (SV*)ST(3), (void *)y, 'f', 0); OUTPUT: npt void pgnumb(mm,pp,form,string,nc) int mm int pp int form char * string = NO_INIT int nc = NO_INIT CODE: DEBUG_PRINT(pgnumb); string = strbuff; nc = SIZEOF(string); cpgnumb(mm,pp,form,string,&nc); OUTPUT: string nc void pgolin(maxpt,npt,x,y,symbol) int maxpt int npt = NO_INIT float * x = NO_INIT float * y = NO_INIT int symbol CODE: DEBUG_PRINT(pgolin); coerce1D( (SV*)ST(2), maxpt ); /* Make sure arrays are big enough */ coerce1D( (SV*)ST(3), maxpt ); x = (float *) pack1D( (SV*)ST(2), 'f' ); /* Pack arrays */ y = (float *) pack1D( (SV*)ST(3), 'f' ); cpgolin(maxpt,&npt,x,y,symbol); unpack1D( (SV*)ST(2), (void *)x, 'f', 0); unpack1D( (SV*)ST(3), (void *)y, 'f', 0); OUTPUT: npt int pgopen(device) char * device CODE: DEBUG_PRINT(pgopen); RETVAL = cpgopen(device); OUTPUT: RETVAL void pgpage() CODE: DEBUG_PRINT(pgpage); cpgpage(); void pgadvance() CODE: DEBUG_PRINT(pgadvance); cpgpage(); void pgpanl(ix,iy) int ix int iy CODE: DEBUG_PRINT(pgpanl); cpgpanl(ix,iy); void pgpap(width,aspect) float width float aspect CODE: DEBUG_PRINT(pgpap); cpgpap(width,aspect); void pgpaper(width,aspect) float width float aspect CODE: DEBUG_PRINT(pgpaper); cpgpap(width,aspect); void pgpixl(ia,idim,jdim,i1,i2,j1,j2,x1,x2,y1,y2) int2D * ia int idim int jdim int i1 int i2 int j1 int j2 float x1 float x2 float y1 float y2 CODE: DEBUG_PRINT(pgpixl); cpgpixl(ia,idim,jdim,i1,i2,j1,j2,x1,x2,y1,y2); void pgpnts(n,x,y,symbol,ns) int n float * x float * y int * symbol int ns CODE: DEBUG_PRINT(pgpnts); cpgpnts(n,x,y,symbol,ns); void pgpoly(n,xpts,ypts) int n float * xpts float * ypts CODE: DEBUG_PRINT(pgpoly); cpgpoly(n,xpts,ypts); void pgpt(n,xpts,ypts,symbol) int n float * xpts float * ypts int symbol CODE: DEBUG_PRINT(pgpt); cpgpt(n,xpts,ypts,symbol); void pgpt1(xpt,ypt,symbol) float xpt float ypt int symbol CODE: DEBUG_PRINT(pgpt1); cpgpt1(xpt,ypt,symbol); void pgpoint(n,xpts,ypts,symbol) int n float * xpts float * ypts int symbol CODE: DEBUG_PRINT(pgpoint); cpgpt(n,xpts,ypts,symbol); void pgptxt(x,y,angle,fjust,text) float x float y float angle float fjust char * text CODE: DEBUG_PRINT(pgptxt); cpgptxt(x,y,angle,fjust,text); void pgptext(x,y,angle,fjust,text) float x float y float angle float fjust char * text CODE: DEBUG_PRINT(pgptext); cpgptxt(x,y,angle,fjust,text); void pgqah(fs,angle,vent) int fs = NO_INIT float angle = NO_INIT float vent = NO_INIT CODE: DEBUG_PRINT(pgqah); cpgqah(&fs,&angle,&vent); OUTPUT: fs angle vent void pgqcf(font) int font = NO_INIT CODE: DEBUG_PRINT(pgqcf); cpgqcf(&font); OUTPUT: font void pgqch(size) float size = NO_INIT CODE: DEBUG_PRINT(pgqch); cpgqch(&size); OUTPUT: size void pgqci(ci) int ci = NO_INIT CODE: DEBUG_PRINT(pgqci); cpgqci(&ci); OUTPUT: ci void pgqcir(icilo,icihi) int icilo = NO_INIT int icihi = NO_INIT CODE: DEBUG_PRINT(pgqcir); cpgqcir(&icilo,&icihi); OUTPUT: icilo icihi void pgqclp(state) int state = NO_INIT CODE: DEBUG_PRINT(pgqclp); cpgqclp(&state); OUTPUT: state void pgqcol(ci1,ci2) int ci1 = NO_INIT int ci2 = NO_INIT CODE: DEBUG_PRINT(pgqcol); cpgqcol(&ci1,&ci2); OUTPUT: ci1 ci2 void pgqcr(ci,cr,cg,cb) int ci float cr = NO_INIT float cg = NO_INIT float cb = NO_INIT CODE: DEBUG_PRINT(pgqcr); cpgqcr(ci,&cr,&cg,&cb); OUTPUT: cr cg cb void pgqcs(units,xch,ych) int units float xch = NO_INIT float ych = NO_INIT CODE: DEBUG_PRINT(pgqcs); cpgqcs(units,&xch,&ych); OUTPUT: xch ych void pgqdt(n,type,tlen,descr,dlen,inter) int n char * type = NO_INIT int tlen = NO_INIT char * descr = NO_INIT int dlen = NO_INIT int inter = NO_INIT CODE: DEBUG_PRINT(pgqdt); type = strbuff; tlen = SIZEOF(type); descr = strbuff2; dlen = SIZEOF(descr); cpgqdt(n,type,&tlen,descr,&dlen,&inter); OUTPUT: type tlen descr dlen inter void pgqfs(fs) int fs = NO_INIT CODE: DEBUG_PRINT(pgqfs); cpgqfs(&fs); OUTPUT: fs void pgqhs(angle,sepn,phase) float angle = NO_INIT float sepn = NO_INIT float phase = NO_INIT CODE: DEBUG_PRINT(pgqhs); cpgqhs(&angle,&sepn,&phase); OUTPUT: angle sepn phase void pgqid(id) int id = NO_INIT CODE: DEBUG_PRINT(pgqid); cpgqid(&id); OUTPUT: id void pgqinf(item,value,length) char * item char * value = NO_INIT int length = NO_INIT CODE: DEBUG_PRINT(pgqinf); value = strbuff; length = SIZEOF(value); cpgqinf(item,value,&length); OUTPUT: value length void pgqitf(itf) int itf = NO_INIT CODE: DEBUG_PRINT(pgqitf); cpgqitf(&itf); OUTPUT: itf void pgqls(ls) int ls = NO_INIT CODE: DEBUG_PRINT(pgqls); cpgqls(&ls); OUTPUT: ls void pgqlw(lw) int lw = NO_INIT CODE: DEBUG_PRINT(pgqlw); cpgqlw(&lw); OUTPUT: lw void pgqndt(n) int n = NO_INIT CODE: DEBUG_PRINT(pgqndt); cpgqndt(&n); OUTPUT: n void pgqpos(x,y) float x = NO_INIT float y = NO_INIT CODE: DEBUG_PRINT(pgqpos); cpgqpos(&x,&y); OUTPUT: x y void pgqtbg(tbci) int tbci = NO_INIT CODE: DEBUG_PRINT(pgqtbg); cpgqtbg(&tbci); OUTPUT: tbci void pgqtxt(x,y,angle,fjust,text,xbox,ybox) float x float y float angle float fjust char * text float * xbox = NO_INIT float * ybox = NO_INIT CODE: DEBUG_PRINT(pgqtxt); xbox = get_mortalspace(4,'f'); ybox = get_mortalspace(4,'f'); cpgqtxt(x,y,angle,fjust,text,xbox,ybox); unpack1D( (SV*)ST(5), (void *)xbox, 'f', 4); unpack1D( (SV*)ST(6), (void *)ybox, 'f', 4); void pgqvp(units,x1,x2,y1,y2) int units float x1 = NO_INIT float x2 = NO_INIT float y1 = NO_INIT float y2 = NO_INIT CODE: DEBUG_PRINT(pgqvp); cpgqvp(units,&x1,&x2,&y1,&y2); OUTPUT: x1 x2 y1 y2 void pgqvsz(units,x1,x2,y1,y2) int units float x1 = NO_INIT float x2 = NO_INIT float y1 = NO_INIT float y2 = NO_INIT CODE: DEBUG_PRINT(pgqvsz); cpgqvsz(units,&x1,&x2,&y1,&y2); OUTPUT: x1 x2 y1 y2 void pgqwin(x1,x2,y1,y2) float x1 = NO_INIT float x2 = NO_INIT float y1 = NO_INIT float y2 = NO_INIT CODE: DEBUG_PRINT(pgqwin); cpgqwin(&x1,&x2,&y1,&y2); OUTPUT: x1 x2 y1 y2 void pgrect(x1,x2,y1,y2) float x1 float x2 float y1 float y2 CODE: DEBUG_PRINT(pgrect); cpgrect(x1,x2,y1,y2); float pgrnd(x,nsub) float x int nsub = NO_INIT CODE: DEBUG_PRINT(pgrnd); RETVAL = cpgrnd(x,&nsub); OUTPUT: nsub RETVAL void pgrnge(x1,x2,xlo,xhi) float x1 float x2 float xlo = NO_INIT float xhi = NO_INIT CODE: DEBUG_PRINT(pgrnge); cpgrnge(x1,x2,&xlo,&xhi); OUTPUT: xlo xhi void pgsah(fs,angle,vent) int fs float angle float vent CODE: DEBUG_PRINT(pgsah); cpgsah(fs,angle,vent); void pgsave() CODE: DEBUG_PRINT(pgsave); cpgsave(); void pgunsa() CODE: DEBUG_PRINT(pgunsa); cpgunsa(); void pgscf(font) int font CODE: DEBUG_PRINT(pgscf); cpgscf(font); void pgsch(size) float size CODE: DEBUG_PRINT(pgsch); cpgsch(size); void pgsci(ci) int ci CODE: DEBUG_PRINT(pgsci); cpgsci(ci); void pgscir(icilo,icihi) int icilo int icihi CODE: DEBUG_PRINT(pgscir); cpgscir(icilo,icihi); void pgsclp(state) int state CODE: DEBUG_PRINT(pgsclp); cpgsclp(state); void pgscr(ci,cr,cg,cb) int ci float cr float cg float cb CODE: DEBUG_PRINT(pgscr); cpgscr(ci,cr,cg,cb); void pgscrl(dx,dy) float dx float dy CODE: DEBUG_PRINT(pgscrl); cpgscrl(dx,dy); void pgscrn(ci,name,ier) int ci char * name int ier = NO_INIT CODE: DEBUG_PRINT(pgscrn); cpgscrn(ci,name,&ier); OUTPUT: ier void pgsfs(fs) int fs CODE: DEBUG_PRINT(pgsfs); cpgsfs(fs); void pgshls(ci,ch,cl,cs) int ci float ch float cl float cs CODE: DEBUG_PRINT(pgshls); cpgshls(ci,ch,cl,cs); void pgshs(angle,sepn,phase) float angle float sepn float phase CODE: DEBUG_PRINT(pgshs); cpgshs(angle,sepn,phase); void pgsitf(itf) int itf CODE: DEBUG_PRINT(pgsitf); cpgsitf(itf); void pgslct(id) int id CODE: DEBUG_PRINT(pgslct); cpgslct(id); void pgsls(ls) int ls CODE: DEBUG_PRINT(pgsls); cpgsls(ls); void pgslw(lw) int lw CODE: DEBUG_PRINT(pgslw); cpgslw(lw); void pgstbg(tbci) int tbci CODE: DEBUG_PRINT(pgstbg); cpgstbg(tbci); void pgsubp(nxsub,nysub) int nxsub int nysub CODE: DEBUG_PRINT(pgsubp); cpgsubp(nxsub,nysub); void pgsvp(xleft,xright,ybot,ytop) float xleft float xright float ybot float ytop CODE: DEBUG_PRINT(pgsvp); cpgsvp(xleft,xright,ybot,ytop); void pgvport(xleft,xright,ybot,ytop) float xleft float xright float ybot float ytop CODE: DEBUG_PRINT(pgvport); cpgsvp(xleft,xright,ybot,ytop); void pgswin(x1,x2,y1,y2) float x1 float x2 float y1 float y2 CODE: DEBUG_PRINT(pgswin); cpgswin(x1,x2,y1,y2); void pgwindow(x1,x2,y1,y2) float x1 float x2 float y1 float y2 CODE: DEBUG_PRINT(pgwindow); cpgswin(x1,x2,y1,y2); void pgtbox(xopt,xtick,nxsub,yopt,ytick,nysub) char * xopt float xtick int nxsub char * yopt float ytick int nysub CODE: DEBUG_PRINT(pgtbox); cpgtbox(xopt,xtick,nxsub,yopt,ytick,nysub); void pgtick(x1,y1,x2,y2,v,tikl,tikr,disp,orient,str) float x1 float y1 float x2 float y2 float v float tikl float tikr float disp float orient char * str CODE: DEBUG_PRINT(pgtick); cpgtick(x1,y1,x2,y2,v,tikl,tikr,disp,orient,str); void pgtext(x,y,text) float x float y char * text CODE: DEBUG_PRINT(pgtext); cpgtext(x,y,text); void pgupdt() CODE: DEBUG_PRINT(pgupdt); cpgupdt(); void pgvect(a,b,idim,jdim,i1,i2,j1,j2,c,nc,tr,blank) float2D * a float2D * b int idim int jdim int i1 int i2 int j1 int j2 float c int nc float * tr float blank CODE: DEBUG_PRINT(pgvect); cpgvect(a,b,idim,jdim,i1,i2,j1,j2,c,nc,tr,blank); void pgvsiz(xleft,xright,ybot,ytop) float xleft float xright float ybot float ytop CODE: DEBUG_PRINT(pgvsiz); cpgvsiz(xleft,xright,ybot,ytop); void pgvsize(xleft,xright,ybot,ytop) float xleft float xright float ybot float ytop CODE: DEBUG_PRINT(pgvsize); cpgvsiz(xleft,xright,ybot,ytop); void pgvstd() CODE: DEBUG_PRINT(pgvstd); cpgvstd(); void pgvstand() CODE: DEBUG_PRINT(pgvstand); cpgvstd(); void pgwedg(side,disp,width,fg,bg,label) char * side float disp float width float fg float bg char * label CODE: DEBUG_PRINT(pgwedg); cpgwedg(side,disp,width,fg,bg,label); void pgwnad(x1,x2,y1,y2) float x1 float x2 float y1 float y2 CODE: DEBUG_PRINT(pgwnad); cpgwnad(x1,x2,y1,y2); void pggapline(n,msgval,xpts,ypts) int n float msgval float_packed xpts float_packed ypts CODE: DEBUG_PRINT(pggapline); { int i; int start = 0; while (xpts[start] == msgval) start++; /* make sure we have a good starting point */ cpgmove(xpts[start], ypts[start]); for (i=start+1;i maxz) maxz = z[i]; } /* determine range of available z indices and range of input 'z' values */ cirange = icihi - icilo; zrange = maxz - minz; /* printf ("cilo = %d, cihi = %d\n", icilo, icihi); */ /* for each input point, compute a scaled color index and plot the point */ for (i=0;i; Tue, 21 Sep 1999 20:26:05 +1000 (EST) From: johnj.sasso@ps.ge.com Received: from thomas.ge.com (thomas-o.ge.com [10.47.28.21]) by ns3.ge.com (8.9.3/8.9.3) with ESMTP id GAA06458 for ; Tue, 21 Sep 1999 06:26:46 -0400 (EDT) Received: from nyschx06psge.ps.ge.com (nyschx06psge.ps.ge.com [3.159.84.11]) by thomas.ge.com (8.9.3/8.9.3) with ESMTP id GAA27441 for ; Tue, 21 Sep 1999 06:26:46 -0400 (EDT) Received: by nyschx06psge.ps.ge.com with Internet Mail Service (5.5.2448.0) id ; Tue, 21 Sep 1999 06:17:03 -0400 Message-ID: <8D53D4CD22CAD011B95700805F31FAAD047B2902@nyschx04psge.sch.ge.com> To: kgb@aaoepp.aao.GOV.AU Subject: RE: Problem running pgperl on IRIX 6.5.3 Date: Tue, 21 Sep 1999 06:17:17 -0400 MIME-Version: 1.0 X-Mailer: Internet Mail Service (5.5.2448.0) Content-Type: text/plain; charset="iso-8859-1" Content-Length: 1068 Status: O X-Mozilla-Status: 8011 X-Mozilla-Status2: 00000000 X-UIDL: 3545b6f100003adb Karl, Thanks for the response. I've managed to resolve the problem, after some troubleshooting noting that in the installation instructions for PGPLOT (the non-Perl, core package) the method for creating the shared library libcpgplot.so is not entirely correct. They used: ld -shared -o libcpgplot.so --whole_archive libcpgplot.a Well, the problem is that the objects in libcpgplot.a reference objects in libpgplot.a, so one needs to link them together. What I did under IRIX 6.5.3 is: ld -shared -n32 -all libcpgplot.a -o libcpgplot.so -none libpgplot.a Also, I had to recompile the core PGPLOT package with the -n32 option, as the Perl PGPLOT package does; otherwise, it defaults to -o32 compilation and the result is improper linking to libraries. --john -----Original Message----- From: Karl Glazebrook [mailto:kgb@aaoepp.aao.GOV.AU] Sent: Tuesday, September 21, 1999 12:37 AM To: John Sasso Subject: Re: Problem running pgperl on IRIX 6.5.3 Looks to me like it is not linking vs cpgplot correctly send me the output of 'perl Makefile.PL; make' ? PGPLOT-2.35/lib/0000755000175000017500000000000014731233364013152 5ustar osboxesosboxesPGPLOT-2.35/lib/PDL/0000755000175000017500000000000014731233364013571 5ustar osboxesosboxesPGPLOT-2.35/lib/PDL/Demos/0000755000175000017500000000000014731233364014640 5ustar osboxesosboxesPGPLOT-2.35/lib/PDL/Demos/PGPLOT_OO.pm0000644000175000017500000001122314600070277016574 0ustar osboxesosboxespackage PDL::Demos::PGPLOT_OO; # show how to use the new OO PGPLOT interface use PDL::Graphics::PGPLOT::Window; require File::Spec; use Carp; $ENV{PGPLOT_XW_WIDTH}=0.3; $ENV{PGPLOT_DEV}=$^O =~ /MSWin32/ ? '/GW' : "/XW"; sub info {('pgplotOO', 'PGPLOT OO interface')} sub init {' use PDL::Graphics::PGPLOT::Window; '} # try and find m51.fits my @f = qw(PDL Demos m51.fits); our $m51file = undef; foreach my $path ( @INC ) { my $file = File::Spec->catfile( $path, @f ); if ( -f $file ) { $m51file = $file; last; } } confess "Unable to find m51.fits within the perl libraries.\n" unless defined $m51file; my @demo = ( [comment => q| The PGPLOT demo showed you how to use the old interface to PGPLOT. As this is perl, TIMTOWTDI, and this demo shows you how to use the new, object-orientated PGPLOT interface. For the simple examples shown here, the new method appears overkill; however, it really comes into its own when you wish to deal with multiple plots or windows. Enough prattle, on with the show... |], [act => q| # we start with a different module to the traditional interface use PDL::Graphics::PGPLOT::Window; # create a window "object" $dev = $ENV{PGPLOT_DEV}; # '/XW' on X, '/GW' on Win32 $win = PDL::Graphics::PGPLOT::Window->new( { Dev => $dev } ); |], [act => q| # First we define some variables to use for the rest of the demo. $x=sequence(10); $y=2*$x**2; # Now a simple plot with points $win->points( $x, $y ); |], [act => q| # Here is the same with lines $win->line( $x, $y ); # if you're beginning to think its the same as the old calls, # just with "$win->" at the beginning then you're not far wrong! |], [act => q| # A ::Window-only feature: gaps in lines with MISSING option # (the value is for the $y): $win->line( $x, $y, {MISSING => 8} ); |], [act => q| # You can do all the things you did before ... $win->points( $x, $y, {Symbol=>4} ); $win->hold; $win->line( $x, $y ); $yerr=sqrt($y); $win->errb( $x, $y, $yerr ); $win->release; |], [act => q| # and it acts the same way $gradient=sequence(40,40); $win->imag( $gradient ); $win->hold; $win->cont( $gradient ); $win->release; # add labels to the plot $win->label_axes( "An axis", "Another axis", "Title" ); |], [act => q| # let's try and read the cursor $c = czip(zeroes(300)->xlinvals(0,12), zeroes(300)->xlinvals(2,10)); $sin = sin $c; $win->line( $sin->im, $sin->re ); print "Select a point in the graph (mouse button or key press):\n"; ( $x, $y, $ch ) = $win->cursor( { Type=>'CrossHair' } ); print "\nYou selected: $x + $y i (key = $ch)\n"; |], # should really do something related to the selected points... [act => q| # how about another window? $win2 = PDL::Graphics::PGPLOT::Window->new( { Dev => $dev } ); $win2->env( 0, 4, -2, 0, { Axis => 'logy' } ); $x = sequence(101) / 25; $win2->points( $x, $x->sin->abs()->log10 ); |], [act => q| # switch back to the original window (we don't want to hurt # its feelings) $win->line( $x, { Border => 1 } ); |], [act => q| # Read in an image ($m51file has been set up by this demo to # contain the location of the file). $m51 = rfits($|.__PACKAGE__.q|::m51file); $win3 = PDL::Graphics::PGPLOT::Window->new(Dev => $dev, Size=> [6,4], NX=>2, NY=>2, Ch=>2.5, HardCH=>2.5); $win3->imag($m51,{Title=>"\$win3->imag(\$m51);"} ); $win3->fits_imag($m51,{Title=>"\$win3->fits_imag(\$m51);"}); $win3->imag($m51,{J=>1,Title=>"\$win3->imag(\$m51,{J=>1});"}); $win3->fits_imag($m51,{J=>1,Title=>"\$win3->fits_imag(\$m51,{J=>1});"}); # You should see a 6 inch (153 mm) x 4 inch (102 mm) X window with four # plots in it. All four images should have tick marks on the outside of # the axes. # [ Scaled image of m51; scale [Scaled image of m51 with scale from # in pixels on both axes ] X=[-1.8, 2.0],Y=[-1.9, 1.9] arcmin, # with cal. wedge, centered in rect. frame] # [ Square image of m51; scale [Square image of m51 with scale as above, # in pixels on both axes; ``shrink-wrapped''] # ``shrinkwrapped'' ] |], [act => q| # free up the windows, after finding their names print "You've been watching ", $win->name, ", ", $win2->name, "\n"; print " and ", $win3->name, "\n"; $win->close; undef $win; $win2->close; undef $win2; $win3->release; $win3->close; undef $win3; print "On X Windows, you need to close the 'PGPLOT Server' window.\n"; |], ); sub demo { @demo } 1; =head1 NAME PDL::Demos::PGPLOT_OO - demonstrate PDL::Graphics::PGPLOT OO capabilities =head1 SYNOPSIS pdl> demo pgplotOO =cut PGPLOT-2.35/lib/PDL/Demos/PGPLOT.pm0000644000175000017500000001244014600070145016173 0ustar osboxesosboxespackage PDL::Demos::PGPLOT; use PDL::Graphics::PGPLOT; sub info {('pgplot', 'PGPLOT graphics output')} sub init {' $ENV{PGPLOT_XW_WIDTH}=0.3; $ENV{PGPLOT_DEV}=$^O =~ /MSWin32/ ? "/GW" : "/XW"; use PDL::Graphics::PGPLOT; '} my @demo = ( [comment => q| Welcome to this tour of the PDL's PGPLOT interface. This tour will introduce the PDL's PGPLOT plotting module and show what this powerful package can provide in terms of plotting. It is not designed to give a full tour of PGPLOT, you are advised to see the routines provided with pgperl for that. The PDL::Graphics::PGPLOT module provides a high-level interface to PGPLOT. However if you want even better control of your plots you might want to include the PGPLOT module specifically: use PGPLOT; One aspect of PGPLOT that requires mention is the use of devices: Normally PGPLOT will inquire you about what device you want to use, with the prompt: Graphics device/type (? to see list, default /NULL): |], [act => q| # ensure the module is loaded use PDL::Graphics::PGPLOT; # The size of the window can be specified $ENV{PGPLOT_XW_WIDTH}=0.3; # You can set your device explicitly $id=dev($ENV{PGPLOT_DEV}); # '/XW' on X, '/GW' on Win32 |], [act => q| # First we define some variables to use for the rest of the demo. $x=sequence(10); $y=2*$x**2; # Now a simple plot with points points $x, $y; |], [act => q| # Here is the same with lines line $x, $y; |], [act => q| # If you want to overlay one plot you can use the command # 'hold' to put the graphics on hold and 'release' to # revert the effect points $x, $y, {SYMBOL=>4}; # The last argument sets symboltype hold; # Now draw lines between the points line $x, $y; # Plot errorbars over the points $yerr=sqrt($y); errb $x, $y, $yerr; # To revert to old behaviour, use release release; |], [act => q| bin $x, $y; # This plots a binned histogram of the data and as you can # see it made a new plot. |], [act => q| # 2D data can also easily be accommodated: # First make a simple image $gradient=sequence(40,40); # Then display it. imag $gradient; # And overlay a contour plot over it: hold; cont $gradient; release; |], [act => q| # PDL::Graphics::PGPLOT contains several colour tables, # a more extensive collection can be found in # PDL::Graphics::LUT # # (note: the call to lut_names() can take a few seconds to execute) # use PDL::Graphics::LUT; @names = lut_names(); print "Available tables: [ ", @names, " ]\n"; # use the first table ctab( lut_data($names[0]) ); use PGPLOT; pglabel "", "", "Colour table: $names[0]"; |], [act => q| # To change plot specifics you can either use the specific PGPLOT # commands - recommended if you need lots of control over your # plot. # # Or you can use the new option specifications: # To plot our first graph again with blue color, dashed line # and a thickness of 10 we can do: line $x, $y, {COLOR=>5, LINESTYLE=>'dashed', LINEWIDTH=>10}; |], [act => q| # Now for a more complicated example. # First create some data $x=sequence(360)*3.1415/180.; $y=sin($x)*transpose(cos($x)); # Make an ndarray with the wanted contours $contours=pdl [0.1,0.5,1.0]; # And an array (reference to an array) with labels $labels=['A', 'B', 'C']; # Create a contour map of the data - note that we can set the colour of # the labels. cont($y, {CONTOURS=>$contours, linest=>'DASHED', LINEWIDTH=>3, COLOR=>2, LABELCOL=>4}); hold; pgqlw($linewidth); points $x->slice('0:-1:4')*180./3.1415; release; |], [act => q| # # More examples of changing the plot defaults # $x = 1+sequence(10); $y = $x*2; $bord_opt = { TYPE => 'RELATIVE', VALUE => 0.1 }; line log10($x), $y, { AXIS => 'LOGX', BORDER => $bord_opt }; |], [act => q| # # We can also create vector maps of data # This requires one array for the horizontal component and # one for the vertical component # $horizontal=sequence(10,10); $vertical=transpose($horizontal)+random(10,10)*$horizontal/10.; $arrow={ARROW=> {FS=>1, ANGLE=>25, VENT=>0.7, SIZE=>3}}; vect $horizontal, $vertical, {ARROW=>$arrow, COLOR=>RED}; hold; cont $vertical-$horizontal, {COLOR=>YELLOW}; release; |], [act => q| # # To draw [filled] polygons, the command poly is handy: # $x=sequence(10)/5; poly $x, $x**2, {FILL=>HATCHED, COLOR=>BLUE}; |], [act => q| # # the latest feature of PDL are complex numbers # so let's play with a simple example # $z50 = zeroes(50); $c = czip($z50->xlinvals(0,7), $z50->xlinvals(2,4)); line sin($c)->im; hold; # the imaginary part line sin($c)->re; # real line abs sin $c; release; # and the modulus |], [act => q| # # more complex numbers # $c = czip(zeroes(300)->xlinvals(0,12), zeroes(300)->xlinvals(2,10)); $sin = sin $c; line $sin->im, $sin->re; # look at the result in the complex plane |], [act => q| #close the window--we're done! close_window($id); print "On X Windows, you need to close the 'PGPLOT Server' window.\n"; |], ); sub demo { @demo } 1; =head1 NAME PDL::Demos::PGPLOT - demonstrate PDL::Graphics::PGPLOT capabilities =head1 SYNOPSIS pdl> demo pgplot =cut PGPLOT-2.35/lib/PDL/Graphics/0000755000175000017500000000000014731233364015331 5ustar osboxesosboxesPGPLOT-2.35/lib/PDL/Graphics/LUT/0000755000175000017500000000000014731233364015775 5ustar osboxesosboxesPGPLOT-2.35/lib/PDL/Graphics/LUT/tables/0000755000175000017500000000000014731233364017247 5ustar osboxesosboxesPGPLOT-2.35/lib/PDL/Graphics/LUT/tables/stairs9.fits0000644000175000017500000002070014657476773021557 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'stairs9 ' / Name of colour table HISTORY (r,g,b) colour table converted from: stairs9.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:07 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END >HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?v÷HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/ramp.fits0000644000175000017500000002070014672353672021105 0ustar osboxesosboxesSIMPLE = T / Created with PDL (http://pdl.perl.org) BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' HISTORY 2024-09-17 Corrected values with xlinvals HISTORY --- HISTORY (r,g,b) colour table converted from: ramp.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:03 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS ta\ HISTORY ble HISTORY reader (or writer) in the PDL distribution. OBJECT = 'ramp ' / Name of colour table END ;€€<€<@ÀÁ<€€<  ¡<ÀÀÁ<ààá=€=‘=  ¡=0°±=@ÀÁ=PÐÑ=`àá=pðñ=€€=ˆˆ‰=‘=˜˜™=  ¡=¨¨©=°°±=¸¸¹=ÀÀÁ=ÈÈÉ=ÐÐÑ=ØØÙ=ààá=èèé=ððñ=øøù>€>„…>ˆ‰> Œ>‘>”•>˜™>œ>  ¡>$¤¥>(¨©>,¬­>0°±>4´µ>8¸¹><¼½>@ÀÁ>DÄÅ>HÈÉ>LÌÍ>PÐÑ>TÔÕ>XØÙ>\ÜÝ>`àá>däå>hèé>lìí>pðñ>tôõ>xøù>|üý>€€>‚‚ƒ>„„…>††‡>ˆˆ‰>ŠŠ‹>ŒŒ>ŽŽ>‘>’’“>””•>––—>˜˜™>šš›>œœ>žžŸ>  ¡>¢¢£>¤¤¥>¦¦§>¨¨©>ªª«>¬¬­>®®¯>°°±>²²³>´´µ>¶¶·>¸¸¹>ºº»>¼¼½>¾¾¿>ÀÀÁ>ÂÂÃ>ÄÄÅ>ÆÆÇ>ÈÈÉ>ÊÊË>ÌÌÍ>ÎÎÏ>ÐÐÑ>ÒÒÓ>ÔÔÕ>ÖÖ×>ØØÙ>ÚÚÛ>ÜÜÝ>ÞÞß>ààá>ââã>ääå>ææç>èèé>êêë>ììí>îîï>ððñ>òòó>ôôõ>öö÷>øøù>úúû>üüý>þþÿ?€?‚?‚ƒ?ƒ„?„…?…†?†‡?‡ˆ?ˆ‰? ‰Š? Š‹? ‹Œ? Œ? Ž?Ž??‘?‘’?’“?“”?”•?•–?–—?—˜?˜™?™š?š›?›œ?œ?ž?žŸ?Ÿ ?  ¡?!¡¢?"¢£?#£¤?$¤¥?%¥¦?&¦§?'§¨?(¨©?)©ª?*ª«?+«¬?,¬­?-­®?.®¯?/¯°?0°±?1±²?2²³?3³´?4´µ?5µ¶?6¶·?7·¸?8¸¹?9¹º?:º»?;»¼?<¼½?=½¾?>¾¿??¿À?@ÀÁ?AÁÂ?BÂÃ?CÃÄ?DÄÅ?EÅÆ?FÆÇ?GÇÈ?HÈÉ?IÉÊ?JÊË?KËÌ?LÌÍ?MÍÎ?NÎÏ?OÏÐ?PÐÑ?QÑÒ?RÒÓ?SÓÔ?TÔÕ?UÕÖ?VÖ×?W×Ø?XØÙ?YÙÚ?ZÚÛ?[ÛÜ?\ÜÝ?]ÝÞ?^Þß?_ßà?`àá?aáâ?bâã?cãä?däå?eåæ?fæç?gçè?hèé?iéê?jêë?këì?lìí?míî?nîï?oïð?pðñ?qñò?ròó?sóô?tôõ?uõö?vö÷?w÷ø?xøù?yùú?zúû?{ûü?|üý?}ýþ?~þÿ?€;€€<€<@ÀÁ<€€<  ¡<ÀÀÁ<ààá=€=‘=  ¡=0°±=@ÀÁ=PÐÑ=`àá=pðñ=€€=ˆˆ‰=‘=˜˜™=  ¡=¨¨©=°°±=¸¸¹=ÀÀÁ=ÈÈÉ=ÐÐÑ=ØØÙ=ààá=èèé=ððñ=øøù>€>„…>ˆ‰> Œ>‘>”•>˜™>œ>  ¡>$¤¥>(¨©>,¬­>0°±>4´µ>8¸¹><¼½>@ÀÁ>DÄÅ>HÈÉ>LÌÍ>PÐÑ>TÔÕ>XØÙ>\ÜÝ>`àá>däå>hèé>lìí>pðñ>tôõ>xøù>|üý>€€>‚‚ƒ>„„…>††‡>ˆˆ‰>ŠŠ‹>ŒŒ>ŽŽ>‘>’’“>””•>––—>˜˜™>šš›>œœ>žžŸ>  ¡>¢¢£>¤¤¥>¦¦§>¨¨©>ªª«>¬¬­>®®¯>°°±>²²³>´´µ>¶¶·>¸¸¹>ºº»>¼¼½>¾¾¿>ÀÀÁ>ÂÂÃ>ÄÄÅ>ÆÆÇ>ÈÈÉ>ÊÊË>ÌÌÍ>ÎÎÏ>ÐÐÑ>ÒÒÓ>ÔÔÕ>ÖÖ×>ØØÙ>ÚÚÛ>ÜÜÝ>ÞÞß>ààá>ââã>ääå>ææç>èèé>êêë>ììí>îîï>ððñ>òòó>ôôõ>öö÷>øøù>úúû>üüý>þþÿ?€?‚?‚ƒ?ƒ„?„…?…†?†‡?‡ˆ?ˆ‰? ‰Š? Š‹? ‹Œ? Œ? Ž?Ž??‘?‘’?’“?“”?”•?•–?–—?—˜?˜™?™š?š›?›œ?œ?ž?žŸ?Ÿ ?  ¡?!¡¢?"¢£?#£¤?$¤¥?%¥¦?&¦§?'§¨?(¨©?)©ª?*ª«?+«¬?,¬­?-­®?.®¯?/¯°?0°±?1±²?2²³?3³´?4´µ?5µ¶?6¶·?7·¸?8¸¹?9¹º?:º»?;»¼?<¼½?=½¾?>¾¿??¿À?@ÀÁ?AÁÂ?BÂÃ?CÃÄ?DÄÅ?EÅÆ?FÆÇ?GÇÈ?HÈÉ?IÉÊ?JÊË?KËÌ?LÌÍ?MÍÎ?NÎÏ?OÏÐ?PÐÑ?QÑÒ?RÒÓ?SÓÔ?TÔÕ?UÕÖ?VÖ×?W×Ø?XØÙ?YÙÚ?ZÚÛ?[ÛÜ?\ÜÝ?]ÝÞ?^Þß?_ßà?`àá?aáâ?bâã?cãä?däå?eåæ?fæç?gçè?hèé?iéê?jêë?këì?lìí?míî?nîï?oïð?pðñ?qñò?ròó?sóô?tôõ?uõö?vö÷?w÷ø?xøù?yùú?zúû?{ûü?|üý?}ýþ?~þÿ?€;€€<€<@ÀÁ<€€<  ¡<ÀÀÁ<ààá=€=‘=  ¡=0°±=@ÀÁ=PÐÑ=`àá=pðñ=€€=ˆˆ‰=‘=˜˜™=  ¡=¨¨©=°°±=¸¸¹=ÀÀÁ=ÈÈÉ=ÐÐÑ=ØØÙ=ààá=èèé=ððñ=øøù>€>„…>ˆ‰> Œ>‘>”•>˜™>œ>  ¡>$¤¥>(¨©>,¬­>0°±>4´µ>8¸¹><¼½>@ÀÁ>DÄÅ>HÈÉ>LÌÍ>PÐÑ>TÔÕ>XØÙ>\ÜÝ>`àá>däå>hèé>lìí>pðñ>tôõ>xøù>|üý>€€>‚‚ƒ>„„…>††‡>ˆˆ‰>ŠŠ‹>ŒŒ>ŽŽ>‘>’’“>””•>––—>˜˜™>šš›>œœ>žžŸ>  ¡>¢¢£>¤¤¥>¦¦§>¨¨©>ªª«>¬¬­>®®¯>°°±>²²³>´´µ>¶¶·>¸¸¹>ºº»>¼¼½>¾¾¿>ÀÀÁ>ÂÂÃ>ÄÄÅ>ÆÆÇ>ÈÈÉ>ÊÊË>ÌÌÍ>ÎÎÏ>ÐÐÑ>ÒÒÓ>ÔÔÕ>ÖÖ×>ØØÙ>ÚÚÛ>ÜÜÝ>ÞÞß>ààá>ââã>ääå>ææç>èèé>êêë>ììí>îîï>ððñ>òòó>ôôõ>öö÷>øøù>úúû>üüý>þþÿ?€?‚?‚ƒ?ƒ„?„…?…†?†‡?‡ˆ?ˆ‰? ‰Š? Š‹? ‹Œ? Œ? Ž?Ž??‘?‘’?’“?“”?”•?•–?–—?—˜?˜™?™š?š›?›œ?œ?ž?žŸ?Ÿ ?  ¡?!¡¢?"¢£?#£¤?$¤¥?%¥¦?&¦§?'§¨?(¨©?)©ª?*ª«?+«¬?,¬­?-­®?.®¯?/¯°?0°±?1±²?2²³?3³´?4´µ?5µ¶?6¶·?7·¸?8¸¹?9¹º?:º»?;»¼?<¼½?=½¾?>¾¿??¿À?@ÀÁ?AÁÂ?BÂÃ?CÃÄ?DÄÅ?EÅÆ?FÆÇ?GÇÈ?HÈÉ?IÉÊ?JÊË?KËÌ?LÌÍ?MÍÎ?NÎÏ?OÏÐ?PÐÑ?QÑÒ?RÒÓ?SÓÔ?TÔÕ?UÕÖ?VÖ×?W×Ø?XØÙ?YÙÚ?ZÚÛ?[ÛÜ?\ÜÝ?]ÝÞ?^Þß?_ßà?`àá?aáâ?bâã?cãä?däå?eåæ?fæç?gçè?hèé?iéê?jêë?këì?lìí?míî?nîï?oïð?pðñ?qñò?ròó?sóô?tôõ?uõö?vö÷?w÷ø?xøù?yùú?zúû?{ûü?|üý?}ýþ?~þÿ?€PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/green.fits0000644000175000017500000002070014657476773021261 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'green ' / Name of colour table HISTORY (r,g,b) colour table converted from: green.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:16:58 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷=¸ºÇ=øù±>œN><»Ã>\Ý×>|ýL>ŒŒ“>œœN>¬¬>¼½>ÌÌÍ>Ü܇>ìí‘>üýL?†ƒ?Ža?—Ì?Ÿ©?(¨m?0°ò?8¸Ð?AÁ”?IÊ?RÒÝ?ZÚº?bâ—?kì?sóà?|ýL;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=`ÞÓ=€ƒ=‘}= Ÿè=¸ºÇ=ÈÉ2=Ø×=èëF>€s>‡©>‘}>˜³>$£ƒ>0°ò><»Ã>HÉ2>TÔ>`ár>lìB>|ýL>„„>ŠŠÆ>.>––æ>œœN>¤¤Ó>ªª;>²²À>º»E>ÂÂz>ÊÊÿ>ÒÒ5>ØØí>àár>èè§>ðñ,>øøb?€s?ƒÏ?‡j? ‹¬?G?“Š?—Ì?›g?Ÿ©?#£ì?'§‡?+«É?/¯d?2²À?5µt?9¹¶?<¼j?@À­?CÄ ?Fƽ?JÊÿ?Mͳ?QÑö?TÔª?XØí?ZÚº?\Ý/?_ßã?aá±?cä&?fæÚ?hè§?jë?míÐ?oïž?qò?tôÇ?tôÇ?uõ®?v÷(©½>ªª;>þÿ?*ªã?TÔª?€?v÷ìí‘>ØØí>ÆÇe>²²À>žž>ŠŠÆ>lìB>HÉ2> Ÿè=ðò|= Ÿè= ¥';€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX;€sX;€sX<@­< ¥'=}Ô= ¥'=@Áý=pí>=ˆŠH=˜˜³=°®S=ÀÁý=ÐÐh=èëF=øù±>„>‘}>‘}>˜³> Ÿè>(©½>4´>@Áý>LÌÍ>X×>hè§>tö>€€s>†‡+>ŒŒ“>’‘û>šš€>¤¤Ó>®¯%>¸¸(>ÀÀ­>ÈÉ2>ÐÐh>ØØí>âã?>îï_>úû?ƒÏ? ŠÆ?Ö?—Ì?Ü?$¤Ó?+«É?2²À?9¹¶?AÁ”?HÈŠ?PÑ?WØ?_ßã?eåó?kì?ròú?xù ?€=}Ô=€ƒ=ÀÁý>€s>$£ƒ>DÅ—>då >‚‚A>”•>¤¤Ó>´´>ÄÄH>ÔÕR>ææÚ>öö”?ƒÏ? ‹¬?”p?œN?$¤Ó?,¬°?4´?=½ù?EÅÖ?Mͳ?UÕ‘?^Þü?fæÚ?nî·?v÷=¨§=ÐÐh=øù±>•>(©½><»Ã>TÔ>hè§>|ýL>ŠŠÆ>”•>žž>ªª;>²²À>¼½>ÄÄH>ÎΚ>ØØí>àár>êêt>òòú>üýL?ƒÏ?‡j? Œ“?Ö?•W?š€;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<sX<@­<€ˆQ< ¥'<àÞÓ=Œ?=@Áý=`ÞÓ=ˆŠH= Ÿè=¸ºÇ=Ø×=ðò|>‡©>œN>0°ò>DÅ—>\Ý×>pïÝ>‚‚A>ŽŽa>˜˜³>¤¤Ó>²²À>ÂÂz>ÐÐh>àár>ðñ,?€s?ˆQ?‘¼?™š?"¢^?+«É?4´?=½ù?Fƽ?OÏ?YÙÓ?`àÊ?hè§?oïž?wø#?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/random.fits0000644000175000017500000002070014657476773021441 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'random ' / Name of colour table HISTORY (r,g,b) colour table converted from: random.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:03 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END >ðñ,>ðñ,>ðñ,?4´?4´?€?€?€?€?€?€?€?€?€?|ýL?|ýL?{û½?{û½?{û½?€?€?4´?4´>ðñ,>ðñ,>ðñ,?  ?  ?HÈŠ?HÈŠ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?kì?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?(¨m?  ?  ?  ?  ?  ?  ?  ?  ?  >ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>†‡+>¸¸(?4´?4´?4´?4´?4´?4´?4´?4´?4´?{û½?€?€?€?€?€?€?€?€?~ÿ?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?iê6?4´?4´?4´?4´?4´?4´?4´?4´?4´?ˆQ>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?9¹¶?9¹¶?OÏ?YÙÓ?YÙÓ?€?€?€?€?€?€?€?€?€?€?€?HÈŠ?HÈŠ?HÈŠ?  ?  >ðñ,>ðñ,?4´?4´?DÄð?\Ý/?\Ý/?€?€?€?€?eåó?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?4´?4´?4´?4´?4´?4´?4´?4´?4´?žÃ>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?˜³?  ?  ?  ?  ?  ?  ?  ?  ?  ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?`àÊ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?yùð?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?Fƽ?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>¼½?4´?4´?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?fæÚ?fæÚ?€?€?4´?4´?„¶?4´?4´?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?=½ù?4´?4´?4´?4´?4´?4´?4´?4´?'§‡>îï_?4´?4´?4´?4´?4´?4´?4´?4´?4´?€?€?€?€?€?€?€?€?€?xù ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?_ßã?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?Mͳ?4´?4´?4´?4´?4´?4´?4´?4´?4´> ‹D PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/blulut.fits0000644000175000017500000002070014657476773021470 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'blulut ' / Name of colour table HISTORY (r,g,b) colour table converted from: blulut.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:16:58 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END 7'Ŭ7'Ŭ7'Ŭ7§Å¬7§Å¬7§Å¬7û¨‚8'Ŭ8Q·8{¨‚8’Ì÷8§Å¬8¼¾b8æ¯Í9Pœ9IR92B9G:½9f¯Í9ƒo9’Ì÷9§Å¬9·€49Ñ·9æ¯Í:sX:-à:èh:/¢ð:Aü:TV.:iNä:~G™:Šï³:–»™:¥&–:²B:Áü:Ñ·:âÁ+:õÊ;º4; ŽÉ;²ê;#× ;/¢ð;<œ;I2;VM;d¸|;ts;‚Æ;ŠGí;“ Ú;œM©;¥Î[;¯¢ð;ºK;Äï‰;ÐgŒ;Ü3r;èS;;õÊ<E<&«<\)<åŠ<ÂÎ<&ÊE>µÝ>6e> ÉG>nƒ>#y>íg>É°>¸R>"¹N>&Ì£>*ôñ>/28>3Ø>7æq><]d>@ëî>EŒÒ>JEN>OÂ>Sõ0>Xï5>]þ3>c$È>h`W>m³}>s:>x >~:~>÷Q>„Ûà>‡ÍŠ>ŠÌO>Öà>î>”>—Cé>š‚è>ͳ>¡(9>¤ŽŠ>¨G>«…>¯b>²´>¶a(>º¬>½æ›>Á¾õ>Å¥¹>Éœ9>Í¢s>Ñ·>ÕÛw>Ú‘>ÞSe>â¦ô>ç >ëá>ðï>ô™>ù?)>ýõ?^ž?Ë>?@d?¾? Då? Ôé?mr?(?º ?n?+V?òg? ÃL?#œ·?&€?)nY?,eA?/f¥?2qÞ?5†ì?8¦v?;Ð}??W?BB¯?EŒ*?Hßz?L=î?O§‡?S›?VšÔ?Z%1?]º ?aZ¯?e!?h¾?lo?pOô?t*E?x»?|K?€7'Ŭ7'Ŭ7'Ŭ7§Å¬7§Å¬7§Å¬7û¨‚8'Ŭ8Q·8{¨‚8’Ì÷8§Å¬8¼¾b8æ¯Í9Pœ9IR92B9G:½9f¯Í9ƒo9’Ì÷9§Å¬9·€49Ñ·9æ¯Í:sX:-à:èh:/¢ð:Aü:TV.:iNä:~G™:Šï³:–»™:¥&–:²B:Áü:Ñ·:âÁ+:õÊ;º4; ŽÉ;²ê;#× ;/¢ð;<œ;I2;VM;d¸|;ts;‚Æ;ŠGí;“ Ú;œM©;¥Î[;¯¢ð;ºK;Äï‰;ÐgŒ;Ü3r;èS;;õÊ<E<&«<\)<åŠ<ÂÎ<&ÊE>µÝ>6e> ÉG>nƒ>#y>íg>É°>¸R>"¹N>&Ì£>*ôñ>/28>3Ø>7æq><]d>@ëî>EŒÒ>JEN>OÂ>Sõ0>Xï5>]þ3>c$È>h`W>m³}>s:>x >~:~>÷Q>„Ûà>‡ÍŠ>ŠÌO>Öà>î>”>—Cé>š‚è>ͳ>¡(9>¤ŽŠ>¨G>«…>¯b>²´>¶a(>º¬>½æ›>Á¾õ>Å¥¹>Éœ9>Í¢s>Ñ·>ÕÛw>Ú‘>ÞSe>â¦ô>ç >ëá>ðï>ô™>ù?)>ýõ?^ž?Ë>?@d?¾? Då? Ôé?mr?(?º ?n?+V?òg? ÃL?#œ·?&€?)nY?,eA?/f¥?2qÞ?5†ì?8¦v?;Ð}??W?BB¯?EŒ*?Hßz?L=î?O§‡?S›?VšÔ?Z%1?]º ?aZ¯?e!?h¾?lo?pOô?t*E?x»?|K?€;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?€s?€s?€s?€s?€s?€s?€s?€s?€s?€s?€s?€s?€s?€s?€s?€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s>€€s?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?>¾à?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/rainbow4.fits0000644000175000017500000002070014657476773021706 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'rainbow4 ' / Name of colour table HISTORY (r,g,b) colour table converted from: rainbow4.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:03 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END =PÐh=Ø×>$£ƒ>\Ý×>ŠŠÆ>¦¦ >ÀÀ­>Ü܇>øøb? ŠÆ?˜³?&¦ ?4´?9¹¶??¿Æ?EÅÖ?KËæ?PÑ?V×?\Ý/?bâ—?gçÀ?míÐ?sóà?yùð?€?~ÿ?~ÿ?~ÿ?~ÿ?}þ3?}þ3?}þ3?}þ3?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?}þ3?}þ3?}þ3?}þ3?~ÿ?~ÿ?~ÿ?~ÿ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€=Œ?=‘}=àÞÓ>•>8¸(>`ár>‚‚A>––æ>¨¨m>º»E>ÎΚ>àár>ôôÇ?€s?†ƒ? Œ“?’£?˜³?žÃ?$¤Ó?*ªã?0°ò?6·?<¼j?BÂz?HÈŠ?LÌÍ?PÑ?TÔª?XØí?]Þ?aá±?eåó?iê6?nî·?ròú?v÷¾à?9¹¶?4´?/¯d?*ªã?%¥¹?  ?›g?–æ?‘¼? Œ“?‡j?‚A>úû>ðñ,>Ü܇>ÊÊÿ>¸¸(>¦¦ >’‘û>€€s>\Ý×>8¸(>‘}=Ø×=‘}=Œ?=Œ?=‘}=Ø×>‘}>8¸(>\Ý×>€€s>’‘û>¦¦ >¸¸(>ÊÊÿ>Ü܇>ðñ,>øøb?Z?…? ŠÆ?G?“Š?˜³?œN?!¡w?&¦ ?*ªã?/¯d?4´?>¾à?IÊ?TÔª?^Þü?iê6?tôÇ?€<@­<àÞÓ=0³’=pí>=˜˜³=¸ºÇ=Ø×=øù±> ‹D>œN>,­X><»Ã>LÌÍ>X×>hè§>xù±>„„>ŒŒ“>”•>œœN>¤¤Ó>¬¬>´´>¼½>ÄÄH>ÌÌÍ>ÒÒ5>ÚÚº>âã?>êêt>òòú>úû?Z?…? ‰7? z?‘¼?•W?™š?œN?  ?$¤Ó?(¨m?,¬°?0°ò?4´?8¸Ð?<¼j?@À­?DÄð?HÈŠ?LÌÍ?OÏ?SÓÃ?WØ?[Û¡?_ßã?cä&?gçÀ?kì?oïž?sóà?wø#?{û½?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?yùð?sóà?míÐ?gçÀ?bâ—?\Ý/?V×?PÑ?KËæ?EÅÖ??¿Æ?9¹¶?4´?&¦ ?˜³? ŠÆ>øøb>Ü܇>ÀÀ­>¦¦ >ŠŠÆ>\Ý×>$£ƒ=Ø×=PÐh=PÐh=Ø×>$£ƒ>\Ý×>ŠŠÆ>¦¦ >ÀÀ­>Ü܇>øøb? ŠÆ?˜³?&¦ ?4´?9¹¶??¿Æ?EÅÖ?KËæ?PÑ?V×?\Ý/?bâ—?gçÀ?míÐ?sóà?yùð?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/blue.fits0000644000175000017500000002070014657476773021110 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'blue ' / Name of colour table HISTORY (r,g,b) colour table converted from: blue.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:16:58 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ;€sX<sX<@­<€ˆQ;€sX;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷šA>&L0>:þ>O­m>a½>r\>>‚ܱ>5¨>—|>Ÿ å>¢~R>¢£>¢£>¢£>¢£>¢£>¢fº> ­> ¡8> ¡8> ¡8> ¡8> ¡8>Î{?}ì?€?YÍ? ÔA>ÅÛw>Ð3>ÚŒ>äå >ï>>ø%[?öj?"æ? Nº?{5?§±?Ô,? ¨?%,|?*X÷?/…s?4±î?9ÝÂ?? =?Dõo?Jd?PŽ?U½ù?ZéÍ?`1Ï?gô4?pwî?wÜœ?|Þ?S¤?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?•Õ?}£?xïÝ?r «?jJŒ?bˆ'?ZÅ?S´?K@O?CYÞ?:º?4±F?0Ñ·?-ó?-ŒÒ?/‘æ?2Ç?7ÊC?<ö¾?B"’?GO?L{‰?Q¨?Vþr?];?b-¶?gZ2?l†­?q²?vÞü?{Þ@?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?w|F?AêÝ=S÷Ï>Êb$>ÌÌÍ>›2‹=ê@:q,(<‘}k=u=lÊ.=ŸÈó=É'‘=ô)ž>7‹>*\æ>?b·>V¡b>lÊ.>€¼¾>‹µ>•“`>¡¤¾>ªŒ>´xB>¾Ñ9>É*0>ÓÐ>Û¯>äNQ>î‡Ó>øàÊ?œà?h^? ôI?…?X%?x-?øM?!7ô?#£?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?$U?%<6?'—?)¾õ?/ÈK?5Ðú?;ÚQ?Aã¨?GìW?NŸ?TÿC?[š?aÏÿ?h†?n$Ý?t-Œ?z6ã?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€<sX<“ á<üã=5Ü=lÊ.=‘û@=­‘h=É'‘=äÂø=ú}ª> ô >¿>%Š3>3UG>AÄ>Kc >Xµ‰>f€>tK²>€hÜ>†I>ŽÅm>“ñA>š¡> L>¦jU>­Oß>´5i>»\>À/0>Èmr>΋Á>Ô°Ÿ>Úæ†>àár>éC>îp;>õ+Ô>ü^?{t?“É?`? ÒÝ?FJ?¹?…^?²?w?ƒþr?Bq7?E[«?HUÚ?KÈŸ?O †?Q¶p?Uó¶?Y”[?]!?`yæ?cªz?f@d?hÖõ?lCÔ?o¶š?s)_?vœ$?yÉq?\ò(=n¹=@Áý=L‹=YÝÂ=uD»=˜iƒ=È®û=øù±> »Z>!Ú{>6Œi>Lûü>cóà>x£/>†ª>‘†>›\}>¥´$>° >ºf>Åì>ÑÎ>Ûqv>åÊm>îï_>ùf{?j©?–}? Âø?ït?ï?GÃ?!t??& º?+Í6?1}?7,?ûfù>ð#d>åÊm>Ûqv>Ñ~>Åì>ºf>®ð®>£²W>˜Îp>At>„¢4>q9C>[ê >DôÇ>,Ïl>Í >­ë=àÞÓ=°”=€N¥=)I¥<­Ò;µˆã;Gâ‚<†/Z=²=M ·=Š¶=´ã=Ý}¿>D(>‚>(Îp>=€^>QK>bÞ>wï>„…^>$ž>’¥¤>“Ó>‘&é>‹i˜>¡>j-¶>R[>9åŸ>!ÀD> ›Ð=ê÷=º²=ƒÉï=$*í<ªà;çW“=¾‘>©¨?®?V_?v£Y?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/random6.fits0000644000175000017500000002070014657476773021527 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'random6 ' / Name of colour table HISTORY (r,g,b) colour table converted from: random6.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:04 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END >¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m>¨¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?(¨m?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>.>ØØí?Ö?4´?XØí?|ýL>‘}>‘}>‘}>‘}>‘}>‘}>‘}>‘}>.>.>.>.>.>.>.>.>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí?Ö?Ö?Ö?Ö?Ö?Ö?Ö?Ö?4´?4´?4´?4´?4´?4´?4´?4´?XØí?XØí?XØí?XØí?XØí?XØí?XØí?XØí?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL>‘}>‘}>‘}>‘}>‘}>‘}>‘}>‘}>.>.>.>.>.>.>.>.>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí?Ö?Ö?Ö?Ö?Ö?Ö?Ö?Ö?4´?4´?4´?4´?4´?4´?4´?4´?XØí?XØí?XØí?XØí?XØí?XØí?XØí?XØí?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL>‘}>‘}>‘}>‘}>‘}>‘}>‘}>‘}>.>.>.>.>.>.>.>.>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí?Ö?Ö?Ö?Ö?Ö?Ö?Ö?Ö?4´?4´?4´?4´?4´?4´?4´?4´?XØí?XØí?XØí?XØí?XØí?XØí?XØí?XØí?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL>‘}>‘}>‘}>‘}>‘}>‘}>‘}>‘}>.>.>.>.>.>.>.>.>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí?Ö?Ö?Ö?Ö?Ö?Ö?Ö?Ö?4´?4´?4´?4´?4´?4´?4´?4´?XØí?XØí?XØí?XØí?XØí?XØí?XØí?XØí?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/aips0.fits0000644000175000017500000002070014657476773021175 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'aips0 ' / Name of colour table HISTORY (r,g,b) colour table converted from: aips0.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:16:57 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END >HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?'§‡?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?‘¼?v÷HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?›g?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/bgyrw.fits0000644000175000017500000002070014657476773021313 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'bgyrw ' / Name of colour table HISTORY (r,g,b) colour table converted from: bgyrw.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:16:58 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <€==€=À>>>0>P>`>€>>˜>¨>¸>È>Ð>à>ð>ø?? ??? ?(?,?4?<?@?H?P?T?\?d?l?p?x?????????????????????????????????????????????????????????????????????????????????????????????<€=@= =À>> >0>P>p>ˆ>> >°>¸>È>Ø>à>ð??? ??? ?(?0?4?<?D?L?P?X?`?d?l?t?x????????????????????????????????????????????????????????????????????????????|?x?p?h?d?\?T?L?H?@?8?4?,?$? ????>ø>è>à>Ð>À>¸>¨>˜>ˆ>€>`>@>0>=à=À=€=<à=`=¨=è>>,>L>h>‚>> >®>¼>Ì>Ú>è>ö?? ??? ?'?.?6?=?D?L?S?Z?a?i?p?w?< = =p= =È=ð> > >4>L>`>t>„>Ž>˜>¢>¬>¶>À>Ì>Ö>à>ê>ô>þ?? ?????#?(?-?2?7?<?A?F?L?Q?V?[?`?e?j?o?t?y???????????????????????????????????????|?t?l?h?`?X?T?L?D?@?8?0?(?$?????>ø>è>Ø>È>À>°> >˜>ˆ>p>`>@> >=à= =@=<à=`=¨=è>>,>L>h>‚>> >®>¼>Ì>Ú>è>ö?? ??? ?'?.?6?=?D?L?S?Z?a?i?p?w? PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/rainbow1.fits0000644000175000017500000002070014657476773021703 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'rainbow1 ' / Name of colour table HISTORY (r,g,b) colour table converted from: rainbow1.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:02 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <àÞÓ=pí>=°®S=èëF>•>4´>PÐh>lìB>†‡+>––æ>¤¤Ó>´´>ÂÂz>ÒÒ5>àár>ðñ,>þÿ?‡j?Ža?–æ?Ža?‡j>þÿ>ðñ,>àár>ÒÒ5>ÂÂz>´´>¤¤Ó>––æ>†‡+>lìB>PÐh>4´>•=èëF=°®S=pí><àÞÓ<sX<€ˆQ<ÀÁý=}Ô=0³’=`ÞÓ=ˆŠH= Ÿè=¸ºÇ=ÐÐh=èëF>€s> ‹D>˜³>(©½>LÌÍ>pïÝ>ˆˆø>œœN>®¯%>ÀÀ­>ÒÒ5>äå >øøb?…?G?˜³?"¢^?+«É?5µt??¿Æ?HÈŠ?RÒÝ?[Û¡?eåó?nî·?yùð?€?€?€?€?€?€?€?~ÿ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?}þ3?{û½?yùð?wø#?uõ®?sóà?qò?oïž?míÐ?kì?iê6?gçÀ?eåó?cä&?aá±?_ßã?]Þ?[Û¡?YÙÓ?WØ?UÕ‘?SÓÃ?QÑö?OÏ?Mͳ?KËæ?IÊ?GǤ?EÅÖ?CÄ ?AÁ”??¿Æ?=½ù?;»„<sX<€ˆQ<ÀÁý=}Ô= ¥'=PÐh=€ƒ= Ÿè=ÈÉ2=ðò|> ‹D> Ÿè>4´>HÉ2>\Ý×>pïÝ>‚‚A>ŠŠÆ>’‘û>šš€>¤¤Ó>ªª;>°°ò>¶¶[>¼½>ÂÂz>ÈÉ2>ÎΚ>ÒÒ5>ØØí>ÞÞU>äå >êêt>îï_>ôôÇ>úû>þÿ?‚A?…?‡j? ŠÆ? z?G?’£?•W?—Ì?š€?œN?Ÿ©?!¡w?$¤Ó?&¦ ?)©ü?+«É?.®}?0°ò?3³§?5µt?8¸Ð?:º?=½ù??¿Æ?BÂz?DÄð?Fƽ?IÊ?KËæ?NΚ?PÑ?RÒÝ?UÕ‘?WØ?ZÚº?\Ý/?^Þü?aá±?cä&?eåó?hè§?jë?lìê?oïž?qò?sóà?uõ®?xù ?zú×?|ýL?€?|ýL?zú×?xù ?uõ®?sóà?qò?oïž?lìê?jë?hè§?eåó?cä&?aá±?^Þü?\Ý/?ZÚº?WØ?UÕ‘?RÒÝ?PÑ?NΚ?KËæ?IÊ?Fƽ?DÄð?Fƽ?IÊ?LÌÍ?OÏ?SÓÃ?WØ?[Û¡?^Þü?cä&?fæÚ?kì?nî·?sóà?wø#?|ýL?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?yùð?oïž?eåó?[Û¡?QÑö?GǤ?=½ù?3³§?)©ü?Ÿ©?•W? ‹¬?‚A>îï_>Ü܇>ÈÉ2>´´>¢£>ŒŒ“>tö>LÌÍ>,­X>„=ÈÉ2=¨§=€ƒ=@Áý<ÀÁý>(©½><»Ã>LÌÍ>`ár>tö>„„>ŽŽa>˜˜³>¢£>¬¬>¶¶[>ÀÀ­>ÊÊÿ>ÔÕR>ÞÞU>èè§>òòú>üýL?ƒÏ? ‰7?Ža?“Š?˜³?Ü?#£ì?(¨m?-­—?3³§?8¸Ð?=½ù?CÄ ?HÈŠ?Mͳ?SÓÃ?XØí?^Þü?cä&?iê6?nî·?tôÇ?yùð?€?yùð?tôÇ?nî·?iê6?cä&?^Þü?YÙÓ?TÔª?OÏ?JÊÿ?EÅÖ?@À­?;»„?6·?1±Ù?,¬°?(¨m?$¤Ó?  ?œN?˜³?”p?Ö? Œ“?ˆQ?„¶?€s>øøb>ðñ,>êêt>äå >ÞÞU>ØØí>ÒÒ5>ÌÌÍ>ÆÇe>ÀÀ­>º»E>´´>®¯%>¨¨m>¢£>œœN>––æ>.>ŠŠÆ>„„>|ýL>pïÝ>då >X×>LÌÍ>@Áý>4´>(©½>œN>‘}>„=ðò|=ÐÐh=°®S=‘}=`ÞÓ= ¥'<ÀÁý PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/isophot.fits0000644000175000017500000002070014657476773021646 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'isophot ' / Name of colour table HISTORY (r,g,b) colour table converted from: isophot.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:01 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ?€?€?€?€?€?€?€?€?€?€?€?€=@Áý=ÀÁý>‘}>@Áý>pïÝ>.>¨¨m>ÀÀ­>ØØí>ðñ,?„¶?Ö?œN?(¨m?4´?9¹¶?>¾à?CÄ ?€?€?€?WØ?\Ý/?aá±?fæÚ?kì?pñ,?uõ®?zú×?€?~ÿ?~ÿ?~ÿ?~ÿ?}þ3?}þ3?}þ3?}þ3?|ýL?|ýL?|ýL?|ýL?|ýL?€?€?€?|ýL?|ýL?|ýL?|ýL?|ýL?}þ3?}þ3?}þ3?}þ3?~ÿ?~ÿ?~ÿ?~ÿ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€=}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>‚‚A>’‘û>¢£>²²À>ÂÂz>ÒÒ5>âã?>ôôÇ>þÿ?„¶? ‰7?€?€?€?žÃ?#£ì?(¨m?-­—?3³§?8¸Ð?=½ù?BÂz?HÈŠ?KËæ?OÏ?RÒÝ?V×?ZÚº?]Þ?aá±?då ?hè§?lìê?oïž?sóà?wø#?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?zú×?uõ®?pñ,?lìê?gçÀ?bâ—?^Þü?YÙÓ?TÔª?PÑ?KËæ?Fƽ?BÂz?€?€?€?0°ò?+«É?'§‡?#£ì?žÃ?š€?–æ?‘¼? z? ‰7?„¶?€s>øøb>ðñ,>ÞÞU>ÎΚ>¾¾à>®¯%>žž>ŽŽa>|ýL>\Ý×?€?€?€=¸ºÇ=pí><àÞÓ?€?€?€?€?€?€>‘}>4´>X×>€€s>’‘û>¤¤Ó>¸¸(>ÊÊÿ>Ü܇>ðñ,>øøb?Z?…? ŠÆ?G?“Š?˜³?œN?!¡w?&¦ ?*ªã?/¯d?4´?>¾à?IÊ?TÔª?^Þü?iê6?tôÇ?€= ¥'= Ÿè=ðò|> Ÿè>HÉ2>pïÝ>ŽŽa>¢£>¶¶[>ÊÊÿ>ÞÞU>òòú?„¶?Ža?˜³?"¢^?,¬°?7·é?€?€?€?`àÊ?jë?tôÇ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?uõ®?pñ,?kì?fæÚ?aá±?\Ý/?WØ?RÒÝ?Mͳ?HÈŠ?CÄ ?>¾à?9¹¶?4´?'§‡?›g?G?ƒÏ>îï_>Ö×>¾¾à>¦¦ ?€?€?€> ‹D=¸ºÇ=0³’?€?€?€?€?€?€?€?€?€=@Áý=ÀÁý>‘}?€?€?€>¨¨m>ÀÀ­>ØØí>ðñ,?„¶?Ö?œN?(¨m?4´?9¹¶??¿Æ?EÅÖ?KËæ?PÑ?V×?\Ý/?bâ—?gçÀ?míÐ?sóà?yùð?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/smooth.fits0000644000175000017500000002070014657476773021472 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'smooth ' / Name of colour table HISTORY (r,g,b) colour table converted from: smooth.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:05 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <€ˆQ=Œ?=PÐh=ˆŠH=°®S=ÐÐh=ðò|> ‹D>œN>,­X>@Áý>PÐh>`ár>tö>‚‚A>ŠŠÆ>’‘û>œœN>¤¤Ó>¬¬>¶¶[>¾¾à>ÆÇe>ÐÐh>ØØí>àár>êêt>òòú>úû?‚A?†ƒ? ŠÆ?G?“Š?—Ì?œN?  ?$¤Ó?)©ü?-­—?1±Ù?6·?:º?>¾à?BÂz?GǤ?KËæ?OÏ?TÔª?XØí?\Ý/?aá±?eåó?iê6?nî·?ròú?v÷þÿ>öö”>îï_>äå >Ü܇>ÔÕR>ÌÌÍ>ÂÂz>º»E>²²À>ªª;>¢£>˜˜³>.>ˆˆø>€€s>lìB>\Ý×>LÌÍ><»Ã>(©½>˜³>‡©=ðò|=ÈÉ2=¨§=ˆŠH=PÐh=}Ô<€ˆQ<@­< ¥'=}Ô= ¥'=PÐh=pí>=‘}=¨§=¸ºÇ=ÐÐh=àÞÓ=øù±>„>‘}>œN>$£ƒ>0°ò>8¸(>DÅ—>PÐh>X×>då >lìB>xù±>€€s>†‡+>ŒŒ“>.>––æ>šš€> ¡8>¤¤Ó>ªª;>°°ò>´´>º»E>¾¾à>ÄÄH>ÈÉ2>ÎΚ>ÔÕR>ØØí>ÞÞU>âã?>èè§>îï_>òòú>øøb>üýL?Z?ƒÏ?†ƒ? ‰7? ‹¬?Ža?Ö?“Š?•W?˜³?™š?›g?œN?Ü?žÃ?  ?!¡w?"¢^?$¤Ó?%¥¹?&¦ ?(¨m?)©ü?*ªã?,¬°?-­—?.®}?/¯d?1±Ù?2²À?3³§?5µt?6·?7·é?9¹¶?:º?;»„?<¼j?>¾à??¿Æ?@À­?BÂz?CÄ ?DÄð?EÅÖ?GǤ?HÈŠ?IÊ?KËæ?LÌÍ?Mͳ?OÏ?PÑ?QÑö?SÓÃ?TÔª?UÕ‘?V×?XØí?YÙÓ?ZÚº?\Ý/?]Þ?^Þü?`àÊ?aá±?bâ—?cä&?eåó?fæÚ?fæÚ?bâ—?^Þü?ZÚº?V×?SÓÃ?OÏ?KËæ?GǤ?CÄ ??¿Æ?;»„?7·é?3³§?/¯d?,¬°?(¨m?$¤Ó?  ?œN?˜³?”p?Ö? Œ“?ˆQ?…?Z>úû>òòú>êêt>âã?>ÚÚº>ÒÒ5>ÊÊÿ>ÂÂz>¼½>´´>¬¬>¤¤Ó>œœN>”•>ŒŒ“>„„>xù±>hè§>\Ý×>LÌÍ><»Ã>,­X>œN> ‹D=øù±=Ø×=¸ºÇ=˜˜³=€ƒ=@Áý=}Ô<€ˆQ?€?{û½?v÷¾à?:º?6·?1±Ù?-­—?)©ü?$¤Ó?  ?œN?—Ì?“Š?G? ŠÆ?†ƒ?‚A>úû>òòú>êêt>àár>ØØí>ÐÐh>ÆÇe>¾¾à>¶¶[>¬¬>¤¤Ó>œœN>’‘û>ŠŠÆ>‚‚A>tö>`ár>PÐh>@Áý>,­X>œN> ‹D=ðò|=ÐÐh=°®S=ˆŠH=PÐh=Œ?<€ˆQ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/smooth2.fits0000644000175000017500000002070014657476773021554 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'smooth2 ' / Name of colour table HISTORY (r,g,b) colour table converted from: smooth2.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:06 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END =ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH>‡©>‡©>‡©>‡©>‡©>‡©>‡©>‡©>LÌÍ>LÌÍ>LÌÍ>LÌÍ>LÌÍ>LÌÍ>LÌÍ>LÌÍ>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>îï_>îï_>îï_>îï_>îï_>îï_>îï_>îï_?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?™š?™š?™š?™š?™š?™š?™š?™š?*ªã?*ªã?*ªã?*ªã?*ªã?*ªã?*ªã?*ªã?;»„?;»„?;»„?;»„?;»„?;»„?;»„?;»„?LÌÍ?LÌÍ?LÌÍ?LÌÍ?LÌÍ?LÌÍ?LÌÍ?LÌÍ?]Þ?]Þ?]Þ?]Þ?]Þ?]Þ?]Þ?]Þ?nî·?nî·?nî·?nî·?nî·?nî·?nî·?nî·?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€=ˆŠH=ˆŠH>‡©>‡©>LÌÍ>LÌÍ>ˆˆø>ˆˆø>ªª;>ªª;>ÌÌÍ>ÌÌÍ>îï_>îï_?ˆQ?ˆQ?™š?™š?*ªã?*ªã?;»„?;»„?LÌÍ?LÌÍ?]Þ?]Þ?nî·?nî·?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH>‡©>‡©>‡©>‡©>‡©>‡©>‡©>‡©>LÌÍ>LÌÍ>LÌÍ>LÌÍ>LÌÍ>LÌÍ>LÌÍ>LÌÍ>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ˆˆø>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>îï_>îï_>îï_>îï_>îï_>îï_>îï_>îï_?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ?ˆQ>îï_>îï_>îï_>îï_>ÌÌÍ>ÌÌÍ>ÌÌÍ>ÌÌÍ>ªª;>ªª;>ªª;>ªª;>ˆˆø>ˆˆø>ˆˆø>ˆˆø>LÌÍ>LÌÍ>LÌÍ>LÌÍ>‡©>‡©>‡©>‡©=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH=ˆŠH>‡©>‡©>LÌÍ>LÌÍ>ˆˆø>ˆˆø>ªª;>ªª;>ÌÌÍ>ÌÌÍ>îï_>îï_?ˆQ?ˆQ?™š?™š?*ªã?*ªã?;»„?;»„?LÌÍ?LÌÍ?]Þ?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/manycol.fits0000644000175000017500000002070014657476773021623 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'manycol ' / Name of colour table HISTORY (r,g,b) colour table converted from: manycol.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:01 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END >²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>äå >äå >äå >äå >äå >äå >äå >äå >äå ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?€?€?€?€?€?€?€?€?€?€>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>äå >äå >äå >äå >äå >äå >äå >äå >äå ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?€?€?€?€?€?€?€?€?€?€>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>äå >äå >äå >äå >äå >äå >äå >äå >äå ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?9¹¶?9¹¶>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?€?€?€?€?€?€?€?€?€?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?€?€?€?€?€?€?€?€?€?€>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?€?€?€?€?€?€?€?€?€?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?€?€?€?€?€?€?€?€?€?€>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?0°ò?€?€?€?€?€?€?€?€?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?€?€?€?€?€?€?€?€?€?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?€?€?€?€?€?€?€?€?€?€>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?€?€?€?€?€?€?€?€?€?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?€?€?€?€?€?€?€?€?€?€>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À>²²À?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?lìê?€?€?€?€?€?€?€?€?€?9¹¶?9¹¶ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/idl15.fits0000644000175000017500000002070014657476773021077 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'idl15 ' / Name of colour table HISTORY (r,g,b) colour table converted from: idl15.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:00 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END =‘}>‘}>X×>.>´´>ØØí>þÿ?‘¼?#£ì?5µt?GǤ?YÙÓ?kì?~ÿ?yùð?tôÇ?oïž?jë?eåó?_ßã?ZÚº?UÕ‘?PÑ?KËæ?EÅÖ?@À­?;»„?6·?1±Ù?,¬°?&¦ ?!¡w?œN?—Ì?’£? Œ“?‡j?‚A>úû>ðñ,>ææÚ>ÚÚº>ÐÐh>ÆÇe>¼½>²²À>¦¦ >œœN>’‘û>ˆˆø>|ýL>hè§>PÐh><»Ã>(©½>•>€s=ÐÐh=¨§=€ƒ=0³’<ÀÁý>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷=ˆŠH=˜˜³=¨§=¸ºÇ=ÈÉ2=Ø×=èëF=øù±>„> ‹D>•>œN>$£ƒ>,­X>4´><»Ã>DÅ—>LÌÍ>TÔ>\Ý×>då >lìB>tö>|ýL>‚‚A>†‡+>ŠŠÆ>ŽŽa>’‘û>––æ>šš€>žž>¢£>¦¦ >ªª;>®¯%>²²À>¶¶[>º»E>¾¾à>ÂÂz>ÆÇe>ÊÊÿ>ÎΚ>ÒÒ5>Ö×>ÚÚº>ÞÞU>âã?>ææÚ>êêt>îï_>òòú>öö”>úû>þÿ?Z?ƒÏ?…?‡j? ‰7? ‹¬? z?G?‘¼?“Š?•W?—Ì?™š?›g?Ü?Ÿ©?!¡w?#£ì?%¥¹?'§‡?)©ü?+«É?-­—?/¯d?1±Ù?3³§?5µt?7·é?9¹¶?;»„?=½ù??¿Æ?AÁ”?CÄ ?EÅÖ?GǤ?IÊ?KËæ?Mͳ?OÏ?QÑö?SÓÃ?UÕ‘?WØ?YÙÓ?[Û¡?]Þ?_ßã?aá±?cä&?eåó?gçÀ?iê6?kì?míÐ?oïž?qò?sóà?uõ®?wø#?yùð?{û½?}þ3?€?{û½?wø#?sóà?nî·?jë?fæÚ?bâ—?]Þ?YÙÓ?UÕ‘?QÑö?LÌÍ?HÈŠ?DÄð?@À­?;»„?7·é?3³§?/¯d?*ªã?&¦ ?"¢^?žÃ?™š?•W?‘¼? z?ˆQ?„¶?€s>øøb>îï_>ææÚ>ÞÞU>Ö×>ÌÌÍ>ÄÄH>¼½>´´>ªª;>¢£>šš€>’‘û>ˆˆø>€€s>pïÝ>`ár>LÌÍ><»Ã>,­X>œN>‡©=ðò|=ÐÐh=°®S=ˆŠH=PÐh=Œ?< ¥'<@­<àÞÓ=0³’=pí>=˜˜³=°®S=ÐÐh=ðò|>‡©>˜³>$£ƒ>4´>DÅ—>TÔ>då >pïÝ>€€s>ˆˆø>.>˜˜³>žž>¦¦ >®¯%>¶¶[>¾¾à>ÄÄH>ÌÌÍ>ÔÕR>Ü܇>äå >êêt>òòú>úû?Z?…? ‰7? Œ“?Ö?”p?˜³?œN?Ÿ©?#£ì?'§‡?+«É?/¯d?2²À?6·?:º?>¾à?BÂz?EÅÖ?IÊ?Mͳ?QÑö?UÕ‘?XØí?\Ý/?`àÊ?då ?hè§?kì?oïž?sóà?wø#?{û½?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/idl11.fits0000644000175000017500000002070014657476773021073 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'idl11 ' / Name of colour table HISTORY (r,g,b) colour table converted from: idl11.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:16:59 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <€ˆQ=}Ô=@Áý=€ƒ= Ÿè=ÀÁý=àÞÓ>€s>‘}> Ÿè>0°ò>@Áý>PÐh>`ár>pïÝ>€€s>ˆˆø>.>˜˜³> ¡8>ªª;>²²À>º»E>ÂÂz>ÊÊÿ>ÒÒ5>ÚÚº>âã?>êêt>òòú>úû?Z?…? ‰7? z?‘¼?•W?™š?Ü?!¡w?%¥¹?*ªã?.®}?2²À?6·?:º?>¾à?BÂz?Fƽ?JÊÿ?NΚ?RÒÝ?V×?ZÚº?^Þü?bâ—?fæÚ?jë?nî·?ròú?v÷„>˜³>(©½>8¸(>HÉ2>\Ý×>lìB>|ýL>†‡+>.>˜˜³> ¡8>¨¨m>²²À>º»E>ÂÂz>ÊÊÿ>ÔÕR>Ü܇>äå >ìí‘>öö”>þÿ?ƒÏ?‡j? Œ“?Ö?”p?˜³?Ü?!¡w?%¥¹?)©ü?.®}?2²À?6·?:º??¿Æ?CÄ ?GǤ?KËæ?PÑ?TÔª?XØí?\Ý/?aá±?eåó?iê6?míÐ?ròú?v÷üýL>ôôÇ>ìí‘>äå >Ü܇>ÔÕR>ÌÌÍ>ÄÄH>¼½>´´>ªª;>¢£>šš€>’‘û>ŠŠÆ>‚‚A>tö>då >TÔ>DÅ—>4´>$£ƒ>•>„=èëF=ÈÉ2=¨§=ˆŠH=PÐh=Œ?< ¥';€sX<sX<@­<€ˆQ=}Ô=@Áý=€ƒ=¨§=ÈÉ2=èëF>„>˜³>(©½>8¸(>HÉ2>\Ý×>lìB>|ýL>†‡+>.>˜˜³> ¡8>¨¨m>²²À>º»E>ÂÂz>ÊÊÿ>ÔÕR>Ü܇>äå >ìí‘>öö”>þÿ?ƒÏ?‡j? Œ“?Ö?”p?˜³?Ü?!¡w?%¥¹?)©ü?.®}?2²À?6·?:º??¿Æ?CÄ ?GǤ?KËæ?PÑ?TÔª?XØí?\Ý/?aá±?eåó?iê6?míÐ?ròú?v÷¾à?:º?5µt?1±Ù?-­—?)©ü?%¥¹?!¡w?Ü?™š?•W?Ö? Œ“?ˆQ?„¶?€s>øøb>ðñ,>èè§>àár>Ö×>ÎΚ>ÆÇe>¾¾à>¶¶[>®¯%>¦¦ >žž>––æ>ŒŒ“>„„>xù±>hè§>X×>HÉ2>8¸(>(©½>˜³>„=èëF=ÈÉ2=¨§=ˆŠH=PÐh=Œ?< ¥' PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/heat.fits0000644000175000017500000002070014657476773021102 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'heat ' / Name of colour table HISTORY (r,g,b) colour table converted from: heat.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:16:59 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <@­<ÀÁý=Œ?=@Áý=pí>=‘}=¨§=ÀÁý=Ø×=ðò|>„>‘}>œN>(©½>4´>@Áý>LÌÍ>X×>då >pïÝ>|ýL>„„>ŠŠÆ>.>––æ>œœN>¢£>¨¨m>®¯%>´´>º»E>ÀÀ­>ÆÇe>ÌÌÍ>ÒÒ5>ØØí>ÞÞU>äå >êêt>ðñ,>öö”>üýL?Z?„¶?‡j? ŠÆ? z?Ö?“Š?–æ?™š?œN?Ÿ©?"¢^?%¥¹?(¨m?+«É?.®}?1±Ù?4´?7·é?:º?=½ù?@À­?CÄ ?Fƽ?IÊ?LÌÍ?OÏ?RÒÝ?UÕ‘?XØí?[Û¡?^Þü?aá±?då ?gçÀ?jë?míÐ?pñ,?sóà?v÷=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷=‘}=¨§=ÀÁý=Ø×=ðò|>„>‘}>œN>(©½>4´>@Áý>LÌÍ>X×>då >pïÝ>|ýL>„„>ŠŠÆ>.>––æ>œœN>¢£>¨¨m>®¯%>´´>º»E>ÀÀ­>ÆÇe>ÌÌÍ>ÒÒ5>ØØí>ÞÞU>äå >êêt>ðñ,>öö”>üýL?Z?„¶?‡j? ŠÆ? z?Ö?“Š?–æ?™š?œN?Ÿ©?"¢^?%¥¹?(¨m?+«É?.®}?1±Ù?4´?7·é?:º?=½ù?@À­?CÄ ?Fƽ?IÊ?LÌÍ?OÏ?RÒÝ?UÕ‘?XØí?[Û¡?^Þü?aá±?då ?gçÀ?jë?míÐ?pñ,?sóà?v÷„>˜³>(©½><»Ã>PÐh>då >tö>„„>ŽŽa>˜˜³>¢£>¢£>¢£>¢£>¢£>¢£>¢£>¢£> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8>žž>¨¨m>²²À>¼½>ÆÇe>ÐÐh>ÚÚº>äå >îï_>øøb?Z?†ƒ? ‹¬?Ö?•W?š€?Ÿ©?$¤Ó?)©ü?.®}?4´?9¹¶?>¾à?DÄð?IÊ?NΚ?TÔª?YÙÓ?^Þü?då ?iê6?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?xù ?pñ,?hè§?aá±?YÙÓ?QÑö?JÊÿ?BÂz?:º?3³§?+«É?#£ì?(¨m?-­—?2²À?7·é?<¼j?AÁ”?Fƽ?KËæ?QÑö?V×?[Û¡?`àÊ?eåó?jë?oïž?tôÇ?yùð?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€< ¥'= ¥'=€ƒ=¨§=Ø×>€s>•>,­X>@Áý>X×>lìB>€€s>ŒŒ“>––æ>¢£>ªª;>´´>¾¾à>ÈÉ2>ÒÒ5>ÚÚº>äå >îï_>øøb?Z?†ƒ? ŠÆ?G?”p?™š?žÃ?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?)©ü?/¯d?5µt?;»„?AÁ”?GǤ?Mͳ?TÔª?ZÚº?`àÊ?fæÚ?lìê?ròú?xù ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€< ¥'= ¥'=pí>= Ÿè=ÐÐh=øù±>‘}>$£ƒ>8¸(>PÐh>då >xù±>†‡+>.>œœN>¦¦ >°°ò>º»E>ÄÄH>ÐÐh>ÚÚº>äå >îï_>øøb?‚A?‡j? Œ“?‘¼?–æ?œN?!¡w?&¦ ?+«É?0°ò?6·?;»„?@À­?EÅÖ?JÊÿ?PÑ?UÕ‘?ZÚº?_ßã?då ?jë?oïž?tôÇ?yùð?€?zú×?uõ®?oïž?jë?då ?_ßã?ZÚº?TÔª?OÏ?IÊ?DÄð?>¾à?9¹¶?4´?.®}?)©ü?#£ì?žÃ?˜³?“Š?Ža?ˆQ?ƒÏ>úû>ðñ,>äå >ÚÚº>ÐÐh>ÄÄH>º»E>®¯%>¤¤Ó>˜˜³>ŽŽa>„„>pïÝ>\Ý×>DÅ—>0°ò>˜³>„=àÞÓ=°®S=ˆŠH=0³’<ÀÁý<€ˆQ=Œ?=`ÞÓ=˜˜³=ÀÁý=àÞÓ>„>˜³>,­X>@Áý>TÔ>då >xù±>†‡+>.>šš€>¤¤Ó>šš€>ŽŽa>‚‚A>lìB>TÔ><»Ã>$£ƒ>‘}=ðò|=ÀÁý=‘}=@Áý<ÀÁý<@­<ÀÁý=Œ?=@Áý=€ƒ=˜˜³=°®S=ÈÉ2=èëF>€s> ‹D>˜³>$£ƒ>4´>@Áý>LÌÍ>X×>hè§>tö>€€s>†‡+>ŽŽa>”•>šš€> ¡8>¦¦ >®¯%>´´>º»E>ÀÀ­>ÈÉ2>ÎΚ>ÔÕR>ÚÚº>àár>èè§>îï_>ôôÇ>úû?Z?„¶?‡j? ŠÆ?Ža?‘¼?”p?—Ì?š€?žÃ?!¡w?$¤Ó?'§‡?+«É?.®}?1±Ù?4´?7·é?;»„?>¾à?AÁ”?DÄð?HÈŠ?KËæ?NΚ?QÑö?UÕ‘?XØí?[Û¡?^Þü?aá±?eåó?hè§?kì?nî·?ròú?uõ®?xù ?{û½?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/rainbow2.fits0000644000175000017500000002070014657476773021704 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'rainbow2 ' / Name of colour table HISTORY (r,g,b) colour table converted from: rainbow2.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:02 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END =}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>€€s>.> ¡8>°°ò>ÀÀ­>ÐÐh>àár>ðñ,?€s?ˆQ?Ö?˜³?  ?(¨m?0°ò?8¸Ð?@À­?HÈŠ?PÑ?XØí?`àÊ?hè§?pñ,?xù ?€?wø#?oïž?gçÀ?_ßã?WØ?OÏ?GǤ??¿Æ?7·é?/¯d?'§‡?Ÿ©?—Ì?G?‡j>þÿ>îï_>ÞÞU>ÎΚ>¾¾à>®¯%>žž>ŽŽa>|ýL>\Ý×><»Ã>œN=øù±=¸ºÇ=pí><àÞÓ=}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>€€s>.> ¡8>°°ò>ÀÀ­>ÐÐh>àár>ðñ,?€s?ˆQ?Ö?˜³?  ?(¨m?0°ò?8¸Ð?@À­?HÈŠ?PÑ?XØí?`àÊ?hè§?pñ,?xù ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€=}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>€€s>.> ¡8>°°ò>ÀÀ­>ÐÐh>àár>ðñ,?€s?ˆQ?Ö?˜³?  ?(¨m?0°ò?8¸Ð?@À­?HÈŠ?PÑ?XØí?`àÊ?hè§?pñ,?xù ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?{û½?wø#?sóà?oïž?kì?gçÀ?cä&?_ßã?[Û¡?WØ?SÓÃ?OÏ?KËæ?GǤ?CÄ ??¿Æ?;»„?7·é?3³§?/¯d?+«É?'§‡?#£ì?Ÿ©?›g?—Ì?“Š?G? ‹¬?‡j?ƒÏ>þÿ>öö”>îï_>ææÚ>ÞÞU>Ö×>ÎΚ>ÆÇe>¾¾à>¶¶[>®¯%>¦¦ >žž>––æ>ŽŽa>†‡+>|ýL>lìB>\Ý×>LÌÍ><»Ã>,­X>œN> ‹D=øù±=Ø×=¸ºÇ=˜˜³=pí>=0³’<àÞÓ<@­=}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>€€s>.> ¡8>°°ò>ÀÀ­>ÐÐh>àár>ðñ,?€s?ˆQ?Ö?˜³?  ?(¨m?0°ò?8¸Ð?@À­?HÈŠ?PÑ?XØí?`àÊ?hè§?pñ,?xù =}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>€€s>.> ¡8>°°ò>ÀÀ­>ÐÐh>àár>ðñ,?€s?ˆQ?Ö?˜³?  ?(¨m?0°ò?8¸Ð?@À­?HÈŠ?PÑ?XØí?`àÊ?hè§?pñ,?xù ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?wø#?oïž?gçÀ?_ßã?WØ?OÏ?GǤ??¿Æ?7·é?/¯d?'§‡?Ÿ©?—Ì?G?‡j>þÿ>îï_>ÞÞU>ÎΚ>¾¾à>®¯%>žž>ŽŽa>|ýL>\Ý×><»Ã>œN=øù±=¸ºÇ=pí><àÞÓ=}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>€€s>.> ¡8>°°ò>ÀÀ­>ÐÐh>àár>ðñ,?€s?ˆQ?Ö?˜³?  ?(¨m?0°ò?8¸Ð?@À­?HÈŠ?PÑ?XØí?`àÊ?hè§?pñ,?xù PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/rainbow3.fits0000644000175000017500000002070014657476773021705 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'rainbow3 ' / Name of colour table HISTORY (r,g,b) colour table converted from: rainbow3.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:02 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END =@Áý=ÀÁý>‘}>@Áý>pïÝ>.>¨¨m>ÀÀ­>ØØí>ðñ,?„¶?Ö?œN?(¨m?4´?9¹¶?>¾à?CÄ ?HÈŠ?Mͳ?RÒÝ?WØ?\Ý/?aá±?fæÚ?kì?pñ,?uõ®?zú×?€?~ÿ?~ÿ?~ÿ?~ÿ?~ÿ?}þ3?}þ3?}þ3?}þ3?}þ3?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?}þ3?}þ3?}þ3?}þ3?}þ3?~ÿ?~ÿ?~ÿ?~ÿ?~ÿ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€=}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>‚‚A>’‘û>¢£>²²À>ÂÂz>ÒÒ5>âã?>ôôÇ>þÿ?„¶? ‰7?Ža?”p?™š?žÃ?#£ì?(¨m?.®}?3³§?8¸Ð?=½ù?BÂz?HÈŠ?KËæ?OÏ?SÓÃ?V×?ZÚº?^Þü?aá±?eåó?iê6?lìê?pñ,?tôÇ?wø#?{û½?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?zú×?uõ®?qò?lìê?gçÀ?cä&?^Þü?YÙÓ?UÕ‘?PÑ?KËæ?GǤ?BÂz?=½ù?9¹¶?4´?0°ò?,¬°?'§‡?#£ì?Ÿ©?š€?–æ?’£? z? ‰7?…?€s>øøb>ðñ,>àár>ÐÐh>ÀÀ­>°°ò> ¡8>.>€€s>\Ý×><»Ã>œN=øù±=¸ºÇ=pí><àÞÓ=Œ?=‘}=Ø×>‘}>8¸(>\Ý×>€€s>’‘û>¦¦ >¸¸(>ÊÊÿ>Ü܇>ðñ,>øøb?Z?…? ŠÆ?G?“Š?˜³?œN?!¡w?&¦ ?*ªã?/¯d?4´?>¾à?IÊ?TÔª?^Þü?iê6?tôÇ?€= ¥'= Ÿè=ðò|> Ÿè>LÌÍ>tö>ŽŽa>¢£>¶¶[>ÌÌÍ>àár>ôôÇ?„¶?Ža?™š?#£ì?-­—?7·é?AÁ”?LÌÍ?V×?`àÊ?jë?tôÇ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?zú×?uõ®?pñ,?kì?fæÚ?aá±?\Ý/?WØ?RÒÝ?Mͳ?HÈŠ?CÄ ?>¾à?9¹¶?4´?(¨m?œN?Ö?„¶>ðñ,>ØØí>ÀÀ­>¦¦ >ŽŽa>lìB><»Ã> ‹D=¸ºÇ=0³’=@Áý=ÀÁý>‘}>@Áý>pïÝ>.>¨¨m>ÀÀ­>ØØí>ðñ,?„¶?Ö?œN?(¨m?4´?9¹¶??¿Æ?EÅÖ?KËæ?PÑ?V×?\Ý/?bâ—?gçÀ?míÐ?sóà?yùð?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/random3.fits0000644000175000017500000002070014657476773021524 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'random3 ' / Name of colour table HISTORY (r,g,b) colour table converted from: random3.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:04 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?€?€?€?€?€?€?€?€?€?€?€?€?€?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?€?€?€?€?€?€?€?€?€>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/rainbow.fits0000644000175000017500000002070014657476773021622 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'rainbow ' / Name of colour table HISTORY (r,g,b) colour table converted from: rainbow.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:02 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <àÞÓ=pí>=°®S=èëF>•>4´>PÐh>lìB>†‡+>––æ>¤¤Ó>´´>ÂÂz>ÒÒ5>àár>ðñ,>þÿ?‡j?Ža?–æ?Ža?‡j>þÿ>ðñ,>àár>ÒÒ5>ÂÂz>´´>¤¤Ó>––æ>†‡+>lìB>PÐh>4´>•=èëF=°®S=pí><àÞÓ<sX=Œ?=ˆŠH=ÈÉ2>„>(©½>LÌÍ>pïÝ>ˆˆø>œœN>®¯%>ÀÀ­>ÒÒ5>äå >øøb?…?G?˜³?"¢^?+«É?5µt??¿Æ?HÈŠ?RÒÝ?[Û¡?eåó?nî·?yùð?€?€?€?€?€?€?€?~ÿ?zú×?uõ®?qò?lìê?hè§?då ?_ßã?[Û¡?V×?RÒÝ?Mͳ?IÊ?DÄð?AÁ”?=½ù?9¹¶?5µt?1±Ù?.®}?)©ü?&¦ ?"¢^?  ?Ü?›g?žÃ?  ?#£ì?%¥¹?(¨m?*ªã?-­—?/¯d?2²À?5µt?7·é?:º?<¼j??¿Æ?AÁ”?DÄð?Fƽ?IÊ?LÌÍ?NΚ?QÑö?SÓÃ?V×?XØí?[Û¡?]Þ?`àÊ?bâ—?eåó?hè§?jë?míÐ?oïž?ròú?tôÇ?wø#?yùð?|ýL?€<ÀÁý=@Áý=€ƒ=¨§=ÈÉ2=èëF>„>‘}> Ÿè>,­X><»Ã>HÉ2>X×>då >pïÝ>€€s>†‡+>ŒŒ“>’‘û>˜˜³>žž>¤¤Ó>ªª;>°°ò>¶¶[>¼½>ÂÂz>ÈÉ2>ÎΚ>ÒÒ5>ØØí>ÞÞU>äå >êêt>îï_>ôôÇ>úû>þÿ?‚A?…?‡j? ŠÆ? z?G?’£?•W?—Ì?š€?œN?Ÿ©?!¡w?$¤Ó?&¦ ?)©ü?+«É?.®}?0°ò?3³§?5µt?8¸Ð?:º?=½ù??¿Æ?BÂz?DÄð?Fƽ?IÊ?KËæ?NΚ?PÑ?RÒÝ?UÕ‘?WØ?ZÚº?\Ý/?^Þü?aá±?cä&?eåó?hè§?jë?lìê?oïž?qò?sóà?uõ®?xù ?zú×?|ýL?€?|ýL?zú×?xù ?uõ®?sóà?qò?oïž?lìê?jë?hè§?eåó?cä&?aá±?^Þü?\Ý/?ZÚº?WØ?UÕ‘?RÒÝ?PÑ?NΚ?KËæ?IÊ?Fƽ?DÄð?Fƽ?IÊ?LÌÍ?OÏ?SÓÃ?WØ?[Û¡?^Þü?cä&?fæÚ?kì?nî·?sóà?wø#?|ýL?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?yùð?oïž?eåó?[Û¡?QÑö?GǤ?=½ù?3³§?)©ü?Ÿ©?•W? ‹¬?‚A>îï_>Ü܇>ÈÉ2>´´>¢£>ŒŒ“>tö>LÌÍ>,­X>„=ÈÉ2=¨§=€ƒ=@Áý<ÀÁý<sX<àÞÓ=PÐh=¨§=èëF>˜³>DÅ—>lìB>ŽŽa>¦¦ >ÀÀ­>Ü܇>øøb? ŠÆ?™š?)©ü?9¹¶?JÊÿ?[Û¡?míÐ?€>(©½><»Ã>LÌÍ>`ár>tö>„„>ŽŽa>˜˜³>¢£>¬¬>¶¶[>ÀÀ­>ÊÊÿ>ÔÕR>ÞÞU>èè§>òòú>üýL?ƒÏ? ‰7?Ža?“Š?˜³?Ü?#£ì?(¨m?-­—?3³§?8¸Ð?=½ù?CÄ ?HÈŠ?Mͳ?SÓÃ?XØí?^Þü?cä&?iê6?nî·?tôÇ?yùð?€?yùð?tôÇ?nî·?iê6?cä&?^Þü?XØí?SÓÃ?Mͳ?HÈŠ?CÄ ?=½ù?8¸Ð?3³§?-­—?(¨m?#£ì?Ü?˜³?“Š?Ža? ‰7?ƒÏ>üýL>òòú>èè§>ÞÞU>ÔÕR>ÊÊÿ>ÀÀ­>¶¶[>¬¬>¢£>˜˜³>ŽŽa>„„>tö>`ár>LÌÍ><»Ã>(©½>•>„=àÞÓ=ÀÁý=˜˜³=pí>=0³’<àÞÓ<@­<sX<àÞÓ=PÐh=¨§=èëF>˜³>DÅ—>lìB>ŽŽa>¦¦ >ÀÀ­>Ü܇>øøb? ŠÆ?™š?)©ü?9¹¶?JÊÿ?[Û¡?míÐ?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/random5.fits0000644000175000017500000002070014657476773021526 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'random5 ' / Name of colour table HISTORY (r,g,b) colour table converted from: random5.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:04 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ;€sX;€sX<sX<sX<@­<€ˆQ<€ˆQ< ¥'< ¥'<ÀÁý<àÞÓ<àÞÓ=}Ô=Œ?=Œ?= ¥'=0³’=@Áý=@Áý=PÐh=`ÞÓ=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=‘}=˜˜³= Ÿè=¨§=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=ðò|=øù±>€s>„>‡©> ‹D>‘}>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?`àÊ?aá±?bâ—?cä&?då ?fæÚ?gçÀ?hè§?iê6?jë?kì?míÐ?nî·?oïž?pñ,?qò?sóà?tôÇ?uõ®?v÷‡©> Ÿè>‡©=àÞÓ=¸ºÇ=‘}=`ÞÓ= ¥'<ÀÁý<@­;€sX;€sX<€ˆQ=}Ô=@Áý=ˆŠH=¸ºÇ=èëF> ‹D>(©½>HÉ2>(©½> ‹D=èëF=¸ºÇ=ˆŠH=@Áý=}Ô<€ˆQ;€sX<sX<ÀÁý=0³’=ˆŠH=ÀÁý>€s> Ÿè>HÉ2>lìB>ŒŒ“>lìB>HÉ2> Ÿè>€s=ÀÁý=ˆŠH=0³’<ÀÁý<sX<sX=}Ô=`ÞÓ=°®S=øù±>$£ƒ>PÐh>€€s>˜˜³>´´>˜˜³>€€s>PÐh>$£ƒ=øù±=°®S=`ÞÓ=}Ô<sX<@­=Œ?=‘}=Ø×>˜³>LÌÍ>€€s>œœN>º»E>Ü܇>º»E>œœN>€€s>LÌÍ>˜³=Ø×=‘}=Œ?<@­<€ˆQ=0³’=¨§>€s>4´>pïÝ>˜˜³>º»E>Ü܇?‚A>Ü܇>º»E>˜˜³>pïÝ>4´>€s=¨§=0³’<€ˆQ<€ˆQ=PÐh=ÀÁý>•>TÔ>ŠŠÆ>®¯%>Ö×?€s?–æ?€s>Ö×>®¯%>ŠŠÆ>TÔ>•=ÀÁý=PÐh<€ˆQ< ¥'=pí>=Ø×>,­X>pïÝ>žž>ÆÇe>òòú?‘¼?*ªã?‘¼>òòú>ÆÇe>žž>pïÝ>,­X=Ø×=pí>< ¥'<ÀÁý=€ƒ=øù±>@Áý>†‡+>°°ò>ÞÞU?‡j?"¢^?>¾à?"¢^?‡j>ÞÞU>°°ò>†‡+>@Áý=øù±=€ƒ<ÀÁý<ÀÁý=‘}>‡©>TÔ>”•>ÂÂz>ôôÇ?–æ?3³§?RÒÝ?3³§?–æ>ôôÇ>ÂÂz>”•>TÔ>‡©=‘}<ÀÁý<àÞÓ= Ÿè>•>hè§>¢£>ÔÕR?†ƒ?$¤Ó?DÄð?fæÚ?DÄð?$¤Ó?†ƒ>ÔÕR>¢£>„„>lìB>tö>ŽŽa>´´>ìí‘?•W?6·?YÙÓ?€?€?}þ3?|ýL?{û½?zú×?yùð?wø#?v÷¾à?=½ù?<¼j?;»„?9¹¶?8¸Ð?7·é?6·?5µt?4´?3³§?2²À?0°ò?/¯d?.®}?-­—?,¬°?+«É?*ªã?)©ü?'§‡?&¦ ?%¥¹?$¤Ó?#£ì?"¢^?!¡w?  ?žÃ?Ü?œN?›g?š€?™š?˜³?—Ì?–æ?•W?“Š?’£?‘¼?Ö?G?Ža? z? Œ“? ‹¬? ŠÆ? ‰7?‡j?†ƒ?…?„¶?ƒÏ?‚A?Z?€s>þÿ>üýL>úû>øøb>öö”>ôôÇ>ðñ,>îï_>ìí‘>êêt>èè§>ææÚ>äå >âã?>àár>ÞÞU>Ü܇>ÚÚº>ØØí>Ö×>ÔÕR>ÒÒ5>ÐÐh>ÎΚ>ÌÌÍ>ÊÊÿ>ÈÉ2>ÆÇe>ÄÄH>ÂÂz>ÀÀ­>¾¾à>º»E>¸¸(>¶¶[>´´>²²À>°°ò>®¯%>¬¬>ªª;>¨¨m>¦¦ >¤¤Ó>¢£> ¡8>žž>œœN>šš€>˜˜³>˜˜³>––æ>”•>’‘û>.>ŽŽa>ŒŒ“>ŠŠÆ>ˆˆø>†‡+>„„>‚‚A>€€s>|ýL>xù±>tö>pïÝ>lìB>hè§>då >`ár>\Ý×>X×>X×>TÔ>PÐh>LÌÍ>HÉ2>DÅ—>@Áý><»Ã>8¸(>4´>0°ò>0°ò>,­X>(©½>$£ƒ> Ÿè>œN>˜³>•>‘}>‘}> ‹D>‡©>„>€s=øù±=ðò|=ðò|=èëF=àÞÓ=Ø×=ÐÐh=ÈÉ2=ÈÉ2=ÀÁý=¸ºÇ=°®S=¨§=¨§= Ÿè=˜˜³=‘}=‘}=ˆŠH=€ƒ=pí>=`ÞÓ=`ÞÓ=PÐh=@Áý=@Áý=0³’= ¥'=Œ?=Œ?=}Ô<àÞÓ<àÞÓ<ÀÁý< ¥'< ¥'<€ˆQ<€ˆQ<@­<sX<sX;€sX;€sX PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/random1.fits0000644000175000017500000002070014657476773021522 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'random1 ' / Name of colour table HISTORY (r,g,b) colour table converted from: random1.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:03 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END >lìB>lìB>lìB>lìB>lìB>lìB>lìB>lìB>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>lìB>lìB>lìB>lìB>lìB>lìB>lìB>lìB=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ>˜³>˜³>˜³>˜³>˜³>˜³>˜³>˜³>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5?5µt?5µt?5µt?5µt?5µt?5µt?5µt?5µt?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?yùð?yùð?yùð?yùð?yùð?yùð?yùð?yùð?iê6?iê6?iê6?iê6?iê6?iê6?iê6?iê6?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?IÊ?IÊ?IÊ?IÊ?IÊ?IÊ?IÊ?IÊ=PÐh=PÐh=PÐh=PÐh=PÐh=PÐh=PÐh=PÐh>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>HÉ2>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ªª;>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí>ØØí?‚A?‚A?‚A?‚A?‚A?‚A?‚A?‚A?—Ì?—Ì?—Ì?—Ì?—Ì?—Ì?—Ì?—Ì?+«É?+«É?+«É?+«É?+«É?+«É?+«É?+«É??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?eåó?eåó?eåó?eåó?eåó?eåó?eåó?eåó?xù ?xù ?xù ?xù ?xù ?xù ?xù ?xù ?sóà?sóà?sóà?sóà?sóà?sóà?sóà?sóà?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?NΚ?NΚ?NΚ?NΚ?NΚ?NΚ?NΚ?NΚ?OÏ?OÏ?OÏ?OÏ?OÏ?OÏ?OÏ?OÏ?nî·?nî·?nî·?nî·?nî·?nî·?nî·?nî·?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?3³§?3³§?3³§?3³§?3³§?3³§?3³§?3³§>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2=ÈÉ2=ÈÉ2=ÈÉ2=ÈÉ2=ÈÉ2=ÈÉ2=ÈÉ2=ÈÉ2>(©½>(©½>(©½>(©½>(©½>(©½>(©½>(©½>¢£>¢£>¢£>¢£>¢£>¢£>¢£>¢£>òòú>òòú>òòú>òòú>òòú>òòú>òòú>òòú?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?#£ì?Mͳ?Mͳ?Mͳ?Mͳ?Mͳ?Mͳ?Mͳ?Mͳ?yùð?yùð?yùð?yùð?yùð?yùð?yùð?yùð?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?1±Ù?1±Ù?1±Ù?1±Ù?1±Ù?1±Ù?1±Ù?1±Ù?Ö?Ö?Ö?Ö?Ö?Ö?Ö?Ö>äå >äå >äå >äå >äå >äå >äå >äå >´´>´´>´´>´´>´´>´´>´´>´´>„„>„„>„„>„„>„„>„„>„„>„„>(©½>(©½>(©½>(©½>(©½>(©½>(©½>(©½=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ=`ÞÓ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/light.fits0000644000175000017500000002070014657476773021270 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'light ' / Name of colour table HISTORY (r,g,b) colour table converted from: light.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:01 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ;€sX<sX<@­<€ˆQ<€ˆQ< ¥'<ÀÁý<àÞÓ<àÞÓ=}Ô=Œ?=0³’=@Áý=PÐh=pí>=ˆŠH=˜˜³=¨§=¸ºÇ=ÈÉ2=Ø×=ðò|>„>‘}>œN>(©½>8¸(>@Áý>LÌÍ>\Ý×>lìB>|ýL>†‡+>ŽŽa>––æ>žž>¨¨m>²²À>¼½>ÄÄH>ÎΚ>ÔÕR>ÞÞU>èè§>ðñ,>øøb?€s?„¶?‡j? Œ“?Ö?”p?—Ì?š€?žÃ?!¡w?#£ì?&¦ ?(¨m?+«É?-­—?0°ò?2²À?4´?6·?8¸Ð?:º?<¼j?>¾à?@À­?BÂz?DÄð?Fƽ?GǤ?IÊ?KËæ?Mͳ?NΚ?OÏ?QÑö?RÒÝ?SÓÃ?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?eåó?fæÚ?gçÀ?hè§?iê6?iê6?jë?kì?kì?lìê?míÐ?míÐ?nî·?oïž?oïž?oïž?pñ,?pñ,?qò?qò?ròú?ròú?sóà?sóà?sóà?tôÇ?tôÇ?uõ®?uõ®?uõ®?v÷=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷ ‹D> Ÿè>8¸(>LÌÍ>\Ý×>pïÝ>€€s>†‡+>.>––æ>œœN>¢£>ªª;>®¯%>´´>¸¸(>¾¾à>ÄÄH>ÈÉ2>ÌÌÍ>ÒÒ5>Ö×>Ü܇>ÞÞU>âã?>ææÚ>êêt>îï_>ðñ,>öö”>øøb>üýL?€s?Z?‚A?„¶?…?ˆQ? ‰7? ŠÆ? Œ“? z?Ža?G?Ö?’£?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?'§‡?(¨m?)©ü?*ªã?+«É?-­—?-­—?.®}?/¯d?0°ò?0°ò?1±Ù?2²À?3³§?3³§?4´?5µt?6·?6·?7·é?8¸Ð?8¸Ð?:º?;»„?;»„?<¼j?=½ù?=½ù?>¾à?>¾à??¿Æ?@À­?@À­?AÁ”?BÂz?BÂz?CÄ ?CÄ ?DÄð?DÄð?EÅÖ?GǤ?GǤ?HÈŠ?HÈŠ?IÊ?IÊ?JÊÿ?JÊÿ?KËæ?KËæ?LÌÍ?LÌÍ?Mͳ?Mͳ?NΚ?NΚ?OÏ?OÏ?PÑ?PÑ?QÑö?QÑö?SÓÃ?SÓÃ?TÔª?TÔª?UÕ‘?UÕ‘?V×?V×?V×?WØ?WØ?XØí?XØí?YÙÓ?YÙÓ?ZÚº?ZÚº?ZÚº?[Û¡?[Û¡?\Ý/?\Ý/?\Ý/?]Þ?]Þ?^Þü?^Þü?^Þü?`àÊ?`àÊ?aá±?aá±?aá±?bâ—?bâ—?cä&?cä&?cä&?då ?då ?då ?eåó?eåó?eåó?fæÚ?fæÚ?gçÀ?gçÀ?gçÀ?hè§?hè§?hè§?iê6?iê6?iê6?jë?jë?jë?kì?kì?kì?míÐ?míÐ?míÐ?nî·?nî·?nî·?oïž?oïž?oïž?pñ,?pñ,?pñ,?pñ,?qò?qò?qò?ròú?ròú?ròú?sóà?sóà?sóà?tôÇ?tôÇ?tôÇ?tôÇ?uõ®?uõ®?uõ®?v÷Í>B>"‚A>2Âz>C´>SBî>cƒ'>sÃa>‚Í>Š!ê>’B>šb$>¢‚A>ª¢^>²Âz>ºâ—>ô>Ë"Ñ>ÓBî>Ûc >ãƒ'>ë£D>óÃa>ûã~?Í?Ü? !ê?1ù?B?R?b$?r2?"‚A?&’O?*¢^?.²l?2Âz?6Ò‰?:â—?>ò¦?C´?GÂ?K"Ñ?O2ß?SBî?WRü?[c ?_s?cƒ'?g“6?k£D?o³S?sÃa?wÓo?{ã~?óŒ<‚Í=Í=C´=‚Í=¢‚A=ô=ãƒ'>Í>B>"‚A>2Âz>C´>SBî>cƒ'>sÃa>‚Í>Š!ê>’B>šb$>¢‚A>ª¢^>²Âz>ºâ—>ô>Ë"Ñ>ÓBî>Ûc >ãƒ'>ë£D>óÃa>ûã~?Í?Ü? !ê?1ù?B?R?b$?r2?"‚A?&’O?*¢^?.²l?2Âz?6Ò‰?:â—?>ò¦?C´?GÂ?K"Ñ?O2ß?SBî?WRü?[c ?_s?cƒ'?g“6?k£D?o³S?sÃa?wÓo?{ã~?óŒ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€<‚Í=Í=C´=‚Í=¢‚A=ô=ãƒ'>Í>B>"‚A>2Âz>C´>SBî>cƒ'>sÃa>‚Í>Š!ê>’B>šb$>¢‚A>ª¢^>²Âz>ºâ—>ô>Ë"Ñ>ÓBî>Ûc >ãƒ'>ë£D>óÃa>ûã~?Í?Ü? !ê?1ù?B?R?b$?r2?"‚A?&’O?*¢^?.²l?2Âz?6Ò‰?:â—?>ò¦?C´?GÂ?K"Ñ?O2ß?SBî?WRü?[c ?_s?cƒ'?g“6?k£D?o³S?sÃa?wÓo?{ã~?óŒ<‚Í=Í=C´=‚Í=¢‚A=ô=ãƒ'>Í>B>"‚A>2Âz>C´>SBî>cƒ'>sÃa>‚Í>Š!ê>’B>šb$>¢‚A>ª¢^>²Âz>ºâ—>ô>Ë"Ñ>ÓBî>Ûc >ãƒ'>ë£D>óÃa>ûã~?Í?Ü? !ê?1ù?B?R?b$?r2?"‚A?&’O?*¢^?.²l?2Âz?6Ò‰?:â—?>ò¦?C´?GÂ?K"Ñ?O2ß?SBî?WRü?[c ?_s?cƒ'?g“6?k£D?o³S?sÃa?wÓo?{ã~?óŒ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?óŒ?{ã~?wÓo?sÃa?o³S?k£D?g“6?cƒ'?_s?[c ?WRü?SBî?O2ß?K"Ñ?GÂ?C´?>ò¦?:â—?6Ò‰?2Âz?.²l?*¢^?&’O?"‚A?r2?b$?R?B?1ù? !ê?Ü?Í>ûã~>óÃa>ë£D>ãƒ'>Ûc >ÓBî>Ë"Ñ>ô>ºâ—>²Âz>ª¢^>¢‚A>šb$>’B>Š!ê>‚Í>sÃa>cƒ'>SBî>C´>2Âz>"‚A>B>Í=ãƒ'=ô=¢‚A=‚Í=C´=Í<‚Í<‚Í=Í=C´=‚Í=¢‚A=ô=ãƒ'>Í>B>"‚A>2Âz>C´>SBî>cƒ'>sÃa>‚Í>Š!ê>’B>šb$>¢‚A>ª¢^>²Âz>ºâ—>ô>Ë"Ñ>ÓBî>Ûc >ãƒ'>ë£D>óÃa>ûã~?Í?Ü? !ê?1ù?B?R?b$?r2?"‚A?&’O?*¢^?.²l?2Âz?6Ò‰?:â—?>ò¦?C´?GÂ?K"Ñ?O2ß?SBî?WRü?[c ?_s?cƒ'?g“6?k£D?o³S?sÃa?wÓo?{ã~?óŒ?óŒ?{ã~?wÓo?sÃa?o³S?k£D?g“6?cƒ'?_s?[c ?WRü?SBî?O2ß?K"Ñ?GÂ?C´?>ò¦?:â—?6Ò‰?2Âz?.²l?*¢^?&’O?"‚A?r2?b$?R?B?1ù? !ê?Ü?Í>ûã~>óÃa>ë£D>ãƒ'>Ûc >ÓBî>Ë"Ñ>ô>ºâ—>²Âz>ª¢^>¢‚A>šb$>’B>Š!ê>‚Í>sÃa>cƒ'>SBî>C´>2Âz>"‚A>B>Í=ãƒ'=ô=¢‚A=‚Í=C´=Í<‚Í PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/idl2.fits0000644000175000017500000002070014657476773021013 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'idl2 ' / Name of colour table HISTORY (r,g,b) colour table converted from: idl2.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:00 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <ÀÁý=@Áý=‘}=ÀÁý=ðò|>‘}>(©½>@Áý>X×>pïÝ>„„>.>œœN>¨¨m>´´>ÀÀ­>ÌÌÍ>ØØí>äå >ðñ,>üýL?„¶? ŠÆ?Ö?–æ?œN?"¢^?(¨m?.®}?4´?:º?@À­?Fƽ?LÌÍ?RÒÝ?XØí?^Þü?då ?jë?pñ,?sóà?v÷¾à?=½ù?<¼j?;»„?:º?9¹¶?8¸Ð?8¸Ð?8¸Ð?8¸Ð?8¸Ð?7·é?6·?5µt?4´?3³§?2²À?1±Ù?0°ò?0°ò?0°ò?0°ò?0°ò?/¯d?.®}?-­—?,¬°?+«É?*ªã?)©ü?(¨m?'§‡?&¦ ?%¥¹?$¤Ó?$¤Ó?$¤Ó?$¤Ó?$¤Ó?#£ì?"¢^?!¡w?  ?Ÿ©?žÃ?Ü?œN?›g?š€?™š?˜³?˜³?˜³?˜³?˜³?—Ì?–æ?•W?”p?—Ì?š€?Ü?  ?#£ì?&¦ ?)©ü?,¬°?0°ò?4´?8¸Ð?<¼j??¿Æ?BÂz?EÅÖ?HÈŠ?KËæ?NΚ?QÑö?TÔª?WØ?ZÚº?]Þ?`àÊ?då ?hè§?lìê?pñ,?sóà?v÷‘}>.>––æ>žž>¤¤Ó>¬¬>´´>º»E>ÂÂz>ÈÉ2>ÐÐh>ØØí>êêt>üýL?‡j?Ö?™š?"¢^?+«É?4´?=½ù?Fƽ?OÏ?XØí?aá±?jë?sóà?|ýL?yùð?v÷üýL>ðñ,>äå >ØØí>ÌÌÍ>ÀÀ­>´´>¨¨m>œœN>.>„„>pïÝ>X×>@Áý>(©½>‘}=ðò|=ÀÁý=‘}=@Áý<ÀÁý;€sX;€sX;€sX;€sX=}Ô=€ƒ=ÀÁý>€s> Ÿè>@Áý>`ár>€€s>.> ¡8>°°ò>ÀÀ­>ÐÐh>àár>ðñ,?€s?‡j?Ža?•W?œN?$¤Ó?,¬°?4´?<¼j?DÄð?LÌÍ?TÔª?\Ý/?då ?lìê?tôÇ?|ýL?}þ3?~ÿ?€;€sX<@­< ¥'<àÞÓ=Œ?= ¥'=@Áý=`ÞÓ=€ƒ=‘}= Ÿè=°®S=ÈÉ2=Ø×=èëF=øù±>‡©> ‹D>•>œN>$£ƒ>,­X>4´><»Ã>HÉ2>PÐh>X×>`ár>lìB>tö>|ýL>‚‚A>†‡+>ˆˆø>ŒŒ“>.>”•>˜˜³>œœN> ¡8>¦¦ >ªª;>®¯%>²²À>¸¸(>¼½>ÀÀ­>ÄÄH>ÊÊÿ>ÌÌÍ>ÐÐh>ÔÕR>ØØí>Ü܇>àár>äå >èè§>ìí‘>ðñ,>ôôÇ>úû>þÿ?Z?ƒÏ?†ƒ?‡j? ‰7? ‹¬? z?G?‘¼?“Š?–æ?˜³?š€?œN?Ÿ©?  ?"¢^?#£ì?%¥¹?'§‡?)©ü?+«É?.®}?0°ò?2²À?4´?7·é?9¹¶?;»„?=½ù?@À­?AÁ”?CÄ ?EÅÖ?GǤ?IÊ?KËæ?Mͳ?PÑ?RÒÝ?TÔª?V×?XØí?YÙÓ?[Û¡?]Þ?_ßã?aá±?cä&?eåó?hè§?jë?lìê?nî·?qò?sóà?uõ®?wø#?zú×?{û½?|ýL?}þ3?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/real.fits0000644000175000017500000002070014657476773021104 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'real ' / Name of colour table HISTORY (r,g,b) colour table converted from: real.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:05 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <sX<€ˆQ<ÀÁý=}Ô= ¥'=@Áý=`ÞÓ=€ƒ=‘}= Ÿè=°®S=ÀÁý=ÐÐh=àÞÓ=ðò|>€s>‡©>‘}>˜³> Ÿè>(©½>0°ò>8¸(>@Áý>HÉ2>PÐh>X×>`ár>hè§>pïÝ>xù±>€€s>„„>ˆˆø>ŒŒ“>.>”•>˜˜³>œœN> ¡8>¤¤Ó>¨¨m>¬¬>°°ò>´´>¸¸(>¼½>ÀÀ­>ÄÄH>ÈÉ2>ÌÌÍ>ÐÐh>ÔÕR>ØØí>Ü܇>àár>äå >èè§>ìí‘>ðñ,>ôôÇ>øøb>üýL?€s?‚A?„¶?†ƒ?ˆQ? ŠÆ? Œ“?Ža?Ö?’£?”p?–æ?˜³?š€?œN?žÃ?  ?"¢^?$¤Ó?&¦ ?(¨m?*ªã?,¬°?.®}?0°ò?2²À?4´?6·?8¸Ð?:º?<¼j?>¾à?@À­?BÂz?DÄð?Fƽ?HÈŠ?JÊÿ?LÌÍ?NΚ?PÑ?RÒÝ?TÔª?V×?XØí?ZÚº?\Ý/?^Þü?`àÊ?bâ—?då ?fæÚ?hè§?jë?lìê?nî·?pñ,?ròú?tôÇ?v÷=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷€s>‡©>‘}>˜³> Ÿè>(©½>0°ò>8¸(>@Áý>HÉ2>PÐh>X×>`ár>hè§>pïÝ>xù±>€€s>„„>ˆˆø>ŒŒ“>.>”•>˜˜³>œœN> ¡8>¤¤Ó>¨¨m>¬¬>°°ò>´´>¸¸(>¼½>ÀÀ­>ÄÄH>ÈÉ2>ÌÌÍ>ÐÐh>ÔÕR>ØØí>Ü܇>àár>äå >èè§>ìí‘>ðñ,>ôôÇ>øøb>üýL?€s?‚A?„¶?†ƒ?ˆQ? ŠÆ? Œ“?Ža?Ö?’£?”p?–æ?˜³?š€?œN?žÃ?  ?"¢^?$¤Ó?&¦ ?(¨m?*ªã?,¬°?.®}?0°ò?2²À?4´?6·?8¸Ð?:º?<¼j?>¾à?@À­?BÂz?DÄð?Fƽ?HÈŠ?JÊÿ?LÌÍ?NΚ?PÑ?RÒÝ?TÔª?V×?XØí?ZÚº?\Ý/?^Þü?`àÊ?bâ—?då ?fæÚ?hè§?jë?lìê?nî·?pñ,?ròú?tôÇ?v÷=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¼½>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÊÊÿ>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>ÔÕR>Ö×>ØØí>ÚÚº>Ü܇>ÞÞU>àár>âã?>äå >ææÚ>èè§>êêt>ìí‘>îï_>ðñ,>òòú>ôôÇ>öö”>øøb>úû>üýL>þÿ?€s?Z?‚A?ƒÏ?„¶?…?†ƒ?‡j?ˆQ? ‰7? ŠÆ? ‹¬? Œ“? z?Ža?G?Ö?‘¼?’£?“Š?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?Ÿ©?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?(¨m?)©ü?*ªã?+«É?,¬°?-­—?.®}?/¯d?0°ò?1±Ù?2²À?3³§?4´?5µt?6·?7·é?8¸Ð?9¹¶?:º?;»„?<¼j?=½ù?>¾à??¿Æ?@À­?AÁ”?BÂz?CÄ ?DÄð?EÅÖ?Fƽ?GǤ?HÈŠ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?XØí?YÙÓ?ZÚº?[Û¡?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?då ?eåó?fæÚ?gçÀ?hè§?iê6?jë?kì?lìê?míÐ?nî·?oïž?pñ,?qò?ròú?sóà?tôÇ?uõ®?v÷<»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à?G?G?G?G?G?G?G?G?G?G?G?G?G?G?G?G??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à?G?G?G?G?G?G?G?G?G?G?G?G?G?G?G?G??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à?G?G?G?G?G?G?G?G?G?G?G?G?G?G?G?G??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž>žž PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/idl6.fits0000644000175000017500000002070014657476773021017 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'idl6 ' / Name of colour table HISTORY (r,g,b) colour table converted from: idl6.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:01 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <@­<àÞÓ=0³’=pí>=˜˜³=°®S=ÐÐh=ðò|>‡©>˜³>$£ƒ>4´>DÅ—>TÔ>då >pïÝ>€€s>ˆˆø>.>˜˜³>žž>¦¦ >®¯%>¶¶[>¾¾à>ÄÄH>ÌÌÍ>ÔÕR>Ü܇>äå >êêt>òòú>úû?Z?…? ‰7? Œ“?Ö?”p?˜³?œN?Ÿ©?#£ì?'§‡?+«É?/¯d?2²À?6·?:º?>¾à?BÂz?EÅÖ?IÊ?Mͳ?QÑö?UÕ‘?XØí?\Ý/?`àÊ?då ?hè§?kì?oïž?sóà?wø#?{û½?€?{û½?wø#?sóà?oïž?kì?fæÚ?bâ—?^Þü?ZÚº?V×?RÒÝ?Mͳ?IÊ?EÅÖ?AÁ”?=½ù?8¸Ð?4´?0°ò?,¬°?(¨m?$¤Ó?Ÿ©?›g?—Ì?“Š?G? ŠÆ?†ƒ?‚A>üýL>ôôÇ>ìí‘>âã?>ÚÚº>ÒÒ5>ÊÊÿ>ÂÂz>¸¸(>°°ò>¨¨m> ¡8>˜˜³>.>†‡+>|ýL>lìB>\Ý×>LÌÍ>8¸(>(©½>˜³>‡©=ðò|=ÐÐh=¨§=ˆŠH=PÐh=Œ?< ¥'<@­<àÞÓ=0³’=pí>=˜˜³=¸ºÇ=Ø×=øù±> ‹D>œN>,­X><»Ã>LÌÍ>\Ý×>lìB>|ýL>†‡+>ŽŽa>––æ>žž>¦¦ >®¯%>¶¶[>¾¾à>ÆÇe>ÎΚ>Ö×>ÞÞU>ææÚ>îï_>öö”>þÿ?ƒÏ?‡j? ‹¬?G?“Š?—Ì?›g?Ÿ©?#£ì?'§‡?+«É?/¯d?3³§?7·é?;»„??¿Æ?CÄ ?GǤ?KËæ?OÏ?SÓÃ?WØ?[Û¡?_ßã?cä&?gçÀ?kì?oïž?sóà?wø#?{û½?€?{û½?wø#?sóà?oïž?kì?gçÀ?cä&?_ßã?[Û¡?WØ?SÓÃ?OÏ?KËæ?GǤ?CÄ ??¿Æ?;»„?7·é?3³§?/¯d?*ªã?&¦ ?"¢^?žÃ?š€?–æ?’£?Ža? ŠÆ?†ƒ?‚A>üýL>ôôÇ>ìí‘>äå >Ü܇>ÔÕR>ÌÌÍ>ÄÄH>¼½>´´>ªª;>¢£>šš€>’‘û>ŠŠÆ>‚‚A>tö>då >TÔ>DÅ—>4´>$£ƒ>•>„=èëF=ÈÉ2=¨§=ˆŠH=PÐh=Œ?< ¥'<@­<àÞÓ=0³’=pí>=˜˜³=¸ºÇ=Ø×=ðò|>‡©>˜³>(©½>8¸(>HÉ2>X×>då >tö>‚‚A>ŠŠÆ>’‘û>šš€>¢£>ªª;>°°ò>¸¸(>ÀÀ­>ÈÉ2>ÐÐh>ØØí>àár>ææÚ>îï_>öö”>þÿ?ƒÏ?‡j? ‹¬?Ža?’£?–æ?š€?žÃ?"¢^?&¦ ?*ªã?-­—?1±Ù?5µt?9¹¶?=½ù?AÁ”?EÅÖ?HÈŠ?LÌÍ?PÑ?TÔª?XØí?\Ý/?`àÊ?cä&?gçÀ?kì?oïž?sóà?wø#?{û½?€?{û½?wø#?sóà?oïž?kì?gçÀ?cä&?_ßã?[Û¡?WØ?SÓÃ?OÏ?KËæ?GǤ?CÄ ??¿Æ?;»„?7·é?3³§?/¯d?*ªã?&¦ ?"¢^?žÃ?š€?–æ?’£?Ža? ŠÆ?†ƒ?‚A>üýL>ôôÇ>ìí‘>äå >Ü܇>ÔÕR>ÌÌÍ>ÄÄH>¼½>´´>ªª;>¢£>šš€>’‘û>ŠŠÆ>‚‚A>tö>då >TÔ>DÅ—>4´>$£ƒ>•>„=èëF=ÈÉ2=¨§=ˆŠH=PÐh=Œ?< ¥' PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/smooth1.fits0000644000175000017500000002070014657476773021553 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'smooth1 ' / Name of colour table HISTORY (r,g,b) colour table converted from: smooth1.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:05 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END >žž>¤¤Ó>ªª;>°°ò>¶¶[>¼½>ÂÂz>ÈÉ2>ÎΚ>ÔÕR>ÚÚº>àár>ææÚ>ìí‘>òòú>úû?€s?ƒÏ?†ƒ? ŠÆ? z?‘¼?”p?—Ì?›g?žÃ?"¢^?%¥¹?)©ü?-­—?0°ò?4´?7·é?;»„??¿Æ?CÄ ?Fƽ?JÊÿ?NΚ?RÒÝ?V×?ZÚº?^Þü?ZÚº?V×?SÓÃ?PÑ?Mͳ?JÊÿ?HÈŠ?EÅÖ?BÂz??¿Æ?>¾à?;»„?:º?7·é?5µt?4´?1±Ù?0°ò?.®}?-­—?,¬°?*ªã?)©ü?'§‡?&¦ ?%¥¹?$¤Ó?"¢^?"¢^?!¡w?  ?  ?Ÿ©?Ÿ©?žÃ?žÃ?Ü?Ü?œN?œN?œN?œN?œN?œN?œN?œN?Ü?Ü?žÃ?žÃ?Ÿ©?Ÿ©?  ?  ?!¡w?"¢^?"¢^?$¤Ó?%¥¹?&¦ ?'§‡?)©ü?*ªã?,¬°?-­—?.®}?0°ò?1±Ù?4´?5µt?7·é?:º?;»„?>¾à??¿Æ?BÂz?Fƽ?JÊÿ?Mͳ?QÑö?V×?ZÚº?_ßã?eåó?kì?iê6?gçÀ?eåó?då ?bâ—?aá±?`àÊ?_ßã?^Þü?\Ý/?\Ý/?[Û¡?[Û¡?ZÚº?YÙÓ?ZÚº?YÙÓ?YÙÓ?YÙÓ?YÙÓ?ZÚº?YÙÓ?ZÚº?YÙÓ?ZÚº?[Û¡?\Ý/?\Ý/?]Þ?^Þü?_ßã?`àÊ?aá±?bâ—?cä&?eåó?fæÚ?gçÀ?iê6?jë?lìê?míÐ?pñ,?ròú?sóà?uõ®?xù ?zú×?|ýL?~ÿ?€?€?€?€?€?€?|ýL?uõ®?nî·?hè§?aá±?[Û¡?TÔª?NΚ?GǤ?AÁ”?;»„?4´?0°ò?*ªã?$¤Ó?Ÿ©?š€?•W?G? ‹¬?‡j?ƒÏ?€s>øøb>ðñ,>èè§>âã?>ÞÞU>ØØí>ÔÕR>ÒÒ5>ÎΚ>ÌÌÍ>ÈÉ2>ÆÇe>ÄÄH>ÂÂz>ÂÂz>¾¾à>¾¾à>¾¾à>¾¾à>ÀÀ­>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÊÊÿ>ÌÌÍ>ÐÐh>ÔÕR>ØØí>ÞÞU>äå >êêt>ðñ,>öö”?€s?„¶? ‰7?Ža?“Š?™š?  ?'§‡?.®}?5µt?=½ù?EÅÖ?Mͳ?UÕ‘?^Þü>”•>šš€>¢£>¨¨m>°°ò>¸¸(>ÀÀ­>ÆÇe>ÎΚ>Ö×>ÞÞU>ææÚ>îï_>öö”>þÿ?„¶?ˆQ? Œ“?‘¼?•W?™š?žÃ?"¢^?'§‡?+«É?0°ò?5µt?9¹¶?>¾à?CÄ ?HÈŠ?Mͳ?RÒÝ?Mͳ?IÊ?EÅÖ?AÁ”?=½ù?;»„?7·é?4´?2²À?.®}?,¬°?*ªã?(¨m?&¦ ?#£ì?"¢^?  ?žÃ?œN?›g?š€?™š?˜³?—Ì?–æ?–æ?•W?”p?”p?”p?“Š?”p?“Š?”p?”p?”p?•W?–æ?–æ?—Ì?˜³?™š?š€?›g?œN?žÃ?  ?"¢^?#£ì?&¦ ?(¨m?*ªã?,¬°?.®}?2²À?4´?7·é?;»„?=½ù?AÁ”?EÅÖ?IÊ?Mͳ?RÒÝ?Mͳ?IÊ?EÅÖ?AÁ”?=½ù?;»„?7·é?4´?2²À?.®}?,¬°?*ªã?(¨m?&¦ ?#£ì?"¢^?  ?žÃ?œN?›g?š€?™š?˜³?—Ì?–æ?–æ?•W?”p?”p?”p?“Š?”p?“Š?”p?”p?”p?•W?–æ?–æ?—Ì?˜³?™š?š€?›g?œN?žÃ?  ?"¢^?#£ì?'§‡?+«É?.®}?2²À?6·?=½ù?AÁ”?GǤ?Mͳ?RÒÝ?YÙÓ?`àÊ?hè§?oïž?xù ?v÷ôôÇ>èè§>ÞÞU>ÔÕR>ÈÉ2>ÀÀ­>¶¶[>®¯%>¨¨m>¢£>œœN>˜˜³>––æ>’‘û>.>.>ŽŽa>ŽŽa>ŽŽa>.>’‘û>”•>˜˜³>œœN>¢£>¦¦ >®¯%>´´>¾¾à>ÈÉ2>ÒÒ5>àár>îï_>þÿ?‡j?G?—Ì?  ?)©ü?3³§?=½ù?GǤ?RÒÝ>då >tö>‚‚A>ŠŠÆ>”•>œœN>¦¦ >°°ò>º»E>ÄÄH>ÎΚ>ØØí>âã?>îï_>øøb?‚A?ˆQ?Ža?”p?š€?  ?&¦ ?-­—?3³§?:º?AÁ”?HÈŠ?AÁ”?:º?4´?.®}?(¨m?$¤Ó?Ÿ©?š€?–æ?’£?Ža? ŠÆ?‡j?ƒÏ?Z>üýL>øøb>ôôÇ>ðñ,>ìí‘>êêt>èè§>ææÚ>äå >äå >äå >äå >äå >ææÚ>èè§>êêt>ìí‘>ðñ,>ôôÇ>øøb>üýL?Z?ƒÏ?‡j? ŠÆ?Ža?’£?–æ?š€?Ÿ©?$¤Ó?(¨m?.®}?4´?:º?AÁ”?HÈŠ?AÁ”?:º?4´?.®}?(¨m?$¤Ó?Ÿ©?š€?–æ?’£?Ža? ŠÆ?‡j?ƒÏ?Z>üýL>øøb>ôôÇ>ðñ,>ìí‘>êêt>èè§>ææÚ>äå >äå >äå >äå >äå >ææÚ>èè§>êêt>ìí‘>ðñ,>ôôÇ>øøb>üýL?Z?ƒÏ?‡j? ŠÆ?Ža?’£?–æ?š€?Ÿ©?$¤Ó?(¨m?.®}?4´?:º?AÁ”?HÈŠ?AÁ”?:º?4´?.®}?(¨m?$¤Ó?Ÿ©?š€?–æ?’£?Ža? ŠÆ?‡j?ƒÏ?Z>üýL>øøb>ôôÇ>ðñ,>ìí‘>êêt>èè§>ææÚ>äå >äå >äå >äå >äå >ææÚ>èè§>êêt>ìí‘>ðñ,>ôôÇ>øøb>üýL?Z?ƒÏ?‡j? ŠÆ?Ža?’£?–æ?š€?  ?&¦ ?,¬°?4´?;»„?DÄð?Mͳ?WØ?RÒÝ?NΚ?KËæ?HÈŠ?EÅÖ?CÄ ?AÁ”??¿Æ?=½ù?<¼j?;»„?:º?:º?:º?:º?;»„?<¼j?=½ù?>¾à?@À­?AÁ”?DÄð?Fƽ?IÊ?Mͳ?PÑ?TÔª?XØí?]Þ?aá±?fæÚ?lìê?`àÊ?V×?KËæ?AÁ”?8¸Ð?-­—?&¦ ?Ü?•W?Ža?†ƒ?€s>ôôÇ>êêt>àár>Ö×>ÐÐh>ÌÌÍ>ÆÇe>ÄÄH>ÂÂz>ÀÀ­>ÀÀ­>ÂÂz>ÄÄH>ÈÉ2>ÌÌÍ>ÐÐh>ØØí>ÞÞU>ææÚ>òòú>þÿ?†ƒ? Œ“?•W?Ü?&¦ ?0°ò?;»„?HÈŠ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/standard.fits0000644000175000017500000002070014657476773021761 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'standard ' / Name of colour table HISTORY (r,g,b) colour table converted from: standard.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:07 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>ªª;>®¯%>²²À>¶¶[>º»E>¾¾à>ÂÂz>ÆÇe>ÊÊÿ>ÎΚ>ÒÒ5>Ö×>ÚÚº>ÞÞU>âã?>ææÚ>êêt>îï_>òòú>öö”>úû>þÿ?Z?ƒÏ?…?‡j? ‰7? ‹¬? z?G?‘¼?“Š?•W?—Ì?™š?›g?Ü?Ÿ©?!¡w?#£ì?%¥¹?'§‡?)©ü?+«É?-­—?/¯d?1±Ù?3³§?5µt?7·é?9¹¶?;»„?=½ù??¿Æ?AÁ”?CÄ ?EÅÖ?GǤ?IÊ?KËæ?Mͳ?OÏ?QÑö?SÓÃ?UÕ‘?WØ?YÙÓ?[Û¡?]Þ?_ßã?aá±?cä&?eåó?gçÀ?iê6?kì?míÐ?oïž?qò?sóà?uõ®?wø#?yùð?{û½?}þ3?€;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>ªª;>®¯%>²²À>¶¶[>º»E>¾¾à>ÂÂz>ÆÇe>ÊÊÿ>ÎΚ>ÒÒ5>Ö×>ÚÚº>ÞÞU>âã?>ææÚ>êêt>îï_>òòú>öö”>úû>þÿ?Z?ƒÏ?…?‡j? ‰7? ‹¬? z?G?‘¼?“Š?•W?—Ì?™š?›g?Ü?Ÿ©?!¡w?#£ì?%¥¹?'§‡?)©ü?+«É?-­—?/¯d?1±Ù?3³§?5µt?7·é?9¹¶?;»„?=½ù??¿Æ?AÁ”?CÄ ?EÅÖ?GǤ?IÊ?KËæ?Mͳ?OÏ?QÑö?SÓÃ?UÕ‘?WØ?YÙÓ?[Û¡?]Þ?_ßã?aá±?cä&?eåó?gçÀ?iê6?kì?míÐ?oïž?qò?sóà?uõ®?wø#?yùð?{û½?}þ3;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬>ªª;>®¯%>²²À>¶¶[>º»E>¾¾à>ÂÂz>ÆÇe>ÊÊÿ>ÎΚ>ÒÒ5>Ö×>ÚÚº>ÞÞU>âã?>ææÚ>êêt>îï_>òòú>öö”>úû>þÿ?Z?ƒÏ?…?‡j? ‰7? ‹¬? z?G?‘¼?“Š?•W?—Ì?™š?›g?Ü?Ÿ©?!¡w?#£ì?%¥¹?'§‡?)©ü?+«É?-­—?/¯d?1±Ù?3³§?5µt?7·é?9¹¶?;»„?=½ù??¿Æ?AÁ”?CÄ ?EÅÖ?GǤ?IÊ?KËæ?Mͳ?OÏ?QÑö?SÓÃ?UÕ‘?WØ?YÙÓ?[Û¡?]Þ?_ßã?aá±?cä&?eåó?gçÀ?iê6?kì?míÐ?oïž?qò?sóà?uõ®?wø#?yùð?{û½?}þ3;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;>¬¬ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/random4.fits0000644000175000017500000002070014657476773021525 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'random4 ' / Name of colour table HISTORY (r,g,b) colour table converted from: random4.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:04 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END >ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?€?€?€?€?€?€?€?€?€?€?€?€?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  >ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?€?€?€?€?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?€?€?€?€?€?€?€?€?€?€?€?€?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/stairs8.fits0000644000175000017500000002070014657476773021556 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'stairs8 ' / Name of colour table HISTORY (r,g,b) colour table converted from: stairs8.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:06 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/random2.fits0000644000175000017500000002070014657476773021523 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'random2 ' / Name of colour table HISTORY (r,g,b) colour table converted from: random2.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:04 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?}þ3?}þ3?}þ3?}þ3?}þ3?}þ3?}þ3?}þ3?}þ3?}þ3?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?|ýL?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?{û½?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?€?€?€?€?€?€?€?€?€?€?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?\Ý/?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?  ?  ?  ?  ?  ?  ?  ?  ?  ?  >ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?˜³?˜³?˜³?˜³?˜³?˜³?˜³?˜³?˜³?˜³?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?9¹¶?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?YÙÓ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?fæÚ?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?zú×?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX;€sX>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  >ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/pastel.fits0000644000175000017500000002070014657476773021451 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'pastel ' / Name of colour table HISTORY (r,g,b) colour table converted from: pastel.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:01 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END < ¥'=`ÞÓ=°®S=àÞÓ> ‹D> Ÿè>8¸(>LÌÍ>\Ý×>pïÝ>€€s>†‡+>.>––æ>œœN>¢£>ªª;>®¯%>´´>¸¸(>¾¾à>ÄÄH>ÈÉ2>ÌÌÍ>ÒÒ5>Ö×>Ü܇>ÞÞU>âã?>ææÚ>êêt>îï_>ðñ,>öö”>øøb>üýL?€s?Z?‚A?„¶?…?ˆQ? ‰7? ŠÆ? Œ“? z?Ža?G?Ö?’£?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?'§‡?(¨m?)©ü?*ªã?+«É?-­—?-­—?.®}?/¯d?0°ò?0°ò?1±Ù?2²À?3³§?3³§?4´?5µt?6·?6·?7·é?8¸Ð?8¸Ð?:º?;»„?;»„?<¼j?=½ù?=½ù?>¾à?>¾à??¿Æ?@À­?@À­?AÁ”?BÂz?BÂz?CÄ ?CÄ ?DÄð?DÄð?EÅÖ?GǤ?GǤ?HÈŠ?HÈŠ?IÊ?IÊ?JÊÿ?JÊÿ?KËæ?KËæ?LÌÍ?LÌÍ?Mͳ?Mͳ?NΚ?NΚ?OÏ?OÏ?PÑ?PÑ?QÑö?QÑö?SÓÃ?SÓÃ?TÔª?TÔª?UÕ‘?UÕ‘?V×?V×?V×?WØ?WØ?XØí?XØí?YÙÓ?YÙÓ?ZÚº?ZÚº?ZÚº?[Û¡?[Û¡?\Ý/?\Ý/?\Ý/?]Þ?]Þ?^Þü?^Þü?^Þü?`àÊ?`àÊ?aá±?aá±?aá±?bâ—?bâ—?cä&?cä&?cä&?då ?då ?då ?eåó?eåó?eåó?fæÚ?fæÚ?gçÀ?gçÀ?gçÀ?hè§?hè§?hè§?iê6?iê6?iê6?jë?jë?jë?kì?kì?kì?míÐ?míÐ?míÐ?nî·?nî·?nî·?oïž?oïž?oïž?pñ,?pñ,?pñ,?pñ,?qò?qò?qò?ròú?ròú?ròú?sóà?sóà?sóà?tôÇ?tôÇ?tôÇ?tôÇ?uõ®?uõ®?uõ®?v÷=pí>=pí>=€ƒ=€ƒ=€ƒ=ˆŠH=ˆŠH=ˆŠH=‘}=‘}=˜˜³=˜˜³=˜˜³= Ÿè= Ÿè=¨§=¨§=¨§=°®S=°®S=¸ºÇ=¸ºÇ=¸ºÇ=ÀÁý=ÀÁý=ÈÉ2=ÈÉ2=ÐÐh=ÐÐh=Ø×=Ø×=àÞÓ=àÞÓ=àÞÓ=ðò|=ðò|=øù±=øù±>€s>€s>„>„>‡©> ‹D> ‹D>‘}>‘}>•>•>˜³>˜³>œN> Ÿè> Ÿè>$£ƒ>$£ƒ>(©½>,­X>,­X>0°ò>0°ò>4´>8¸(>8¸(><»Ã>@Áý>@Áý>HÉ2>LÌÍ>LÌÍ>PÐh>TÔ>TÔ>X×>\Ý×>`ár>`ár>då >hè§>lìB>lìB>pïÝ>tö>xù±>xù±>|ýL>€€s>‚‚A>„„>†‡+>†‡+>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >ªª;>¬¬>®¯%>°°ò>²²À>´´>¶¶[>¸¸(>º»E>¾¾à>ÀÀ­>ÂÂz>ÄÄH>ÆÇe>ÈÉ2>ÌÌÍ>ÎΚ>ÐÐh>ÒÒ5>Ö×>ØØí>ÚÚº>ÞÞU>àár>âã?>ææÚ>èè§>êêt>îï_>ðñ,>ôôÇ>öö”>úû>üýL?€s?Z?ƒÏ?„¶?†ƒ?‡j? ‰7? ŠÆ? Œ“?Ža?G?‘¼?“Š?”p?–æ?˜³?™š?›g?Ü?Ÿ©?!¡w?"¢^?$¤Ó?&¦ ?(¨m?*ªã?,¬°?.®}?0°ò?2²À?4´?6·?8¸Ð?:º?<¼j?>¾à?@À­?BÂz?EÅÖ?GǤ?IÊ?KËæ?Mͳ?PÑ?RÒÝ?TÔª?WØ?YÙÓ?\Ý/?^Þü?`àÊ?cä&?eåó?hè§?jë?míÐ?pñ,?ròú?uõ®?xù ?zú×?}þ3?€?zú×?qò?iê6?cä&?\Ý/?WØ?QÑö?LÌÍ?HÈŠ?CÄ ??¿Æ?<¼j?7·é?4´?1±Ù?.®}?*ªã?(¨m?%¥¹?#£ì?  ?Ü?›g?™š?–æ?”p?‘¼?Ö?Ža? Œ“? ŠÆ?ˆQ?‡j?„¶?ƒÏ?Z>þÿ>üýL>úû>öö”>ôôÇ>îï_>ìí‘>êêt>ææÚ>äå >âã?>àár>ÞÞU>ÚÚº>Ö×>ÔÕR>ÒÒ5>ÐÐh>ÎΚ>ÌÌÍ>ÊÊÿ>ÈÉ2>ÆÇe>ÄÄH>ÂÂz>¾¾à>¼½>º»E>¸¸(>¶¶[>´´>²²À>°°ò>°°ò>®¯%>¬¬>ªª;>¨¨m>¤¤Ó>¤¤Ó>¢£> ¡8>žž>žž>œœN>šš€>˜˜³>˜˜³>––æ>”•>’‘û>’‘û>.>ŽŽa>ŽŽa>ŠŠÆ>ˆˆø>ˆˆø>†‡+>„„>„„>‚‚A>‚‚A>€€s>|ýL>|ýL>xù±>tö>tö>pïÝ>pïÝ>lìB>lìB>hè§>`ár>`ár>\Ý×>\Ý×>X×>X×>TÔ>TÔ>PÐh>PÐh>LÌÍ>LÌÍ>HÉ2>HÉ2>DÅ—>DÅ—>@Áý>@Áý><»Ã><»Ã>8¸(>8¸(>0°ò>0°ò>,­X>,­X>(©½>(©½>$£ƒ>$£ƒ>$£ƒ> Ÿè> Ÿè>œN>œN>˜³>˜³>•>•>•>‘}>‘}> ‹D> ‹D> ‹D>‡©>‡©>„>„>„=øù±=øù±=ðò|=ðò|=ðò|=èëF=èëF=àÞÓ=àÞÓ=àÞÓ=Ø×=Ø×=Ø×=ÐÐh=ÐÐh=ÐÐh=ÈÉ2=ÈÉ2=ÀÁý=ÀÁý=ÀÁý=¸ºÇ=¸ºÇ=¸ºÇ=°®S=°®S=°®S=¨§=¨§=¨§= Ÿè= Ÿè= Ÿè=‘}=‘}=‘}=ˆŠH=ˆŠH=ˆŠH=€ƒ=€ƒ=€ƒ=pí>=pí>=pí>=pí>=`ÞÓ=`ÞÓ=`ÞÓ=PÐh=PÐh=PÐh=@Áý=@Áý=@Áý=0³’=0³’=0³’=0³’= ¥'= ¥'= ¥'=Œ?=Œ?=Œ?=Œ?=}Ô=}Ô=}Ô<àÞÓ<àÞÓ<àÞÓ<àÞÓ< ¥'< ¥'< ¥'< ¥'<€ˆQ<€ˆQ<€ˆQ<@­<@­<@­<@­<sX<sX<sX<sX;€sX;€sX;€sX;€sX PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/idl4.fits0000644000175000017500000002070014657476773021015 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'idl4 ' / Name of colour table HISTORY (r,g,b) colour table converted from: idl4.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:00 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <àÞÓ=pí>=°®S=ðò|>•>4´>PÐh>pïÝ>†‡+>––æ>¤¤Ó>´´>ÂÂz>ÒÒ5>àár>ðñ,>úû?‚A?‡j? Œ“?‘¼?–æ?›g?  ?%¥¹?*ªã?/¯d?4´?9¹¶?>¾à?CÄ ?HÈŠ?HÈŠ?IÊ?IÊ?JÊÿ?JÊÿ?KËæ?KËæ?LÌÍ?LÌÍ?Mͳ?Mͳ?NΚ?NΚ?OÏ?OÏ?PÑ?PÑ?QÑö?QÑö?RÒÝ?RÒÝ?SÓÃ?SÓÃ?TÔª?TÔª?UÕ‘?UÕ‘?V×?V×?WØ?WØ?XØí?XØí?YÙÓ?YÙÓ?ZÚº?ZÚº?[Û¡?[Û¡?\Ý/?\Ý/?]Þ?]Þ?^Þü?^Þü?_ßã?_ßã?`àÊ?`àÊ?aá±?aá±?bâ—?bâ—?cä&?cä&?då ?då ?eåó?eåó?fæÚ?fæÚ?gçÀ?gçÀ?hè§?hè§?iê6?iê6?jë?jë?kì?kì?lìê?lìê?míÐ?míÐ?nî·?nî·?oïž?oïž?pñ,?pñ,?qò?qò?ròú?ròú?sóà?sóà?tôÇ?tôÇ?uõ®?uõ®?v÷=‘}=¨§=ÈÉ2=àÞÓ=øù±>‡©>•> Ÿè>,­X>8¸(>HÉ2>TÔ>`ár>lìB>xù±>‚‚A>ˆˆø>ŽŽa>––æ>œœN>¢£>¨¨m>®¯%>´´>º»E>ÀÀ­>ÈÉ2>ÎΚ>ÔÕR>ÚÚº>àár>ææÚ>ìí‘>òòú>úû?€s?ƒÏ?†ƒ? ‰7? Œ“?G?’£?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?•W?”p?”p?“Š?’£?’£?‘¼?‘¼?Ö?G?G?Ža? z? z? Œ“? Œ“? ‰7?‡j?„¶?‚A>þÿ>úû>ôôÇ>ðñ,>êêt>ææÚ>àár>Ü܇>Ö×>ÒÒ5>ÌÌÍ>ÈÉ2>º»E>®¯%>¢£>––æ>ˆˆø>xù±>`ár>HÉ2>,­X>•=øù±=ÈÉ2=‘}=@Áý<ÀÁý<sX<€ˆQ<ÀÁý=Œ?=0³’=PÐh=€ƒ=‘}= Ÿè=¸ºÇ=ÈÉ2=Ø×=èëF>€s>‡©>‘}>œN>$£ƒ>,­X>8¸(>@Áý>HÉ2>TÔ>\Ý×>då >lìB>xù±>€€s>„„>ŠŠÆ>ŽŽa>’‘û>˜˜³>œœN> ¡8>¦¦ >ªª;>®¯%>²²À>¸¸(>¼½>ÀÀ­>ÆÇe>ÊÊÿ>ÎΚ>ÔÕR>ØØí>Ü܇>âã?>ææÚ>êêt>îï_>ôôÇ>øøb>üýL?Z?ƒÏ?…?ˆQ? ŠÆ? Œ“?Ža?‘¼?“Š?•W?˜³?š€?œN?Ÿ©?!¡w?#£ì?&¦ ?(¨m?*ªã?,¬°?/¯d?1±Ù?3³§?6·?8¸Ð?:º?=½ù??¿Æ?AÁ”?DÄð?Fƽ?HÈŠ?JÊÿ?Mͳ?OÏ?QÑö?TÔª?V×?XØí?[Û¡?]Þ?_ßã?bâ—?då ?fæÚ?hè§?kì?míÐ?oïž?ròú?tôÇ?v÷„> ‹D>•>œN>$£ƒ>,­X>4´><»Ã>HÉ2>PÐh>X×>`ár>hè§>pïÝ>xù±>€€s>„„>ˆˆø>ŒŒ“>.>––æ>šš€>žž>¢£>¦¦ >ªª;>®¯%>²²À>¶¶[>º»E>¾¾à>ÂÂz>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÈÉ2>ÀÀ­>º»E>´´>®¯%>¨¨m>¢£>œœN>––æ>ŽŽa>ˆˆø>‚‚A>xù±>lìB>`ár>TÔ>HÉ2>8¸(>,­X> Ÿè>•>‡©=øù±=àÞÓ=ÈÉ2=¨§=‘}=pí>=@Áý=Œ?<ÀÁý<@­ PGPLOT-2.35/lib/PDL/Graphics/LUT/tables/staircase.fits0000644000175000017500000002070014657476773022137 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 2 / Number of axes NAXIS1 = 256 / Value NAXIS2 = 3 / r, g, and b columns BUNIT = 'Data Value ' OBJECT = 'staircase ' / Name of colour table HISTORY (r,g,b) colour table converted from: staircase.lasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:17:06 2000 HISTORY Data is stored as a 2D image (nx3): HISTORY the columns are the r, g, and b values HISTORY and are floats (BITPIX=-32) in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?ròú?uõ®?xù ?{û½?}þ3?€;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?sóà?v÷=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>ÈÉ2?‡j?*ªã?Mͳ?LÌÍ?€> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8> ¡8>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?  ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?HÈŠ?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?sóà?v÷=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>¢£>¤¤Ó>¦¦ >¨¨m>ªª;;€sX<sX<@­<€ˆQ< ¥'<ÀÁý<àÞÓ=}Ô=Œ?= ¥'=0³’=@Áý=PÐh=`ÞÓ=pí>=€ƒ=ˆŠH=‘}=˜˜³= Ÿè=¨§=°®S=¸ºÇ=ÀÁý=ÈÉ2=ÐÐh=Ø×=àÞÓ=èëF=ðò|=øù±>€s>„>‡©> ‹D>‘}>•>˜³>œN> Ÿè>$£ƒ>(©½>,­X>0°ò>4´>8¸(><»Ã>@Áý>DÅ—>HÉ2>LÌÍ>PÐh>TÔ>X×>\Ý×>`ár>då >hè§>lìB>pïÝ>tö>xù±>|ýL>€€s>‚‚A>„„>†‡+>ˆˆø>ŠŠÆ>ŒŒ“>ŽŽa>.>’‘û>”•>––æ>˜˜³>šš€>œœN>žž> ¡8>ÈÉ2?‡j?*ªã?Mͳ?LÌÍ?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/ramps/0000755000175000017500000000000014731233364017117 5ustar osboxesosboxesPGPLOT-2.35/lib/PDL/Graphics/LUT/ramps/null.fits0000644000175000017500000001320014657476773021000 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 1 / Number of axes NAXIS1 = 256 / Value BUNIT = 'Data Value ' OBJECT = 'null ' / Name of ramp HISTORY intensity ramp converted from: null.iasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:20:17 2000 HISTORY Data is stored as a 1D image, as a float (BITPIX=-32), HISTORY in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END PGPLOT-2.35/lib/PDL/Graphics/LUT/ramps/ramp.fits0000644000175000017500000001320014672353672020752 0ustar osboxesosboxesSIMPLE = T / Created with PDL (http://pdl.perl.org) BITPIX = -32 NAXIS = 1 / Number of axes NAXIS1 = 256 / Value BUNIT = 'Data Value ' HISTORY 2024-09-17 Corrected values with xlinvals HISTORY --- HISTORY intensity ramp converted from: ramp.iasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:20:18 2000 HISTORY Data is stored as a 1D image, as a float (BITPIX=-32), HISTORY in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS ta\ HISTORY ble HISTORY reader (or writer) in the PDL distribution. OBJECT = 'ramp ' / Name of ramp END ;€€<€<@ÀÁ<€€<  ¡<ÀÀÁ<ààá=€=‘=  ¡=0°±=@ÀÁ=PÐÑ=`àá=pðñ=€€=ˆˆ‰=‘=˜˜™=  ¡=¨¨©=°°±=¸¸¹=ÀÀÁ=ÈÈÉ=ÐÐÑ=ØØÙ=ààá=èèé=ððñ=øøù>€>„…>ˆ‰> Œ>‘>”•>˜™>œ>  ¡>$¤¥>(¨©>,¬­>0°±>4´µ>8¸¹><¼½>@ÀÁ>DÄÅ>HÈÉ>LÌÍ>PÐÑ>TÔÕ>XØÙ>\ÜÝ>`àá>däå>hèé>lìí>pðñ>tôõ>xøù>|üý>€€>‚‚ƒ>„„…>††‡>ˆˆ‰>ŠŠ‹>ŒŒ>ŽŽ>‘>’’“>””•>––—>˜˜™>šš›>œœ>žžŸ>  ¡>¢¢£>¤¤¥>¦¦§>¨¨©>ªª«>¬¬­>®®¯>°°±>²²³>´´µ>¶¶·>¸¸¹>ºº»>¼¼½>¾¾¿>ÀÀÁ>ÂÂÃ>ÄÄÅ>ÆÆÇ>ÈÈÉ>ÊÊË>ÌÌÍ>ÎÎÏ>ÐÐÑ>ÒÒÓ>ÔÔÕ>ÖÖ×>ØØÙ>ÚÚÛ>ÜÜÝ>ÞÞß>ààá>ââã>ääå>ææç>èèé>êêë>ììí>îîï>ððñ>òòó>ôôõ>öö÷>øøù>úúû>üüý>þþÿ?€?‚?‚ƒ?ƒ„?„…?…†?†‡?‡ˆ?ˆ‰? ‰Š? Š‹? ‹Œ? Œ? Ž?Ž??‘?‘’?’“?“”?”•?•–?–—?—˜?˜™?™š?š›?›œ?œ?ž?žŸ?Ÿ ?  ¡?!¡¢?"¢£?#£¤?$¤¥?%¥¦?&¦§?'§¨?(¨©?)©ª?*ª«?+«¬?,¬­?-­®?.®¯?/¯°?0°±?1±²?2²³?3³´?4´µ?5µ¶?6¶·?7·¸?8¸¹?9¹º?:º»?;»¼?<¼½?=½¾?>¾¿??¿À?@ÀÁ?AÁÂ?BÂÃ?CÃÄ?DÄÅ?EÅÆ?FÆÇ?GÇÈ?HÈÉ?IÉÊ?JÊË?KËÌ?LÌÍ?MÍÎ?NÎÏ?OÏÐ?PÐÑ?QÑÒ?RÒÓ?SÓÔ?TÔÕ?UÕÖ?VÖ×?W×Ø?XØÙ?YÙÚ?ZÚÛ?[ÛÜ?\ÜÝ?]ÝÞ?^Þß?_ßà?`àá?aáâ?bâã?cãä?däå?eåæ?fæç?gçè?hèé?iéê?jêë?këì?lìí?míî?nîï?oïð?pðñ?qñò?ròó?sóô?tôõ?uõö?vö÷?w÷ø?xøù?yùú?zúû?{ûü?|üý?}ýþ?~þÿ?€PGPLOT-2.35/lib/PDL/Graphics/LUT/ramps/neglog.fits0000644000175000017500000001320014657476773021301 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 1 / Number of axes NAXIS1 = 256 / Value BUNIT = 'Data Value ' OBJECT = 'neglog ' / Name of ramp HISTORY intensity ramp converted from: neglog.iasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:20:17 2000 HISTORY Data is stored as a 1D image, as a float (BITPIX=-32), HISTORY in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END ?€?zú×?qò?iê6?cä&?\Ý/?WØ?QÑö?LÌÍ?HÈŠ?CÄ ??¿Æ?<¼j?7·é?4´?1±Ù?.®}?*ªã?(¨m?%¥¹?#£ì?  ?Ü?›g?™š?–æ?”p?‘¼?Ö?Ža? Œ“? ŠÆ?ˆQ?‡j?„¶?ƒÏ?Z>þÿ>üýL>úû>öö”>ôôÇ>îï_>ìí‘>êêt>ææÚ>äå >âã?>àár>ÞÞU>ÚÚº>Ö×>ÔÕR>ÒÒ5>ÐÐh>ÎΚ>ÌÌÍ>ÊÊÿ>ÈÉ2>ÆÇe>ÄÄH>ÂÂz>¾¾à>¼½>º»E>¸¸(>¶¶[>´´>²²À>°°ò>°°ò>®¯%>¬¬>ªª;>¨¨m>¤¤Ó>¤¤Ó>¢£> ¡8>žž>žž>œœN>šš€>˜˜³>˜˜³>––æ>”•>’‘û>’‘û>.>ŽŽa>ŽŽa>ŠŠÆ>ˆˆø>ˆˆø>†‡+>„„>„„>‚‚A>‚‚A>€€s>|ýL>|ýL>xù±>tö>tö>pïÝ>pïÝ>lìB>lìB>hè§>`ár>`ár>\Ý×>\Ý×>X×>X×>TÔ>TÔ>PÐh>PÐh>LÌÍ>LÌÍ>HÉ2>HÉ2>DÅ—>DÅ—>@Áý>@Áý><»Ã><»Ã>8¸(>8¸(>0°ò>0°ò>,­X>,­X>(©½>(©½>$£ƒ>$£ƒ>$£ƒ> Ÿè> Ÿè>œN>œN>˜³>˜³>•>•>•>‘}>‘}> ‹D> ‹D> ‹D>‡©>‡©>„>„>„=øù±=øù±=ðò|=ðò|=ðò|=èëF=èëF=àÞÓ=àÞÓ=àÞÓ=Ø×=Ø×=Ø×=ÐÐh=ÐÐh=ÐÐh=ÈÉ2=ÈÉ2=ÀÁý=ÀÁý=ÀÁý=¸ºÇ=¸ºÇ=¸ºÇ=°®S=°®S=°®S=¨§=¨§=¨§= Ÿè= Ÿè= Ÿè=‘}=‘}=‘}=ˆŠH=ˆŠH=ˆŠH=€ƒ=€ƒ=€ƒ=pí>=pí>=pí>=pí>=`ÞÓ=`ÞÓ=`ÞÓ=PÐh=PÐh=PÐh=@Áý=@Áý=@Áý=0³’=0³’=0³’=0³’= ¥'= ¥'= ¥'=Œ?=Œ?=Œ?=Œ?=}Ô=}Ô=}Ô<àÞÓ<àÞÓ<àÞÓ<àÞÓ< ¥'< ¥'< ¥'< ¥'<€ˆQ<€ˆQ<€ˆQ<@­<@­<@­<@­<sX<sX<sX<sX;€sX;€sX;€sX;€sX PGPLOT-2.35/lib/PDL/Graphics/LUT/ramps/gamma.fits0000644000175000017500000001320014657476773021110 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 1 / Number of axes NAXIS1 = 256 / Value BUNIT = 'Data Value ' OBJECT = 'gamma ' / Name of ramp HISTORY intensity ramp converted from: gamma.iasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:20:17 2000 HISTORY Data is stored as a 1D image, as a float (BITPIX=-32), HISTORY in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END =çç> °É>Ü>.Šr>=uâ>KÇ>W¤è>cc²>nmœ>xßz>hs>†'|>Š³h>>“JË>—^ >›Oa>Ÿ"}>¢Ú>¦wp>©ý7>­lµ>°Åë>´>·Bš>ºf>½yÑ>À}Ô>Ãr>ÆZ›>É4­>Ìó>ÎÅm>Ñ|>Ô(N>ÖËS>Ùb>Ûð™>Þuy>àò|>ãfQ>åÒJ>è5>ê‘S>ìç>ï4×>ñ|>ó»„>õõ®>ø)J>úVX>ü~(>þ º?^_?iÂ?s.?yS?}€?~g?}þ?zö?uO? m±? d? XŽ? Jb? :ç?(Ì?b??è§?Ïÿ?´·?˜È?z:?[?9.?±?ò=?ËÑ?¤¾?{³?QY?%¯?ø¶?Êm?šÔ?iì? 7 ?!†?!ί?"™1?#a»?$)ž?$ð0?%µt?&yh?'<´?'þ°?(À?)€ ?*>À?*üÎ?+¹Œ?,u£?-0j?-ê‰?.£Y?/[?0Z?0É2?1~?22ô?2æ†?3™p?4K ?4ûü?5¬G?6[ê?7 å?7¸‘?8e•?9ñ?9½¥?:h ?;o?;»„?Yó?>ÿÁ??¤è?@If?@ì–?AÅ?B2M?BÔ,?Cud?Dô?DµÝ?EU?Eó¶?F‘§?G.ñ?GÌ:?Hh4?I.?IŸ€?J9‚?JÓ„?Km‡?L:?LžE?M6P?Mͳ?Ndo?Núƒ?Oï?P%[?Pº?QN=øù±><»Ã>|ýL>žž>¾¾à>ÞÞU>þÿ?G?Ÿ©?/¯d??¿Æ?OÏ?_ßã?oïž?€=pí>=pí>=pí>=pí>=pí>=pí>=pí>=pí>=øù±=øù±=øù±=øù±=øù±=øù±=øù±=øù±><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã>|ýL>|ýL>|ýL>|ýL>|ýL>|ýL>|ýL>|ýL>žž>žž>žž>žž>žž>žž>žž>žž>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>ÞÞU>ÞÞU>ÞÞU>ÞÞU>ÞÞU>ÞÞU>ÞÞU>ÞÞU>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ?G?G?G?G?G?G?G?G?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?/¯d?/¯d?/¯d?/¯d?/¯d?/¯d?/¯d?/¯d??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ?OÏ?OÏ?OÏ?OÏ?OÏ?OÏ?OÏ?OÏ?_ßã?_ßã?_ßã?_ßã?_ßã?_ßã?_ßã?_ßã?oïž?oïž?oïž?oïž?oïž?oïž?oïž?oïž?€?€?€?€?€?€?€?€=pí>=pí>=pí>=pí>=pí>=pí>=pí>=øù±=øù±=øù±=øù±=øù±=øù±=øù±><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã><»Ã>|ýL>|ýL>|ýL>|ýL>|ýL>|ýL>|ýL>žž>žž>žž>žž>žž>žž>žž>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>¾¾à>ÞÞU>ÞÞU>ÞÞU>ÞÞU>ÞÞU>ÞÞU>ÞÞU>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ>þÿ?G?G?G?G?G?G?G?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?Ÿ©?/¯d?/¯d?/¯d?/¯d?/¯d?/¯d?/¯d??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ??¿Æ?OÏ?OÏ?OÏ?OÏ?OÏ?OÏ?OÏ?_ßã?_ßã?_ßã?_ßã?_ßã?_ßã?_ßã?oïž?oïž?oïž?oïž?oïž?oïž?oïž?€?€?€?€?€?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/ramps/jigsaw.fits0000644000175000017500000001320014657476773021312 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 1 / Number of axes NAXIS1 = 256 / Value BUNIT = 'Data Value ' OBJECT = 'jigsaw ' / Name of ramp HISTORY intensity ramp converted from: jigsaw.iasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:20:17 2000 HISTORY Data is stored as a 1D image, as a float (BITPIX=-32), HISTORY in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END <€ˆQ=}Ô=@Áý=€ƒ= Ÿè=ÀÁý=àÞÓ>€s>‘}> Ÿè>0°ò>@Áý>PÐh>`ár>pïÝ>€€s>ˆˆø>.>˜˜³> ¡8>ªª;>²²À>º»E>ÂÂz>ÊÊÿ>ÒÒ5>ÚÚº>âã?>êêt>òòú>úû?Z?…? ‰7? z?‘¼?•W?™š?Ü?!¡w?%¥¹?*ªã?.®}?2²À?6·?:º?>¾à?BÂz?Fƽ?JÊÿ?NΚ?RÒÝ?V×?ZÚº?^Þü?bâ—?fæÚ?jë?nî·?ròú?v÷€s>‘}> Ÿè>0°ò>@Áý>PÐh>`ár>pïÝ>€€s>ˆˆø>.>˜˜³> ¡8>ªª;>²²À>º»E>ÂÂz>ÊÊÿ>ÒÒ5>ÚÚº>âã?>êêt>òòú>úû?Z?…? ‰7? z?‘¼?•W?™š?Ü?!¡w?%¥¹?*ªã?.®}?2²À?6·?:º?>¾à?BÂz?Fƽ?JÊÿ?NΚ?RÒÝ?V×?ZÚº?^Þü?bâ—?fæÚ?jë?nî·?ròú?v÷€s>‘}> Ÿè>0°ò>@Áý>PÐh>`ár>pïÝ>€€s>ˆˆø>.>˜˜³> ¡8>ªª;>²²À>º»E>ÂÂz>ÊÊÿ>ÒÒ5>ÚÚº>âã?>êêt>òòú>úû?Z?…? ‰7? z?‘¼?•W?™š?Ü?!¡w?%¥¹?*ªã?.®}?2²À?6·?:º?>¾à?BÂz?Fƽ?JÊÿ?NΚ?RÒÝ?V×?ZÚº?^Þü?bâ—?fæÚ?jë?nî·?ròú?v÷€s>‘}> Ÿè>0°ò>@Áý>PÐh>`ár>pïÝ>€€s>ˆˆø>.>˜˜³> ¡8>ªª;>²²À>º»E>ÂÂz>ÊÊÿ>ÒÒ5>ÚÚº>âã?>êêt>òòú>úû?Z?…? ‰7? z?‘¼?•W?™š?Ü?!¡w?%¥¹?*ªã?.®}?2²À?6·?:º?>¾à?BÂz?Fƽ?JÊÿ?NΚ?RÒÝ?V×?ZÚº?^Þü?bâ—?fæÚ?jë?nî·?ròú?v÷=pí>=pí>=pí>=pí>=pí>=pí>=pí>=pí>=pí>=pí>=pí>=pí>=pí>=pí>=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|=ðò|>4´>4´>4´>4´>4´>4´>4´>4´>4´>4´>4´>4´>4´>4´>4´>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>pïÝ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>––æ>´´>´´>´´>´´>´´>´´>´´>´´>´´>´´>´´>´´>´´>´´>´´>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ÒÒ5>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,>ðñ,?‡j?‡j?‡j?‡j?‡j?‡j?‡j?‡j?‡j?‡j?‡j?‡j?‡j?‡j?‡j?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?–æ?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?%¥¹?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?4´?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?CÄ ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?RÒÝ?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?aá±?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?pñ,?€?€ PGPLOT-2.35/lib/PDL/Graphics/LUT/ramps/neg.fits0000644000175000017500000001320014672353672020564 0ustar osboxesosboxesSIMPLE = T / Created with PDL (http://pdl.perl.org) BITPIX = -32 NAXIS = 1 / Number of axes NAXIS1 = 256 / Value BUNIT = 'Data Value ' HISTORY 2024-09-17 Corrected values with xlinvals HISTORY --- HISTORY intensity ramp converted from: neg.iasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:20:17 2000 HISTORY Data is stored as a 1D image, as a float (BITPIX=-32), HISTORY in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS ta\ HISTORY ble HISTORY reader (or writer) in the PDL distribution. OBJECT = 'neg ' / Name of ramp END ?€?~þÿ?}ýþ?|üý?{ûü?zúû?yùú?xøù?w÷ø?vö÷?uõö?tôõ?sóô?ròó?qñò?pðñ?oïð?nîï?míî?lìí?këì?jêë?iéê?hèé?gçè?fæç?eåæ?däå?cãä?bâã?aáâ?`àá?_ßà?^Þß?]ÝÞ?\ÜÝ?[ÛÜ?ZÚÛ?YÙÚ?XØÙ?W×Ø?VÖ×?UÕÖ?TÔÕ?SÓÔ?RÒÓ?QÑÒ?PÐÑ?OÏÐ?NÎÏ?MÍÎ?LÌÍ?KËÌ?JÊË?IÉÊ?HÈÉ?GÇÈ?FÆÇ?EÅÆ?DÄÅ?CÃÄ?BÂÃ?AÁÂ?@ÀÁ??¿À?>¾¿?=½¾?<¼½?;»¼?:º»?9¹º?8¸¹?7·¸?6¶·?5µ¶?4´µ?3³´?2²³?1±²?0°±?/¯°?.®¯?-­®?,¬­?+«¬?*ª«?)©ª?(¨©?'§¨?&¦§?%¥¦?$¤¥?#£¤?"¢£?!¡¢?  ¡?Ÿ ?žŸ?ž?œ?›œ?š›?™š?˜™?—˜?–—?•–?”•?“”?’“?‘’?‘??Ž? Ž? Œ? ‹Œ? Š‹? ‰Š?ˆ‰?‡ˆ?†‡?…†?„…?ƒ„?‚ƒ?‚?€>þþÿ>üüý>úúû>øøù>öö÷>ôôõ>òòó>ððñ>îîï>ììí>êêë>èèé>ææç>ääå>ââã>ààá>ÞÞß>ÜÜÝ>ÚÚÛ>ØØÙ>ÖÖ×>ÔÔÕ>ÒÒÓ>ÐÐÑ>ÎÎÏ>ÌÌÍ>ÊÊË>ÈÈÉ>ÆÆÇ>ÄÄÅ>ÂÂÃ>ÀÀÁ>¾¾¿>¼¼½>ºº»>¸¸¹>¶¶·>´´µ>²²³>°°±>®®¯>¬¬­>ªª«>¨¨©>¦¦§>¤¤¥>¢¢£>  ¡>žžŸ>œœ>šš›>˜˜™>––—>””•>’’“>‘>ŽŽ>ŒŒ>ŠŠ‹>ˆˆ‰>††‡>„„…>‚‚ƒ>€€>|üý>xøù>tôõ>pðñ>lìí>hèé>däå>`àá>\ÜÝ>XØÙ>TÔÕ>PÐÑ>LÌÍ>HÈÉ>DÄÅ>@ÀÁ><¼½>8¸¹>4´µ>0°±>,¬­>(¨©>$¤¥>  ¡>œ>˜™>”•>‘> Œ>ˆ‰>„…>€=øøù=ððñ=èèé=ààá=ØØÙ=ÐÐÑ=ÈÈÉ=ÀÀÁ=¸¸¹=°°±=¨¨©=  ¡=˜˜™=‘=ˆˆ‰=€€=pðñ=`àá=PÐÑ=@ÀÁ=0°±=  ¡=‘=€<ààá<ÀÀÁ<  ¡<€€<@ÀÁ<€;€€PGPLOT-2.35/lib/PDL/Graphics/LUT/ramps/equa.fits0000644000175000017500000001320014657476773020761 0ustar osboxesosboxesSIMPLE = T BITPIX = -32 NAXIS = 1 / Number of axes NAXIS1 = 256 / Value BUNIT = 'Data Value ' OBJECT = 'equa ' / Name of ramp HISTORY intensity ramp converted from: equa.iasc HISTORY --- HISTORY ASCII files taken from the GAIA distribution of STARLINK HISTORY where they are released under the GNU copyleft HISTORY (http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/) HISTORY Converted to FITS format using PDL::IO::Misc::wfits HISTORY on Tue Feb 1 13:20:16 2000 HISTORY Data is stored as a 1D image, as a float (BITPIX=-32), HISTORY in the range 0 to 1, inclusive. HISTORY Should have stored as a FITS table, but there is currently no FITS tableHISTORY reader (or writer) in the PDL distribution. END =€ƒ> ‹D>då >šš€>¸¸(>ÒÒ5>ìí‘?Z? ‹¬?“Š?š€?  ?%¥¹?)©ü?.®}?1±Ù?4´?7·é?:º?<¼j?>¾à?AÁ”?CÄ ?DÄð?Fƽ?GǤ?IÊ?JÊÿ?KËæ?LÌÍ?Mͳ?NΚ?OÏ?PÑ?QÑö?RÒÝ?SÓÃ?TÔª?UÕ‘?V×?WØ?WØ?XØí?YÙÓ?ZÚº?[Û¡?[Û¡?\Ý/?]Þ?]Þ?^Þü?_ßã?_ßã?`àÊ?`àÊ?aá±?aá±?bâ—?bâ—?cä&?cä&?då ?då ?eåó?eåó?fæÚ?fæÚ?gçÀ?gçÀ?hè§?hè§?iê6?iê6?jë?jë?kì?kì?lìê?lìê?míÐ?míÐ?nî·?nî·?oïž?oïž?oïž?pñ,?pñ,?qò?qò?qò?ròú?ròú?sóà?sóà?sóà?tôÇ?tôÇ?tôÇ?uõ®?uõ®?uõ®?v÷ ‹D> Ÿè>8¸(>LÌÍ>\Ý×>pïÝ>€€s>†‡+>.>––æ>œœN>¢£>ªª;>®¯%>´´>¸¸(>¾¾à>ÄÄH>ÈÉ2>ÌÌÍ>ÒÒ5>Ö×>Ü܇>ÞÞU>âã?>ææÚ>êêt>îï_>ðñ,>öö”>øøb>üýL?€s?Z?‚A?„¶?…?ˆQ? ‰7? ŠÆ? Œ“? z?Ža?G?Ö?’£?”p?•W?–æ?—Ì?˜³?™š?š€?›g?œN?Ü?žÃ?  ?!¡w?"¢^?#£ì?$¤Ó?%¥¹?&¦ ?'§‡?'§‡?(¨m?)©ü?*ªã?+«É?-­—?-­—?.®}?/¯d?0°ò?0°ò?1±Ù?2²À?3³§?3³§?4´?5µt?6·?6·?7·é?8¸Ð?8¸Ð?:º?;»„?;»„?<¼j?=½ù?=½ù?>¾à?>¾à??¿Æ?@À­?@À­?AÁ”?BÂz?BÂz?CÄ ?CÄ ?DÄð?DÄð?EÅÖ?GǤ?GǤ?HÈŠ?HÈŠ?IÊ?IÊ?JÊÿ?JÊÿ?KËæ?KËæ?LÌÍ?LÌÍ?Mͳ?Mͳ?NΚ?NΚ?OÏ?OÏ?PÑ?PÑ?QÑö?QÑö?SÓÃ?SÓÃ?TÔª?TÔª?UÕ‘?UÕ‘?V×?V×?V×?WØ?WØ?XØí?XØí?YÙÓ?YÙÓ?ZÚº?ZÚº?ZÚº?[Û¡?[Û¡?\Ý/?\Ý/?\Ý/?]Þ?]Þ?^Þü?^Þü?^Þü?`àÊ?`àÊ?aá±?aá±?aá±?bâ—?bâ—?cä&?cä&?cä&?då ?då ?då ?eåó?eåó?eåó?fæÚ?fæÚ?gçÀ?gçÀ?gçÀ?hè§?hè§?hè§?iê6?iê6?iê6?jë?jë?jë?kì?kì?kì?míÐ?míÐ?míÐ?nî·?nî·?nî·?oïž?oïž?oïž?pñ,?pñ,?pñ,?pñ,?qò?qò?qò?ròú?ròú?ròú?sóà?sóà?sóà?tôÇ?tôÇ?tôÇ?tôÇ?uõ®?uõ®?uõ®?v÷~>ñA>Ì£> ­C> ã>sÁ>\>>GZ>2v>%p>j>!>$Ù>'°>*Å>-y>0 Ì>3¾>6 ï>9.><@Ž>?U›>BmH>E‡”>H§>Kƨ>Nëp>R×>U<Þ>Xl">[ž>^Ò‰>b «>eCl>h‚k>kÄ >oF>rO">u›=>xé÷>|;O>G>t?>ƒ")>„Ò³>†ƒ<>ˆ6e>‰êÝ>‹¡õ>Z\>>Ï>’Œ½>”K²>– E>—Ð)>™”[>›YÞ>!ÿ>žëp> ·€>¢„à>¤S>¦$Ý>§÷{>©Ì¸>«£D>­{ >¯U›>±1f>³Ð>´ï‰>¶Ñá>¸µ‰>ºš€>¼‚>¾jý>ÀV‚>ÂCW>Ä2Ê>Æ#Ž>Èð>Ê ¢>Ìó>Íû”>ÏöÓ>Ñób>Óò‘>Õô^>×ö+>Ùûç>Üó>Þ N>àH>â#â>ä2Ê>æDR>èW*>êl >섶>îž>ðº>ò×s>ô÷f>÷ø>ù=Ù>ûdZ>ýz>ÿ·é?ò|? R?"Ñ?<Ÿ?W¼?s‚?—?®û? Î? îc? ? 3 ?V¬?{ž?¡à?Éq?ñª?Ú?F²?r2?Ÿ©?ÍÈ?ýß?.?`ª?“`?È ?ýa?!4?"l ?#¥ã?$ßÎ?&°?'Xâ?(–¼?)ÖŒ?+?,XÍ?-œ?.àô?0&«?1m±?2¶?3ÿ¬?5J¡?6–æ?7äz?93]?:‚è?;Ôk?='=?>{_??ÐÐ?A'‘?B€I?CÙ©?E4Y?FX?GîN?ILì?J­‚?Lg?Mr›?N×?P<ó?Q¤?S 0?Tvó?Uâ¬?WOµ?X¾?Z-¶?[ŸV?]E?^†ƒ?_ü?arï?bëÄ?deé?eá]?g^È?h݃?j]?kÞè?mb9?næÚ?plÊ?qô²?s}é?up?v”î?x"¼?y²?{C–?|Õú?~jU?¶š?€?€ PGPLOT-2.35/lib/PDL/Graphics/PGPLOT/0000755000175000017500000000000014731233364016336 5ustar osboxesosboxesPGPLOT-2.35/lib/PDL/Graphics/PGPLOT/Window.pm0000644000175000017500000062643014731233147020155 0ustar osboxesosboxespackage PDL::Graphics::PGPLOT::Window; use strict; use warnings; require Exporter; use PDL::Core qw/:Func :Internal/; # Grab the Core names use PDL::Basic; use PDL::Ufunc; use PDL::Primitive; use PDL::Types; use PDL::Options; use PDL::Graphics::State; use PDL::Graphics::PGPLOTOptions qw(default_options); use PDL::Slices; use PGPLOT; require DynaLoader; our @ISA = qw( Exporter ); our @EXPORT = qw( pgwin ); $PDL::Graphics::PGPLOT::RECORDING = 0; # By default recording is off.. =head1 NAME PDL::Graphics::PGPLOT::Window - A OO interface to PGPLOT windows =head1 SYNOPSIS pdl> use PDL::Graphics::PGPLOT::Window pdl> $win = pgwin(Device => '/xs'); pdl> $x = pdl [1..100] pdl> $y = sqrt($x) pdl> $win->line($y) pdl> $win->hold() pdl> $c = sin($x/10)*2 + 4 pdl> $win->line($c) In the following documentation the commands are not shown in their OO versions. This is for historical reasons and should not cause too much trouble. =head1 DESCRIPTION This package offers a OO interface to the PGPLOT plotting package. This is intended to replace the traditional interface in L and contains interfaces to a large number of PGPLOT routines. Below the usage examples for each function tend to be given in the non-OO version for historical reasons. This will slowly be changed, but in the meantime refer to the section on OO-interface below to see how to convert the usage information below to OO usage (it is totally trivial). PDL::Graphics::PGPLOT::Window is an interface to the PGPLOT graphical libraries. It currently supports PGPLOT-5.2 and PGPLOT-5.2-cd2. The -cd2 version includes RGB output and anti-aliasing. High-level plotting commands: imag - Display an image (uses pgimag/pggray/pgrgbi as appropriate) fits_imag - Display a FITS image in scientific coordinates cont - Display image as contour map fits_cont - Display a FITS image in scientific coordinates as a contour map vect - Display 2 images as a vector field fits_vect - Display 2 FITS images in sci. coordinates as a vector field ctab - Load an image colour table ctab_info - Get information about currently loaded colour table line - Plot vector as connected points tline - Plot a collection of vectors as lines lines - Plot a polyline, multicolor vector [broadcastable] points - Plot vector as points tpoints - Plot a collection of vectors as points [broadcastable] errb - Plot error bars bin - Plot vector as histogram (e.g. bin(hist($data)) ) hi2d - Plot image as 2d histogram (not very good IMHO...) tcircle - Plot vectors as circles [broadcastable] label_axes - Print axis titles legend - Create a legend with different texts, linestyles etc. Low-level plotting commands: arrow - Draw an arrow poly - Draw a polygon rectangle - Draw a rectangle text - Write text in the plot area cursor - Interactively read cursor positions. circle - Draw a circle ellipse - Draw an ellipse. Device manipulation commands: new - Construct a new output device pgwin - Exported hook to new() close - Close a PGPLOT output device. hold - Hold current plot window range - allows overlays etc. release - Release back to freshly autoscaling for each command. held - Indicates whether the current window is held. focus - Set focus to the given device. erase - Erase the current window (or panel). options - Get the options set for the present output device. id - The ID for the device. device - The device type. name - The window name. Notes: C<$transform> for image/cont etc. is used in the same way as the C array in the underlying PGPLOT FORTRAN routine but is, fortunately, zero-offset. The L routine can be used to create this ndarray. For completeness: The transformation array connect the pixel index to a world coordinate such that: X = tr[0] + tr[1]*i + tr[2]*j Y = tr[3] + tr[4]*i + tr[5]*j =head2 Variable passing and extensions In general variables are passed to the pgplot routines by using C to get the reference to the values. Before passing to pgplot routines however, the data are checked to see if they are in accordance with the format (typically dimensionality) required by the PGPLOT routines. This is done using the routine C (internal to PGPLOT). This routine checks the dimensionality of the input data. If there are superfluous dimensions of size 1 they will be trimmed away until the dimensionality is correct. Example: Assume an ndarray with dimensions (1,100,1,1) is passed to C, which expects its inputs to be vectors. C will then return an ndarray with dimensions (100). If instead the same ndarray was passed to C, which requires 2D ndarrays as output, C would return an ndarray with dimensionality (100, 1) (Dimensions are removed from the I) Thus, if you want to provide support for another PGPLOT function, the structure currently look like this (there are plans to use the Options package to simplify the options parsing): # Extract the hash(es) on the commandline ($arg, $opt)=_extract_hash(@_); checkarg($x, 3); # For a hypothetical 3D routine. catch_signals { ... pgcube($n, $x->get_dataref); }; 1; (the catch_signals block prevents problems with the perl-PGPLOT interface if the user hits Ctrl-C during an operation). =head2 Setting options All routines in this package take a hash with options as an optional input. This options hash can be used to set parameters for the subsequent plotting without going via the PGPLOT commands. This is implemented such that the plotting settings (such as line width, line style etc.) are affected only for that plot, any global changes made, say, with C are preserved. Some modifications apply when using the OO interface, see below. =head2 Alphabetical listing of standard options The following options are always parsed. Whether they have any importance depend on the routine invoked - e.g. line style is irrelevant for C, or the C option is irrelevant if the display is on 'hold'. This is indicated in the help text for the commands below. The options are not case sensitive and will match for unique substrings, but this is not encouraged as obscure options might invalidate what you thought was a unique substring. In the listing below examples are given of each option. The actual option can then be used in a plot command by specifying it as an argument to the function wanted (it can be placed anywhere in the command list). E.g: $opt={COLOR=>2}; line $x, $y, $opt; # This will plot a line with red color If you are plotting to a hardcopy device then a number of options use a different name: HardLW instead of LineWidth HardCH instead of CharSize HardFont instead of Font HardAxisColour instead of AxisColour HardColour instead of Colour [although I'm not sure when HardColour is actually used] =over 4 =item align If C is set, then images and plots are not stretched to fill the plot area. the C string tells how to align them within the available area. 'L' and 'R' shove the plot against the left and right edges, respectively; 'B' and 'T' shove the plot against the bottom and top edges. The default is to center the image. e.g. 'BL' puts the image on the bottom left corner, while 'CT' centers the image horizontally while placing it at the top of the available plot area. This defaults to 'BT' for non-justified images, to 'CC' for justified images. =item arrow This options allows you to set the arrow shape, and optionally size for arrows for the vect routine. The arrow shape is specified as a hash with the key FS to set fill style, ANGLE to set the opening angle of the arrow head, VENT to set how much of the arrow head is cut out and SIZE to set the arrowsize. The following $opt = {ARROW => {FS=>1, ANGLE=>60, VENT=>0.3, SIZE=>5}}; will make a broad arrow of five times the normal size. Alternatively the arrow can be specified as a set of numbers corresponding to an extension to the syntax for pgsah. The equivalent to the above is $opt = {ARROW => pdl([1, 60, 0.3, 5})}; For the latter the arguments must be in the given order, and if any are not given the default values of 1, 45, 0.3 and 1.0 respectively will be used. =item arrowsize The arrowsize can be specified separately using this option to the options hash. It is useful if an arrowstyle has been set up and one wants to plot the same arrow with several sizes. Please note that it is B possible to set arrowsize and character size in the same call to a plotting function. This should not be a problem in most cases. $opt = {ARROWSIZE => 2.5}; =item axis Set the axis value (see L). If you pass in a scalar you set the axis for the whole plot. You can also pass in an array ref for finer control of the axes. If you set the option to a scalar value, you get one of a few standard layouts. You can specify them by name or by number: EMPTY (-2) draw no box, axes or labels BOX (-1) draw box only NORMAL (0) draw box and label it with coordinates AXES (1) same as NORMAL, but also draw (X=0,Y=0) axes GRID (2) same as AXES, but also draw grid lines LOGX (10) draw box and label X-axis logarithmically LOGY (20) draw box and label Y-axis logarithmically LOGXY (30) draw box and label both axes logarithmically When using logarithmic axes (C, C and C) you normally need to log the data yourself, e.g. line $x->log10, $y, {axis=>'LOGX'}; For your convenience you can put PDL::Graphics::PGPLOT into autolog mode. In this mode a call to C or C will log the data for you and you can pass in the unmodified data, e.g. autolog(1); # enable automatic logarithm calculation line $x, $y, {axis=>'LOGX'}; # automatically displays logged x data You can use the function interface to enable autologging: autolog(1); or use it with a window reference (mode switching on a per window basis) $win->autolog(1); C without arguments returns the current autolog setting (0=off, 1=on). If you set the C option to an array ref, then you can specify the box/axis options separately for the horizontal (ordinate; X coordinate; 0th element) and vertical (abscissa; Y coordinate; 1st element)) axes. Each element of the array ref should contain a PGPLOT format string. Presence or absence of specific characters flags particular options. For normal numeric labels, the options are: A : draw axis for this dimension. B : draw bottom (X) or left (Y) edge of frame. C : draw top (X) or right (Y) edge of frame. G : draw Grid of vertical (X) or horizontal (Y) lines. I : Invert ticks: draw them outside the plot rather than inside. L : Label the axis Logarithmically. P : Extend ("Project") major tick marks outside the box. M : Numeric labels go in the alternate place above (X) or to the right (Y) of the viewport. N : Numeric labels go in the usual location below (X) or to the left (Y) of the viewport T : Draw major tick marks at the major coordinate interval. S : Draw minor tick marks (subticks). V : Orient numeric labels Vertically. Only applicable to Y. (The default is to write them parallel to the axis.) 1 : Force decimal labelling, instead of automatic choice 2 : Force exponential labeling, instead of automatic. If you don't specify any axis value at all, the default is ['BCNST','BCNST'] for plots and ['BCINST','BCINST'] for images. (These list ref elements are handed on directly to the low-level PGPLOT routines). In addition, you can specify that your axis labels should be printed as days, hours, minutes, and seconds (ideal for julian dates and delta-t, or for angular quantities). You do that by setting additional character flags on the affected axis: X : Use HH MM SS.S time labeling rather than conventional numeric labels. The ordinate is in secsonds. Hours roll over at 24. Y : Like 'X' but the hour field runs past 24 if necessary. Z : Like 'X' but with a days field too (only shown where nonzero). H : Label the numbers with superscript d, h, m, and s symbols. D : Label the numbers with superscript o, ', and '' symbols. F : Omit first (lowest/leftmost) label; useful for tight layouts. O : Omit leading zeroes in numbers under 10 (e.g. " 3h 3m 1.2s" rather than "03h 03m 01.2s"). For example, to plot a numeric quantity versus Julian day of the year in a standard boxed plot with tick marks, you can use ["BNCSTZHO","BCNST"]. =item border Normally the limits are chosen so that the plot just fits; with this option you can increase (or decrease) the limits by either a relative (ie a fraction of the original axis width) or an absolute amount. Either specify a hash array, where the keys are C (set to 'relative' or 'absolute') and C (the amount to change the limits by), or set to 1, which is equivalent to BORDER => { TYPE => 'rel', VALUE => 0.05 } =item charsize Set the character/symbol size as a multiple of the standard size. $opt = {CHARSIZE => 1.5} The HardCH option should be used if you are plotting to a hardcopy device. =item colour (or color) Set the colour to be used for the subsequent plotting. This can be specified as a number, and the most used colours can also be specified with name, according to the following table (note that this only works for the default colour map): 0 - WHITE 1 - BLACK 2 - RED 3 - GREEN 4 - BLUE 5 - CYAN 6 - MAGENTA 7 - YELLOW 8 - ORANGE 14 - DARKGRAY 16 - LIGHTGRAY However there is a much more flexible mechanism to deal with colour. The colour can be set as a 3 or 4 element anonymous array (or ndarray) which gives the RGB colours. If the array has four elements the first element is taken to be the colour index to change. For normal work you might want to simply use a 3 element array with R, G and B values and let the package deal with the details. The R,G and B values go from 0 to 1. In addition the package will also try to interpret non-recognised colour names using the default X11 lookup table, normally using the C that came with PGPLOT. For more details on the handling of colour it is best that the user consults the PGPLOT documentation. Further details on the handling of colour can be found in the documentation for the internal routine L. The HardColour option should be used if you are plotting to a hardcopy device [this may be untrue?]. =item diraxis This sets the direction of the axes of a plot or image, when you don't explicitly set them with the XRange and YRange options. It's particularly useful when you want (for example) to put long wavelengths (larger numbers) on the left hand side of your plot, or when you want to plot an image in (RA,dec) coordinates. You can use either a scalar or a two-element perl array. If you set it to 0 (the default) then PDL will guess which direction you want to go. If you set it to a positive number, the axis will always increase to the right. If you set it to a negative number, the axis will always increase to the left. For example, [0,0] is the default, which is usually right. [1,1] tells PGPLOT to always increase the axis values up and to the right. For a plot of intensity (y-axis) versus wavelength (x-axis) you could say [-1,1]. This option is really only useful if you want to allow autoranging but need to set the direction that the axis goes. If you use the ranging options (C and C), you can change the direction by changing the order of the maximum and minimum values. That direction will override C. =item filltype Set the fill type to be used by L, L, L, and L The fill can either be specified using numbers or name, according to the following table, where the recognised name is shown in capitals - it is case-insensitive, but the whole name must be specified. 1 - SOLID 2 - OUTLINE 3 - HATCHED 4 - CROSS_HATCHED $opt = {FILLTYPE => 'SOLID'}; (see below for an example of hatched fill) =item font Set the character font. This can either be specified as a number following the PGPLOT numbering or name as follows (name in capitals): 1 - NORMAL 2 - ROMAN 3 - ITALIC 4 - SCRIPT (Note that in a string, the font can be changed using the escape sequences C<\fn>, C<\fr>, C<\fi> and C<\fs> respectively) $opt = {FONT => 'ROMAN'}; gives the same result as $opt = {FONT => 2}; The HardFont option should be used if you are plotting to a hardcopy device. =item hatching Set the hatching to be used if either fillstyle 3 or 4 is selected (see above) The specification is similar to the one for specifying arrows. The arguments for the hatching is either given using a hash with the key ANGLE to set the angle that the hatch lines will make with the horizontal, SEPARATION to set the spacing of the hatch lines in units of 1% of C of the view surface, and PHASE to set the offset the hatching. Alternatively this can be specified as a 1x3 ndarray C<$hatch=pdl[$angle, $sep, $phase]>. $opt = {FILLTYPE => 'HATCHED', HATCHING => {ANGLE=>30, SEPARATION=>4}}; Can also be specified as $opt = {FILL=> 'HATCHED', HATCH => pdl [30,4,0.0]}; For another example of hatching, see L. =item justify If C is set true, then the plot axes are shrunk to fit the plot or image and it specifies the aspect ratio of pixel coordinates in the plot or image. Setting justify=>1 will produce a correct-aspect-ratio, shrink-wrapped image or plot; setting justify=>0.5 will do the same thing but with a short and fat plot. The difference between C and C is that C does not affect the shape of the axes themselves. =item linestyle Set the line style. This can either be specified as a number following the PGPLOT numbering: 1 - SOLID line 2 - DASHED 3 - DOT-DASH-dot-dash 4 - DOTTED 5 - DASH-DOT-DOT-dot or using name (as given in capitals above). Thus the following two specifications both specify the line to be dotted: $opt = {LINESTYLE => 4}; $varopt = {LINESTYLE => 'DOTTED'}; The names are not case sensitive, but the full name is required. =item linewidth Set the line width. It is specified as a integer multiple of 0.13 mm. $opt = {LINEWIDTH => 10}; # A rather fat line The HardLW option should be used if you are plotting to a hardcopy device. =item pitch Sets the number of data pixels per inch on the output device. You can set the C (see below) to change this to any other PGPLOT unit (millimeters, pixels, etc.). Pitch is device independent, so an image should appear exactly the same size (e.g. C100> is 100 dpi) regardless of output device. =item pix Sets the pixel aspect ratio height/width. The height is adjusted to the correct ratio, while maintaining any otherwise-set pitch or scale in the horizontal direction. Larger numbers yield tall, skinny pixels; smaller numbers yield short, fat pixels. =item scale Sets the number of output display pixels per data pixel. You can set the C (see below) to change this to number of PGPLOT units (inches, millimeters, etc.) per data pixel. C is deprecated, as it is not device-independent; but it does come in handy for quick work on digital displays, where aliasing might otherwise interfere with image interpretation. For example, C1> displays images at their native resolution. =item Panel It is possible to define multiple plot ``panels'' with in a single window (see the L). You can explicitly set in which panel most plotting commands occur, by passing either a scalar or an array ref into the C option. There is also a L method, but its use is deprecated because of a wart with the PGPLOT interface. =item plotting & imaging range Explicitly set the plot range in x and y. X-range and Y-range are set separately via the aptly named options C and C. If omitted PGPLOT selects appropriate defaults (minimum and maximum of the data range in general). These options are ignored if the window is on hold. line $x, $y, {xr => [0,5]}; # y-range uses default line $x, $y, {XRange => [0,5], YRange => [-1,3]}; # fully specified range imag $im, {XRange => [30,50], YRange=>[-10,30]}; fits_imag $im, {XRange=>[-2,2], YRange=>[0,1]}; Imaging requires some thought if you don't want to lose a pixel off the edge of the image. Pixels are value-centered (they are centered on the coordinate whose value they represent), so the appropriate range to plot the entirety of a 100x100 pixel image is C<[-0.5,99.5]> on each axis. =back =head1 OBJECT-ORIENTED INTERFACE This section will briefly describe how the PDL::Graphics::PGPLOT::Window package can be used in an object-oriented (OO) approach and what the advantages of this would be. We will start with the latter =over =item Multiple windows. For the common user it is probably most interesting to use the OO interface when handling several open devices at the same time. If you have one variable for each plot device it is easier to distribute commands to the right device at the right time. This is the angle we will take in the rest of this description. =item Coding and abstraction At a more fundamental level it is desirable to approach a situation where it is possible to have a generic plotting interface which gives access to several plotting libraries, much as PGPLOT gives access to different output devices. Thus in such a hypothetical package one would say: my $win1 = Graphics::new('PGPLOT', {Device => '/xs'}); my $win2 = Graphics::new('gnuplot', {Background => 'Gray'}; From a more practical point of view such abstraction also comes in handy when you write a large program package and you do not want to import routines nilly-willy in which case an OO approach with method calls is a lot cleaner. The pgwin exported constructor, arguably, breaks this philosophy; hopefully it will ``wither away'' when other compatible modules are available. =back Anyway, enough philosophizing, let us get down to Earth and give some examples of the use of OO PGPLOT. As an example we will take Odd (which happens to be a common Norwegian name) who is monitoring the birth of rabbits in O'Fib-o-nachy's farm (alternatively they can of course be monitoring processes or do something entirely different). Odd wants the user to be able to monitor both the birth rates and accumulated number of rabbits and the spatial distribution of the births. Since these are logically different they choose to have two windows open: $rate_win = PDL::Graphics::PGPLOT::Window->new(Device => '/xw', Aspect => 1, WindowWidth => 5, NXPanel => 2); $area_win = PDL::Graphics::PGPLOT::Window->new(Device => '/xw', Aspect => 1, WindowWidth => 5); See the documentation for L below for a full overview of the options you can pass to the constructor. Next, Odd wants to create plotting areas for subsequent plots and maybe show the expected theoretical trends $rate_win->env(0, 10, 0, 1000, {XTitle => 'Days', YTitle => '#Rabbits'}); $rate_win->env(0, 10, 0, 100, {Xtitle=>'Days', Ytitle => 'Rabbits/day'}); $area_win->env(0, 1, 0, 1, {XTitle => 'Km', Ytitle => 'Km'}); # And theoretical prediction. $rate_win->line(sequence(10), fibonacci(10), {Panel => [1, 1]}); That is basically it. The commands should automatically focus the relevant window. Due to the limitations of PGPLOT this might however lead you to plot in the wrong panel... The package tries to be smart and do this correctly, but might get it wrong at times. =head1 STATE and RECORDING A new addition to the graphics interface is the ability to record plot commands. This can be useful when you create a nice-looking plot on the screen that you want to re-create on paper for instance. Or if you want to redo it with slightly changed variables for instance. This is still under development and views on the interface are welcome. The functionality is somewhat detached from the plotting functions described below so I will discuss them and their use here. Recording is off by default. To turn it on when you create a new device you can set the C option to true, or you can set the C<$PDL::Graphics::PGPLOT::RECORDING> variable to 1. I recommend doing the latter in your C<.perldlrc> file at least since you will often have use for recording in the perldl or pdl2 script. =head2 Use of recording The recording is meant to help you recreate a plot with new data or to a different device. The most typical situation is that you have created a beautiful plot on screen and want to have a Postscript file with it. In the dreary old world you needed to go back and execute all commands manually, but with this wonderful new contraption, the recorder, you can just replay your commands: dev '/xs', {Recording => 1} $x = sequence(10) line $x, $x**2, {Linestyle => 'Dashed'} $s = retrieve_state() # Get the current tape out of the recorder. dev '/cps' replay $s This should result in a C file with a parabola drawn with a dashed line. Note the command C which retrieves the current state of the recorder and return an object (of type PDL::Graphics::State) that is used to replay commands later. =head2 Controlling the recording Like any self-respecting recorder you can turn the recorder on and off using the C and C respectively. Likewise you can clear the state using the C command. $w=PDL::Graphics::PGPLOT::Window->new(Device => '/xs'); $w->turn_on_recording; $x=sequence(10); $y=$x*$x; $w->line($x, $y); $w->turn_off_recording; $w->line($y, $x); $w->turn_on_recording; $w->line($x, $y*$x); $state = $w->retrieve_state(); We can then replay C<$state> and get a parabola and a cubic plot. $w->replay($state); =head2 Tips and Gotchas! The data are stored in the state object as references to the real data. This leads to one good and one potentially bad consequence: =over =item The good is that you can create the plot and then subsequently redo the same plot using a different set of data. This is best explained by an example. Let us first create a simple gradient image and get a copy of the recording: $im = sequence(10,10) imag $im $s=retrieve_state Now this was a rather dull plot, and in reality we wanted to show an image using C. Instead of re-creating the plot (which of course here would be the simplest option) we just change C<$im>: $im -= sequence(10,10) $im += rvals(10,10) Now replay the commands replay $s And hey presto! A totally different plot. Note however the trickery required to avoid losing reference to C<$im> =item This takes us immediately to the major problem with the recording though. Memory leakage! Since the recording keeps references to the data it can keep data from being freed (zero reference count) when you expect it to be. For instance, in this example, we lose totally track of the original $im variable, but since there is a reference to it in the state it will not be freed $im = sequence(1000,1000) imag $im $s = retrieve_state $im = rvals(10,10) Thus after the execution of these commands we still have a reference to a 1000x1000 array which takes up a lot of memory... The solution is to call C on the state variable: $s->clear() (This is done automatically if the variable goes out of scope). I forsee this problem to most acute when working on the C or C command line, but since this is exactly where the recording is most useful the best advice is just to be careful and call clear on state variables. If you are working with scripts and use large images for instance I would instead recommend that you do not turn on recording unless you need it. =back =head1 FUNCTIONS A more detailed listing of the functions and their usage follows. For all functions we specify which options take effect and what other options exist for the given function. The function descriptions below are all given for the non-OO usage for historical reasons, but since the conversion to an OO method is trivial there is no major need for concern. Whenever you see a function example of the form Usage: a_simple_function($x, $y, $z [, $opt]); and you wish to use the OO version, just let your mind read the above line as: Usage: $win->a_simple_function($x, $y, $z [, $opt]); where C<$win> is a PDL::Graphics::PGPLOT::Window object. That is all. =head2 Window control functions. =head2 pgwin =for ref Exported constructor for PGPLOT object/device/plot window. =for usage Usage: pgwin($opt); Usage: pgwin($option=>$value,...); Usage: pgwin($device); Parameters are passed on to new() and can either be specified by hash reference or as a list. See the documentation fo PDL::Graphics::PGPLOT::Window::new for details. Because pgwin is a convenience function, you can specify the device by passing in a single non-ref parameter. For even further convenience, you can even omit the '/' in the device specifier, so these two lines deliver the same result: $win = pgwin(gif); $win = PDL::Graphics::PGPLOT::Window->new({Dev=>'/gif'}); =head2 new =for ref Constructor for PGPLOT object/device/plot window. =for usage Usage: PDL::Graphics::PGPLOT::Window->new($opt); Usage: PDL::Graphics::PGPLOT::Window->new($option=>$value,...); Options to new() can either be specified via a reference to a hash $win = PDL::Graphics::PGPLOT::Window->new({Dev=>'/xserve',ny=>2}); or directly, as an array # NOTE: no more {} ! $win = PDL::Graphics::PGPLOT::Window->new(Dev=>'/xserve',ny=>2); The following lists the recognised options: =over =item AspectRatio The aspect ratio of the image, in the sense vertical/horizontal. See the discussion on size setting. =item Device The type of device to use. The syntax of this is the one used by PGPLOT. =item Hold Hold the plot window so that subsequent plots can plot over existing plots. This can be adjusted with the C and C methods. =item NXPanel The number of panels in the X-direction =item NYPanel The number of panels in the Y-direction =item Size Yet another way to identify the plot window size -- this takes a scalar or an array ref containing one, two, or three numbers. One number gives you a square window. Two gives you a rectangular window C<(X,Y)>. Three lets you specify the unit compactly (e.g. C<< [,,1] >> for inches, C<< [,,2] >> for mm) but is deprecated in favor of using the C option. See the discussion on size setting. =item Unit The unit to use for size setting. PGPLOT accepts inch, mm, or pixel. The default unit is inches for historical reasons, but you can choose millimeters or (God forbid) pixels as well. String or numeric specifications are OK (0=normalized, 1=inches, 2=mm, 3=pixels). Normalized units make no sense here and are not accepted. Ideally someone will one day hook this into the CPAN units parser so you can specify window size in rods or attoparsecs. =item WindowName The name to give to the window. No particular use is made of this at present. It would be great if it was possible to change the title of the window frame. =item WindowWidth The width of the window in inches (or the specified Unit). See the discussion on size setting. =item WindowXSize and WindowYSize The width and height of the window in inches (or the specified Unit). See the discussion on size setting. =back An important point to note is that the default values of most options can be specified by passing these to the constructor. All general options (common to several functions) can be adjusted in such a way, but function specific options can not be set in this way (this is a design limitation which is unlikely to be changed). Thus the following call will set up a window where the default axis colour will be yellow and where plot lines normally have red colour and dashed linestyle. $win = PDL::Graphics::PGPLOT::Window->new(Device => '/xs', AxisColour => 'Yellow', Colour => 'Red', LineStyle => 'Dashed'); Size setting: There are a gazillion ways to set window size, in keeping with TIMTOWTDI. In general you can get away with passing any unique combination of an C<< >> size, a C<< >>size, and/or an aspect ratio. In increasing order of precedence, the options are: (C, C, C, C<< WindowSize >>, C). So if you specify an AspectRatio *and* an X and a Y coordinate, the AspectRatio is ignored. Likewise, if you specify Units and a three-component Size, the Units option is ignored in favor of the numeric unit in the Size. If you don't specify enough information to set the size of the window, you get the default pane size and shape for that device. =head2 close =for ref Close a plot window =for usage Usage: $win->close() Close the current window. This does not necessarily mean that the window is removed from your screen, but it does ensure that the device is closed. E.g., on X Windows with C, the window won't get closed, but it will with C. A message will be printed to STDOUT giving the name of the file created if the plot was made to a hardcopy device and C<$PDL::verbose> is true. =head2 held =for ref Check if a window is on hold =for usage $is_held = $win->held(); Function to check whether the window is held or not. =head2 hold =for ref Hold the present window. =for usage Usage: $win->hold() Holds the present window so that subsequent plot commands overplots. =head2 panel =for ref Switch to a different panel =for usage $win->panel(); Move to a different panel on the plotting surface. Note that you will need to erase it manually if that is what you require. This routine currently does something you probably don't want, and hence is deprecated for most use: if you say $win->panel(1); $win->imag($image); then $image will actually be displayed in panel B<2>. That's because the main plotting routines such as line and imag all advance the panel when necessary. Instead, it's better to use the Panel option within plotting commands, if you want to set the panel explicitly. =head2 release =for ref Release a plot window. =for usage $win->release() Release a plot window so that subsequent plot commands move to the next panel or erase the plot and create a new plot. =head2 erase =for ref Erase plot =for usage $win->erase($opt); Erase a plot area. This accepts the option C or alternatively a number or array reference which makes it possible to specify the panel to erase when working with several panels. =head2 Plotting functions =head2 env =for ref Define a plot window, and put graphics on 'hold' =for usage $win->env( $xmin, $xmax, $ymin, $ymax, [$justify, $axis] ); $win->env( $xmin, $xmax, $ymin, $ymax, [$options] ); C<$xmin>, C<$xmax>, C<$ymin>, C<$ymax> are the plot boundaries. C<$justify> is a boolean value (default is B<0>); if true the axes scales will be the same (see C). C<$axis> describes how the axes should be drawn (see C) and defaults to B<0>. If the second form is used, $justify and $axis can be set in the options hash, for example: $win->env( 0, 100, 0, 50, {JUSTIFY => 1, AXIS => 'GRID', CHARSIZE => 0.7} ); In addition the following options can also be set for C: =over =item PlotPosition The position of the plot on the page relative to the view surface in normalised coordinates as an anonymous array. The array should contain the lower and upper X-limits and then the lower and upper Y-limits. To place two plots above each other with no space between them you could do $win->env(0, 1, 0, 1, {PlotPosition => [0.1, 0.5, 0.1, 0.5]}); $win->env(5, 9, 0, 8, {PlotPosition => [0.1, 0.5, 0.5, 0.9]}); =item Axis, Justify, Border See the description of general options for these options. =item AxisColour Set the colour of the coordinate axes. =item XTitle, YTitle, Title, Font, CharSize Axes titles and the font and size to print them. =back =head2 label_axes =for ref Label plot axes =for usage $win->label_axes(, , , $options); Draw labels for each axis on a plot. =head2 imag =for ref Display an image (uses C/C as appropriate) =for usage $win->imag ( $image, [$min, $max, $transform], [$opt] ) NOTES C<$transform> for image/cont etc. is used in the same way as the C array in the underlying PGPLOT FORTRAN routine but is, fortunately, zero-offset. The L routine can be used to create this ndarray. If C<$image> is two-dimensional, you get a grey or pseudocolor image using the scalar values at each X,Y point. If C<$image> is three-dimensional and the third dimension has order 3, then it is treated as an RGB true-color image via L. There are several options related to scaling. By default, the image is scaled to fit the PGPLOT default viewport on the screen. Scaling, aspect ratio preservation, and 1:1 pixel mapping are available. (1:1 pixel mapping is useful for avoiding display artifacts, but it's not recommended for final output as it's not device-independent.) Here's an additional complication: the "pixel" stuff refers not (necessarily) to normal image pixels, but rather to I image pixels. That is to say, if you feed in a transform matrix via the C option, the C, C, etc. options all refer to the transformed coordinates and not physical image pixels. That is a Good Thing because it, e.g., lets you specify plate scales of your output plots directly! See fits_imag for an example application. If you do not feed in a transform matrix, then the identity matrix is applied so that the scaling options refer to original data pixels. To draw a colour bar (or wedge), either use the C option, or the C routine (once the image has been drawn). Options recognised: =over 3 =item ITF the image transfer function applied to the pixel values. It may be one of 'LINEAR', 'LOG', 'SQRT' (lower case is acceptable). It defaults to 'LINEAR'. =item MIN Sets the minimum value to be used for calculation of the color-table stretch. =item MAX Sets the maximum value for the same. =item RANGE A more compact way to specify MIN and MAX, as a list: you can say "Range=>[0,10]" to scale the color table for brightness values between 0 and 10 in the image data. =item CRANGE Image values between MIN and MAX are scaled to an interval in normalized color domain space, on the interval [0,1], before lookup in the window's color table. CRANGE lets you use only a part of the color table by specifying your own range -- e.g. if you say "CRange=>[0.25,0.75]" then only the middle half of the pseudocolor space will be used. (See the writeup on ctab().) =item TRANSFORM The PGPLOT transform 'matrix' as a 6x1 vector for display =item DrawWedge set to 1 to draw a colour bar (default is 0) =item Wedge see the draw_wedge() routine =back The following standard options influence this command: AXIS, BORDER, JUSTIFY, SCALE, PIX, PITCH, ALIGN, XRANGE, YRANGE =for example To see an image with maximum size in the current window, but square pixels, say: $win->imag( $x, { PIX=>1 } ); An alternative approach is to try: $win->imag( $x, { JUSTIFY=>1 } ); To see the same image, scaled 1:1 with device pixels, say: $win->imag( $x, { SCALE=>1 } ); To see an image made on a device with 1:2 pixel aspect ratio, with X pixels the same as original image pixels, say $win->imag( $x, { PIX=>0.5, SCALE=>2 } ); To display an image at 100 dpi on any device, say: $win->imag( $x, { PITCH=>100 } ); To display an image with 100 micron pixels, say: $win->imag( $x, { PITCH=>10, UNIT=>'mm' } ); =head2 imag1 =for ref Display an image with correct aspect ratio =for usage $win->imag1 ( $image, [$min, $max, $transform], [$opt] ) This is syntactic sugar for $win->imag( { PIX=>1, ALIGN=>'CC' } ); =head2 rgbi =for ref Display an RGB color image The calling sequence is exactly like L, except that the input image must have three dimensions: C. The last dimension is the (R,G,B) color value. This routine requires B or later. Calling rgbi explicitly is not necessary, as calling image with an appropriately dimensioned RGB triplet makes it fall through to rgbi. =head2 fits_imag =for ref Display a FITS image with correct axes =for usage $win->fits_imag( image, [$min, $max], [$opt] ); NOTES =over 3 =item Titles: Currently fits_imag also generates titles for you by default and appends the FITS header scientific units if they're present. So if you say $pdl->hdr->{CTYPE1} = "Flamziness"; $pdl->hdr->{CUNIT1} = "milliBleems"; $win->fits_imag($pdl); then you get an X title of "Flamziness (milliBleems)". But you can (of course) override that by specifying the XTitle and YTitle switches: $win->fits_imag($pdl,{Xtitle=>"Arbitrary"}); will give you "Arbitrary" as an X axis title, regardless of what's in the header. =item Scaling and aspect ratio: If CUNIT1 and CUNIT2 (or, if they're missing, CTYPE1 and CTYPE2) agree, then the default pixel aspect ratio is 1 (in scientific units, NOT in original pixels). If they don't agree (as for a spectrum) then the default pixel aspect ratio is adjusted automatically to match the plot viewport and other options you've specified. You can override the image scaling using the SCALE, PIX, or PITCH options just as with L -- but those parameters refer to the scientific coordinate system rather than to the pixel coordinate system (e.g. C100> means "100 scientific units per inch", and C1> means "1 scientific unit per device pixel"). See L for more info on these options. The default value of the C option is 'CC' -- centering the image both vertically and horizontally. =item Axis direction: By default, fits_imag tries to guess which direction your axes are meant to go (left-to-right or right-to-left) using the CDELT keywords: if C<< CDELT >> is negative, then rather than reflecting the image fits_imag will plot the X axis so that the highest values are on the left. This is the most convenient behavior for folks who use calibrated (RA,DEC) images, but it is technically incorrect. To force the direction, use the DirAxis option. Setting C<< DirAxis=>1 >> (abbreviated C<< di=>1 >>) will force the scientific axes to increase to the right, reversing the image as necessary. =item Color wedge: By default fits_imag draws a color wedge on the right; you can explicitly set the C option to 0 to avoid this. Use the C option to set the wedge title. =item Alternate WCS coordinates: The default behaviour is to use the primary/default WCS information in the FITS header (i.e. the C,C,... keywords). The Greisen et al. standard (L) allows alternative/additional mappings to be included in a header; these are denoted by the letters C to C. If you know that your image contains such a mapping then you can use the C option to select the appropriate letter. For example, if you had read in a Chandra image created by the CIAO software package then you can display the image in the C coordinate system by saying: $win->fits_imag( $pdl, { wcs => 'p' } ); The identity transform is used if you select a mapping for which there is no information in the header. Please note that this support is B and is not guaranteed to work correctly; please see the documentation for the L routine for more information. =back =head2 fits_rgbi =for ref Display an RGB FITS image with correct axes =for usage $win->fits_rgbi( image, [$min,$max], [$opt] ); Works exactly like L, but the image must be in (X,Y,RGB) form. Only the first two axes of the FITS header are examined. =head2 fits_cont =for ref Draw contours of an image, labelling the axes using the WCS information in the FITS header of the image. =for usage $win->fits_cont( image, [$contours, $transform, $misval], [$opt] ) Does the same thing for the L routine that L does for the L routines. =head2 draw_wedge =for ref Add a wedge (colour bar) to an image. =for usage $win->draw_wedge( [$opt] ) Adds a wedge - shows the mapping between colour and value for a pixel - to the current image. This can also be achieved by setting C to 1 when calling the C routine. The colour and font size are the same as used to draw the image axes (although this will probably fail if you did it yourself). To control the size and location of the wedge, use the C option, giving it a hash reference containing any of the following: =over 4 =item Side Which side of the image to draw the wedge: can be one of 'B', 'L', 'T', or 'R'. Default is B<'R'>. =item Displacement How far from the edge of the image should the wedge be drawn, in units of character size. To draw within the image use a negative value. Default is B<1.5>. =item Width How wide should the wedge be, in units of character size. Default is B<2>. =item Label A text label to be added to the wedge. If set, it is probably worth increasing the C value by about 1 to keep the text readable. Default is B<''>. This is equivalent to the C option to L, L, and similar methods. =item ForeGround (synonym Fg) The pixel value corresponding to the "maximum" colour. If C, uses the value used by C (recommended choice). Default is C. =item BackGround (synonym Bg) The pixel value corresponding to the "minimum" colour. If C, uses the value used by C (recommended choice). Default is C. =back =for example $x = rvals(50,50); $win = PDL::Graphics::PGPLOT::Window->new(); $win->imag( $x, { Justify => 1, ITF => 'sqrt' } ); $win->draw_wedge( { Wedge => { Width => 4, Label => 'foo' } } ); # although the following might be more sensible $win->imag( $x, { Justify => 1, ITF => 'sqrt', DrawWedge => 1, Wedge => { Width => 4, Label => 'foo'} } ); =head2 ctab =for ref Load an image colour table. Usage: =for usage ctab ( $name, [$contrast, $brightness] ) # Builtin col table ctab ( $ctab, [$contrast, $brightness] ) # $ctab is Nx4 array ctab ( $levels, $red, $green, $blue, [$contrast, $brightness] ) ctab ( '', $contrast, $brightness ) # use last color table Note: See L for access to a large number of colour tables. Notionally, all non-RGB images and vectors have their colors looked up in the window's color table. Colors in images and such are scaled to a normalized pseudocolor domain on the line segment [0,1]; the color table is a piecewise linear function that maps this one-dimensional scale to the three-dimensional normalized RGB color space [0,1]^3. You can specify specific indexed colors by appropriate use of the (levels,red,green,blue) syntax -- but that is deprecated, since the actual available number of colors can change depending on the output device. (Someone needs to write a specific hardware-dependent lookup table interface). See also L for a description of how to use only part of the color table for a particular image. =head2 ctab_info =for ref Return information about the currently loaded color table =head2 autolog =for ref Turn on automatic logarithmic scaling in C and C =for usage Usage: autolog([0|1]); Setting the argument to 1 turns on automatic log scaling and setting it to zero turns it off again. The function can be used in both the object oriented and standard interface. To learn more, see the documentation for the L. =for example my $win = PDL::Graphics::PGPLOT::Window->new(dev=>'/xserve'); my $x=sequence(10); my $y=$x*$x+1; $win->autolog(1); $win->line($x,$y, {Axis => 'LogY'}); =head2 line =for ref Plot vector as connected points If the 'MISSING' option is specified, those points in the C<$y> vector which are equal to the MISSING value are not plotted, but are skipped over. This allows one to quickly draw multiple lines with one call to C, for example to draw coastlines for maps. =for usage Usage: line ( [$x,] $y, [$opt] ) The following standard options influence this command: AXIS, BORDER, COLO(U)R, LINESTYLE, LINEWIDTH, MISSING, JUSTIFY, SCALE, PITCH, PIX, ALIGN =for example $x = sequence(10)/10.; $y = sin($x)**2; # Draw a red dot-dashed line line $x, $y, {COLOR => 'RED', LINESTYLE=>3}; =head2 lines =for ref Plot a list of vectors as discrete sets of connected points This works much like L, but for discrete sets of connected points. There are two ways to break lines: you can pass in x/y coordinates just like in L, but with an additional C ndarray that indicates whether the pen is up or down on the line segment following each point (so you set it to zero at the end of each line segment you want to draw); or you can pass in an array ref containing a list of single polylines to draw. Happily, there's extra meaning packed into the C ndarray: it multiplies the COLO(U)R that you set, so if you feed in boolean values you get what you expect -- but you can also feed in integer or floating-point values to get multicolored lines. Furthermore, the sign bit of C can be used to draw hairline segments: if C is negative, then the segment is drawn as though it were positive but with LineWidth and HardLW set to 1 (the minimum). Equally happily, even if you are using the array ref mechanism to break your polylines you can feed in an array ref of C values to take advantage of the color functionality or further dice your polylines. Note that, unlike L, C has no no specify-$y-only calling path. That's because C is intended more for line art than for plotting, so you always have to specify both $x and $y. Infinite or bad values are ignored -- that is to say, if your vector contains a non-finite point, that point breaks the vector just as if you set pen=0 for both that point and the point before it. =for usage Usage: $w->lines( $x, $y, [$pen], [$opt] ); $w->lines( $xy, [$pen], [$opt] ); $w->lines( \@xvects, \@yvects, [\@pen], [$opt] ); $w->lines( \@xyvects, [\@pen], [$opt] ); The following standard options influence this command: AXIS, BORDER, COLO(U)R, LINESTYLE, LINEWIDTH, MISSING, JUSTIFY, SCALE, PITCH, PIX, ALIGN CAVEAT: Setting C elements to 0 prevents drawing altogether, so you can't use that to draw in the background color. =head2 points =for ref Plot vector as points =for usage Usage: points ( [$x,] $y, [$symbol(s)], [$opt] ) Options recognised: SYMBOL - Either an ndarray with the same dimensions as $x, containing the symbol associated to each point or a number specifying the symbol to use for every point, or a name specifying the symbol to use according to the following (recognised name in capital letters): 0 - SQUARE 1 - DOT 2 - PLUS 3 - ASTERISK 4 - CIRCLE 5 - CROSS 7 - TRIANGLE 8 - EARTH 9 - SUN 11 - DIAMOND 12- STAR PLOTLINE - If this is >0 a line will be drawn through the points. The following standard options influence this command: AXIS, BORDER, CHARSIZE, COLOUR, LINESTYLE, LINEWIDTH, JUSTIFY, SCALE, PIX, PITCH, ALIGN C allows adjusting the symbol size, it defaults to CharSize. The C option allows one to plot XYZ data with the Z axis mapped to a color value. For example: use PDL::Graphics::LUT; ctab(lut_data('idl5')); # set up color palette to 'idl5' points ($x, $y, {ColorValues => $z}); =for example $y = sequence(10)**2+random(10); # Plot blue stars with a solid line through: points $y, {PLOTLINE => 1, COLOUR => BLUE, symbol => STAR}; # case insensitive =head2 errb =for ref Plot error bars (using C) Usage: =for usage errb ( $y, $yerrors, [$opt] ) errb ( $x, $y, $yerrors, [$opt] ) errb ( $x, $y, $xerrors, $yerrors, [$opt] ) errb ( $x, $y, $xloerr, $xhierr, $yloerr, $yhierr, [$opt]) Any of the error bar parameters may be C to omit those error bars. Options recognised: TERM - Length of terminals in multiples of the default length SYMBOL - Plot the datapoints using the symbol value given, either as name or number - see documentation for 'points' The following standard options influence this command: AXIS, BORDER, CHARSIZE, COLOUR, LINESTYLE, LINEWIDTH, JUSTIFY, SCALE, PIX, PITCH, ALIGN =for example $y = sequence(10)**2+random(10); $sigma=0.5*sqrt($y); errb $y, $sigma, {COLOUR => RED, SYMBOL => 18}; # plot X bars only errb( $x, $y, $xerrors, undef ); # plot negative going bars only errb( $x, $y, $xloerr, undef, $yloerr, undef ); =head2 cont =for ref Display image as contour map =for usage Usage: cont ( $image, [$contours, $transform, $misval], [$opt] ) Notes: C<$transform> for image/cont etc. is used in the same way as the C array in the underlying PGPLOT FORTRAN routine but is, fortunately, zero-offset. The L routine can be used to create this ndarray. Options recognised: CONTOURS - A ndarray with the contour levels FOLLOW - Follow the contour lines around (uses pgcont rather than pgcons) If this is set >0 the chosen linestyle will be ignored and solid line used for the positive contours and dashed line for the negative contours. LABELS - An array of strings with labels for each contour LABELCOLOUR - The colour of labels if different from the draw colour This will not interfere with the setting of draw colour using the colour keyword. MISSING - The value to ignore for contouring NCONTOURS - The number of contours wanted for automatical creation, overridden by CONTOURS TRANSFORM - The pixel-to-world coordinate transform vector The following standard options influence this command: AXIS, BORDER, COLOUR, LINESTYLE, LINEWIDTH, JUSTIFY, SCALE, PIX, PITCH, ALIGN =for example $x=sequence(10,10); $ncont = 4; $labels= ['COLD', 'COLDER', 'FREEZING', 'NORWAY'] # This will give four blue contour lines labelled in red. cont $x, {NCONT => $ncont, LABELS => $labels, LABELCOLOR => RED, COLOR => BLUE} =head2 bin =for ref Plot vector as histogram (e.g. C) =for usage Usage: bin ( [$x,] $data ) Options recognised: CENTRE - (default=1) if true, the x values denote the centre of the bin otherwise they give the lower-edge (in x) of the bin CENTER - as CENTRE The following standard options influence this command: AXIS, BORDER, COLOUR, JUSTIFY, LINESTYLE, LINEWIDTH =head2 hi2d =for ref Plot image as 2d histogram (not very good IMHO...) =for usage Usage: hi2d ( $image, [$x, $ioff, $bias], [$opt] ) Options recognised: IOFFSET - The offset for each array slice. >0 slants to the right <0 to the left. BIAS - The bias to shift each array slice up by. The following standard options influence this command: AXIS, BORDER, JUSTIFY, SCALE, PIX, PITCH, ALIGN Note that meddling with the C and C often will require you to change the default plot range somewhat. It is also worth noting that if you have TriD working you will probably be better off using L or a similar command - see the L module. =for example $r=sequence(100)/50-1.0; $y=exp(-$r**2)*transpose(exp(-$r**2)) hi2d $y, {IOFF => 1.5, BIAS => 0.07}; =head2 arrow =for ref Plot an arrow =for usage Usage: arrow($x1, $y1, $x2, $y2, [, $opt]); Plot an arrow from C<$x1, $y1> to C<$x2, $y2>. The arrow shape can be set using the option C. See the documentation for general options for details about this option (and the example below): =for example Example: arrow(0, 1, 1, 2, {Arrow => {FS => 1, Angle => 1, Vent => 0.3, Size => 5}}); which draws a broad, large arrow from (0, 1) to (1, 2). =head2 rect =for ref Draw a non-rotated rectangle Usage: rect ( $x1, $x2, $y1, $y2 ) Options recognised: The following standard options influence this command: AXIS, BORDER, COLOUR, FILLTYPE, HATCHING, LINESTYLE, LINEWIDTH JUSTIFY, SCALE, PIX, PITCH, ALIGN =head2 poly =for ref Draw a polygon =for usage Usage: poly ( $x, $y ) Options recognised: The following standard options influence this command: AXIS, BORDER, COLOUR, FILLTYPE, HATCHING, LINESTYLE, LINEWIDTH JUSTIFY, SCALE, PIX, PITCH, ALIGN =for example # Fill with hatching in two different colours $x=sequence(10)/10; # First fill with cyan hatching poly $x, $x**2, {COLOR=>5, FILL=>3}; hold; # Then do it over again with the hatching offset in phase: poly $x, $x**2, {COLOR=>6, FILL=>3, HATCH=>{PHASE=>0.5}}; release; =head2 circle =for ref Plot a circle on the display using the fill setting. =for usage Usage: circle($x, $y, $radius [, $opt]); All arguments can alternatively be given in the options hash using the following options: =over =item XCenter and YCenter The position of the center of the circle =item Radius The radius of the circle. =back =head2 ellipse =for ref Plot an ellipse, optionally using fill style. =for usage Usage: ellipse($x, $y, $smaj, $smin, $theta [, $opt]); All arguments can alternatively be given in the options hash using the following options (for historical reasons the names MajorAxis and MinorAxis have been preserved though they really refer to the semi-axes): =over =item MajorAxis The semi-major axis of the ellipse - this must be defined or C<$smaj> must be given. =item MinorAxis The semi-minor axis, like C this is required or C<$smin> must be given. =item Theta (synonym Angle) The orientation of the ellipse - defaults to 0.0. This is given in radians. =item XCenter and YCenter The coordinates of the center of the ellipse. These must be specified or C<$x> and C<$y> must be given. =item NPoints The number of points used to draw the ellipse. This defaults to 100 and might need changing in the case of very large ellipses. =back The routine also recognises the same standard options as accepted by L. =head2 rectangle =for ref Draw a rectangle. =for usage Usage: rectangle($xcenter, $ycenter, $xside, $yside, [, $angle, $opt]); This routine draws a rectangle with the chosen fill style. Internally it calls L which is somewhat slower than C but which allows for rotated rectangles as well. The routine recognises the same options as C and in addition the following: =over =item XCenter and YCenter The position of the center of the rectangle. XCentre and YCentre are valid synonyms. =item XSide and YSide The length of the X and Y sides. If only one is specified the shape is taken to be square with that as the side-length, alternatively the user can set Side =item Side The length of the sides of the rectangle (in this case a square) - syntactic sugar for setting XSide and YSide identical. This is overridden by XSide or YSide if any of those are set. =item Angle (synonym Theta) The angle at which the rectangle is to be drawn. This defaults to 0.0 and is given in radians. =back =head2 vect =for ref Display 2 images as a vector field =for usage Usage: vect ( $w, $x, $y, [$scale, $pos, $transform, $misval], { opt } ); $w->vect($x,$y,[$scale,$pos,$transform,$misval], { opt }); Notes: C<$transform> for image/cont etc. is used in the same way as the C array in the underlying PGPLOT FORTRAN routine but is, fortunately, zero-offset. The L routine can be used to create this ndarray. This routine will plot a vector field. C<$x> is the horizontal component and C<$y> the vertical component. The scale factor converts between vector length units and scientific positional units. You can set the scale, position, etc. either by passing in parameters in the normal parameter list or by passing in options. Options recognised: SCALE - Set the scale factor for vector lengths. POS - Set the position of vectors. <0 - vector head at coordinate >0 - vector base at coordinate =0 - vector centered on the coordinate TRANSFORM - The pixel-to-world coordinate transform vector MISSING - Elements with this value are ignored. The following standard options influence this command: ARROW, ARROWSIZE, AXIS, BORDER, CHARSIZE, COLOUR, LINESTYLE, LINEWIDTH, =for example $x=rvals(11,11,{Centre=>[5,5]}); $y=rvals(11,11,{Centre=>[0,0]}); vect $x, $y, {COLOR=>YELLOW, ARROWSIZE=>0.5, LINESTYLE=>dashed}; =head2 fits_vect =for ref Display a pair of 2-D ndarrays as vectors, with FITS header interpretation =for usage Usage: fits_vect ($x, $y, [$scale, $pos, $transform, $misval] ) C is to L as L is to L. =head2 transform =for ref Create transform array for contour and image plotting =for usage $win->transform([$xdim,$ydim], $options); (For information on coordinate transforms, try L.) This function creates a transform array in the format required by the image and contouring routines. You must call it with the dimensions of your image as arguments or pass these as an anonymous hash - see the example below. =over =item Angle The rotation angle of the transform, in radians. Positive numbers rotate the image clockwise on the screen. =item ImageDimensions The dimensions of the image the transform is required for. The dimensions should be passed as a reference to an array. =item Pixinc The increment in output coordinate per pixel. =item ImageCenter (or ImageCentre) The centre of the image as an anonymous array B as a scalar, in scientific coordinates. In the latter case the x and y value for the center will be set equal to this scalar. This is particularly useful in the common case when the center is (0, 0). (ImageCenter overrides RefPos if both are specified). =item RefPos (or ReferencePosition) If you wish to set a pixel other than the image centre to a given value, use this option. It should be supplied with a reference to an array containing 2 2-element array references, e.g. RefPos => [ [ $xpix, $ypix ], [ $xplot, $yplot ] ] This will label pixel C<($xpix,$ypix)> as being at position C<($xplot,$yplot)>. For example RefPos => [ [100,74], [ 0, 0 ] ] sets the scientific coordinate origin to be at the center of the (100,74) pixel coordinate. The pixel coordinates are pixel-centered, and start counting from 0 (as all good pixel coordinates should). =back Example: $im = rvals(100, 100); $w = PDL::Graphics::PGPLOT::Window->new(Device => '/xs'); $t = $w->transform(dims($im), {ImageCenter => 0, Pixinc => 5}); $w->imag($im, {Transform => $t}); =cut { use strict; my $transform_options = undef; sub transform { # Compute the transform array needed in contour and image plotting my $self = shift; if (!defined($transform_options)) { $transform_options = $self->{PlotOptions}->extend({Angle => undef, ImageDims => undef, Pixinc => undef, ImageCenter => undef, RefPos => undef }); $transform_options->synonyms({ ImageDimensions => 'ImageDims', ImageCentre => 'ImageCenter', ReferencePosition => 'RefPos', }); } # parse the input my ($in, $opt)=_extract_hash(@_); my ($x_pix, $y_pix)= @$in; # handle options $opt = {} if !defined($opt); my ($o, $u_opt) = $self->_parse_options($transform_options, $opt); $self->_standard_options_parser($u_opt); my ($angle, $x_pixinc, $y_pixinc, $xref_pix, $yref_pix, $xref_wrld, $yref_wrld); if (defined($o->{Angle})) { $angle = $o->{Angle}; } else { $angle = 0; } if (defined($o->{Pixinc})) { if (ref($o->{Pixinc}) eq 'ARRAY') { ($x_pixinc, $y_pixinc) = @{$o->{Pixinc}}; } else { $x_pixinc = $y_pixinc = $o->{Pixinc}; } } else { $x_pixinc = $y_pixinc = 1; } if ( defined $o->{ImageDims} ) { if ( ref($o->{ImageDims}) eq 'ARRAY' ) { ($x_pix, $y_pix) = @{$o->{ImageDims}}; } else { barf "Image dimensions must be given as an array reference!"; } } # The user has to pass the dimensions of the image somehow, so this # is a good point to check whether they have done so. unless (defined($x_pix) && defined($y_pix)) { barf "You must pass the image dimensions to the transform routine\n"; } # The RefPos option gives more flexibility than # ImageCentre, since ImageCentre => [ a, b ] is the same # as PosReference => [ [(nx-1)/2,(ny-1/2)], [a,b] ]. # We use ImageCentre in preference to PosReference # if (defined $o->{ImageCenter}) { print "transform() ignoring RefPos as seen ImageCentre\n" if defined $o->{RefPos} and $PDL::verbose; my $ic = $o->{ImageCenter}; if (ref($ic) eq 'ARRAY') { ($xref_wrld, $yref_wrld) = @{$ic}; } else { $xref_wrld = $yref_wrld = $ic; } $xref_pix = ($x_pix - 1)/2; $yref_pix = ($y_pix - 1)/2; } elsif ( defined $o->{RefPos} ) { my $aref = $o->{RefPos}; barf "RefPos option must be sent an array reference.\n" unless ref($aref) eq 'ARRAY'; barf "RefPos must be a 2-element array reference\n" unless $#$aref == 1; my $pixref = $aref->[0]; my $wrldref = $aref->[1]; barf "Elements of RefPos must be 2-element array references\n" unless $#$pixref == 1 and $#$wrldref == 1; ($xref_pix, $yref_pix) = @{$pixref}; ($xref_wrld, $yref_wrld) = @{$wrldref}; } else { $xref_wrld = $yref_wrld = 0; $xref_pix = ($x_pix - 1)/2; $yref_pix = ($y_pix - 1)/2; } # The elements of the transform ndarray, # here labelled t0 to t5, relate to the # following maxtix equation: # # world = zp + matrix * pixel # # world - the position of the point in the world, # ie plot, coordinate system # pixel - the position of the point in pixel # coordinates (bottom-left is 0,0 pixel) # zp - (t0) # (t3) # matrix - (t1 t2) # (t4 t5) # my $ca = cos( $angle ); my $sa = sin( $angle ); my $t1 = $x_pixinc * $ca; my $t2 = $y_pixinc * $sa; my $t4 = -$x_pixinc * $sa; my $t5 = $y_pixinc * $ca; return pdl( $xref_wrld - $t1 * $xref_pix - $t2 * $yref_pix, $t1, $t2, $yref_wrld - $t4 * $xref_pix - $t5 * $yref_pix, $t4, $t5 ); } } =head2 tline =for ref Broadcasted line plotting =for usage $win->tline($x, $y, $options); This is a broadcasted interface to C. This is convenient if you have a 2D array and want to plot out every line in one go. The routine will apply any options you apply in a "reasonable" way. In the sense that it will loop over the options wrapping over if there are less options than lines. Example: $h={Colour => ['Red', '1', 4], Linestyle => ['Solid' ,'Dashed']}; $tx=zeroes(100,5)->xlinvals(-5,5); $ty = $tx + $tx->yvals; $win->tline($tx, $ty, $h); =cut # A "broadcasted" line - I cannot come up with a more elegant way of doing # this without re-coding bits of broadcast_over but it might very well be # that you may :) my $line_options = undef; sub tline { my $self = shift; my ($in, $opt)=_extract_hash(@_); $self->_add_to_state(\&tline, $in, $opt); $opt={} if !defined($opt); barf 'Usage tline ([$x], $y, [, $options])' if $#$in < 0 || $#$in > 2; my ($x, $y)=@$in; if (!defined($line_options)) { $line_options=$self->{PlotOptions}->extend({Missing => undef}); } if ($#$in==0) { $y = $x; $x = $y->xvals(); } catch_signals { # This is very very kludgy, but it was the best way I could find.. my $o = _broadcast_options($y->getdim(1), $opt); # We need to keep track of the current status of hold or not since # the tline function automatically enforces a hold to allow for overplots. my $tmp_hold = $self->held(); unless ( $self->held() ) { my ($o, $u_opt) = $self->_parse_options($line_options,$opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); # use Data::Dumper; # print Dumper $o; # print Dumper $u_opt; my ($ymin, $ymax, $xmin, $xmax); # Make sure the missing value is used as the min or max value if (defined $o->{Missing} ) { ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax($y->where($y != $o->{Missing})); ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax($x->where($x != $o->{Missing})); } else { ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax($y); ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax($x); } if ($xmin == $xmax) { $xmin -= 0.5; $xmax += 0.5; } if ($ymin == $ymax) { $ymin -= 0.5; $ymax += 0.5; } # use Data::Dumper; # print "tline options: ", Dumper($opt), "\n"; $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt); $self->hold; # we hold for the duration of the broadcasted plot } _tline($x, $y, PDL->sequence($y->getdim(1)), $self, $o); $self->release unless $tmp_hold; }; } PDL::broadcast_define('_tline(a(n);b(n);ind()), NOtherPars => 2', PDL::over { my ($x, $y, $ind, $self, $opt)=@_; # use Data::Dumper; # print Dumper $opt->[$ind->at(0)]; $self->line($x, $y,$opt->[$ind->at(0)] || {}); # }); =head2 tpoints =for ref A broadcasted interface to points =for usage Usage: tpoints($x, $y, $options); This is a broadcasted interface to C. This is convenient if you have a 2D array and want to plot out every line in one go. The routine will apply any options you apply in a "reasonable" way. In the sense that it will loop over the options wrapping over if there are less options than lines. Example: $h={Colour => ['Red', '1', 4], Linestyle => ['Solid' ,'Dashed']}; $tx=zeroes(100,5)->xlinvals(-5,5); $ty = $tx + $tx->yvals; tpoints($tx, $ty, $h); =cut # A "broadcasted" point - I cannot come up with a more elegant way of doing # this without re-coding bits of broadcast_over but it might very well be # that you may :) my $points_options = undef; sub tpoints { my $self = shift; my ($in, $opt)=_extract_hash(@_); $self->_add_to_state(\&tpoints, $in, $opt); $opt={} if !defined($opt); barf 'Usage tpoints ([$x], $y, [, $options])' if $#$in < 0 || $#$in > 2; my ($x, $y)=@$in; if ($#$in==0) { $y = $x; $x = $y->xvals(); } # This is very very cludgy, but it was the best way I could find.. my $o = _broadcast_options($y->getdim(1), $opt); # We need to keep track of the current status of hold or not since # the tline function automatically enforces a hold to allow for overplots. my $tmp_hold = $self->held(); unless ( $self->held() ) { if (!defined($points_options)) { $points_options = $self->{PlotOptions}->extend({PlotLine => 0}); } my ($o, $u_opt) = $self->_parse_options($points_options,$opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); # use Data::Dumper; # print Dumper $o; # print Dumper $u_opt; my ($ymin, $ymax, $xmin, $xmax); # Make sure the missing value is used as the min or max value if (defined $o->{Missing} ) { ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax($y->where($y != $o->{Missing})); ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax($x->where($x != $o->{Missing})); } else { ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax($y); ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax($x); } if ($xmin == $xmax) { $xmin -= 0.5; $xmax += 0.5; } if ($ymin == $ymax) { $ymin -= 0.5; $ymax += 0.5; } $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt); $self->hold; # we hold for the duration of the broadcasted plot } _tpoints($x, $y, PDL->sequence($y->getdim(1)), $self, $o); $self->release unless $tmp_hold; } PDL::broadcast_define('_tpoints(a(n);b(n);ind()), NOtherPars => 2', PDL::over { my ($x, $y, $ind, $self, $opt)=@_; $self->points($x, $y, $opt->[$ind->at(0)] || {}); }); =head2 tcircle =for ref A broadcasted interface to circle =for usage Usage: tcircle($x, $y, $r, $options); This is a broadcasted interface to C. This is convenient if you have a list of circle centers and radii and want to draw every circle in one go. The routine will apply any options you apply in a "reasonable" way, in the sense that it will loop over the options wrapping over if there are less options than circles. Example: $x=sequence(5); $y=random(5); $r=sequence(5)/10 + 0.1; $h={justify => 1,Color => ['red','green','blue'], filltype => ['solid','outline','hatched','cross_hatched']}; tcircle($x, $y, $r, $h); Note that C<$x> and C<$y> must be the same size (>1D is OK, though meaningless as far as C is concerned). C<$r> can be the same size as C<$x> OR a 1-element ndarray OR a single perl scalar. =cut my $circle_options = undef; sub tcircle { my $self = shift; my ($in, $opt)=_extract_hash(@_); $self->_add_to_state(\&tcircle,$in,$opt); $opt = {} if !defined($opt); barf 'Usage tcircle ($x,$y,$r,[$options])' if $#$in < 0 || $#$in > 3; my ($x, $y, $radius)=@$in; $x=$x->flat;$y=$y->flat;$radius=$radius->flat; if (!defined($circle_options)){ $circle_options=$self->{PlotOptions}->extend({Missing => undef}); } my $o = _broadcast_options($x->nelem,$opt); my $tmp_hold = $self->held(); unless ( $self->held() ) { my ($o,$u_opt) = $self->_parse_options($circle_options,$opt); $self->_check_move_or_erase($o->{Panel},$o->{Erase}); my ($ymin, $ymax, $xmin, $xmax); if ( defined $o->{Missing} ) { ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax($y->where($y != $o->{Missing})); ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax($x->where($x != $o->{Missing})); } else { ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : (min($y-$radius),max($y+$radius)); ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : (min($x-$radius),max($x+$radius)); } if ($xmin == $xmax) { $xmin-=0.5; $xmax +=0.5; } if ($ymin == $ymax) { $ymin-=0.5; $ymax +=0.5; } $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt); $self->hold; } _tcircle($x,$y,$radius,PDL->sequence($x->nelem),$self,$o); $self->release unless $tmp_hold; } PDL::broadcast_define '_tcircle(a();b();c();ind()), NOtherPars => 2', sub { my ($x,$y,$r,$ind,$self,$opt)=@_; $self->circle($x,$y,$r,$opt->[$ind->at(0)] || {} ); }; =head2 Text routines =head2 text =for ref Write text in a plot window at a specified position. =for usage Usage: text ($text, $x, $y [, $opt]) Options recognised: =over =item C The angle in degrees between the baseline of the text and the horisontal (increasing counter-clockwise). This defaults to 0. =item C The justification of the text relative to the position specified. It defaults to 0.0 which gives left-justified text. A value of 0.5 gives centered text and a value of 1.0 gives right-justified text. =item C, C, C These gives alternative ways to specify the text and position. =item C This sets the background colour for the text in case an opaque background is desired. You can also use the synonyms C and C. =back The following standard options influence this command: COLOUR, CHARSIZE =for example line sequence(10), sequence(10)**2; text 'A parabola', 3, 9, {Justification => 1, Angle=>atan2(6,1)}; =head2 legend =for ref Add a legend to a plot =for usage Usage: legend($text, $x, $y, [, $width], $opt]); This function adds a legend to an existing plot. The action is primarily controlled by information in the options hash, and the basic idea is that C<$x> and C<$y> determines the upper left hand corner of the box in which the legend goes. If the width is specified either as an argument or as an option in the option hash this is used to determine the optimal character size to fit the text into part of this width (defaults to 0.5 - see the description of C below). The rest of the width is filled out with either lines or symbols according to the content of the C, C, C and C options. The local options recognised are as follows: =over =item C An anonymous array of annotations, can also be specified directly. =item C and C The X and Y position of the upper left-hand corner of the text. =item C and C The width and/or height of each line (including symbol/line). This is used to determine the character size. If any of these are set to 'Automatic' the current character size will be used. =item C The text and the symbol/line is set inside a box. C determines how much of this box should be devoted to text. This defaults to 0.5. You can also use C as a synonym to this. =item C This option allows for fine control of the spacing between the text and the start of the line/symbol. It is given in fractions of the total width of the legend box. The default value is 0.1. =item C or C By default the text lines are separated by one character height (in the sense that if the separation were 0 then they would lie on top of each other). The C option allows you to increase (or decrease) this gap in units of the character height; a value of 0.5 would add half a character height to the gap between lines, and -0.5 would remove the same distance. The default value is 0. =item C This sets the background colour for the text in case an opaque background is desired. You can also use the synonyms C and C. =back =for example line $x, $y, {Color => 'Red', LineStyle => 'Solid'}; line $x2, $y2, {Color => 'Blue', 'LineStyle' => 'Dashed', LineWidth => 10}; legend ['A red line', 'A blue line'], 5, 5, {LineStyle => ['Solid', 'Dashed'], Colour => ['Red', 'Blue'] LineWidth => [undef, 10]}; # undef gives default. =head2 Cursor routines =head2 cursor =for ref Interactively read cursor positions. =for usage Usage: ($x, $y, $ch, $xref, $yref) = cursor($opt) This routine has no standard input parameters, but the type of cursor can be set by setting the option C as a key in the anonymous hash C<$opt>. The first three return values from the function are always defined and gives the position selected by the user and the character pressed. Depending on the cursor type selected the last two arguments might also be defined and these give a reference position. For instance if the cursor is selected to be C then the reference position gives one of the corners of the rectangle and C<$x> and C<$y> the diagonally opposite one. Options recognised: =over =item XRef, YRef The reference position to be used =item Type The type of cursor. This can be selected using a number between 0 and 7 as in PGPLOT, or alternatively you can specify these as, C (0), C (1), C (2), C (3), C (4), C (5), C (6) and C (7) respectively. The default cursor is just the normal mouse cursor. For the C you I specify the reference point, whereas for the C cursor the X or Y reference point, respectively, must be specified. =back =for example To select a region on a plot, use the rectangle cursor: ($x, $y, $ch, $xref, $yref) = cursor({Type => 'Rectangle'}); poly pdl($x, $xref, $xref, $x, $x), pdl($y, $y, $yref, $yref, $y); To select a region of the X-axis: ($x1, $y1, $ch) = cursor({Type => 'VerticalLine'}); ($x2, $y2, $ch) = cursor({Type => 'TwoVerticalLines', XRef => $x1}); =head1 Internal routines =cut #### # Helper routines to handle signal avoidance: # cpgplot doesn't take well to being interrupted, so we mask out INT # signals during most of the routines. But we do want to handle # those INTs, so we need a handler that marks 'em. # # You call catch_signals with the block to be executed. INT and __DIE__ signals # are sent to the signal_catcher, and released, not necessarily in # the order they occurred, by release_signals. # # The mechanism is a little over-powered for what we need -- but, hey, # if you want to defer any other signal you can simply add it to the # list in catch_signals. # # Don't try to parse arguments within catch_signals -- the omitted-() call # is extra fast but doesn't set @_! # # --CED 9-Aug-2002 #### =head2 catch_signals To prevent pgplot from doing a fandango on core, we have to block interrupts during PGPLOT calls. Specifically, INT needs to get caught. These internal routines provide a mechanism for that. You simply bracket any PGPLOT calls with C: catch_signals { ... pgcube($n, $x->get_dataref); }; and the signal_catcher will queue up any signals (like INT -- the control-C interrupt) until the end of the block. =cut my %sig_log; my %sig_handlers; my $sig_nest = 0; sub signal_catcher { my($sig) = shift; if($sig eq '__DIE__') { return unless defined $^S; # Don't do anything during parsing of an eval $sig_nest = 1; # Unwrap all nests when dying &release_signals; &{$SIG{__DIE__}}($sig) if defined($SIG{__DIE__}); return; } # Print message if debugging is on or on multiple INT signals if($PDL::debug || ($sig_log{$sig} && ($sig eq 'INT'))) { if($sig_log{$sig}==1) { warn "PDL::Graphics::PGPLOT: deferred $sig for PGPLOT; one more aborts operation\n"; } else { warn "PDL::Graphics::PGPLOT: deferred $sig signal for PGPLOT operation (l=$sig_nest)\n" } } # Handle multiple INT signals (user pressing ^C a bunch) if(defined($sig_log{$sig}) && ($sig_log{$sig}>1) && ($sig eq 'INT')) { warn "Aborting PGPLOT operation".($PDL::debug ? " (may mess up future PGPLOT commands)\n" : "\n"); $sig_nest = 1; &release_signals ; } else { $sig_log{$sig}++; } } sub catch_signals (&) { my ($block) = @_; my(@sigs) = ('INT'); local($_, $@); if($sig_nest == 0) { foreach (@sigs) { next if ($SIG{$_}//'') ne 'DEFAULT' and ($SIG{$_}//0) == \&signal_catcher; $sig_handlers{$_}=$SIG{$_}; $SIG{$_}=\&signal_catcher; } } $sig_nest++; # Keep track of nested calls. eval { $block->() }; &release_signals; die $@ if $@; } sub release_signals { local($_); $sig_nest-- if($sig_nest > 0); return if($sig_nest > 0); # restore original handlers foreach $_(keys %sig_handlers) { no warnings; # allow assignment even if sig_handlers{$_} is undef $SIG{$_}=$sig_handlers{$_}; delete $sig_handlers{$_}; } # release signals foreach $_(keys %sig_log) { next unless $sig_log{$_}; $sig_log{$_} = 0; kill $_,$$; } } # # Note: Here the general and window creation specific options are read in # from PGPLOTOptions. The $GeneralOptions variable is most importantly # used in the new() routine to set the general options for the window. # # These are somewhat confusingly named perhaps. The WindowOptions are the # options that affect window creation and setup such as width, shape etc. # The GeneralOptions are options that affect all function calls in the package # (or at least most) since it affects the default colour, character size etc. # The problematic aspect here is the treatment of hardcopy settings. For # historical reasons these are set in the WindowOptions variable but they # should affect settings in the GeneralOptions variable... # Ideally this should be re-coded, but to save some time I have instead opted # for a patchy solution where they are specially treated in the new_window # routine. # # Added 28/9/01 JB # Delay the intialization of the window options so that it is possible # to set the defaults in the .perldlrc file my ($GeneralOptions, $WindowOptions) = (undef, undef); my $PREVIOUS_DEVICE = undef; my $PI = 4*atan2(1,1); my $PREVIOUS_ENV = undef; my $AUTOLOG = 0; sub autolog { my $class = shift; my $ret; if (ref $class) { $ret = $class->{Autolog} || $AUTOLOG; $class->{Autolog} = shift if @_ > 0; } else { $ret = $AUTOLOG; $AUTOLOG = shift if @_ > 0; } return $ret; } sub checklog { my ($self,$x,$y) = @_; $x = $x->log10->float if defined $x && $self->autolog && $self->{Logx}; $y = $y->log10->float if defined $y && $self->autolog && $self->{Logy}; # print STDERR "Logx: ",$self->{Logx},"\n"; # print STDERR "Logy: ",$self->{Logy},"\n"; return ($x,$y); } sub pgwin { my(@a) = @_; # Since this is a convenience function, be convenient. If only # one parameter is passed in, assume that it's a device. if(!$#a && !(ref $a[0])){ $a[0] = "/$a[0]" unless($a[0] =~ m:/:); unshift(@a,'Dev') } # If two parameters are passed in, and the second one is a hash, # then the first one is a device. if(scalar(@a) == 2 && ref $a[1] eq 'HASH') { $a[0] = "/$a[0]" unless($a[0] =~ m:/:); $a[1]->{Dev} = $a[0]; @a = %{$a[1]}; } # Furthermore, if an odd number of parameters are passed in, # then the first one is a device and the rest is intended to # be a parameters hash... if(scalar(@a) % 2) { $a[0] = "/$a[0]" unless($a[0] =~ m/:/); unshift(@a,'Dev'); } return PDL::Graphics::PGPLOT::Window->new(@a); } my $dev; sub new { my $type = shift; # Set the default options! ($GeneralOptions, $WindowOptions) = default_options(); # Turn off warnings for missing options... $GeneralOptions->warnonmissing(0); $WindowOptions->warnonmissing(0); # options are either given in a hash reference, or as a list # (which is converted to a hash reference to make the code easier) my $u_opt = ref($_[0]) eq "HASH" ? shift : { @_ }; my $opt = $WindowOptions->options($u_opt); $WindowOptions->full_options(0); my $user_options = $WindowOptions->current(); $WindowOptions->full_options(1); # If the user set DEVICE then that overrides anything else... if (exists $user_options->{Device}) { $dev = $opt->{Device} } elsif (!defined($dev) || $dev eq "") { $dev = $PREVIOUS_DEVICE || $opt->{Device}; } $PREVIOUS_DEVICE = $dev; my $this_opt = PDL::Options->new($opt); my $t=$WindowOptions->translation(); $this_opt->translation($t); my $s=$WindowOptions->synonyms(); $this_opt->synonyms($s); $this_opt->warnonmissing(0); # This is the setup for the plot options - which also can # be set on a per-window basis by the user. my $popt = $GeneralOptions->options($u_opt); my $this_plotopt = PDL::Options->new($popt); $t = $GeneralOptions->translation(); $this_plotopt->translation($t); $s = $GeneralOptions->synonyms(); $this_plotopt->synonyms($s); $this_plotopt->warnonmissing(0); my $self = { 'Options' => $this_opt, 'PlotOptions' => $this_plotopt, 'Hold' => $opt->{Hold} || 0, 'Name' => $opt->{WindowName} || '', 'ID' => undef, 'AspectRatio' => $opt->{AspectRatio}, 'WindowWidth' => $opt->{WindowWidth}, 'NX' => $opt->{NXPanel} || 1, 'NY' => $opt->{NYPanel} || 1, 'Device' => $opt->{Device} || $dev, 'CurrentPanel' => 0, '_env_options' => undef, 'State' => undef, 'Recording' => $opt->{Recording} || $PDL::Graphics::PGPLOT::RECORDING, 'CTAB' => undef, # The default colour table }; if (defined($self->{Options})) { # Turn off warnings about missing options $self->{Options}->warnonmissing(0); } bless $self, ref($type) || $type; $self->_open_new_window($opt); # This weird setup is required to create the object. # We always have to create a state variable to avoid undefined errors. $self->{State}=PDL::Graphics::State->new(); return $self; } # # Graphics windows should be closed when they go out of scope. # Thanks to Doug Burke for pointing this out. # sub DESTROY { my $self=shift; $self->close() unless !defined($self->{ID}); } =head2 _open_new_window Open a new window. This sets the window ID, which is the one used when accessing a window later using C. It also sets the window name to something easily remembered if it has not been set before. =cut sub _open_new_window { my $self = shift; my(@parameters) = @_; my $window_nr; catch_signals { $window_nr = pgopen($self->{Device}); }; barf("Opening new window (pgopen) failed: $window_nr\n") if ($window_nr < 0); $self->{ID} = $window_nr; $self->{Name} = "Window$window_nr" if $self->{Name} eq ""; $self->_setup_window(@parameters); } =head2 _setup_window This routine sets up a new window with its shape and size. This is also where the size options are actually parsed. These are then forgotten (well, they are stored in $self->{Options}) and the corresponding aspect ratio and window width is stored. See the discussion under new() for the logic. Finally the subpanels are set up using C and colours and linewidth are adjusted according to whether we have a hardcopy device or not. =cut # bit: 2=>height; 1=>width; 0=>aspect my $DefaultWindowWidth = 6; my $DefaultWindowAspect=0.618; # These are thunks to handle regularizing window values in _setup_window. # Index is binary by validity of value. 0 = undefined (or 0), 1 = ok. # Bit 0 = aspect, bit 1 = width, bit 2 = height. Arguments in the same order. # Return value is ($aspect, $height). # # If nothing is defined we try to grab the latest values from PGPLOT itself. my @__setup_subs = ( sub { my($vs_x1,$vs_x2,$vs_y1,$vs_y2); # 0 (000) catch_signals { pgqvsz(1,$vs_x1,$vs_x2,$vs_y1,$vs_y2); }; my($w) = ($vs_x2 - $vs_x1) || $DefaultWindowWidth; return ( ((($vs_y2 - $vs_y1) / $w) || $DefaultWindowAspect), $w ); }, sub { ($_[0], $DefaultWindowWidth / ($_[0]<1 ? 1 : $_[0])); },# 1 (001) sub { ($DefaultWindowAspect, $_[1]); }, # 2 (010) sub { @_; }, # 3 (011) sub { ($DefaultWindowAspect, $_[2] / $_[0]); }, # 4 (100) sub { ($_[0], $_[2] / $_[0]) }, # 5 (101) sub { ($_[2] / $_[1], $_[1]) }, # 6 (110) sub { ($_[2] / $_[1], $_[1] ) } # use W and H; ignore Aspect # 7 (111) ); sub _setup_window { my $self = shift; my $opt = shift; # Get options as hash or as list if(ref $opt ne 'HASH') { $opt = {$opt,@_}; } my $unit = _parse_unit($opt->{Unit}) || 1; my $aspect = $opt->{AspectRatio}; my $width = $opt->{WindowXSize} || $opt->{WindowWidth}; my $height = $opt->{WindowYSize}; if(defined $opt->{Size}) { if(ref $opt->{Size} eq 'ARRAY') { $width = $opt->{Size}->[0]; $height = $opt->{Size}->[1] || $width; $unit = _parse_unit($opt->{Size}->[2]) if defined($opt->{Size}->[2]); } elsif(!(ref $opt->{Size})) { $width = $height = $opt->{Size}; } else { warn("Size must be a scalar or an array ref if specified! Ignoring...\n"); } } my $subindex = ($aspect ? 1 : 0) + ($width ? 2 : 0) + ($height ? 4 : 0); @$self{qw(AspectRatio WindowWidth)} = ($aspect,$width) = $__setup_subs[$subindex]->($aspect,$width,$height); # PGPLOT seems not to include full unit support in (e.g.) the pgpap # command -- so check here and convert mm->inches if necessary. # This is a real kludge that should be replaced with Real Units Conversion # at a future date. # catch_signals { if($unit==2) { # mm -> inches $width /= 25.4; $height /= 25.4; } elsif($unit==3) { # pixels -> inches. Warning, not device independent! # What a kludge -- get window width in both pixels # and inches to figure out the scaling factor for # pgpap (which requires inches). my($x0,$x1,$y0,$y1); pgqvp(3,$x0,$x1,$y0,$y1); my($pixwidth) = $x1 - $x0; pgqvp(1,$x0,$x1,$y0,$y1); my($inwidth) = $x1 - $x0; my($pixperinch) = $pixwidth / $inwidth; $width /= $pixperinch; $height /= $pixperinch; } elsif($unit ==0 || $unit > 3) { warn("Invalid unit specification for window size; defaulting to inches.\n"); } # OK, we got a decent size. Now call pgpap to set the size in the # device, and (for interactive devices!) pgpag to get the size we # want -- otherwise the window just hangs around looking lame at the # default size instead of the size the user asked for. We also have # to turn PGASK off so the user doesn't get asked to hit "return". # Afterwards, we turn it back on because that's the default state. # (although it is set to 0 again pretty soon) # pgqinf('HARDCOPY',my $hcopy,my $len); pgpap($width, $aspect); if($hcopy eq 'NO') { pgask(0); pgpage(); pgask(1); } # Now do the sub-division into panels. my $nx = $self->{NX}; my $ny = $self->{NY}; if ($nx < 0) { warn "We do not support the alternative numbering of panels of PGPLOT!\n"; $nx = abs($nx); $self->{NX}=abs($self->{NX}); } pgsubp($nx, $ny); # Setup the colours my $o = $self->{Options}->current(); pgask(0); if ($hcopy eq "YES") { # This has changed to set the defaults instead. pgslw($o->{HardLW}); pgsch($o->{HardCH}); pgscf($o->{HardFont}); # To change defaults you first need to read them out and then # adjust them and set them again my $temp_wo = $self->{PlotOptions}->defaults(); $temp_wo->{Font}= $o->{HardFont}; $temp_wo->{CharSize}= $o->{HardCH}; $temp_wo->{LineWidth}= $o->{HardLW}; $temp_wo->{Colour}= $o->{HardColour}; $self->{PlotOptions}->defaults($temp_wo); my $temp_o=$self->{Options}->defaults(); $temp_o->{AxisColour}=$o->{HardAxisColour}; $temp_o->{CharSize}=$o->{HardCH}; $self->{Options}->defaults($temp_o); } else { # Set the global properties as for the hardcopy device. pgsch($o->{CharSize}); my $wo = $self->{PlotOptions}->defaults(); pgscf($wo->{Font}); pgslw($wo->{LineWidth}); } my $wo = $self->{PlotOptions}->defaults(); $self->_set_colour($wo->{Colour}); pgask(0); }; } sub _set_defaults { # Set up defaults # Now check if this is a hardcopy device, in which case we # set a variety of properties differently. my $self = shift; } =head2 _status This routine checks PGPLOT's status for the window. It returns OPEN if the window is open and CLOSED if it is closed. (Windows can be closed but still exist). =cut sub _status { my $self=shift; $self->focus(); my ($state, $len); catch_signals { pgqinf('STATE',$state,$len); }; return $state; } =head2 _reopen This functions reopens a window. Since this is an internal function it does not have a lot of error-checking. Make sure the device is closed I calling this routine. There is an unfortunate problem which pops up viz. that the window name cannot be changed at this point since we are offering that to the rest of the world. That might be sensible, but it means that the window name will not reflect the id of the window - use C for that (this is also why we do not call C ) =cut sub _reopen { my @parameters = @_; my $self = shift; my $window_nr; catch_signals { $window_nr = pgopen($self->{Device}); }; barf("Opening new window (pgopen) failed: $window_nr\n") if ($window_nr < 0); $self->{ID} = $window_nr; $self->_setup_window(@parameters); } =head2 _advance_panel This routine advances one plot panel, updating the CurrentPanel as well. If the advance will proceed past the page the page will be erased. Also note that when you advance one panel the hold value will be changed. =cut sub _advance_panel { my $self = shift; my $new_panel = $self->{CurrentPanel}+1; if ($new_panel > ($self->{NX}*$self->{NY})) { # We are at the end of the page.. $new_panel = 1; $self->clear_state(); catch_signals { pgpage(); }; } $self->panel($new_panel); if ($self->held()) { $self->{Hold}=0; print "Graphic released (panel move)\n" if $PDL::verbose; } } =head2 _check_move_or_erase This routine is a utility routine which checks if we need to move panel, and if so will do this. It also checks if it is necessary to advance panels, and whether they need to be erased. =cut sub _check_move_or_erase { my $self=shift; my ($panel, $erase)=@_; catch_signals { my $sid; pgqid($sid); # Only perform a pgslct if necessary. pgslct($self->{ID}) unless $sid == $self->{ID}; }; if (defined($panel)) { $self->panel($panel); } elsif (!$self->held()) { # If no hold has been set. $self->_advance_panel(); } $self->erase() if $erase; } =head2 _broadcast_options This function is a cludgy utility function that expands an options hash to an array of hashes looping over options. This is mainly of use for "broadcasted" interfaces to standard plotting routines. =cut sub _broadcast_options { my ($n, $h) = @_; # Loop over each option. my @hashes=(); # One for each option. my @keys = keys %$h; foreach my $k (@keys) { my @vals=(); my $v=$h->{$k}; $v = [$v] if ref($v) ne 'ARRAY'; while ($#vals+1 < $n) { splice(@vals, @vals, 0, @$v); } for (my $i=0; $i<$n; $i++) { $hashes[$i]->{$k}=$vals[$i]; } } return \@hashes; } ############################ # Replay related functions # ############################ my $DEBUGSTATE = 0; sub debug_state { $DEBUGSTATE = !$DEBUGSTATE; } sub replay { my $self = shift; my $state = shift || $self->{State}; die "A state object must be defined to play back commands!\n" if !defined $state; my @list = $state->get(); if ($#list < 0) { # If there are no commands, then the user might have forgotten to # turn on recording, let us remind them warn "Replaying an empty state - did you turn on recording?\n"; print "Hint: Put PDL::Graphics::PGPLOT::RECORDING=1 in your .perldlrc file\n" } catch_signals { foreach my $arg (@list) { my ($command, $commandname, $arg, $opt)=@$arg; &$command($self, @$arg, $opt); } }; } sub clear_state { my $self = shift; print "Clearing state!\n" if $DEBUGSTATE; $self->{State}->clear() if(defined($self) && defined($self->{State})); } sub turn_off_recording { my $self=shift; # Turning off does _NOT_ clear the state at the moment! $self->{Recording} =0; print "Turning off state!\n" if $DEBUGSTATE; } sub turn_on_recording { my $self=shift; # Previous calls are not recorded of course.. print "Turning on state!\n" if $DEBUGSTATE; $self->{Recording} = 1; $self->{State}=PDL::Graphics::State->new() unless defined($self->{State}); } sub _add_to_state { my $self=shift; my ($func, $arg, $opt)=@_; my ($pkg, $fname, $line, $funcname, $hasargs, $wantarray, $evaltext, $isrequire, $hints, $bitmask)=caller(1); # We only add if recording has been turned on. print "Adding to state ! $func, $arg, $opt\n" if $DEBUGSTATE; print "State = ".$self->{State}."\n" if $DEBUGSTATE; $self->{State}->add($func, $funcname, $arg, $opt) if $self->{Recording}; } sub retrieve_state { my $self=shift; my $state_copy = $self->{State}->copy(); print "Retriving state!\n" if $DEBUGSTATE; return $state_copy; } ##################################### # Window related "public" routines. # ##################################### sub close { my $self=shift; # let the user know that we've created a file if ( $self->_status() eq 'OPEN' ) { my @info = $self->info( 'HARDCOPY', 'FILE' ); print "Created: $info[1]\n" if $info[0] eq 'YES' and $PDL::verbose; pgclos(); } $self->{ID}=undef; $self->clear_state(); } =head2 options Access the options used when I opening the window. At the moment this is not updated when the window is changed later. =cut sub options { return $_[0]->{Options}; } =head2 id Access the window ID that PGPLOT uses for the present window. =cut sub id { return $_[0]->{ID}; } =head2 device This function returns the device type of the present window. =cut sub device { return $_[0]->{Device}; } =head2 name Accessor to set and examine the name of a window. =cut sub name { my $self=shift; if ($#_>=0) { $self->{Name}=$_[0]; } return $self->{Name}; } =head2 focus Set focus for subsequent PGPLOT commands to this window. =cut sub focus { my $self=shift; return if !defined($self->{ID}); catch_signals { my $sid; pgqid($sid); # Only perform a pgslct if necessary. pgslct($self->{ID}) unless $sid == $self->{ID}; }; } sub hold { my $self=shift; $self->{Hold}=1; $self->_add_to_state(\&hold); return $self->{Hold}; } sub release { my $self=shift; $self->{Hold}=0; $self->_add_to_state(\&release); return $self->{Hold}; } sub held { my $self = shift; return $self->{Hold}; } =head2 info =for ref Get general information about the PGPLOT environment. =for usage @ans = $self->info( @item ); The valid values of C<@item> are as below, where case is not important: VERSION - What PGPLOT version is in use. STATE - The status of the output device, this is returns 'OPEN'. if the device is open and 'CLOSED' otherwise. USER - The username of the owner of the spawning program. NOW - The current date and time in the format 'dd-MMM-yyyy hh:mm'. Most people are likely to use Perl functions instead. DEVICE * - The current PGPLOT device or file, see also device(). FILE * - The filename for the current device. TYPE * - And the device type for the current device. DEV/TYPE * - This combines DEVICE and TYPE in a form that can be used as input to new. HARDCOPY * - This is flag which is set to 'YES' if the current device is a hardcopy device and 'NO' otherwise. TERMINAL * - This flag is set to 'YES' if the current device is the user's terminal and 'NO' otherwise. CURSOR * - A flag ('YES' or 'NO') to inform whether the current device has a cursor. Those items marced with a C<*> only return a valid answer if the window is open. A question mark (C) is returned if the item is not recognised or the information is not available. =cut #' sub info { my $self = shift; my @inq = wantarray ? @_ : $_[0]; $self->focus(); my @ans; catch_signals { foreach my $inq ( @inq ) { my ( $state, $len ); pgqinf( uc($inq), $state, $len ); push @ans, $state; } }; return wantarray() ? @ans : $ans[0]; } # info() sub panel { my $self = shift; $self->focus(); my ($xpos, $ypos); if ($#_ == 1) { # We have gotten $x and $y.. ($xpos, $ypos)=@_; } elsif ($#_ == 0 && ref($_[0]) eq 'ARRAY' ) { ($xpos, $ypos)=@{$_[0]}; } elsif ($#_ == 0) { # We have been given a single number... This can be converted # to a X&Y position with a bit of calculation. The code is taken # from one2nd. barf("panel: Panel numbering starts at 1, not 0\n") if($_[0]<=0); my $i=$_[0]-1; # Offset code is 0-based (of course) $xpos = $i % $self->{NX}; $i = long($i/$self->{NX}); $ypos=$i % $self->{NY}; $xpos++; $ypos++; # Because PGPLOT starts at 1.. } else { barf <<'EOD'; Usage: panel($xpos, $ypos); or panel([$xpos, $ypos]); or panel($index); EOD } # We do not subtract 1 from X because we would need to add it again to # have a 1-offset numbering scheme. $self->{CurrentPanel} = ($ypos-1)*$self->{NX}+($xpos); $self->_add_to_state(\&panel, $xpos, $ypos); catch_signals { pgpanl($xpos, $ypos); }; } { # To save space and time.. my $erase_options = undef; sub erase { my $self = shift; # Parse options my $u_opt = shift; if (defined($u_opt) && ref($u_opt) eq 'HASH') { $erase_options = PDL::Options->new({Panel => undef}) if !defined($erase_options); my $o = $erase_options->options($u_opt); # Change panel if requested $self->panel($o->{Panel}) if defined($o->{Panel}); } elsif (defined($u_opt)) { # The user has passed a number of reference to array.. $self->panel($u_opt); } $self->focus(); # What should I do with the state here???? catch_signals { pgeras(); }; $self->_add_to_state(\&erase, [], $u_opt); # Remove hold. $self->{Hold}=0; } } ## ## Utility functions ## =head2 _extract_hash This routine takes and array and returns the first hash reference found as well as those elements that are I hashes. Note the latter point because all other references to hashes in the array will be lost. =cut sub _extract_hash { my @opt=@_; # # Given a list, returns a list of hash references and all the rest. # my $count=0; my $hashes=[]; foreach (@opt) { push @$hashes, splice(@opt, $count, 1) if ref($_) eq 'HASH'; $count++ } return (\@opt, $$hashes[0]); } =head2 _parse_unit Convert a unit string or number into a PGPLOT-certified length unit specification, or return undef if it won't go. =cut my @__unit_match = ( qr/^((\s*0)|(n(orm(al(ized)?)?)?))\s*$/i, qr/^((\s*1)|(i(n(ch(es)?)?)?))\s*$/i, qr/^((\s*2)|(m(m|(illimeter))?s?))\s*$/i, qr/^((\s*3)|(p(ix(el)?)?s?))\s*$/i ); sub _parse_unit { # I'm assuming returning undef when $u is undefined is a good thing to do (DJB; 06/28/02) my $u = shift || return undef; # print "parse_unit: got '$u'\n"; for my $i (0..$#__unit_match) { return $i if($u =~ m/$__unit_match[$i]/); } return undef; } =head2 _parse_options This is a convenience routine for parsing a set of options. It returns both the full set of options and those that the user has set. =cut sub _parse_options { my $self=shift; my ($opt, $oin)=@_; ## Should do something sensible if $opt is no options object f.i. if (defined($oin) && ref($oin) ne 'HASH') { my ($package, $file, $line, $sub)=caller(1); barf "_parse_options called by $sub with non-hash options element!"; } elsif (!defined($oin)) { my ($package, $file, $line, $sub)=caller(1); warn "_parse_options called by $sub without an options hash! - continuing\n"; $oin = {}; } my $o=$opt->options($oin); $opt->full_options(0); my $uo=$opt->current(); $opt->full_options(1); $opt->clear_current(); return ($o, $uo); } ################################################################ # # GRAPHICS FUNCTIONS below! # ################################################################ ############ Local functions ################# =head2 _save_status Saves the PGPLOT state so that changes to settings can be made and then the present state restored by C<_restore_status>. =cut sub _save_status { my $self=shift; catch_signals { pgsave; } if $self->_status() eq 'OPEN'; } =head2 _restore_status Restore the PGPLOT state. See L. =cut sub _restore_status { my $self=shift; catch_signals { pgunsa; } if $self->_status() eq 'OPEN'; } =head2 _checkarg This routine checks and optionally alters the arguments given to it. =cut sub _checkarg { # Check/alter arguments utility my $self = shift; my ($arg,$dims,$type,$nobarf) = @_; $type = $PDL_F unless defined $type; # nobarf added so the end-user can choose whether to die or not..x $nobarf = 0 unless defined($nobarf); my $ok = 1; $arg = topdl($arg); # Make into a pdl $arg = convert($arg,$type) if $arg->get_datatype != $type; if (($arg->getndims > $dims)) { # Get the dimensions, find out which are == 1. If it helps # chuck these off and return trimmed ndarray. my $n=nelem(which(pdl($arg->dims)==1)); if (($arg->getndims-$n) > $dims) { $ok = 0; barf "Data is >".$dims."D" unless $nobarf; } else { my $count=0; my $qq; my $s=join ',', map {if ($_ == 1 && $count<$arg->getndims-$dims) {$qq='(0)'; $count++} else { $qq= ''; } ; $qq} $arg->dims; $arg=$arg->slice($s); } } $_[0] = $arg if $ok; # Alter return $ok; } # a hack to store information in the object. # Currently only used by imag() for storing information # useful to draw_wedge(). # # This routine needs changing: # . store values using PDL::Options, so you can update rather than overwrite # . associate the information with a particular window/panel/whatever # . clear information when plot erased (correct for current use by imag(), # but maybe not in more general cases?) # # The API is liable to change: you have been warned (Doug Burke) # sub _store { my $self = shift; barf 'Usage: _store( $self, $name, $item )' unless $#_ == 1; my $name = shift; my $object = shift; # create storage space, if needed $self->{_horrible_storage_space} = {} unless defined $self->{_horrible_storage_space}; # store data $self->{_horrible_storage_space}{$name} = $object; } # sub: _store() # retrieve information from storage space # - same caveats as with _store() # sub _retrieve { my $self = shift; barf 'Usage: _retrieve( $self, $name )' unless $#_ == 0; my $name = shift; barf "Internal error: no storage space in object" unless exists $self->{_horrible_storage_space}; if ( exists $self->{_horrible_storage_space}{$name} ) { return $self->{_horrible_storage_space}{$name}; } else { return undef; } } # sub: _retrieve() ################## # Options parser # ################## =head2 _set_colour This is an internal routine that encapsulates all the nastiness of setting colours depending on the different PGPLOT colour models (although HLS is not supported). The routine works in the following way: =over 8 =item * At initialisation of the plot device the work colour index is set to 16. The work index is the index the routine will modify unless the user has specified something else. =item * The routine should be used after standard interpretation and synonym matching has been used. So if the colour is given as input is an integer that colour index is used. =item * If the colour is a reference the routine checks whether it is an C or a C reference. If it is not an error message is given. If it is a C reference it will be converted to an array ref. =item * If the array has four elements the first element is interpreted as the colour index to modify and this overrules the setting for the work index used internally. Otherwise the work index is used and incremented until the maximum number of colours for the output device is reached (as indicated by C). Should you wish to change that you need to read the PGPLOT documentation - it is somewhat device dependent. =item * When the array has been recognised the R,G and B colours of the user-set index or work index is set using the C command and we are finished. =item * If the input colour instead is a string we try to set the colour using the PGPLOT routine C with no other error-checking. This should be ok, as that routine returns a rather sensible error-message. =back =cut { my $work_ci = 16; sub _set_colour { my $self = shift; my ($col, $is_textbg) = @_; $is_textbg = 0 if !defined($is_textbg); catch_signals { # The colour index to use for user changes. # This is increased until the max of the colour map. # I don't know if this can change, but let's not take any # chances. my ($min_col, $max_col); pgqcol($min_col, $max_col); # # Extended treatment of colours - added 2/10/01 JB. # if (ref($col)) { if ((ref($col) eq 'PDL') or (ref($col) eq 'ARRAY')) { my @colvals = (ref($col) eq 'PDL' ? list($col) : @{$col}); my ($red, $green, $blue)=@colvals; my $index = $work_ci; if ($#colvals == 3) { # This is a situation where the first element is interpreted # as a PGPLOT colour index, otherwise we will use our own # strategy to step through indices. ($index, $red, $green, $blue)=@colvals; } else { $work_ci += 1; # NB this does not work on devices with < 16 colours. $work_ci = 16 if $work_ci > $max_col; } pgscr($index, $red, $green, $blue); if ($is_textbg) { pgstbg($index); } else { pgsci($index); } } else { warn "The colour option must be a number, string, array or PDL!\n"; } } else { # Now check if this is a name that could be recognised by pgscrn. # To simplify the logic we first check if $col is a digit. if ($col =~ m/^\s*\d+\s*$/) { if ($is_textbg) { pgstbg($col); } else { pgsci($col); } } else { # # Ok, we either have an untranslated colour name or something # bogus - let PGPLOT deal with that! # my $ier; pgscrn($work_ci, $col, $ier); if ($is_textbg) { pgstbg($work_ci); } else { pgsci($work_ci); } $work_ci += 1; # NB this does not work on devices with < 16 colours. $work_ci = 16 if $work_ci > $max_col; } } }; } } =head2 _standard_options_parser This internal routine is the default routine for parsing options. This routine deals with a subset of options that most routines will accept. =cut sub _standard_options_parser { # # Parse the options and act on the values set. # my $self=shift; my ($o)=@_; # # The input hash has to contain the options _set by the user_ # $self->_set_colour($o->{Colour}) if (exists($o->{Colour})); catch_signals { pgsls($o->{LineStyle}) if exists($o->{LineStyle}); pgslw($o->{LineWidth}) if exists($o->{LineWidth}); pgscf($o->{Font}) if exists($o->{Font}); pgsch($o->{CharSize}) if exists($o->{CharSize}); pgsfs($o->{Fill}) if exists($o->{Fill}); # pgsch($o->{ArrowSize}) if exists($o->{ArrowSize}); # Two new options.. my $wo = $self->{PlotOptions}->defaults(); # Window defaults - for some routines below # We just need special treatment of the Arrow and Hatch options, # and they are complex for historical reasons... if (exists($o->{Arrow})) { # # Set the arrow. The size can be set either independently # using ARROWSIZE or in the hash # # Note the use of $wo to get the true default values here! my ($fs, $angle, $vent)=($wo->{Arrow}{FS}, $wo->{Arrow}{Angle}, $wo->{Arrow}{Vent}); my $arrowsize = $o->{CharSize}; # Default to the character size.. if (ref($o->{Arrow}) eq 'HASH') { while (my ($var, $value)=each %{$o->{Arrow}}) { # options are FS, ANGLE, VENT, SIZE # but SIZE may be ARROWSIZE [see ../PGPLOTOptions.pm] $fs=$value if $var =~ m/^F/i; $vent=$value if $var =~ m/^V/i; $angle=$value if $var =~ m/^AN/i; # not sure about how correct this is, but it stops 'use of undefined' # variable (for $angle) in pgsah() call below $arrowsize=$value if $var =~ m/^S/i or $var =~ m/^AR/i; } } else { $fs=$o->{Arrow}[0] if defined $o->{Arrow}[0]; $angle=$o->{Arrow}[1] if defined $o->{Arrow}[1]; $vent=$o->{Arrow}[2] if defined $o->{Arrow}[2]; $arrowsize=$o->{Arrow}[3] if defined $o->{Arrow}[3]; } pgsch($arrowsize) if defined($arrowsize); pgsah($fs, $angle, $vent); } if (exists($o->{Hatch})) { my $val = $o->{Hatch}; if (!defined($val) || lc($val) eq 'default') { pgshs(); # Default values are either specified by HATCH=>undef or HATCH=>'default' } else { # # Can either be specified as numbers or as a hash... # # Note the use of $wo to get the true default values!! # my ($angle, $separation, $phase)= ($wo->{Hatch}{Angle}, $wo->{Hatch}{Separation}, $wo->{Hatch}{Phase}); if (ref($val) eq 'HASH') { while (my ($var, $value) = each %{$val}) { $angle=$value if $var =~ m/^A/i; $separation=$value if $var =~ m/^S/i; $phase=$value if $var =~ m/^P/i; } } else { $angle=$$val[0] if defined($$val[0]); $separation=$$val[1] if defined($$val[1]); $phase=$$val[2] if defined($$val[2]); } if ($separation==0) { warn "The separation of hatch lines cannot be zero, the default of". $wo->{Hatch}{Separation} . " is used!\n"; $separation=$wo->{Hatch}{Separation}; } pgshs($angle,$separation, $phase); } } }; } # initenv( $xmin, $xmax, $ymin, $ymax, $just, $axis ) # initenv( $xmin, $xmax, $ymin, $ymax, $just ) # initenv( $xmin, $xmax, $ymin, $ymax, \%opt ) # # \%opt can be supplied but not be defined # we parse the JUSTIFY, AXIS, and BORDER options here, # rather than have a multitude of checks below # sub initenv{ my $self = shift; # Default box # We must check the status of the object, and if not ready it must # be re-opened... $self->_status(); my ($in, $u_opt)=_extract_hash(@_); my ($xmin, $xmax, $ymin, $ymax, $just, $axis)=@$in; $u_opt={} unless defined($u_opt); ############################## # If the user specifies $just or $axis these values will # override any options given. $u_opt->{Justify} = $just if defined($just); $u_opt->{Axis} = $axis if defined($axis); ############################## # Now parse the input options. my $o = $self->{Options}->options($u_opt); # Merge in user options... if ($self->autolog) { # Bug fix JB, 03/03/05 - logging noisy/failed when running with -w or strict. # Hence the extra check on the content of Axis if (ref($o->{Axis}) eq 'ARRAY') { $self->{Logx} = ($o->{Axis}[0] =~ /L/) ? 1 : 0; $self->{Logy} = ($o->{Axis}[1] =~ /L/) ? 1 : 0; } elsif (ref($o->{Axis})) { barf "The axis option must be an array ref or a scalar!\n"; } else { $self->{Logx} = ($o->{Axis} == 10 || $o->{Axis} == 30) ? 1 : 0; #/BCLNST/) ? 1 : 0; $self->{Logy} = ($o->{Axis} == 20 || $o->{Axis} == 30) ? 1 : 0; #/BCLNST/) ? 1 : 0; } ($xmin,$xmax) = map { barf "plot boundaries not positive in logx-mode" if $_ <= 0; log($_)/log(10) } ($xmin,$xmax) if $self->{Logx}; ($ymin,$ymax) = map { barf "plot boundaries not positive in logy-mode" if $_ <= 0; log($_)/log(10) } ($ymin,$ymax) if $self->{Logy}; } # DJB 2003/12/01 - added some error checking for user errors like # setting xmin==xmax. yeah, should really check abs(x1-x2)focus(), return 1 if $self->held; catch_signals { ########## # Save current colour and set the axis colours my ($col); pgqci($col); $self->_set_colour($o->{AxisColour}); # Save current font size and set the axis character size. my ($chsz); pgqch($chsz); pgsch($o->{CharSize}); if (ref($o->{Border}) eq 'HASH' || $o->{Border} != 0) { my $type = "REL"; my $delta = 0.05; if ( ref($o->{Border}) eq "HASH" ) { while (my ($bkey, $bval) = each %{$o->{Border}}) { $bkey = uc($bkey); if ($bkey =~ m/^TYP/) { $type = uc $bval; } elsif ($bkey =~ m/^VAL/) { $delta = $bval; } } # while: (bkey,bval) } # if: ref($val) eq "HASH" if ( $type =~ m/^REL/ ) { my $sep = ( $xmax - $xmin ) * $delta; $xmin -= $sep; $xmax += $sep; $sep = ( $ymax - $ymin ) * $delta; $ymin -= $sep; $ymax += $sep; } elsif ( $type =~ m/^ABS/ ) { $xmin -= $delta; $xmax += $delta; $ymin -= $delta; $ymax += $delta; } else { print "Warning: unknown BORDER/TYPE option '$type'.\n"; } } ############################## # pgpage doesn't behave quite right in the multi-panel case. Hence, # we call erase if there are multiple panels and pgpage if there is only # one. if (defined($o->{Erase}) && $o->{Erase}) { if ($self->{NX}*$self->{NY} > 1) { pgeras(); $self->clear_state(); # Added to deal with new pages. } else { $self->clear_state(); # Added to deal with new pages. pgpage(); } } ########## # Set up the viewport, and get its size in physical screen units. # This has to be done before the PIX/SCALE/PITCH stuff below in order # to make sure we can get physical dimensions of the viewport for scaling, # even though the JUSTIFY stuff redefines the viewport later. # if (!defined($o->{PlotPosition}) || $o->{PlotPosition} eq 'Default') { # Set standard viewport pgvstd(); } else { barf "The PlotPosition must be given as an array reference!" unless ref($o->{PlotPosition}) eq 'ARRAY'; my ($x0, $x1, $y0, $y1)=@{$o->{PlotPosition}}; print "pgsvp($x0,$x1,$y0,$y1);\n" if($PDL::Graphics::PGPLOT::debug); pgsvp ($x0, $x1, $y0, $y1); } ############################## # Parse out scaling options. The defaults for each value change # based on the others (e.g. specifying "SCALE" and no unit # gives pixels; but specifying "PITCH" and no unit gives dpi). # my($pix,$pitch,$unit); ($pix,$pitch,$unit) = (1,1.0/$o->{'Scale'},3) if($o->{'Scale'}); ($pix,$pitch,$unit) = (1,$o->{'Pitch'},1) if($o->{'Pitch'}); if(defined $o->{'Unit'}) { $unit = _parse_unit($o->{'Unit'}); barf("Unknown unit '$o->{'Unit'}'\n") unless(defined $unit); } $unit = 1 unless defined($unit); # Default to inch (any phys. unit will do) ############################## # Get size of viewport in physical screen units my ($x0,$x1,$y0,$y1); pgqvp($unit,$x0,$x1,$y0,$y1); # Pixel aspect ratio is always overridden by the pix option $pix = $o->{'Justify'} if $o->{'Justify'}; # Only override if nonzero! $pix = $o->{'Pix'} if defined $o->{'Pix'}; # Override if set. ### # Figure out the stretched pitch, if it isn't set. # my $have_pitch_and_pix = (defined($pix) & defined($pitch)); unless(defined $pitch) { my $p = pdl( ($xmax-$xmin) / ($x1-$x0), ($ymax-$ymin) / ($y1-$y0) * (defined($pix)?$pix:0)); $pitch = $p->abs->max; } $pix = abs(($y1 - $y0) / ($ymax - $ymin)) * $pitch unless defined($pix); ########## # Figure out the actual data coordinate corners of the screen, and/or # tweak the screen to match the data coordinate corners. This is important # because the PIX/SCALE/PITCH options set the scaling explicitly, and # the JUSTIFY option requires changing the viewport. # if($o->{Justify}) { ########## # Justify case ### # Work out the boundaries of the data in viewport space, given the # pitch and requested pixel aspect ratio. This is complicated a # little by the need to specify the viewport in surface normalized # coordinates: we have to retrieve surface normalized coords to tweak. my($ox0,$ox1,$oy0,$oy1); pgqvp(0,$ox0,$ox1,$oy0,$oy1); # Get surface normalized dims of current vp my($wxs, $wys) = ( ($ox1-$ox0) / ($x1-$x0) , ($oy1-$oy0) / ($y1-$y0) ); local($_) = $o->{Align} || "CC"; my($wx0,$wx1,$wy0,$wy1); my($xrange) = abs(($xmax-$xmin) * $wxs / $pitch ); ($wx0,$wx1) = (m/L/i) ? ( $ox0, $ox0 + $xrange ) : (m/R/i) ? ( $ox1 - $xrange, $ox1 ) : (0.5 * ( $ox0 + $ox1 - $xrange ), 0.5 * ( $ox0 + $ox1 + $xrange )); my($yrange) = abs(($ymax-$ymin) * $wys * $pix / $pitch ); ($wy0,$wy1) = (m/B/i) ? ( $oy0, $oy0 + $yrange ) : (m/T/i) ? ( $oy1 - $yrange, $oy1 ) : (0.5 * ( $oy0 + $oy1 - $yrange ), 0.5 * ( $oy0 + $oy1 + $yrange )); pgsvp(minmax(pdl($wx0,$wx1)),minmax(pdl($wy0,$wy1))); pgswin($xmin,$xmax,$ymin,$ymax); } elsif($have_pitch_and_pix) { ########## # Non-justify case with specified pitch and pixel aspect. my($xx0,$xx1,$yy0,$yy1); # These get the final data coords ### # Work out the boundaries of the viewport in data space, given the # pitch and requested pixel aspect ratio. local($_) = $o->{Align} || "BL"; ($xx0,$xx1) = (m/L/i) ? ($xmin, $xmin+($x1-$x0)*$pitch) : (m/R/i) ? ($xmax-($x1-$x0)*$pitch, $xmax) : (0.5*($xmin+$xmax - ($x1-$x0)*$pitch), 0.5*($xmin+$xmax + ($x1-$x0)*$pitch)); ($yy0,$yy1) = (m/B/i) ? ($ymin, $ymin+($y1-$y0)*$pitch/$pix) : (m/T/i) ? ($ymax-($y1-$y0)*$pitch/$pix, $ymax) : (0.5*($ymin+$ymax - ($y1-$y0)*$pitch/$pix), 0.5*($ymin+$ymax + ($y1-$y0)*$pitch/$pix)); # # Sort out the direction that each axis runs... # my ( $dax, $day ); unless(defined $o->{DirAxis}) { ($dax,$day) = (0,0); } elsif( ! ref $o->{DirAxis} ) { $dax=$day=$o->{DirAxis}; } elsif( ref $o->{DirAxis} eq 'ARRAY' ) { ($dax,$day) = @{$o->{DirAxis}}; } else { barf "DirAxis option must be a scalar or array\n"; } ##print "dax=$dax; day=$day\n"; ( $xx0, $xx1 ) = ( $xx1, $xx0 ) if ( ( $dax==0 and ($xmin-$xmax)*($xx0-$xx1)<0 ) or ( $dax < 0 ) ); ( $yy0, $yy1 ) = ( $yy1, $yy0 ) if ( ( $day==0 and ($ymin-$ymax)*($yy0-$yy1)<0 ) or ( $day < 0 ) ); pgswin($xx0, $xx1, $yy0, $yy1); } else { ### # Simplest case -- just do what the user originally said. # pgswin($xmin,$xmax,$ymin,$ymax); } if (ref($o->{Axis}) eq 'ARRAY') { print "found array ref axis option...\n" if($PDL::Graphics::PGPLOT::debug); pgtbox($o->{Axis}[0], 0.0, 0, $o->{Axis}[1], 0.0, 0); } else { pgtbox($o->{Axis}, 0.0, 0, $o->{Axis}, 0.0, 0); } $self->_set_env_options($xmin, $xmax, $ymin, $ymax, $o); $self->label_axes($u_opt->{XTitle}, $u_opt->{YTitle}, $u_opt->{Title}, $u_opt); # restore settings $self->_set_colour($col); pgsch($chsz); }; 1; } # This is a tidy little routine to set the env options and update the global # variable. sub _set_env_options { my $self=shift; my @opt=@_; $self->{_env_options} = [@opt]; $PREVIOUS_ENV = [@opt]; } sub redraw_axes { my $self = shift; my $o; if (defined($self->{_env_options})) { # Use the previous settings for the plot box. my $e = $self->{_env_options}; $o=$$e[4]; } else { $o=$self->{Options}->defaults(); } catch_signals { my $col; pgqci($col); $self->_set_colour($o->{AxisColour}); my $chsz; pgqch($chsz); pgsch($o->{CharSize}); my $axval = $o->{Axis}; # Using the last for this window... $axval = 0 unless defined $axval; # safety check unless ( $self->{Hold} ) { if ( ref($axval) ) { pgtbox($$axval[0],0,0,$$axval[1],0,0); } else { pgtbox($axval,0,0,$axval,0,0); } } $self->_set_colour($col); pgsch($chsz); }; $self->_add_to_state(\&redraw_axes); } =head2 _image_xyrange Given a PGPLOT tr matrix and an image size, calculate the data world coordinates over which the image ranges. This is used in L and L. It keeps track of the required half-pixel offset to display images properly -- eg feeding in no tr matrix at all, nx=20, and ny=20 will will return (-0.5,19.5,-0.5,19.5). It also checks the options hash for XRange/YRange specifications and, if they are present, it overrides the appropriate output with the exact ranges in those fields. =cut sub _image_xyrange { my($tr,$nx,$ny,$opt) = @_; # Set identity $tr if no $tr is passed in. This looks funny # because it's designed for use with evil Fortran coordinates. if(!defined($tr)) { $tr = float [-1,1,0,-1,0,1]; } ############################## ## Because the transform is an inhomogeneous scale-and-rotate, ## the limiting points are always the corners of the original ## physical data plane after transformation. We just transform ## the four corners of the data (in evil homogeneous FORTRAN ## origin-at-1 coordinates) and find the minimum and maximum ## X and Y values of 'em all. my @xvals; if(ref $opt eq 'HASH' and defined $opt->{XRange}) { die "_image_xyrange: if XRange is specified it must be an array ref\n" if(ref $opt->{XRange} ne 'ARRAY'); @xvals = @{$opt->{XRange}}; } else { @xvals = ($tr->slice('0:2')*pdl[ [1, 0.5, 0.5], [1, 0.5, $nx+0.5], [1, $nx+0.5, 0.5], [1, $nx+0.5, $nx+0.5] ])->sumover->minmax; } my @yvals; if(ref $opt eq 'HASH' and defined $opt->{YRange}) { die "_image_xyrange: if YRange is specified it must be an array ref\n" if(ref $opt->{YRange} ne 'ARRAY'); @yvals = @{$opt->{YRange}}; } else { @yvals = ($tr->slice('3:5')*pdl[ [1, 0.5, 0.5], [1, 0.5, $ny+0.5], [1, $ny+0.5, 0.5], [1, $ny+0.5, $ny+0.5] ])->sumover->minmax; } if ( $tr->at(1) < 0 ) { @xvals = ( $xvals[1], $xvals[0] ); } if ( $tr->at(5) < 0 ) { @yvals = ( $yvals[1], $yvals[0] ); } return (@xvals,@yvals); } =head2 _FITS_tr Given a FITS image, return the PGPLOT transformation matrix to convert pixel coordinates to scientific coordinates. Used by L, L, and L, but may come in handy for other methods. =for example my $tr = _FITS_tr( $win, $img ); my $tr = _FITS_tr( $win, $img, $opts ); The return value (C<$tr> in the examples above) is the same as returned by the L routine, with values set up to convert the pixel to scientific coordinate values for the two-dimensional image C<$img>. The C<$opts> argument is optional and should be a HASH reference; currently it only understands one key (any others are ignored): WCS => undef (default), "", or "A" to "Z" Both the key name and value are case insensitive. If left as C or C<""> then the primary coordinate mapping from the header is used, otherwise use the additional WCS mapping given by the appropriate letter. We make B checks that the given mapping is available; the routine falls back to the unit mapping if the specified system is not available. The WCS option has only been tested on images from the Chandra X-ray satellite (L) created by the CIAO software package (L), for which you should set C "P"> to use the C coordinate system. See L for further information on the Representation of World Coordinate Systems in FITS. =cut { my $_FITS_tr_opt = undef; sub _FITS_tr { my $pane = shift; my $pdl = shift; my $opts = shift || {}; $_FITS_tr_opt = PDL::Options->new( { WCS => undef } ) unless defined $_FITS_tr_opt; my $user_opts = $_FITS_tr_opt->options( $opts ); # Can either be sent an ndarray or a hash reference for the header # information # my $isapdl = UNIVERSAL::isa($pdl,'PDL'); my $hdr = $isapdl ? $pdl->hdr() : $pdl->hdr; print STDERR "Warning: null FITS header in _FITS_tr (do you need to set hdrcpy?)\n" unless (scalar(keys %$hdr) || (!$PDL::debug)); my ( $cdelt1, $cpix1, $cval1, $n1 ); my ( $cdelt2, $cpix2, $cval2, $n2 ); my $angle; # what WCS system to use? Not sure how well we are following the # Greisen et al proposal/standard here. # my $id = ""; if ( defined $$user_opts{WCS} ) { $id = uc( $$user_opts{WCS} ); die "WCS option must either be 'undef' or A-Z, not $id\n" unless $id =~ /^[A-Z]?$/; } print "Using the WCS '$id' mapping (if it exists)\n" if $PDL::verbose and $id ne ""; { # don't complain about missing fields in fits headers no warnings; if ( $isapdl ) { ( $n1, $n2 ) = $pdl->dims; } else { $n1 = $hdr->{NAXIS1}; $n2 = $hdr->{NAXIS2}; } $cdelt1 = $hdr->{"CDELT1$id"} || 1.0; $cpix1 = $hdr->{"CRPIX1$id"} || 1; $cval1 = $hdr->{"CRVAL1$id"} || 0.0; $cdelt2 = $hdr->{"CDELT2$id"} || 1.0; $cpix2 = $hdr->{"CRPIX2$id"} || 1; $cval2 = $hdr->{"CRVAL2$id"} || 0.0; # changed Jan 14 2004 DJB - previously used CROTA # keyword but that is not in the WCS standard # - I hope this doesn't break things # -- This broke a few things because CROTA is a pseudostandard # in the solar physics community. I added a fallback to # CROTA in case CROTA2 doesn't exist. --CED # 13-Apr-2010: changed sign of CROTA2 to match update to PDL::Transform in 2.4.3 --CED $angle = - ( (defined $hdr->{"CROTA2$id"}) ? $hdr->{"CROTA2$id"} : (defined $hdr->{"CROTA"}) ? $hdr->{"CROTA"} : 0) * 3.14159265358979323846264338/180; } # no warnings; # # Here's what we would do if PGPLOT worked as advertised... # return transform( $pane, { ImageDimensions => [ $n1, $n2 ], Angle => $angle, Pixinc => [ $cdelt1, $cdelt2 ], RefPos => [ [$cpix1-1, $cpix2-1], [$cval1,$cval2] ] } ); # # Here's a failed attempt to compensate for the PGPLOT-induced jitter # (look closely at the "demo transform" rotating screens and you'll # see a small movement...) # # $offset = sqrt(0.5)* max abs cos ( $angle + pdl(-1,1)*0.25*3.14159 ); # return transform( $pane, { # ImageDimensions => [ $n1, $n2 ], # Angle => $angle, # Pixinc => [ $cdelt1, $cdelt2 ], # RefPos => [ [$cpix1-1-$offset, $cpix2-1-$offset], [$cval1,$cval2] ] # } ); } # sub: _FITS_tr } # "closure" around _FITS_tr my $label_params = [ [2.0, 3.2, 2.2], # default [1.0, 2.7, 2.2], # tightened ]; sub label_axes { # print "label_axes: got ",join(",",@_),"\n"; my $self = shift; my ($in, $opt)=_extract_hash(@_); # :STATE RELATED: # THIS WILL PROBABLY NOT WORK as label_axes can be called both by # the user directly and by env... Let's see. $self->_add_to_state(\&label_axes, $in, $opt); barf 'Usage: label_axes( [$xtitle, $ytitle, $title], [$opt])' if $#$in > 3; my ($xtitle, $ytitle, $title)=@$in; $opt = {} if !defined($opt); # For safety. # Now the titles are set per plot so we use the general options to # parse the options (if they were set per window we would use # $self->{Options} my ($o, $u_opt) = $self->_parse_options($self->{PlotOptions}, $opt); # Added 25/8/01 JB to check whether label_axes is called before env.. # This is not fool-proof though... And it will give a warning if the # user creates their env box outside of this package. warn "label_axes called before env - weird results might occur!\n" unless defined($self->{_env_options}); $self->_save_status(); $self->_standard_options_parser($u_opt); $o->{Title}=$title if defined($title); $o->{XTitle}=$xtitle if defined($xtitle); $o->{YTitle}=$ytitle if defined($ytitle); # what width do we use? # - things are somewhat confused since we have # LineWidth and TextWidth (a recent addition) # and LineWidth is set by _setup_window() - so # _standard_options_parser() uses it - but # TextWidth isn't. # # so for now we over-ride the _standard_options_parser # setting if TextWidth exists # [DJB 2002 Aug 08] catch_signals { my $old_lw; if ( defined($o->{TextWidth}) ) { pgqlw($old_lw); pgslw($o->{TextWidth}); } # pglab by default goes too far from the plot! If NYPanels > 1 # then the bottom label of a higher plot tends to squash the plot # title for the plot below it. To remedy this problem I've # replaced the pglab call with a set of calls to pgmtxt, cribbed # from the pglab.f file. The parameters are shrunk inward if NYPanel > 1 # or if the option "TightLabels" is set. You can also explicitly set # it to 0 to get the original broken behavior. [CED 2002 Aug 29] my($p) = $label_params->[ ( ($self->{NY} > 1 && !defined $o->{TightLabels}) || $o->{TightLabels} ) ? 1 : 0 ]; my($sz); pgqch($sz); pgbbuf(); # Begin a buffered batch output to the device pgsch($sz * ( $o->{TitleSize} || 1 )); # The 'T' offset is computed so that the original # vertical center is maintained. pgmtxt('T', ($p->[0]+0.5)/( $o->{TitleSize} || 1 ) - 0.5 , 0.5, 0.5, $o->{Title}); pgebuf(); # Flush the buffer to avoid a pgplot bug that produced pgbbuf(); # doubled titles for some devices (notably the ppm device). pgsch($sz); pgmtxt('B', $p->[1], 0.5, 0.5, $o->{XTitle}); pgmtxt('L', $p->[2], 0.5, 0.5, $o->{YTitle}); pgebuf(); # pglab($o->{XTitle}, $o->{YTitle}, $o->{Title}); pgslw($old_lw) if defined $old_lw; }; $self->_restore_status; } ############ Exported functions ################# # Open/reopen the graphics device ################ Supports two new options:: ## NewWindow and WindowName sub CtoF77coords{ # convert a transform array from zero-offset to unit-offset images my $self = shift; my $tr = pdl(shift); # Copy set($tr, 0, at($tr,0)-at($tr,1)-at($tr,2)); set($tr, 3, at($tr,3)-at($tr,4)-at($tr,5)); return $tr; } # set the envelope for plots and put auto-axes on hold sub env { my $self=shift; # Inserted 28/2/01 - JB to avoid having to call release whenever # you want to move to the next panel after using env. $self->release() if $self->held(); # The following is necessary to advance the panel if wanted... my ($in, $opt)=_extract_hash(@_); $opt = {} if !defined($opt); my $o = $self->{PlotOptions}->options($opt); # # Inserted 06/08/01 - JB to be able to determine whether the user has # specified a particular PlotPosition in which case we do _not_ call # _check_move_or_erase... # my $o2 = $self->{Options}->options($opt); if (!defined($o2->{PlotPosition}) || $o2->{PlotPosition} eq 'Default') { $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); } barf 'Usage: env ( $xmin, $xmax, $ymin, $ymax, [$just, $axis, $opt] )' if ($#_==-1 && !defined($self->{_env_options}) && !defined($PREVIOUS_ENV)) || ($#_>=0 && $#_<=2) || $#_>6; my(@args); # Set the args. The logic here was extended 13/8 by JB to use the # previous setting of the plot env variables regardless of device # if the current device does not have a setting for env etc. if ($#_ == -1) { if (@{$self->{_env_options}}) { @args = @{$self->{_env_options}}; } elsif (defined($PREVIOUS_ENV)) { @args = @{$PREVIOUS_ENV}; } else { @args = (); } } else { @args = @_; } $self->initenv( @args ); ## The adding to state has to take place here to avoid being cleared ## buy the call to initenv... $self->_add_to_state(\&env, $in, $opt); $self->hold(); 1; } # Plot a histogram with pgbin() { my $bin_options = undef; sub bin { my $self = shift; if (!defined($bin_options)) { $bin_options = $self->{PlotOptions}->extend({Centre => 1}); $bin_options->add_synonym({Center => 'Centre'}); } my ($in, $opt)=_extract_hash(@_); $self->_add_to_state(\&bin, $in, $opt); barf 'Usage: bin ( [$x,] $data, [$options] )' if $#$in<0 || $#$in>2; my ($x, $data)=@$in; $self->_checkarg($x,1); my $n = nelem($x); if ($#$in==1) { $self->_checkarg($data,1); barf '$x and $y must be same size' if $n!=nelem($data); } else { $data = $x; $x = float(sequence($n)); } # Parse options $opt={} unless defined($opt); my ($o, $u_opt) = $self->_parse_options($bin_options,$opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); unless ( $self->held() ) { my ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax($x); my ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax($data); if ($xmin == $xmax) { $xmin -= 0.5; $xmax += 0.5; } if ($ymin == $ymax) { $ymin -= 0.5; $ymax += 0.5; } $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt ); } $self->_save_status(); my $centre = $o->{Centre}; # For the standard parser we only want the options that the user set! # $bin_options->full_options(0); # my $u_opt = $bin_options->current(); # $bin_options->full_options(1); # Let's also parse the options if any. $self->_standard_options_parser($u_opt); catch_signals { pgbin($n, $x->get_dataref, $data->get_dataref, $centre); }; $self->_restore_status(); 1; } } # display a contour map of an image using pgconb() { my $cont_options = undef; sub cont { my $self=shift; if (!defined($cont_options)) { $cont_options = $self->{PlotOptions}->extend({Contours => undef, Follow => 0, Labels => undef, LabelColour => undef, Missing => undef, NContours => undef, FillContours => undef}); my $t = { LabelColour => { 'White' => 0, 'Black' => 1, 'Red' => 2, 'Green' => 3, 'Blue' => 4, 'Cyan' => 5, 'Magenta' => 6, 'Yellow' => 7, 'Orange' => 8, 'DarkGray' => 14, 'DarkGrey' => 14, 'LightGray' => 15, 'LightGrey' => 15 } }; $cont_options->add_translation($t); } my ($in, $opt)=_extract_hash(@_); $self->_add_to_state(\&cont, $in, $opt); barf 'Usage: cont ( $image, %options )' if $#$in<0; # Parse input my ($image, $contours, $tr, $misval) = @$in; $self->_checkarg($image,2); my($nx,$ny) = $image->dims; my ($ncont)=9; # The number of contours by default # First save the present status $self->_save_status(); # Then parse the common options # # These will be all options. $opt = {} if !defined($opt); my ($o, $u_opt) = $self->_parse_options($cont_options, $opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); $self->_standard_options_parser($u_opt); my ($labelcolour); catch_signals { pgqci($labelcolour); # Default let the labels have the chosen colour. my ($labels, $fillcontours, $angle); my $usepgcont = 0; $contours = $o->{Contours} if defined($o->{Contours}); $ncont = $o->{NContours} if defined($o->{NContours}); $misval = $o->{Missing} if defined($o->{Missing}); $tr = $o->{Transform} if defined($o->{Transform}); $labelcolour = $o->{LabelColour} if defined($o->{LabelColour}); $labels = $o->{Labels} if defined($o->{Labels}); $usepgcont = $o->{Follow} if defined($o->{Follow}); $fillcontours = $o->{FillContours} if defined($o->{FillContours}); if (defined($tr)) { $self->_checkarg($tr,1); barf '$transform incorrect' if nelem($tr)!=6; } else { $tr = float [0,1,0, 0,0,1]; } $tr = $self->CtoF77coords($tr); if (!$self->held()) { $self->initenv( _image_xyrange($tr,$nx,$ny,$o), $o ); } if (!defined($contours)) { my($minim, $maxim)=minmax($image); $contours = xlinvals(zeroes($ncont), $minim, $maxim) } else { $ncont = nelem($contours); } $self->_checkarg($contours,1); print "Contouring $nx x $ny image from ",min($contours), " to ", max($contours), " in ",nelem($contours)," steps\n" if $PDL::verbose; if (defined($fillcontours)) { pgbbuf(); if (ref $fillcontours ne 'PDL') { $fillcontours = zeroes($ncont - 1)->xlinvals(0,1)->dummy(0,3); } elsif ($fillcontours->getndims == 1) { $fillcontours = $fillcontours->dummy(0,3); } elsif (($fillcontours->getdim(1) != $ncont - 1) || ($fillcontours->getdim(0) != 3)) { barf "Argh, wrong dims in filled contours!"; } my ($cr, $cg, $cb, $i); pgqcr(16, $cr, $cg, $cb); # Save color index 16 # Loop over filled contours (perhaps should be done in PP for speed) # Do not shade negative and 0-levels for ($i = 0; $i < ($ncont - 1); $i++) { pgscr(16, list $fillcontours->slice(":,$i")); pgsci(16); pgconf($image->get_dataref, $nx, $ny, 1, $nx, 1, $ny, list($contours->slice("$i:(".($i+1))), $tr->get_dataref); } pgscr(16, $cr, $cg, $cb); # Restore color index 16 pgebuf(); } elsif (defined($misval)) { pgconb( $image->get_dataref, $nx,$ny,1,$nx,1,$ny, $contours->get_dataref, nelem($contours), $tr->get_dataref, $misval); } elsif (abs($usepgcont) == 1) { pgcont( $image->get_dataref, $nx,$ny,1,$nx,1,$ny, $contours->get_dataref, $usepgcont*nelem($contours), $tr->get_dataref); } else { pgcons( $image->get_dataref, $nx,$ny,1,$nx,1,$ny, $contours->get_dataref, nelem($contours), $tr->get_dataref); } # Finally label the contours. if (defined($labels) && $#$labels+1==nelem($contours)) { my $label=undef; my $count=0; my $minint=long($nx/10)+1; # At least stretch a tenth of the array my $intval=long($nx/3)+1; # my $dum; pgqci($dum); $self->_set_colour($labelcolour); foreach $label (@{$labels}) { pgconl( $image->get_dataref, $nx,$ny,1,$nx,1,$ny, $contours->slice("($count)"), $tr->get_dataref, $label, $intval, $minint); $count++; } $self->_set_colour($dum); } elsif (defined($labels)) { # # We must have had the wrong number of labels # warn <redraw_axes unless $self->held(); # Redraw box $self->_restore_status(); 1; } } # Plot errors with pgerrb() { my $errb_options = undef; sub errb { my $self = shift; if (!defined($errb_options)) { $errb_options = $self->{PlotOptions}->extend({Term => 1}); $errb_options->add_synonym({Terminator => 'Term'}); } my ($in, $opt)=_extract_hash(@_); $self->_add_to_state(\&bin, $in, $opt); $opt = {} if !defined($opt); barf <<'EOD' if @$in==0 || @$in==1 || @$in > 7; Usage: $w-> errb ( $y, $yerrors [, $options] ) $w-> errb ( $x, $y, $yerrors [, $options] ) $w-> errb ( $x, $y, $xerrors, $yerrors [, $options]) $w-> errb ( $x, $y, $xloerr, $xhierr, $yloerr, $yhierr [, $options]) EOD my @t=@$in; my $n; # it's possible the user slipped in undefs as the data position. # that's illegal and won't be caught in next loop barf "Must specify data position" if ! defined $t[0] || ( @t > 2 && ! defined $t[1] ); # loop over input data; skip undefined values, as they are # used to flag missing error bars. all data should have the # same dims as the first ndarray. for ( my $i = 0 ; $i < @t ; $i++ ) { next if ! defined $t[$i]; $self->_checkarg($t[$i], 1); $n = nelem($t[$i]) if $i == 0; barf "Args must have same size" if nelem($t[$i]) != $n; } my $x = @t < 3 ? float(sequence($n)) : shift @t; my $y = shift @t; # store data in a hash to automate operations my %d; $d{x}{data} = $x; $d{y}{data} = $y; ( $d{y}{err} ) = @t if @t == 1; ( $d{x}{err}, $d{y}{err} ) = @t if @t == 2; ( $d{x}{loerr}, $d{x}{hierr}, $d{y}{loerr}, $d{y}{hierr} ) = @t if @t == 4; my ($o, $u_opt) = $self->_parse_options($errb_options, $opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); unless( $self->held() ) { # Allow for the error bars my ( $xmin, $xmax, $ymin, $ymax ); # Bug fix, JB 03/03/05 - user input ranges were not considered. my @axes_to_do = (); if (ref($o->{XRange})) { ($d{'x'}{min}, $d{'x'}{max})=@{$o->{XRange}}; if ($d{'x'}{xmin} == $d{'x'}{max}) { $d{'x'}{min} -= 0.5; $d{'x'}{max} += 0.5; } } else { push @axes_to_do, 'x'; } if (ref($o->{YRange})) { ($d{'y'}{min}, $d{'y'}{max})=@{$o->{YRange}}; if ($d{'y'}{xmin} == $d{'y'}{max}) { $d{'y'}{min} -= 0.5; $d{'y'}{max} += 0.5; } } else { push @axes_to_do, 'y'; } # loop over the axes to calculate plot limits for my $ax (@axes_to_do) { my $axis = $d{$ax}; my $range = uc $ax . 'range'; # user may have specified range limits already; pull them in ($axis->{min},$axis->{max}) = @{$o->{$range}} if ref $o->{$range} eq 'ARRAY'; # skip if user specified range limits unless ( exists $axis->{min} ) { my ( $min, $max ); # symmetric error bars if ( defined $axis->{err} ) { $min = min( $axis->{data} - $axis->{err} ); $max = max( $axis->{data} + $axis->{err} ); } # assymetric error bars else { # lo error bar specified if ( defined $axis->{loerr} ) { $min = min( $axis->{data} - $axis->{loerr} ); } # hi error bar specified if ( defined $axis->{hierr} ) { $max = max( $axis->{data} + $axis->{hierr} ); } } # handle the case where there is no error bar. $min = $axis->{data}->min unless defined $min; $max = $axis->{data}->max unless defined $max; # default range for infinitesimal data range if ($min == $max) { $min -= 0.5; $max += 0.5; } $axis->{min} = $min; $axis->{max} = $max; } } $self->initenv( $d{x}{min}, $d{x}{max}, $d{y}{min}, $d{y}{max}, $opt ); } $self->_save_status(); # Let us parse the options if any. my $term=$o->{Term}; my $symbol; my $plot_points=0; # We won't normally plot the points if (defined($u_opt->{Symbol})) { $symbol = $u_opt->{Symbol}; $plot_points=1; } # Parse other standard options. $self->_standard_options_parser($u_opt); # map our combination of errors onto pgerrb's DIR parameter. note that # DIR(Y) = DIR(X) + 1 for similar error bar configurations $d{x}{dir} = 0; $d{y}{dir} = 1; catch_signals { # loop over axes, plotting the appropriate error bars for my $axis ( $d{x}, $d{y} ) { my $dir = $axis->{dir}; # symmetric error bars if ( defined $axis->{err} ) { pgerrb(5 + $dir, $n, $x->get_dataref, $y->get_dataref, $axis->{err}->get_dataref,$term); } # assymetric error bars else { if ( defined $axis->{hierr} ) { pgerrb(1 + $dir, $n, $x->get_dataref, $y->get_dataref, $axis->{hierr}->get_dataref,$term); } if ( defined $axis->{loerr} ) { pgerrb(3 + $dir, $n, $x->get_dataref, $y->get_dataref, $axis->{loerr}->get_dataref,$term); } } } if ($plot_points) { if (exists($opt->{SymbolSize})) { # Set symbol size (2001.10.22 kwi) pgsch($opt->{SymbolSize}); } $symbol=long($symbol); my $ns=nelem($symbol); pgpnts($n, $x->get_dataref, $y->get_dataref, $symbol->get_dataref, $ns) } }; $self->_restore_status(); 1; } } # Plot a line with pgline() { my $line_options = undef; # # lines: CED 17-Dec-2002 # sub lines { my $self = shift; if(!defined($line_options)) { $line_options = $self->{PlotOptions}->extend({Missing=>undef}); } my($in,$opt) = _extract_hash(@_); # Parse out the options and figure out which syntax is being used # This is a pain to look at but the computer does it behind your back so # what do you care? --CED my($x,$y,$p); if(@$in == 3) { barf "lines: inconsistent array refs in \$x,\$y,\$p call\n" if((ref $in->[0] eq 'ARRAY') ^ (ref $in->[1] eq 'ARRAY')); ($x,$y) = (ref $in->[0] eq 'ARRAY') ? ($in->[0],$in->[1]) : ([$in->[0]],[$in->[1]]); $p = (ref $in->[2] eq 'ARRAY') ? $in->[2] : [$in->[2]]; } elsif(@$in == 2) { # $xy, $p or $x,$y (no-$p) my($c) = (ref $in->[0] eq 'ARRAY') ? $in->[0] : [$in->[0]]; my($d) = (ref $in->[1] eq 'ARRAY') ? $in->[1] : [$in->[1]]; barf " lines: \$xy must be an ndarray\n" unless(UNIVERSAL::isa($c->[0],'PDL')); if( ( ref $in->[0] ne ref $in->[1] ) || ( ! UNIVERSAL::isa($d->[0],'PDL') ) || ( $c->[0]->ndims > $d->[0]->ndims ) ) { # $xy, $p case -- split $xy into $x and $y. foreach $_(@$c){ push(@$x,$_->slice("(0)")); push(@$y,$_->slice("(1)")); } $p = $d; } else { # $x,$y,(omitted $p) case -- make default $p. $x = $c; $y = $d; $p = [1]; } } elsif(@$in == 1) { # $xyp or $xy,(omitted $p) case my($c) = (ref $in->[0] eq 'ARRAY') ? $in->[0] : [$in->[0]]; foreach $_(@$c) { push(@$x,$_->slice("(0)")); push(@$y,$_->slice("(1)")); push(@$p, ($_->dim(0) >= 3) ? $_->slice("(2)") : 1); } } else { barf " lines: ".scalar(@$in)." is not a valid number of args\n"; } barf "lines: x and y lists have different numbers of elements" if($#$x != $#$y); ############################## # Now $x, $y, and $p all have array refs containing their respective # vectors. Set up pgplot (copy-and-pasted from line; this is probably # the Wrong thing to do -- we probably ought to call line directly). # $opt = {} unless defined($opt); my($o,$u_opt) = $self->_parse_options($line_options,$opt); barf "lines: \$o->\{Missing\} must be an array ref if specified\n" if (defined $o->{Missing} && ref $o->{Missing} ne 'ARRAY'); $self->_check_move_or_erase($o->{Panel},$o->{Erase}); my $held = $self->held(); unless ($held) { my($ymin,$ymax,$xmin,$xmax) = ( zeroes(scalar(@$y)), zeroes(scalar(@$y)), zeroes(scalar(@$y)), zeroes(scalar(@$y)) ); my $thunk = sub { my($range) = shift; my($vals,$missing,$min,$max,$pp) = @_; if(ref $range eq 'ARRAY') { $min .= $range->[0]; $max .= $range->[1]; return; } my($mask) = (isfinite $vals); $mask &= ($vals != $missing) if(defined $missing); $mask->slice("1:-1") &= long(($pp->slice("0:-2") != 0) | ($pp->slice("1:-1") != 0)); my($c,$d) = minmax(where($vals,$mask)); $min .= $c; $max .= $d; }; for my $i(0..$#$x) { my($pp) = $#$p ? $p->[$i] : $p->[0]; # allow scalar pen in array case $pp = pdl($pp) unless UNIVERSAL::isa($pp,'PDL'); my $miss = defined $o->{Missing} ? $o->{Missing}->[$i] : undef; &$thunk($u_opt->{XRange},$x->[$i],$miss,$xmin->slice("($i)"),$xmax->slice("($i)"),$pp); &$thunk($u_opt->{YRange},$y->[$i],$miss,$ymin->slice("($i)"),$ymax->slice("($i)"),$pp); } $xmin = $xmin->min; $xmax = $xmax->max; $ymin = $ymin->min; $ymax = $ymax->max; if($xmin==$xmax) { $xmin -= 0.5; $xmax += 0.5; } if($ymin==$ymax) { $ymin -= 0.5; $ymax += 0.5; } print "lines: xmin=$xmin; xmax=$xmax; ymin=$ymin; ymax=$ymax\n" if($PDL::verbose); $self->initenv($xmin,$xmax,$ymin,$ymax,$opt); } $self->_save_status(); $self->_standard_options_parser($u_opt); catch_signals { my($lw); # Save the normal line width pgqlw($lw); my($hh) = 0; # Indicates local window hold # Loop over everything in the list for my $i(0..$#$x) { my($xx,$yy) = ($x->[$i],$y->[$i]); next if($xx->nelem < 2); my($pp) = $#$p ? $p->[$i] : $p->[0]; # allow scalar pen in array case my($miss) = defined $o->{Missing} ? $o->{Missing}->[$i] : undef; my($n) = $xx->nelem; $pp = pdl($pp) unless UNIVERSAL::isa($pp,'PDL'); $pp = zeroes($xx)+$pp if($pp->nelem == 1); $pp = $pp->copy; # Make a duplicate to scribble on $pp->slice("0:-2") *= ($xx->slice("0:-2") + $xx->slice("1:-1"))->isfinite; $pp->slice("0:-2") *= ($yy->slice("0:-2") + $yy->slice("1:-1"))->isfinite; my($pn,$pval) = rle($pp); my($pos,$run,$rl) = (0,0,0); # Within each list element loop over runs of pen value while(($run<$pn->nelem) && ($rl = $pn->at($run))) { # assignment my($pv); if($pv = $pval->at($run)) { # (assignment) Skip runs with pen value=0 my $top = $pos+$rl; $top-- if($top == $xx->dim(0)); my $x0 = float $xx->slice("$pos:$top"); my $y0 = float $yy->slice("$pos:$top"); $self->_set_colour(abs($pv)*(defined $o->{Colour} ? $o->{Colour}:1)); ($x0,$y0) = $self->checklog($x0,$y0) if $self->autolog; if($pv > 0) { pgslw($lw); } else { pgslw(1); } if(defined($miss)) { my $mpt = $miss->slice("$pos:$top"); pggapline($x0->nelem,$mpt,$x0->get_dataref, $y0->get_dataref); } else { pgline($x0->nelem,$x0->get_dataref,$y0->get_dataref,); } $self->hold() unless $hh++; } $pos += $rl; $run++; } # end of within-ndarray polyline loop } # end of array ref loop pgslw($lw); # undo incredible shrinking line width$ }; $self->release() unless($held); $self->_restore_status(); $self->_add_to_state(\&lines,$in,$opt); 1; } sub line { my $self = shift; if (!defined($line_options)) { $line_options=$self->{PlotOptions}->extend({Missing => undef}); } my ($in, $opt)=_extract_hash(@_); barf 'Usage: line ( [$x,] $y, [$options] )' if $#$in<0 || $#$in>2; my($x,$y) = @$in; $self->_checkarg($x,1); my $n = nelem($x); my ($is_1D, $is_2D); if ($#$in==1) { $is_1D = $self->_checkarg($y,1,undef,1); if (!$is_1D) { $is_2D = $self->_checkarg($y,2,undef,1); barf '$y must be 1D (or 2D for broadcasting!)'."\n" if !$is_2D; # Ok, let us use the broadcasting possibility. $self->tline(@$in, $opt); &release_signals; return; } else { barf '$x and $y must be same size' if $n!=nelem($y); } } else { $y = $x; $x = float(sequence($n)); } # Let us parse the options if any. $opt = {} if !defined($opt); my ($o, $u_opt) = $self->_parse_options($line_options, $opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); unless ( $self->held() ) { # Make sure the missing value is used as the min or max value. # Also, do autoscaling but avoid infinities. my ($ymin, $ymax, $xmin, $xmax); # Thunk for finding max and min X and Y ranges my($thunk) = sub { my($range) = shift; return @{$range} if(ref $range eq 'ARRAY'); my($vals, $missing) = @_; my($mask) = (isfinite $vals); $mask &= ($vals != $missing) if(defined $missing); minmax(where($vals,$mask)); }; ($xmin,$xmax) = &$thunk($o->{XRange},$x,$o->{Missing}); ($ymin,$ymax) = &$thunk($o->{YRange},$y,$o->{Missing}); if ($xmin == $xmax) { $xmin -= 0.5; $xmax += 0.5; } if ($ymin == $ymax) { $ymin -= 0.5; $ymax += 0.5; } print("line: xmin=$xmin; xmax=$xmax; ymin=$ymin; ymax=$ymax\n") if($PDL::verbose); $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt); } $self->_save_status(); $self->_standard_options_parser($u_opt); # take logs if we are in autolog mode and axis option indicates logs ($x,$y) = $self->checklog($x,$y) if $self->autolog; # If there is a missing value specified, use pggapline # to break the line around missing values. catch_signals { if (defined $o->{Missing}) { pggapline ($n, $o->{Missing}, $x->get_dataref, $y->get_dataref); } else { pgline($n, $x->get_dataref, $y->get_dataref); } }; $self->_restore_status(); $self->_add_to_state(\&line, $in, $opt); 1; } } # Plot points with pgpnts() sub arrow { my $self = shift; my ($in, $opt)=_extract_hash(@_); $opt = {} if !defined($opt); barf 'Usage: arrow($x1, $y1, $x2, $y2 [, $options])' if $#$in != 3; my ($x1, $y1, $x2, $y2)=@$in; my ($o, $u_opt) = $self->_parse_options($self->{PlotOptions}, $opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); unless ($self->held()) { $self->initenv($x1, $x2, $y1, $y2, $opt); } $self->_save_status(); $self->_standard_options_parser($u_opt); catch_signals { pgarro($x1, $y1, $x2, $y2); }; $self->_restore_status(); $self->_add_to_state(\&arrow, $in, $opt); } { my $points_options = undef; sub points { my $self = shift; if (!defined($points_options)) { $points_options = $self->{PlotOptions}->extend({PlotLine => 0}); } my ($in, $opt)=_extract_hash(@_); barf 'Usage: points ( [$x,] $y, $sym, [$options] )' if $#$in<0 || $#$in>2; my ($x, $y, $sym)=@$in; $self->_checkarg($x,1); my $n=nelem($x); my ($is_1D, $is_2D); if ($#$in>=1) { $is_1D = $self->_checkarg($y,1,undef,1); if (!$is_1D) { $is_2D = $self->_checkarg($y,2,undef,1); barf '$y must be 1D (or 2D for broadcasting!)'."\n" if !$is_2D; # Ok, let us use the broadcasting possibility. $self->tpoints(@$in, $opt); return; } else { barf '$x and $y must be same size' if $n!=nelem($y); } } else { $y = $x; $x = float(sequence($n)); } # Let us parse the options if any. $opt = {} if !defined($opt); my ($o, $u_opt) = $self->_parse_options($points_options, $opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); # # Save some time for large datasets. # unless ( $self->held() ) { my ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax($x); my ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax($y); if ($xmin == $xmax) { $xmin -= 0.5; $xmax += 0.5; } if ($ymin == $ymax) { $ymin -= 0.5; $ymax += 0.5; } $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt ); } $self->_save_status(); $self->_standard_options_parser($u_opt); # take logs if we are in autolog mode and axis option indicates logs ($x,$y) = $self->checklog($x,$y) if $self->autolog; catch_signals { if (exists($opt->{SymbolSize})) { # Set symbol size (2001.10.22 kwi) pgsch($opt->{SymbolSize}); } if (exists($opt->{ColorValues})) { my $sym ||= $o->{Symbol} || 0; my $z = $opt->{ColorValues}; $self->_checkarg($z,1); # make sure this is a float PDL pgcolorpnts($n, $x->get_dataref, $y->get_dataref, $z->get_dataref, $sym); } else { # Set symbol if specified in the options hash. ## $sym ||= $o->{Symbol}; $sym = $o->{Symbol} unless defined $sym; $self->_checkarg($sym,1); my $ns = nelem($sym); $sym = long($sym); pgpnts($n, $x->get_dataref, $y->get_dataref, $sym->get_dataref, $ns); } # # Sometimes you would like to plot a line through the points straight # away. pgline($n, $x->get_dataref, $y->get_dataref) if $o->{PlotLine}>0; }; $self->_restore_status(); $self->_add_to_state(\&points, $in, $opt); 1; } } # add a "wedge" to the image # - since this can be called from imag() as well as by the user, # we make all parameters defined as options # # Wedge => { # Side => one of B L T R, # Displacement => default = 2, # Width => default = 3, # Fg/Bg => default, values used by imag() # Label => default '' # } # # - uses horrible _store()/_retrieve() routines, which need to # know (but don't) about changing window focus/erasing/... # # Want to be able to specify a title (optional) # - also, by default want to use the axes colour/size, but want to be able to # over-ride this # # initial version by Doug Burke (11/20/00 ish) { my $wedge_options = undef; sub draw_wedge { my $self = shift; if ( !defined($wedge_options) ) { $wedge_options = $self->{PlotOptions}->extend({ Side => 'R', Displacement => 1.5, Width =>3.0, WTitle => undef, Label => undef, ForeGround => undef, BackGround => undef, }); $wedge_options->synonyms({ Fg => 'ForeGround', Bg => 'BackGround' }); } my ( $in, $opt ) = _extract_hash(@_); $opt = {} unless defined($opt); barf 'Usage: $win->draw_wedge( [$options] )' unless $#$in == -1; # check imag has been called, and get information # - this is HORRIBLE my $iref = $self->_retrieve( 'imag' ); barf 'draw_wedge() can only be called after a call to imag()' unless defined $iref; # Let us parse the options if any. # - not convinced I know what I'm doing my $o; if ( defined $opt->{Wedge} ) { $o = $wedge_options->options( $opt->{Wedge} ); } else { $o = $wedge_options->current(); } $o->{ForeGround} = $$iref{max} unless defined( $o->{ForeGround} ); $o->{BackGround} = $$iref{min} unless defined( $o->{BackGround} ); # do we really want this? # - (03/15/01 DJB) removed since I assume that draw_wedge() # will be called before the focus has been changed. # Not ideal, but I don't think the current implementation will # handle such cases anyway (ie getting the correct min/max values # for the wedge). # $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); # get the options used to draw the axes # note: use the window object, not the options hash, though we # probably could/should do that my $wo = $self->{_env_options}[4]; # Save current status $self->_save_status(); # we use the colour/size of the axes here $self->_set_colour($wo->{AxisColour}); catch_signals { pgsch($wo->{CharSize}); # draw the wedge my $side = $o->{Side} . $$iref{routine}; pgwedg( $side, $o->{Displacement}, $o->{Width}, $o->{BackGround}, $o->{ForeGround}, $o->{Label} || $o->{WTitle} || '' ); }; # restore character colour & size before returning $self->_restore_status(); $self->_add_to_state(\&draw_wedge, $in, $opt); 1; } # sub: draw_wedge() } ###################################################################### # # imag and related functions # # display an image using pgimag()/pggray()/pgrgbi() as appropriate. # # The longish routine '_imag' handles the meat and potatoes of the setup, # but hands off the final plot to the PGPLOT routines pgimag() or pgrgbi(). # It expects a ref to the appropriate function to be passed in. The # userland methods 'imag' and 'rgbi' are just trampolines that call _imag # with the appropriate function ref. # # This gets pretty sticky for fits_imag, which is itself a trampoline for # _fits_foo -- so if you call fits_imag, it trampolines into fits_foo, which # does setup and then bounces into imag, which in turn hands off control # to pgimag. What a mess -- but at least it seems to work OK. For now. # -- CED 20-Jan-2002 # { # The ITF is in the general options - since other functions might want # it too. # # There is some repetitiveness in the code, but this is to allow the # user to set global defaults when opening a new window. # # # my $im_options = undef; sub _imag { my $self = shift; if (!defined($im_options)) { $im_options = $self->{PlotOptions}->extend({ Min => undef, Max => undef, Range => undef, CRange => undef, DrawWedge => 0, Wedge => undef, Justify => undef, Transform => undef }); } ############################## # Unwrap first two arguments: the PGPLOT call and the # dimensions of the image variable (2 or 3 depending # on whether this is called by imag or rgbi) my $pgcall = shift; my $image_dims = shift; ############################## # Pull out the rest of the arg list, and parse the options (if any). my ($in, $opt)=_extract_hash(@_); $opt = {} if !defined($opt); my ($o, $u_opt) = $self->_parse_options($im_options, $opt); ########## # Default to putting tick marks outside the box, so that you don't # scrozzle images. $o->{Axis} = 'BCINST' unless (defined($opt->{Axis}) || ($o->{Axis} ne 'BCNST')); $self->_add_to_state(\&imag, $in, $opt); barf 'Usage: (imag|rgbi) ( $image, [$min, $max, $transform] )' if $#$in<0 || $#$in>3; my ($image,$min,$max,$tr) = @$in; my ($cmin, $cmax) = (0,1); ## Make sure the image has the right number of dims... $self->_checkarg($image,$image_dims); my($nx,$ny) = $image->dims; $nx = 1 unless($nx); $ny = 1 unless($ny); my $itf = 0; $tr = $u_opt->{Transform} if exists($u_opt->{Transform}); $min = $u_opt->{Min} if exists($u_opt->{Min}); $max = $u_opt->{Max} if exists($u_opt->{Max}); # Check on ITF value hardcoded in. $itf = $u_opt->{ITF} if exists($u_opt->{ITF}); barf ( "illegal ITF value `$itf'") if $itf > 2 || $itf < 0; ## Option checker thunk gets defined only on first run-through. our $checker = sub { my($name,$opt,$min,$max) = @_; delete $opt->{$name} unless(defined $opt->{$name}); return unless exists($opt->{$name}); barf("$name option must be an array ref if specified.\n") if( ref ($opt->{$name}) ne 'ARRAY' ); ($$min,$$max) = @{$opt->{$name}} if defined($min); } unless(defined $checker); &$checker("Range", $u_opt, \$min, \$max); &$checker("CRange", $u_opt, \$cmin, \$cmax); &$checker("XRange", $u_opt); &$checker("YRange", $u_opt); $min = min($image) unless defined $min; $max = max($image) unless defined $max; if (defined($tr)) { $self->_checkarg($tr,1); barf '$transform incorrect' if nelem($tr)!=6; } else { $tr = float [0,1,0, 0,0,1]; } $tr = $self->CtoF77coords($tr); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); $self->initenv( _image_xyrange($tr,$nx,$ny,$o), $o ); catch_signals { pgsitf( $itf ); my ($i1, $i2); pgqcir($i1, $i2); # Default color range my($c1,$c2); $c1 = int($i1 + ($i2-$i1) * $cmin + 0.5); $c2 = int($i1 + ($i2-$i1) * $cmax + 0.5); print "Displaying $nx x $ny image from $min to $max, using ".($c2-$c1+1)." colors ($c1-$c2)...\n" if $PDL::verbose; # Disable PS pggray output because the driver is busted in pgplot-2.3 # (haven't tested later versions). pgimag seems to work OK for that # output tho'. if ($c2-$c1<16 || $self->{Device} =~ /^v?ps$/i) { print STDERR "_imag: Under 16 colors available; reverting to pggray\n" if($PDL::debug || $PDL::verbose); pggray( $image->get_dataref, $nx,$ny,1,$nx,1,$ny, $min, $max, $tr->get_dataref); $self->_store( imag => { routine => "G", min => $min, max => $max } ); } else { $self->ctab('Grey') unless $self->_ctab_set(); # Start with grey pgscir($c1,$c2); &$pgcall( $image->get_dataref, $nx,$ny,1,$nx,1,$ny, $min, $max, $tr->get_dataref); pgscir($i1,$i2); $self->_store( imag => { routine => "I", min => $min, max => $max } ); } }; # draw the wedge, if requested if ( $u_opt->{DrawWedge} ) { my $hflag = $self->held(); $self->hold(); $self->draw_wedge( $u_opt ); $self->release() unless $hflag; } $self->redraw_axes($u_opt) unless $self->held(); 1; } # sub: imag() } ###################################################################### # Here are the `top-level' imaging routines -- they call _imag to get # the job done. ########## # image - the basic image plotter sub imag { my $me = shift; my $im = shift; my @a = @_; if(UNIVERSAL::isa($im,'PDL') && ($im->ndims == 3) && ($im->dim(2)==3)) { rgbi($me,$im,@a); return; } _imag($me,\&pgimag,2,$im,@a); } ########## # imag1 - Plot an image with Justify = 1 sub imag1 { my $self = shift; my ($in,$opt)=_extract_hash(@_); my $im_options = $self->{PlotOptions}->extend({ Min => undef, Max => undef, DrawWedge => 0, Wedge => undef, XTitle => undef, YTitle => undef, Title => undef, Justify => 1 }); # Let us parse the options if any. $opt = {} if !defined($opt); my ($o, $u_opt) = $self->_parse_options($im_options, $opt); barf 'Usage: imag1 ( $image, [$min, $max, $transform] )' if $#$in<0 || $#$in>3; $o->{Pix} = 1 unless defined($o->{Pix}); $self->imag (@$in,$o); # This is not added to the state, because the imag command does that. } ########## # rgbi - Plot an image with 3 color planes sub rgbi { unless($PGPLOT::RGB_OK) { print STDERR "PGPLOT rgbi called, but RGB support is not present. Using grayscale instead.\n"; my $me = shift; my $in = shift; my $in2; if($in->dim(0)==3 && $in->dim(1)>3 && $in->dim(2)>3) { $in2 = $in->sumover; } else { $in2 = $in->mv(2,0)->sumover; } my @a = @_; return _imag($me,\&pgimag,2,$in2,@a); } barf("rgbi: RGB-enabled PGPLOT is not present\n") unless($PGPLOT::RGB_OK); my $me = shift; my @a = @_; my($in,$opt) = _extract_hash(@_); my($image) = shift @$in; if(UNIVERSAL::isa($image,'PDL')) { my @dims = $image->dims; if($dims[0] == 3 && $dims[1] > 3 && $dims[2] > 3) { print "rgbi: Hmmm... Found (rgb,X,Y) [deprecated] rather than (X,Y,rgb) [approved]." if($PDL::debug || $PDL::verbose); $image = $image->mv(0,2); } } $opt->{DrawWedge} = 0; # Get rid of nan elements... my $im2; my $m = !(isfinite $image); if(zcheck($m)) { $im2 = $image; } else { $im2 = $image->copy; $im2->range(scalar(whichND $m)) .= 0; } _imag($me,\&pgrgbi,3,$im2,@$in,$opt); } ###################################################################### # Here are the FITS subroutines # # They all use _fits_foo as a ``pre-call'' to set up the appropriate # image transformations and plot command. # # by fits_imag, fits_rgbi, and fits_cont. # { my $f_im_options = undef; sub _fits_foo { my $pane = shift; my ($in,$opt_in) = _extract_hash(@_); my ($pdl,@rest) = @$in; $opt_in = {} unless defined($opt_in); unless ( defined($f_im_options) ) { $f_im_options = $pane->{PlotOptions}->extend({ Contours=>undef, Follow=>0, Labels=>undef, LabelColour=>undef, Missing=>undef, NContours=>undef, FillContours=>undef, Min => undef, Max => undef, DrawWedge => 0, Wedge => undef, XRange=>undef, YRange=>undef, XTitle => undef, YTitle => undef, Title => undef, CharSize=>undef, CharThick=>undef, HardCH=>undef, HardLW=>undef, TextThick=>undef, WCS => undef, }); } my($opt,$u_opt) = $pane->_parse_options($f_im_options,$opt_in); my $hdr = $pdl->gethdr(); # What WCS system are we using? # we could check that the WCS is valid here but we delegate it # to the _FITS_tr() routine. my %opt2 = %$u_opt; # copy options my $wcs = delete $opt2{WCS} || ""; $opt2{Transform} = _FITS_tr($pane,$pdl,{WCS => $wcs}); delete @opt2{ grep /title/i, keys %opt2 }; $opt2{Align} //= 'CC'; $opt2{DrawWedge} //= 1; # I am assuming here that CUNIT1 is a valid keyword for # 'alternative' WCS mappings (DJB) $opt2{Pix}=1.0 if( (!defined($opt2{Justify}) || !$opt2{Justify}) && (!defined($opt2{Pix})) && ( $hdr->{"CUNIT1$wcs"} ? ($hdr->{"CUNIT1$wcs"} eq $hdr->{"CUNIT2$wcs"}) : ($hdr->{"CTYPE1$wcs"} eq $hdr->{"CTYPE2$wcs"}) ) ); ([$pdl, @rest, \%opt2], [ $opt->{XTitle} || _mkaxis(@$hdr{"CTYPE1$wcs","CUNIT1$wcs"}), $opt->{YTitle} || _mkaxis(@$hdr{"CTYPE2$wcs","CUNIT2$wcs"}), $opt->{Title}, $opt ]); } # sub: _fits_foo() my @fits_templates = ("(arbitrary units)","%u","%t","%t (%u)"); sub _mkaxis { my ($typ,$unit) = @_; my $s = $fits_templates[2 * defined($typ) + (defined $unit && $unit !~ m/^\s+$/)]; $s =~ s/%u/$unit/; $s =~ s/%t/$typ/; $s; } sub fits_imag { my $self = shift; my ($main_args, $label_args) = _fits_foo($self,@_); $self->imag(@$main_args); $self->label_axes(@$label_args); } sub fits_rgbi { my $self = shift; my ($main_args, $label_args) = _fits_foo($self,@_); $self->rgbi(@$main_args); $self->label_axes(@$label_args); } sub fits_cont { my $self = shift; my ($main_args, $label_args) = _fits_foo($self,@_); $self->cont(@$main_args); $self->label_axes(@$label_args); } sub fits_vect { my($self) = shift; my ($main_args, $label_args) = _fits_foo($self,@_); $self->vect(@$main_args); $self->label_axes(@$label_args); } } # closure around _fits_foo and fits_XXXX routines # Load a colour table using pgctab() # # Modified 7/4/02 JB - having the last colour table as a variable in here # did not work. So it is now moved to the $self hash. { # This routine doesn't really have any options at the moment, but # it uses the following standard variables my %CTAB = (); $CTAB{Grey} = [ pdl([0,1],[0,1],[0,1],[0,1]) ]; $CTAB{Igrey} = [ pdl([0,1],[1,0],[1,0],[1,0]) ]; $CTAB{Fire} = [ pdl([0,0.33,0.66,1],[0,1,1,1],[0,0,1,1],[0,0,0,1]) ]; $CTAB{Gray} = $CTAB{Grey}; # Alias $CTAB{Igray} = $CTAB{Igrey}; # Alias # It would be easy to add options though.. sub _ctab_set { my $self = shift; return defined($self->{CTAB}); } sub ctab { my $self = shift; my ($in, $opt)=_extract_hash(@_); # No arguments -- print list of tables if (scalar(@$in) == 0) { print "Available 'standard' color tables are:\n",join(",",sort keys %CTAB) ,"\n"; return; } # No arguments -- print list of tables if (scalar(@$in) == 0) { print "Available 'standard' color tables are:\n",join(",",sort keys %CTAB) ,"\n"; return; } # First indirect arg list through %CTAB my(@arg) = @$in; my($ctab, $levels, $red, $green, $blue, $contrast, $brightness, @t, $n); if ($#arg>=0 && !ref($arg[0])) { # First arg is a name not an object # if first arg is undef or empty string, means use last CTAB. # preload with Grey if no prior CTAB $arg[0] = 'Grey' unless $arg[0] || $self->{CTAB}; # now check if we're using the last one specified if ( ! $arg[0] ) { shift @arg; unshift @arg, @{$self->{CTAB}->{ctab}}; $brightness = $self->{CTAB}->{brightness}; $contrast = $self->{CTAB}->{contrast}; } else { my $name = ucfirst(lc(shift @arg)); # My convention is $CTAB{Grey} etc... barf "$name is not a standard colour table" unless defined $CTAB{$name}; unshift @arg, @{$CTAB{$name}}; } } if ($#arg<0 || $#arg>5) { my @std = keys %CTAB; barf <<"EOD"; Usage: ctab ( \$name, [\$contrast, $\brightness] ) # Builtin col table [Builtins: @std] ctab ( \$ctab, [\$contrast, \$brightness] ) # $ctab is Nx4 array ctab ( \$levels, \$red, \$green, \$blue, [\$contrast, \$brightness] ) EOD } if ($#arg<3) { ($ctab, $contrast, $brightness) = @arg; @t = $ctab->dims; barf 'Must be a Nx4 array' if $#t != 1 || $t[1] != 4; $n = $t[0]; $ctab = float($ctab) if $ctab->get_datatype != $PDL_F; my $nn = $n-1; $levels = $ctab->slice("0:$nn,0:0"); $red = $ctab->slice("0:$nn,1:1"); $green = $ctab->slice("0:$nn,2:2"); $blue = $ctab->slice("0:$nn,3:3"); } else { ($levels, $red, $green, $blue, $contrast, $brightness) = @arg; $self->_checkarg($levels,1); $n = nelem($levels); for ($red,$green,$blue) { $self->_checkarg($_,1); barf 'Arguments must have same size' unless nelem($_) == $n; } } # Now load it $contrast = 1 unless defined $contrast; $brightness = 0.5 unless defined $brightness; focus( $self ); catch_signals { pgctab( $levels->get_dataref, $red->get_dataref, $green->get_dataref, $blue->get_dataref, $n, $contrast, $brightness ); }; $self->{CTAB} = { ctab => [ $levels, $red, $green, $blue ], brightness => $brightness, contrast => $contrast }; # Loaded $self->_add_to_state(\&ctab, $in, $opt); 1; } # get information on last CTAB load sub ctab_info { my $self = shift; my ($in, $opt)=_extract_hash(@_); barf 'Usage: ctab_info( )' if $#$in> -1; return () unless $self->{CTAB}; return @{$self->{CTAB}}{qw(ctab contrast brightness)}; } } # display an image using pghi2d() { my $hi2d_options = undef; sub hi2d { my $self = shift; if (!defined($hi2d_options)) { $hi2d_options = $self->{PlotOptions}->extend({ Ioff => undef, Bias => undef }); } my ($in, $opt)=_extract_hash(@_); $opt = {} if !defined($opt); barf 'Usage: hi2d ( $image, [$x, $ioff, $bias] [, $options] )' if $#$in<0 || $#$in>3; my ($image, $x, $ioff, $bias) = @$in; $self->_checkarg($image,2); my($nx,$ny) = $image->dims; # Let us parse the options if any. my ($o, $u_opt) = $self->_parse_options($hi2d_options, $opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); if (defined($x)) { $self->_checkarg($x,1); barf '$x incorrect' if nelem($x)!=$nx; } else { $x = float(sequence($nx)); } # Parse for options input instead of calling convention $ioff = $o->{Ioff} || 1 unless defined($ioff); $bias = $o->{Bias} if defined($o->{Bias}); $bias = 5*max($image)/$ny unless defined $bias; my $work = float(zeroes($nx)); $self->_save_status(); $self->_standard_options_parser($u_opt); $self->initenv( 0 ,2*($nx-1), 0, 10*max($image), $opt ) unless $self->held(); catch_signals { pghi2d($image->get_dataref, $nx, $ny, 1,$nx,1,$ny, $x->get_dataref, $ioff, $bias, 1, $work->get_dataref); }; $self->_restore_status(); $self->_add_to_state(\&hi2d, $in, $opt); 1; } } # Plot a rectangle with pgrect() sub rect { my $self = shift; my ($in, $opt)=_extract_hash(@_); barf 'Usage: rect ( $x1, $x2, $y1, $y2 [, $options] )' if( $#$in<0 || $#$in>3); my($x1,$x2,$y1,$y2) = @$in; $self->_checkarg($x1,1); $self->_checkarg($x2,1); $self->_checkarg($y1,1); $self->_checkarg($y2,1); my ($o, $u_opt) = $self->_parse_options($self->{PlotOptions}, ($opt || {})); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); unless ( $self->held() ) { my ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax(pdl($x1->at(0),$x2->at(0))); my ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax(pdl($y1->at(0),$y2->at(0))); if ($xmin == $xmax) { $xmin -= 0.5; $xmax += 0.5; } if ($ymin == $ymax) { $ymin -= 0.5; $ymax += 0.5; } $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt ); } $self->_save_status(); $self->_standard_options_parser($u_opt); catch_signals { pgrect($x1, $x2, $y1, $y2); }; $self->_restore_status(); $self->_add_to_state(\&poly, $in, $opt); 1; } # Plot a polygon with pgpoly() sub poly { my $self = shift; my ($in, $opt)=_extract_hash(@_); barf 'Usage: poly ( $x, $y [, $options] )' if $#$in<0 || $#$in>2; my($x,$y) = @$in; $self->_checkarg($x,1); $self->_checkarg($y,1); my ($o, $u_opt) = $self->_parse_options($self->{PlotOptions}, $opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); unless ( $self->held() ) { my ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : minmax($x); my ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : minmax($y); if ($xmin == $xmax) { $xmin -= 0.5; $xmax += 0.5; } if ($ymin == $ymax) { $ymin -= 0.5; $ymax += 0.5; } $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt ); } $self->_save_status(); $self->_standard_options_parser($u_opt); my $n = nelem($x); catch_signals { pgpoly($n, $x->get_dataref, $y->get_dataref); }; $self->_restore_status(); $self->_add_to_state(\&poly, $in, $opt); 1; } # Plot a circle using pgcirc { my $circle_options = undef; sub circle { my $self = shift; if (!defined($circle_options)) { $circle_options = $self->{PlotOptions}->extend({Radius => undef, XCenter => undef, YCenter => undef}); } my ($in, $opt)=_extract_hash(@_); $opt = {} if !defined($opt); my ($x, $y, $radius)=@$in; my ($o, $u_opt) = $self->_parse_options($circle_options, $opt); $o->{XCenter}=$x if defined($x); $o->{YCenter}=$y if defined($y); $o->{Radius} = $radius if defined($radius); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); ##DAL added this to properly set environment unless ( $self->held() ) { my ($xmin, $xmax)=ref $o->{XRange} eq 'ARRAY' ? @{$o->{XRange}} : ($x-$radius,$x+$radius); my ($ymin, $ymax)=ref $o->{YRange} eq 'ARRAY' ? @{$o->{YRange}} : ($y-$radius,$y+$radius); $self->initenv( $xmin, $xmax, $ymin, $ymax, $opt ); } ##end DAL addition $self->_save_status(); $self->_standard_options_parser($u_opt); catch_signals { pgcirc($o->{XCenter}, $o->{YCenter}, $o->{Radius}); }; $self->_restore_status(); $self->_add_to_state(\&circle, $in, $opt); } } # Plot an ellipse using poly. { my $ell_options = undef; sub ellipse { my $self = shift; if (!defined($ell_options)) { $ell_options = $self->{PlotOptions}->extend({ MajorAxis=>undef, MinorAxis=>undef, Theta => 0.0, XCenter => undef, YCenter => undef, NPoints => 100 }); $ell_options->synonyms({Angle => 'Theta'}); } my ($in, $opt)=_extract_hash(@_); $opt = {} unless defined $opt; my ($x, $y, $c, $d, $theta)=@$in; my $o = $ell_options->options($opt); $o->{XCenter}=$x if defined($x); $o->{YCenter}=$y if defined($y); $o->{MajorAxis} = $c if defined($c); $o->{MinorAxis} = $d if defined($d); $o->{Theta}=$theta if defined($theta); if (!defined($o->{MajorAxis}) || !defined($o->{MinorAxis}) || !defined($o->{XCenter}) || !defined($o->{YCenter})) { barf "The major and minor axis and the center coordinates must be given!"; } $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); my $t = 2*$PI*sequence($o->{NPoints})/($o->{NPoints}-1); my ($xtmp, $ytmp) = ($o->{MajorAxis}*cos($t), $o->{MinorAxis}*sin($t)); # Rotate the ellipse and shift it. my ($costheta, $sintheta)=(cos($o->{Theta}), sin($o->{Theta})); $x = $o->{XCenter}+$xtmp*$costheta-$ytmp*$sintheta; $y = $o->{YCenter}+$xtmp*$sintheta+$ytmp*$costheta; $self->_add_to_state(\&ellipse, $in, $opt); # Now turn off recording so we don't get this one twice.. $self->turn_off_recording(); $self->poly($x, $y, $opt); $self->turn_on_recording(); } } { my $rect_opt = undef; sub rectangle { my $self = shift; my $usage='Usage: rectangle($xcenter, $ycenter, $xside, $yside, [, $angle, $opt])'; if (!defined($rect_opt)) { # No need to use $self->{PlotOptions} here since we # pass control to poly below. $rect_opt = PDL::Options->new({XCenter => undef, YCenter => undef, XSide => undef, YSide => undef, Angle => 0, Side => undef}); $rect_opt->synonyms({XCentre => 'XCenter', YCentre => 'YCenter', Theta => 'Angle'}); $rect_opt->warnonmissing(0); } my ($in, $opt)=_extract_hash(@_); $opt={} if !defined($opt); my ($xc, $yc, $xside, $yside, $angle)=@$in; my $o=$rect_opt->options($opt); $o->{XCenter}=$xc if defined($xc); $o->{YCenter}=$yc if defined($yc); $o->{XSide}=$xside if defined($xside); $o->{YSide}=$yside if defined($yside); $o->{Angle}=$angle if defined($angle); ## # Now do some error checking and checks for squares. ## if (defined($o->{XSide}) || defined($o->{YSide})) { # At least one of these are set - let us ignore Side. $o->{XSide}=$o->{YSide} if !defined($o->{XSide}); $o->{YSide}=$o->{XSide} if !defined($o->{YSide}); } elsif (defined($o->{Side})) { $o->{XSide}=$o->{Side}; $o->{YSide}=$o->{Side}; } else { print "$usage\n"; barf 'The sides of the rectangle must be specified!'; } unless (defined($o->{XCenter}) && defined($o->{YCenter})) { print "$usage\n"; barf 'The center of the rectangle must be specified!'; } $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); # Ok if we got this far it is about time to do something useful, # namely construct the ndarray that contains the sides of the rectangle. # We make it first parallell to the coordinate axes around origo # and rotate it subsequently (ala the ellipse routine above). my ($dx, $dy)=(0.5*$o->{XSide}, 0.5*$o->{YSide}); my $xtmp = pdl(-$dx, $dx, $dx, -$dx, -$dx); my $ytmp = pdl(-$dy, -$dy, $dy, $dy, -$dy); my ($costheta, $sintheta)=(cos($o->{Angle}), sin($o->{Angle})); my $x = $o->{XCenter}+$xtmp*$costheta-$ytmp*$sintheta; my $y = $o->{YCenter}+$xtmp*$sintheta+$ytmp*$costheta; $self->_add_to_state(\&rectangle, $in, $opt); # Turn off recording temporarily. $self->turn_off_recording(); $self->poly($x, $y, $opt); $self->turn_on_recording(); } } # display a vector map of 2 images using pgvect() { my $vect_options = undef; sub vect { my $self = shift; if (!defined($vect_options)) { $vect_options = $self->{PlotOptions}->extend({ Scale => 0, Position => 0, Missing => undef }); $vect_options->add_synonym({Pos => 'Position'}); } my ($in, $opt)=_extract_hash(@_); barf 'Usage: vect ( $x, $y, [$scale, $pos, $transform, $misval] )' if $#$in<1 || $#$in>5; my ($x, $y, $scale, $pos, $tr, $misval) = @$in; $self->_checkarg($x,2); $self->_checkarg($y,2); my($nx,$ny) = $x->dims; my($n1,$n2) = $y->dims; barf 'Dimensions of $x and $y must be the same' unless $n1==$nx && $n2==$ny; my ($o, $u_opt) = $self->_parse_options($vect_options, $opt); $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); # Parse for options input instead of calling convention $scale = $o->{Scale} if exists($u_opt->{Scale}); $pos = $o->{Position} if exists($u_opt->{Scale}); $tr = $o->{Transform} if exists($u_opt->{Transform}); $misval = $o->{Missing} if exists($u_opt->{Missing}); #What if there's no Missing option supplied and one of the input ndarrays #contain zero? Then that location will have no arrow, instead of a #horizontal or vertical line. So define $misval, but make it meaningless: $misval = 1 + $x->glue(0,$y)->flat->maximum unless defined $misval; #DAL added 02-Jan-2006 $scale = 0 unless defined $scale; $pos = 0 unless defined $pos; if (defined($tr)) { $self->_checkarg($tr,1); barf '$transform incorrect' if nelem($tr)!=6; } else { $tr = float [0,1,0, 0,0,1]; } $tr = $self->CtoF77coords($tr); $self->initenv( 0, $nx-1, 0, $ny-1, $opt ) unless $self->held(); print "Vectoring $nx x $ny images ...\n" if $PDL::verbose; $self->_save_status(); $self->_standard_options_parser($u_opt); # For arrowtype and arrowhead catch_signals { pgvect( $x->get_dataref, $y->get_dataref, $nx,$ny,1,$nx,1,$ny, $scale, $pos, $tr->get_dataref, $misval); }; $self->_restore_status(); $self->_add_to_state(\&vect, $in, $opt); 1; } } # ############ Text routines ############# { # Do not create this object unless necessary. my $text_options = undef; sub text { my $self = shift; if (!defined($text_options)) { # This is the first time this routine is called so we # have to initialise the options object. $text_options = $self->{PlotOptions}->extend({ Angle => 0.0, Justification => 0.0, Text => '', XPos => undef, YPos => undef }); $text_options->add_synonym({Justify => 'Justification'}); $text_options->add_synonym({Bg => 'BackgroundColour'}); } # Extract the options hash and separate it from the other input my ($in, $opt)=_extract_hash(@_); $opt = {} if !defined($opt); barf 'Usage: text ($text, $x, $y, [,$opt])' if (!defined($opt) && $#$in < 2) || ($#$in > 3) || ($#$in < 0); my ($text, $x, $y)=@$in; # Next - parse options my ($o, $u_opt) = $self->_parse_options($text_options, $opt); # Check for change of panel or request to erase the panel # (Commented out by CED 21-Jun-2002, because this seems # to erase too much -- e.g. it's hard to scribble on a line plot!) # $self->_check_move_or_erase($o->{Panel}, $o->{Erase}); # Parse standard options such as colour $self->_save_status(); $self->_standard_options_parser($u_opt); # Finally do what the routine needs to do. $o->{Text}=$text if defined($text); $o->{XPos}=$x if defined($x); $o->{YPos}=$y if defined($y); barf "text: You must specify the X-position!\n" if !defined($o->{XPos}); barf "text: You must specify the Y-position!\n" if !defined($o->{YPos}); # Added support for different background colours.. # 2/10/01 JB - To avoid -w noise we use a reg-exp.. if ($o->{BackgroundColour} !~ m/^-\d+$/) { $self->_set_colour($o->{BackgroundColour}, 1); } # what width do we use? # - things are somewhat confused since we have # LineWidth and TextWidth (a recent addition) # and LineWidth is set by _setup_window() - so # _standard_options_parser() uses it - but # TextWidth isn't. # # so for now we over-ride the _standard_options_parser # setting if TextWidth exists # [DJB 2002 Aug 08] my $old_lw; catch_signals { if ( defined($o->{TextWidth}) ) { pgqlw($old_lw); pgslw($o->{TextWidth}); } my $old_bg; pgptxt($o->{XPos}, $o->{YPos}, $o->{Angle}, $o->{Justification}, $o->{Text}); pgslw($old_lw) if defined $old_lw; }; $self->_restore_status(); $self->_add_to_state(\&text, $in, $opt); 1; } } { my $legend_options = undef; sub legend { my $self = shift; if (!defined($legend_options)) { $legend_options = $self->{PlotOptions}->extend({ Text => undef, XPos => undef, YPos => undef, Width => 'Automatic', Height => 'Automatic', TextFraction => 0.5, TextShift => 0.1, VertSpace => 0 }); # should this be synonyms() or add_synonym() ? DJB 09 Apr 03 $legend_options->add_synonym({ VSpace => 'VertSpace', Fraction => 'TextFraction', Bg => 'BackgroundColour', }); } my ($in, $opt)=_extract_hash(@_); $opt = {} if !defined($opt); my ($o, $u_opt) = $self->_parse_options($legend_options, $opt); # # In this function there are several options that we do not want # parsed by the standard options parsers so we deal with these # here - we translate the linestyles, symbols and colours below # my %myopt; foreach my $optname ( qw( LineStyle LineWidth Colour Symbol ) ) { my $tmp = $u_opt->{$optname}; $myopt{lc($optname)} = ref($tmp) eq "ARRAY" ? $tmp : [$tmp]; delete $u_opt->{$optname}; } my ($text, $x, $y, $width)=@$in; $o->{Text} = $text if defined($text); $o->{XPos} = $x if defined($x); $o->{YPos} = $y if defined($y); $o->{Width} = $width if defined($width); # We could keep accessing $o but this is more succint. # [In the following we want to deal with an array of text.] $text = $o->{Text}; $text = [$text] unless ref($text) eq 'ARRAY'; my $n_lines = $#$text+1; if (!defined($o->{XPos}) || !defined($o->{YPos}) || !defined($o->{Text})) { barf 'Usage: legend $text, $x, $y [,$width, $opt] (styles are given in $opt)'; } $self->_save_status(); $self->_standard_options_parser($u_opt); # Set font, charsize, colour etc. # Ok, introductory stuff has been done, lets get down to the gritty # details. First let us save the current character size. catch_signals { pgqch(my $chsz); ## Now, set the background colour of the text before getting further. ## Added 2/10/01 - JB - test as a regexp to avoid -w noise. if ($o->{BackgroundColour} !~ m/^-?\d+$/) { # Do this unless a negative integer.. $self->_set_colour($o->{BackgroundColour}, 1); } # The size of the legend can be specified by giving the width or the # height so to calculate the required text size we need to find the # minimum required (since text in PGPLOT cannot have variable width # and height. # Get the window size. pgqwin( my $xmin, my $xmax, my $ymin, my $ymax ); # note: VertSpace is assumed to be a scalar my $vfactor = 1.0 + $o->{VertSpace}; my $required_charsize=$chsz*9000; if ($o->{Width} eq 'Automatic' && $o->{Height} eq 'Automatic') { # Ok - we just continue with the given character size. $required_charsize = $chsz; # We still need to calculate the width and height of the legend # though. Fixed 20/3/01 my $t_width = -1; # Very short text... my $t_height = -1; # And very low foreach my $t (@$text) { # Find the bounding box of left-justified text pgqtxt($xmin, $ymin, 0.0, 0.0, $t, my $xbox, my $ybox); my $dx = $$xbox[2] - $$xbox[0]; my $dy = $$ybox[2] - $$ybox[0]; $t_width = $dx if $dx > $t_width; $t_height = $dy if $dy > $t_height; } $o->{Width} = $t_width/$o->{TextFraction}; # we include an optional vspace (which is given as a fraction of the # height of a line) $o->{Height} = $t_height*$vfactor*$n_lines; # The height of all lines.. } else { # We have some constraint on the size. my ($win_width, $win_height)=($xmax-$xmin, $ymax-$ymin); # If either the width or the height is set to automatic we set # the width/height here to be 2 times the width/height of the # plot window - thus ensuring not too large a text size should the # user have done something stupid, but still large enough to # detect an error. $o->{Width} = 2*$win_width/$o->{TextFraction} if $o->{Width} eq 'Automatic'; $o->{Height} = 2*$win_height if $o->{Height} eq 'Automatic'; foreach my $t (@$text) { # Find the bounding box of left-justified text pgqtxt($xmin, $ymin, 0.0, 0.0, $t, my $xbox, my $ybox); my $dx = $$xbox[2] - $$xbox[0]; my $dy = $$ybox[2] - $$ybox[0]; # Find what charactersize is required to fit the height # (accounting for vspace) or fraction*width: my $t_width = $o->{TextFraction}*$o->{Width}/$dx; my $t_height = $o->{Height}/$vfactor/$n_lines/$dy; # XXX is $vfactor==(1+VertSpace) correct? my $t_chsz = ($t_width < $t_height ? $t_width*$chsz : $t_height*$chsz); $required_charsize = $t_chsz if $t_chsz < $required_charsize; pgsch($required_charsize*$chsz); # Since we measured relative to $chsz } } # # Ok, $required_charsize should now contain the optimal size for the # text. The next step is to create the legend. We can set linestyle, # linewidth, colour and symbol for each of these texts. # my ($xpos, $ypos) = ($o->{XPos}, $o->{YPos}); my ($xstart, $xend)=($o->{XPos}+$o->{TextFraction}*$o->{Width}+ $o->{TextShift}*$o->{Width}, $o->{XPos}+$o->{Width}); my $xmid = 0.5 * ($xstart + $xend); # step size in y my $ystep = $o->{Height} / $n_lines; # store current settings pgqci(my $col); pgqls(my $ls); pgqlw(my $lw); foreach (my $i=0; $i<$n_lines; $i++) { $self->text($text->[$i], $xpos, $ypos); # Since the parsing of options does not go down array references # we need to create a temporary PDL::Options object here to do the # parsing.. my $t_o = $self->{PlotOptions}->options({ Symbol => $myopt{symbol}[$i], LineStyle => $myopt{linestyle}[$i], LineWidth => $myopt{linewidth}[$i], Colour => $myopt{colour}[$i], }); $self->_set_colour($t_o->{Colour}) if defined($myopt{colour}[$i]); # Use the following to get the lines/symbols centered on the # text. pgqtxt($xpos, $ypos, 0.0, 0.0, $text->[$i], my $xbox, my $ybox); my $ymid = 0.5 * ($$ybox[2] + $$ybox[0]); if (defined($myopt{symbol}[$i])) { pgpt(1, $xmid, $ymid, $t_o->{Symbol}); } else { pgsls($t_o->{LineStyle}) if defined $myopt{linestyle}[$i]; pgslw($t_o->{LineWidth}) if defined $myopt{linewidth}[$i]; pgline(2, [$xstart, $xend], [$ymid, $ymid]); } # reset colour, line style & width after each line $self->_set_colour($col); pgsls($ls); pgslw($lw); $ypos -= $ystep; } }; $self->_restore_status(); $self->_add_to_state(\&legend, $in, $opt); } } ############## Cursor routine ################## { my $cursor_options = undef; sub cursor { my $self = shift; # Let us check if this is a hardcopy device, in which case we will return # with a warning and undefined values. my ($hcopy, $len); pgask(0); pgqinf("HARDCOPY",$hcopy,$len); if ($hcopy eq 'YES') { warn "cursor called on a hardcopy device - returning!\n"; return (undef, undef, undef, undef, undef); } if (!defined($cursor_options)) { $cursor_options = PDL::Options->new( { 'XRef' => undef, 'YRef' => undef, 'Type' => 0 }); $cursor_options->translation({Type=>{ 'Default' => 0, 'RadialLine' => 1, 'Rectangle' => 2, 'TwoHorizontalLines' => 3, 'TwoVerticalLines' => 4, 'HorizontalLine' => 5, 'VerticalLine' => 6, 'CrossHair' => 7 }}); } my ($opt)=@_; $opt = {} unless defined($opt); my $place_cursor=1; # Since X&Y might be uninitialised. my $o = $cursor_options->options($opt); my ($x, $y, $ch); # The window needs to be focussed before using the cursor commands. # Added 08/08/01 by JB after bug report from Brad Holden. $self->focus(); catch_signals { if ($o->{Type} eq 'Rectangle' && !defined($o->{XRef})) { # # We use pgcurs to get a first position. # print "Please select a corner of the rectangle\n"; pgcurs($x, $y, $ch); $o->{XRef}=$x; $o->{YRef}=$y; } if ($o->{Type} > 7 || $o->{Type} < 0) { print "Unknown type of cursor $$o{Type} - using Default\n"; $o->{Type}=0; } my ($xmin, $xmax, $ymax, $ymin); pgqwin($xmin, $xmax, $ymin, $ymax); $x = $o->{XRef} if defined($o->{XRef}); $y = $o->{YRef} if defined($o->{YRef}); $x = 0.5*($xmin+$xmax) if !defined($x); $y = 0.5*($ymin+$ymax) if !defined($y); my ($got_xref, $got_yref)=(defined($o->{XRef}), defined($o->{YRef})); if (!$got_xref || !$got_yref) { # There is a little bit of gritty error-checking # for the users convenience here. if ($o->{Type}==1 || $o->{Type}==2) { barf "When specifying $$o{Type} as cursor you must specify the reference point"; } elsif ($o->{Type}==3 && !$got_yref) { barf "When specifying two horizontal lines you must specify the Y-reference"; } elsif ($o->{Type}==4 && !$got_xref ) { barf "When specifying two vertical lines you must specify the X-reference"; } # Ok so we have some valid combination of type and reference point. $o->{XRef}=$xmin if !$got_xref; $o->{YRef}=$ymin if !$got_yref; } $ch = ''; # To silence -w my $istat = pgband($o->{Type}, $place_cursor, $o->{XRef}, $o->{YRef}, $x, $y, $ch); }; $self->_add_to_state(\&cursor, [], $opt); return ($x, $y, $ch, $o->{XRef}, $o->{YRef}); } } =head1 INTERNAL The coding tries to follow reasonable standards, so that all functions starting with an underscore should be considered as internal and should not be called from outside the package. In addition most routines have a set of options. These are encapsulated and are not accessible outside the routine. This is to avoid collisions between different variables. =head1 AUTHOR Karl Glazebrook [kgb@aaoepp.aao.gov.au] modified by Jarle Brinchmann (jarle@astro.ox.ac.uk) who is also responsible for the OO interface, docs mangled by Tuomas J. Lukka (lukka@fas.harvard.edu) and Christian Soeller (c.soeller@auckland.ac.nz). Further contributions and bugfixes from Kaj Wiik, Doug Burke, Craig DeForest, and many others. All rights reserved. There is no warranty. You are allowed to redistribute this software / documentation under certain conditions. For details, see the file COPYING in the PDL distribution. If this file is separated from the PDL distribution, the copyright notice should be included in the file. =cut 1; PGPLOT-2.35/lib/PDL/Graphics/PGPLOT.pm0000644000175000017500000003742214600071270016673 0ustar osboxesosboxes# Graphics functions for the PDL module, this module # requires the PGPLOT module be previously installed. # PGPLOT functions are also made available to the caller. =head1 NAME PDL::Graphics::PGPLOT - PGPLOT enhanced interface for PDL =head1 SYNOPSIS pdl> $x = pdl [1..100] pdl> $y = sqrt($x) pdl> line $y pdl> hold Graphics on HOLD pdl> $c = sin($x/10)*2 + 4 pdl> line $c =head1 DESCRIPTION C is a convenience interface to the PGPLOT commands, implemented using the object oriented PGPLOT plotting package in L. See the documentation for that package for in-depth information about the usage of these commands and the options they accept. The list of currently availably commands: imag - Display an image (uses pgimag()/pggray() as appropriate) im - Shorthand to display an image with aspect ratio of 1 fits_imag - Display a FITS image with appropriate transforms & labels cont - Display image as contour map fits_cont - Display a FITS image in scientific coordinates as a contour map vect - Display 2 images as a vector field fits_vect - Display 2 FITS images in sci. coordinates as a vector field ctab - Load an image colour table ctab_info - Get information about currently loaded colour table line - Plot vector as connected points points - Plot vector as points errb - Plot error bars bin - Plot vector as histogram (e.g. bin(hist($data)) ) hi2d - Plot image as 2d histogram (not very good IMHO...) poly - Draw a polygon text - Write text in the plot area label_axes - Print axis titles legend - Create a legend with different texts, linestyles etc. cursor - Interactively read cursor positions. circle - Draw a circle ellipse - Draw an ellipse. Device manipulation commands: hold - Hold current plot window range - allows overlays etc. release - Release back to autoscaling of new plot window for each command rel - short alias for 'release' env - Define a plot window, put on 'hold' dev - Explicitly set a new PGPLOT graphics device new_window - Create a new plot window (use of dev is recommended) focus_window - Change focus to a new window window_list - Get a list of currently existing plot windows close_window - Close an open window =head1 FUNCTIONS The following is a list of the functions that are private to this package, for the other functions please read the L documentation. =head2 dev =for ref Open PGPLOT graphics device =for usage Usage: dev $device, [$nx,$ny, $opt]; C<$device> is a PGPLOT graphics device such as "/xserve" or "/ps", if omitted defaults to last used device (or value of env var C if first time). C<$nx>, C<$ny> specify sub-panelling. The function returns the id of the newly created window - this can subsequently be used as argument to C to select the window. The result of this command can be modified using options. The options recognised are the same as for C - which primarily and in addition it is possible to set the default values for a window that are defined in L, see this for details but see below for a synopsis. In addition C recognises the option C which allows the user to specify that a C command is to create a new window rather than closing the previous. This allows a large number of output destinations to be open at the same time, which occasionally can be convenient. Here is a quick summary of the most useful additional options that can be given: =over =item Device Alternative to C<$device>. =item AspectRatio The aspect ratio of the output window =item WindowWidth The width of the plot window in inches =item AxisColour The axis colour to be used as default for plots in this window. In the same way it is possible to set the default character size (C) and axis and box styles. See L for details. =item WindowName The name of a window. This name can subsequently be used to refer to the window instead of its ID, making interactive use somewhat more intuitive. =back =for example To open a X-window output that will stay on screen: $win = dev('/xs'); To open two windows, one small and square, one large and wide: $win1 = dev('/xs', {Aspect => 1, WindowWidth => 4}); $win2 = dev('/xs', {Aspect => 0.5, WindowWidth => 10}); =cut package PDL::Graphics::PGPLOT; use strict; use warnings; # Just a plain function exporting package use PDL::Core qw/:Func :Internal/; # Grab the Core names use PDL::Graphics::PGPLOTOptions qw(default_options); use PDL::Graphics::PGPLOT::Window; use PGPLOT; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw( dev hold release rel env bin errb line points fits_imag imag imag1 fits_cont cont fits_vect vect draw_wedge ctab ctab_info hi2d poly CtoF77coords new_window focus_window window_list close_window label_axes text legend cursor circle ellipse rectangle tpoints tline retrieve_state replay turn_off_recording turn_on_recording clear_state autolog get_current_window transform ); *rel = *release; # Alias *image = *imag; ############################################################################ ############################################################# # This is a new version of PGPLOT which uses PDL::Options for # option parsing. ############################################################# # Option explanation: # # Each routine has a set of options, and there is also a set of # global options that may or may not affect a particular routine. # The global options are defined here in the start of the code. # # This require a minor adjustment to the PDL::Options code since # otherwise we would need to define the global options everywhere. # # The actual setting of default parameters is split off in a separate # file PDL::Graphics::PGPLOTOptions - which also exports default_options # used below. # The list of default global opttions, synonyms and translations. # END { # Destructor to close plot when perl exits _close_windows(); } ############################################################# # We now want to be able to have several plotting windows # # The current set of windows is stored in these # # variables - accessed by the local subs. Added JB 12/7/00 # # # # This has lead to a substantial rewrite of the code since # # all the real work is now done in the Window object which # # this routine only provides a convenient (and backwards # # compatible) interface to. # ############################################################# my @_WINDOWS=(); # The list of windows to access - the value is the options. my %_WINDOWNAMES = (); # A map of names for each window to their number. my $CW = undef; =head2 new_window =for ref Open a PGPLOT graphics device =for usage $win = new_window($dev, $nx, $ny, $opt); This function is identical to L except that it always creates a new window. This means that the user is required to close all windows explicitly using L. All functionality is otherwise like C so see the documentation for L for details of use. =cut sub new_window { my ($dev, $nx, $ny, $opt)=@_; if (ref($dev) eq 'HASH') { $opt = $dev; ($dev, $nx, $ny)=(undef, undef, undef); } elsif (ref($nx) eq 'HASH') { $opt = $nx; ($nx, $ny)=(undef, undef); } $opt={} unless defined($opt); # This will cause problems if people both pass dev, nx & ny _and_ # passes them in an options hash with poor spelling - don't do that.. $opt->{Device}=$dev if defined($dev); $opt->{NXPanel}=$nx if defined($nx); $opt->{NYPanel}=$ny if defined($ny); # Now insert the necessary information in the variables above. # barf "Options must be an anonymous hash!\n" if defined($_[0]) && # ref($_[0]) ne 'HASH'; my $win = PDL::Graphics::PGPLOT::Window->new($opt); my ($name, $id) = ($win->name(), $win->id()); $_WINDOWS[$id] = $name; $_WINDOWNAMES{$name}=$win; $_WINDOWNAMES{$id}=$name; # Reverse lookup for speed $CW = $win; if (wantarray) { return ($id, $name, $win); } else { return $id; } } # Close all windows. sub _close_windows { close_window({All=>1}); # Do all windows... } =head2 close_window =for ref Close a PGPLOT output device =for usage $id = dev($ENV{PGPLOT_DEV}); points $x, $y; # etc close_window($id); This function closes a PGPLOT output device created with C or C. It requires the id of the window to close. If C<$id> is left undefined, the currently focussed window is deleted and focus is transferred to the lowest numbered window in existence. If many windows have been created and deleted this might not be what you expect, so it is recommended to make an explicit call to L after any call to C. The C<$id> will probably need to have been passed through L (see usage). On X Windows, for C, the window won't get closed, but it will with C. =cut sub close_window { my ($name)=@_; if (ref($name) eq 'HASH') { # Hack - to avoid checking window names.. for (my $id=0; $id<=$#_WINDOWS; $id++) { next unless defined($_WINDOWS[$id]); my $n = $_WINDOWS[$id]; $_WINDOWNAMES{$n}->close(); delete $_WINDOWNAMES{$n}; delete $_WINDOWNAMES{$id}; } @_WINDOWS=(); # Remove all windows. $CW = undef; # No current window } else { # # Delete a specific window # my $id = _get_windownumber($name); my $CWid = $CW->id(); my $n= $_WINDOWNAMES{$id}; # In case the name was not passed.. $_WINDOWNAMES{$n}->close(); delete $_WINDOWNAMES{$n}; delete $_WINDOWNAMES{$id}; $_WINDOWS[$id]=undef; #splice(@_WINDOWS, $id, 1); if ($CWid == $id) { # Now determine the current window, viz the lowest numbered # window existing. $CW = undef; for (my $i=0; $i<=$#_WINDOWS; $i++) { if (defined($_WINDOWS[$i])) { $CW = $_WINDOWNAMES{$_WINDOWS[$i]}; last; } } } # Since we set the corresponding array elements to undef - we # have to check if we have in fact deleted the whole shebang in # which case @_WINDOWS should be reset. @_WINDOWS=() if (!defined($CW)); } } # Utility function - allowing both numbers and names to be used. =head2 _get_windownumber Internal function to obtain the ID of a window. This allows the user to refer to a window with its name. =cut sub _get_windownumber { my ($name)=@_; if (!defined($name) || $name eq '') { return -1 unless defined($CW); return $CW->id(); } my $windownumber = -1; if (!exists($_WINDOWNAMES{$name}) || !ref($_WINDOWNAMES{$name})) { # Then it ought to be a number if ($name =~ m/^\d+$/) { $windownumber = $name; } else { print "Valid window names: \n"; foreach my $k (sort keys %_WINDOWNAMES) { print "$k\n"; } barf ("I cannot switch to window $name - no such name\n"); } } else { $windownumber = $_WINDOWNAMES{$name}->id(); } barf("Invalid windownumber ($name)\n") if !defined($_WINDOWS[$windownumber]); return $windownumber; } { my $dev_options = undef; sub dev { # This delayed creation of the options variable is for increased speed. # Although for dev() this is unnecessary... if (!defined($dev_options)) { $dev_options = PDL::Options->new({NewWindow => 0}); $dev_options->warnonmissing(0); # Turn off warnings. } # Get the input options. my ($dev, $nx, $ny, $u_opt)=@_; if (ref($nx) eq 'HASH') { $u_opt = $nx; ($nx, $ny)=(undef, undef); } $u_opt = {} if !defined($u_opt); my $opt = $dev_options->options($u_opt); # Then we want to close the current one before opening a new one. if (!$opt->{NewWindow}) { my ($state,$len); pgqinf('STATE',$state,$len); close_window() if $state eq 'OPEN'; } my $win=new_window(@_); return $win; } } =head2 focus_window =for ref Switch to another output window. =for usage Usage: focus_window($id); This command is used to switch output focus to another window created by L or L. The window can be referred to either by its ID or by its name. =for example $win1 = dev('/xs', {WindowName => 'X-output'}); $win2 = dev('test.ps/ps', {WindowName => 'PS-output'}); focus_window('X-output'); # Or focus_window($win1); <.. Commands ..> focus_window($win2); # Or focus_window('PS-output'); <.. Commands ..> =cut # Switch to a new window. sub focus_window { my ($name)=@_; my $windownumber = _get_windownumber($name); die "No such window ($name)\n" if $windownumber < 0; $CW = $_WINDOWNAMES{$_WINDOWS[$windownumber]}; print "Window focus switched to Window nr $windownumber ($_WINDOWNAMES{$windownumber})\n" if $PDL::verbose; $CW->focus(); } =head2 window_list =for ref Return a list of ID numbers and names of the windows currently opened using L or L. =for usage Usage: ($numbers, $names)=window_list(); C<$numbers> and C<$names> are anonymous arrays giving the ID numbers and names of the open windows respectively. =cut # And getting a list of windows sub window_list { my @numbers=(); my @names=(); foreach (sort keys %_WINDOWNAMES) { if (ref($_WINDOWNAMES{$_}) eq 'PDL::Graphics::PGPLOT::Window') { push @names, $_; } else { push @numbers, $_; } } return (wantarray ? (\@numbers, \@names) : \@numbers); } sub label_axes { # We do not label axes when there is no plot window. return if !defined($CW); $CW->label_axes(@_); } sub turn_on_recording { if (!defined($CW)) { warn "You can only turn on recording when you have a device open!\n"; return; } $CW->turn_on_recording(); } sub turn_off_recording { if (!defined($CW)) { warn "You can only turn off recording when you have a device open!\n"; return; } $CW->turn_off_recording(); } sub retrieve_state { if (!defined($CW)) { warn "You can only retrieve the state when a device is open\n"; return; } $CW->retrieve_state(); } sub replay { if (!defined($CW)) { warn "You can only replay plotting commands when a device is open!\n"; return; } $CW->replay(@_); } sub clear_state { if (!defined($CW)) { warn "You can only clear the state when a device is open\n"; return; } $CW->clear_state(); } sub autolog { # for this one we use the class method to set autolog globally dev() if !defined($CW); PDL::Graphics::PGPLOT::Window->autolog(@_); } sub text { barf 'Open a plot window first!' if !defined($CW); $CW->text(@_); } sub cursor { barf 'Open a plot window first!' if !defined($CW); $CW->cursor(@_); } sub legend { barf 'Open a plot window first!' if !defined($CW); $CW->legend(@_); } # should add these routines to EXPORT array as we create # each routine # foreach my $func ( qw( env bin cont fits_cont errb line tline points tpoints imag fits_imag imag1 draw_wedge ctab ctab_info hi2d poly vect fits_vect CtoF77coords circle ellipse rectangle ) ) { eval <<"ENDOFFUNC"; sub $func { dev() if !defined(\$CW); \$CW->${func}(\@_); } ENDOFFUNC } sub transform { barf 'Open a plot window first!' if !defined($CW); $CW->transform(@_); } sub hold { return if !defined($CW); $CW->hold(); print "Graphics on HOLD\n" if $PDL::verbose;}; sub release { return if !defined($CW); $CW->release(); print "Graphics RELEASED\n" if $PDL::verbose;}; #sub held { return 0 if !defined($CW); return $CW->held()}; #sub current_device { return $CW->device(); }; sub get_current_window { return $CW; } # return current window or undef if none exists 1; # Exit with OK status PGPLOT-2.35/lib/PDL/Graphics/LUT.pm0000644000175000017500000001335414657501227016344 0ustar osboxesosboxes=head1 NAME PDL::Graphics::LUT - provides access to a number of look-up tables =head1 SYNOPSIS use PDL::Graphics::PGPLOT; use PDL::Graphics::LUT; # what tables are available my @tables = lut_names(); # get the reversed colour table 'smooth', # with the gamma intensity ramp my ( $l, $r, $g, $b ) = lut_data( 'smooth', 1, 'gamma' ); # use the table idl5 in ctab ctab( lut_data('idl5') ); =head1 DESCRIPTION PDL::Graphics::LUT contains a number of colour look-up tables (in rgb format) and intensity ramps, and provides routines to access this data. The format of the data is suitable for use by L. Unlike the initial release of the package, the data tables are now stored within the PDL distribution as FITS files (see L and L), rather than in the module itself. Changes to these directories will be picked up on the next call to one of the package functions. =head1 FUNCTIONS =head2 lut_names() =for ref Return, as a list, the names of the available colour tables. =for usage @tables = lut_names(); =head2 lut_ramps() =for ref Return, as a list, the names of the available intensity ramps. =for usage @ramps = lut_ramps(); =head2 lut_data() =for ref Load in the requested colour table and intensity ramp. =for usage my ( $l, $r, $g, $b ) = lut_data( $table, [ $reverse, [ $ramp ] ] ); Returns the levels and r, g, b components of the colour table C<$table>. If C<$reverse> is 1 (defaults to B<0> if not supplied), then the r, g, and b components are reversed before being returned. If not supplied, C<$ramp> defaults to B<"ramp"> (this is a linear intensity ramp). The returned values are ndarrays containing values in the range 0 to 1 inclusive, and are floats. =head1 VARIABLES =head2 $tabledir =for ref The directory in which the colour tables (in rgb format) are stored. =head2 $rampdir =for ref The directory in which the intensity ramps are stored. =head2 $suffix =for ref The suffix for the data files in C<$tabledir> and C<$rampdir>. =head1 FURTHER INFORMATION The colour tables were taken from the STARLINK GAIA package, and are provided under the GNU copyleft. See http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/ for more details. =head1 AUTHOR Doug Burke (djburke@cpan.org), with thanks to Peter Draper/STARLINK for providing the colour-table data, and Christian Soeller and Karl Glazebrook for their help. All rights reserved. There is no warranty. You are allowed to redistribute this software / documentation under certain conditions. For details, see the file COPYING in the PDL distribution. If this file is separated from the PDL distribution, the copyright notice should be included in the file. =cut package PDL::Graphics::LUT; use strict; use warnings; # Just a plain function exporting package use Exporter; use Carp; # attempt to avoid Unix-specific file/directory names use File::Spec; use File::Basename; use PDL::Core qw/:Func :Internal/; # Grab the Core names use PDL::Basic; use PDL::Types; use PDL::Slices; use PDL::IO::Misc; use PDL::IO::FITS; # should be careful that $suffix is a valid length on non-Unix systems our ($suffix, $tabledir, $rampdir) = ".fits"; # should really use EXPORT_OK our @EXPORT = qw( lut_names lut_ramps lut_data ); our @EXPORT_OK = qw( $tabledir $rampdir $suffix ); our @ISA = qw( Exporter ); # can we find the data? my $d = File::Spec->catdir( "PDL", "Graphics", "LUT" ); my $lutdir = undef; foreach my $path ( @INC ) { my $check = File::Spec->catdir( $path, $d ); if ( -d $check ) { $lutdir = $check; last; } } barf "Unable to find directory ${d} within the perl libraries.\n" unless defined $lutdir; $tabledir = File::Spec->catdir( $lutdir, "tables" ); $rampdir = File::Spec->catdir( $lutdir, "ramps" ); barf "Unable to find directory $tabledir within the perl libraries.\n" unless -d $tabledir; barf "Unable to find directory $rampdir within the perl libraries.\n" unless -d $rampdir; ############################################################################ sub _lsdir_basename { my ($dir, $suffix) = @_; confess "called with undef dir" if !defined $dir; opendir my $fh, $dir or barf "$dir: $!"; map basename($_, $suffix), grep /\Q$suffix\E\z/, readdir $fh; } # exported functions # Return the list of available tables sub lut_names () { _lsdir_basename $tabledir, $suffix } # Return the list of available ramps sub lut_ramps () { _lsdir_basename $rampdir, $suffix } # Return the requested colour table sub lut_data ($;$$) { my $table = shift; my $reverse = $#_ != -1 ? shift : 0; my $ramp = $#_ != -1 ? shift : "ramp"; my $lfile = File::Spec->catfile( $tabledir, "$table$suffix" ); my $rfile = File::Spec->catfile( $rampdir, "$ramp$suffix" ); print "Reading colour table and intensity ramp from:\n $lfile\n $rfile\n" if $PDL::verbose; # unknown table? unless ( -e $lfile ) { my @names = lut_names(); barf <<"EOD"; Unknown colour table $table Available tables: @names EOD } # unknown ramp? unless ( -e $rfile ) { my @names = lut_ramps(); barf <<"EOD"; Unknown intensity ramp $ramp Available ramps: @names EOD } # read in rgb data my $rgb = rfits $lfile; $rgb = float($rgb) if $rgb->get_datatype != $PDL_F; my ( @ldims ) = $rgb->dims; barf "LUT file $lfile is not the correct format (ie n by 3)\n" unless $#ldims == 1 and $ldims[1] == 3; # read in intensity data my $l = rfits $rfile; $l = float($l) if $l->get_datatype != $PDL_F; barf "Ramp file $rfile does not match the colour table size.\n" unless $l->nelem == $ldims[0]; my $s = $reverse ? "-1:0" : ""; return ( $l, $rgb->slice("${s},(0)"), $rgb->slice("${s},(1)"), $rgb->slice("${s},(2)") ); } # sub: lut_data() # Exit with OK status 1; PGPLOT-2.35/lib/PDL/Graphics/PGPLOTOptions.pm0000644000175000017500000003246214600070256020251 0ustar osboxesosboxes=head1 NAME PDL::Graphics::PGPLOTOptions - Setting PGPLOT options =head1 SYNOPSIS use PGPLOTOptions qw('default_options'); =head1 DESCRIPTION This package contains one function (at present) which returns PDL::Option objects for default settings for plot windows and plot commands. This should be complemented by functions that could affect this such as file reading commands etc. =head1 OPTIONS The following is a listing of options that are set in this file and what they do and what their default value is =head2 Window specific options These options modify the appearance of windows and can also modify the default settings for creation of plot axes etc. =over =item Device The default PGPLOT device to use. The default value is set to the PGPLOT_DEV environment variable if set, otherwise to '?'. =item AxisColour The colour with which to draw axes. Default value=3 (Green) =item HardLW, HardCH, HardFont, HardAxisColour, HardColour The linewidth, character height, font and axis colour to use on hardcopy devices. The default values are HardLW=1, HardCH=1.4, HardFont=2 (Roman), HardAxisColour=1 (Black) and HardColour=1 as well. The latter is the default plot colour to use on hardcopy devices. =item Axis The axis style to use. See the L documentation for details. It defaults to 'Normal' which is a labelled box. Valid arguments are 'Empty', 'Box', 'Normal', 'Axes', 'Grid', 'LogX', 'LogY', 'LogXY'. =item AspectRatio The aspect ratio of the output device. The default value is device dependent. =item WindowWidth The width of the output window in inches and defaults to as big as possible. =item WindowXSize and WindowYSize These are alternatives to AspectRatio and WindowWidth. =item WindowName The name of the window - can later be retrieved using name(). It defaults to 'Window'+Window ID. =item NXPanel The number of panels in the X-direction - defaults to 1 =item NYPanel The number of panels in the Y-direction - defaults to 1 =item Justify A boolean value which, if true, causes both axes to drawn to the same scale; see the PGPLOT C command for more information. =item TightLabels Boolean value which, if true, causes axis labels to be pulled slightly closer to the main viewport than usual. That's handy for making multi-panel plots. Undef (the default) is equivalent to 0 for panels with NYPanels <= 1 and 1 for panels with NYPanels > 1. =item TitleSize The relative size of a plot or image title, compared to other annotations. Defaults to 1.0 (original behavior) but can be set to, e.g., 1.5 to emphasize graph titles in a multipanel plot. =item Border Adjust the spacing around the plot. See the documentation in L for details. =item CharSize The default charsize for the plot - used when annotating the axes for instance. It defaults to 1. =item PlotPosition The position of the plot in normalised coordinates. =item Erase Explicitly erase the plotting surface, normally required when making new plots with PlotPosition. =back =head2 Plot specific options For the moment see the C documentation for these. =cut package PDL::Graphics::PGPLOTOptions; # use PDL::Core qw/:Func :Internal/; use Exporter; use strict; use warnings; our @ISA = ('Exporter'); our @EXPORT_OK = qw(default_options set_pgplot_options); # # To be able to set options outside of PGPLOT in the .perldlrc I will # have to define these local variables. # my %options = ( Device => undef, AxisColour => 3, BackgroundColour => -1, # Text background colour HardLW => 1, HardCH => 1.4, HardFont => 2, HardAxisColour => 1, HardColour => 1, Axis => 'BCNST', # see kludge in Window::imag if you change this AspectRatio => undef, WindowWidth => undef, WindowXSize => undef, WindowYSize => undef, Size => undef, Unit=> undef, WindowName => '', NXPanel => 1, NYPanel => 1, Justify => 0, # Justification of boxes & axes Scale=> undef, # device pixels per data pixel Pitch=> undef, # Horizontal data pixels per Unit => undef, # Unit for pitch Pix => undef, # Pixel aspect ratio Align => undef, # Alignment of viewport within plot area DirAxis=> undef, # Default direction of axes Border => 0, CharSize => 1, Symbol => 17, Colour => 5, ErrTerm => 1, LineStyle => 1, Font => 1, Fill => 1, ITF => 0, Transform => undef, LineWidth => 1, XRange => undef, YRange => undef, Arrow => {FS => 1, Angle => 45.0, Vent => 0.3, ArrowSize => undef}, Hatch => {Angle => 45.0, Separation => 1.0, Phase => 0.0}, XTitle => '', YTitle => '', Title => '', ); sub default_options { my $DEV=undef; # Use the standard PGPLOT environment variable. $DEV = $ENV{"PGPLOT_DEV"} if defined $ENV{"PGPLOT_DEV"}; # However if the user has specified the Perl-ish variable use that. $DEV = $options{Device} if defined($options{Device}); $DEV = "?" if !defined($DEV) || $DEV eq ""; # Safe default # Options specific (primarily) to window creation my $wo = { Device => $DEV, ### Tidy this up. AxisColour => $options{AxisColour}, # Axis colour HardLW => $options{HardLW}, # Line width for hardcopy devices, HardCH => $options{HardCH}, # Character height for hardcopy devices HardFont => $options{HardFont}, # For for hardcopy devices HardAxisColour => $options{HardAxisColour}, # Black colour as default on hardcopy devices. HardColour => $options{HardColour}, # Black as default plot colour on hardcopy devices. Axis => $options{Axis}, # The type of box AspectRatio => $options{AspectRatio}, # The aspect ratio of the plot window. WindowWidth => $options{WindowWidth}, # The width of the plot window in inches. WindowXSize => $options{WindowXSize}, # The X&Y size of a window, these will be WindowYSize => $options{WindowYSize}, # used to give the aspect ratio if defined. Size => $options{Size}, # alternative window size spec Unit => $options{Unit}, # Units for size spec WindowName => $options{WindowName}, # The window name given NXPanel => $options{NXPanel}, # The number of plotting panels NYPanel => $options{NYPanel}, # Ditto. TightLabels => undef, TitleSize => 1.0, Justify => $options{Justify}, # Justification of boxes & axes Scale => $options{Justify}, # device pixels per data pixel Pitch => $options{Pitch}, # Horizontal data pixels per unit Unit => $options{Unit}, # PGPLOT unit for pitch Pix => $options{Pix}, # Pixel aspect ratio Align => $options{Align}, # Alignment of vp in plot area DirAxis => $options{DirAxis}, # The default axis direction Border => $options{Border}, CharSize => $options{CharSize}, # Character size for annotation Erase => 0, Recording => 0, # Off by default. PlotPosition => 'Default' # The position of the plot on the page. }; # Options specific to plotting commands my $o = { Symbol => $options{Symbol}, # Symbol for points Colour => $options{Colour}, # Colour for plots CharSize => $options{CharSize}, # Character height ErrTerm => $options{ErrTerm}, # Size of error-bar terminators Erase => 0, # Whether to erase a panel when switching. Panel => undef, # What panel to switch to. LineStyle => $options{LineStyle}, # Solid linestyle Font => $options{Font}, # Normal font Fill => $options{Fill}, # Solid fill ITF => $options{ITF}, # Linear ITF Axis => $options{Axis}, # Standard axis-type Transform => $options{Transform}, # The transform used for plots. Justify => $options{Justify}, # Justification of boxes & axes Scale => $options{Justify}, # device pixels per data pixel Pitch => $options{Pitch}, # Horizontal data pixels per unit Unit => $options{Unit}, # PGPLOT unit for pitch Pix => $options{Pix}, # Pixel aspect ratio Align => $options{Align}, # Alignment of vp in plot area DirAxis => $options{DirAxis}, # The default axis direction LineWidth => $options{LineWidth}, TightLabels => $options{TightLabels}, TitleSize => $options{TitleSize}, XRange => $options{XRange}, YRange => $options{YRange}, BackgroundColour => $options{BackgroundColour}, # The following two should really be implemented as an Options # object, but that will make I/O of options somewhat difficult. # Note that the arrowsize is implemented as a synonym for the # charsize this should not cause any problems but might be worth # noting... # In addition to this the arrowsize below is also set to be undefined # by default which will automatically use the character size. # All these problems are historical.. Arrow => $options{Arrow}, Hatch => $options{Hatch}, XTitle => $options{XTitle}, # Label for X-axis YTitle => $options{YTitle}, # Label for Y-axis Title => $options{Title}, # Title for plot }; # Now for the synonyms my $s = {Color => 'Colour', 'Line-style' => 'LineStyle', 'Line-width' => 'LineWidth', 'Hatching' => 'Hatch', FillType => 'Fill', 'ArrowSize' => 'CharSize', AxisColor => 'AxisColour', HardAxisColor => 'HardAxisColour', HardColor => 'HardColor', BackgroundColor => 'BackgroundColour'}; # # And now for the lookup tables.. # my $t = { Colour => { 'White' => 0, 'Black' => 1, 'Red' => 2, 'Green' => 3, 'Blue' => 4, 'Cyan' => 5, 'Magenta' => 6, 'Yellow' => 7, 'Orange' => 8, 'DarkGray' => 14, 'DarkGrey' => 14, 'LightGray' => 15, 'LightGrey' => 15, 'CosmicSpectrum' => [0.269, 0.388, 0.342] }, BackgroundColour => { 'White' => 0, 'Black' => 1, 'Red' => 2, 'Green' => 3, 'Blue' => 4, 'Cyan' => 5, 'Magenta' => 6, 'Yellow' => 7, 'Orange' => 8, 'DarkGray' => 14, 'DarkGrey' => 14, 'LightGray' => 15, 'LightGrey' => 15 }, Symbol => { 'Square' => 0, 'Dot' => 1, 'Plus' => 2, 'Asterisk' => 3, 'Circle' => 4, 'Cross' => 5, 'Triangle' => 7, 'Earth' => 8, 'Sun' => 9, 'Diamond' => 11, 'Star' => 12, Default => 17 }, ITF => { 'Linear' => 0, 'Log' => 1, 'Sqrt' => 2 }, LineStyle => { 'Solid' => 1, 'Dashed' => 2, 'Dot-Dash' => 3, 'Dotted' => 4, 'Dash-Dot-Dot' => 5, '-' => 1, '--' => 2, '.-' => 3, '.' => 4, '-..' => 5 }, Font => { Normal => 1, Roman => 2,Italic => 3, Script => 4 }, Fill => { Solid => 1, Outline => 2, Hatched => 3, Cross_Hatched => 4, CrossHatched => 4 }, }; my $wt = { # valid values for axis parameter (eg env()) Axis => { Empty => '', Box => 'BC', Normal => 'BCNST', Axes => 'ABCNST', Grid => 'ABCGNST', LogX => ['BCLNST', 'BCNST'], LogY => ['BCNST', 'BCLNST'], LogXY => ['BCLNST', 'BCLNST'], '-2' => '', '-1' => 'BC', '0' => 'BCNST', '1' => 'ABCNST', '2' => 'ABCGNST', '10' => ['BCLNST', 'BCNST'], '20' => ['BCNST', 'BCLNST'], '30' => ['BCLNST', 'BCLNST'] }, AxisColour => { 'White' => 0, 'Black' => 1, 'Red' => 2, 'Green' => 3, 'Blue' => 4, 'Cyan' => 5, 'Magenta' => 6, 'Yellow' => 7, 'Orange' => 8, 'DarkGray' => 14, 'DarkGrey' => 14, 'LightGray' => 15, 'LightGrey' => 15 }, HardFont => { Normal => 1, Roman => 2,Italic => 3, Script => 4 }, HardAxisColour => { 'White' => 0, 'Black' => 1, 'Red' => 2, 'Green' => 3, 'Blue' => 4, 'Cyan' => 5, 'Magenta' => 6, 'Yellow' => 7, 'Orange' => 8, 'DarkGray' => 14, 'DarkGrey' => 14, 'LightGray' => 15, 'LightGrey' => 15 } }; # Set up the two primary sets of options for PGPLOT commands. my $window_options = PDL::Options->new($wo); $window_options->translation($wt); my $general_options = PDL::Options->new($o); $general_options->translation($t); $general_options->synonyms($s); return ($general_options, $window_options); } =head2 set_pgplot_options This function allows the user to set the default PGPLOT options. It is particularly useful in the C<.perldlrc> file since one can do use PDL::Graphics::PGPLOTOptions ('set_pgplot_options'); set_pgplot_options('Device' => '/xs', 'HardLW' => 3); for instance to set the default values. The main drawback is that the routine is rather unflexible with no synonyms or case-insensitivity. =cut sub set_pgplot_options { my %o; if (ref($_[0]) eq 'HASH') { %o = %{$_[0]}; } else { %o = @_; } foreach my $k (keys %o) { if (exists($options{$k})) { $options{$k} = $o{$k}; } elsif ($k =~ /Color/) { my $knew = $k; $knew =~ s/Color/Colour/; if (!exists($options{$knew})) { warn "Option $k is not recognised!\n"; } else { $options{$knew} = $o{$k}; } } else { warn "Option $k is not recognised!\n"; } } } 1; PGPLOT-2.35/lib/PDL/Graphics/State.pm0000644000175000017500000000571214721167613016756 0ustar osboxesosboxes=head1 NAME State - A package to keep track of plotting commands =head1 SYNOPSIS use PDL::Graphics::State; =head1 DESCRIPTION This is a very simple, at present almost trivial, package to keep track of the current set of plotting commands. =head1 USAGE You create a new object by calling the C operator $state = PDL::Graphics::State->new(); Then for each new command you call C on this object so that for a call to C of the form line $x, $y, $opt; the call to C would be like $state->add(\&line, 'line', [$x, $y], $opt); which is stored internally as: [\&line, 'line', [$x, $y], $opt] The state can later be extracted using C which returns the state object which is an array of anonymous arrays like the one above where the first object is a reference to the function, the second an anomymous array of arguments to the function and finally an anonymous hash with options to the command. If you know the order in which you inserted commands they can be removed by calling C with the number in the stack. No further interaction is implemented except C which clears the stack and C which returns a "deep" copy of the state. =head1 AUTHOR Jarle Brinchmann (jarle@astro.ox.ac.uk) after some prodding by Karl Glazebrook. All rights reserved. There is no warranty. You are allowed to redistribute this software / documentation under certain conditions. For details, see the file COPYING in the PDL distribution. If this file is separated from the PDL distribution, the copyright notice should be included in the file. =cut package PDL::Graphics::State; use strict; use warnings; # # This is a very simple package to deal with the graphics state. # sub new { my $type = shift; my $self = { 'Commands' => [], }; bless $self, ref($type) || $type; return $self; } sub DESTROY { my $self = shift; $self->clear(); } sub add { my $self = shift; # The command is a reference to the subroutine, the data is an # anonymous array containing the data passed to the routine and # opt is the options hash PASSED TO THE ROUTINE.. my ($command, $command_name, $data, $opt) = @_; # Compact and not user-friendly storage. push @{$self->{Commands}}, [$command, $command_name, $data, $opt]; # return $#{$self->{Commands}}+1; } sub remove { my $self = shift; my $num = shift; # Remove entry #1 splice @{$self->{Commands}}, $num, 1; } sub get { my $self = shift; return @{$self->{Commands}}; } sub info { my $self = shift; print "The state has ".($#{$self->{Commands}}+1)." commands in the stack\n"; } sub show { my $self = shift; my $count=0; foreach my $arg (@{$self->{Commands}}) { print "$count - Func=$$arg[1]\n"; $count++; } } sub clear { my $self = shift; # Do I need to do more? $self->{Commands}=[]; } sub copy { my $self = shift; my $new = PDL::Graphics::State->new(); foreach my $arg (@{$self->{Commands}}) { $new->add(@$arg); } return $new; } 1; PGPLOT-2.35/lib/PGPLOT.pm0000644000175000017500000002616414731233230014516 0ustar osboxesosboxespackage PGPLOT; use strict; use warnings; use Exporter; use DynaLoader; our $VERSION="2.35"; our @ISA = qw(Exporter DynaLoader); our @EXPORT = qw( pgarro pgask pgaxis pgband pgbbuf pgbeg pgbegin pgbin pgbox pgcirc pgclos pgconb pgconf pgconl pgcons pgcont pgconx pgctab pgcurs pgcurse pgdraw pgebuf pgend pgenv pgeras pgerrb pgerr1 pgerrx pgerry pgetxt pgfunt pgfunx pgfuny pggray pghi2d pghist pgiden pgimag pglab pglabel pglcur pgldev pglen pgline pgmove pgmtxt pgmtext pgncur pgncurse pgnumb pgolin pgopen pgpage pgadvance pgpanl pgpap pgpaper pgpixl pgpnts pgpoly pgpt pgpt1 pgpoint pgptxt pgptext pgqah pgqcf pgqch pgqci pgqclp pgqcir pgqcol pgqcr pgqcs pgqdt pgqfs pgqhs pgqid pgqinf pgqitf pgqls pgqlw pgqndt pgqpos pgqtbg pgqtxt pgqvp pgqvsz pgqwin pgrect pgrnd pgrnge pgsah pgsave pgunsa pgscf pgsch pgsci pgscir pgsclp pgscr pgscrl pgscrn pgsfs pgshls pgshs pgsitf pgslct pgsls pgslw pgstbg pgsubp pgsvp pgvport pgswin pgwindow pgtbox pgtick pgtext pgupdt pgvect pgvsiz pgvsize pgvstd pgvstand pgwedg pgwnad pggapline pgcolorpnts ); if($^O =~ /mswin32/i) { local $DynaLoader::dl_dlext = 'xs.dll'; bootstrap PGPLOT $VERSION; } else {bootstrap PGPLOT $VERSION} # return OK status 1; __DATA__ =head1 NAME PGPLOT - allow subroutines in the PGPLOT graphics library to be called from Perl. =head1 SYNOPSIS use PGPLOT; pgbegin(0,"/xserve",1,1); pgenv(1,10,1,10,0,0); pglabel('X','Y','My plot'); pgpoint(7,[2..8],[2..8],17); # etc... pgend; =head1 DESCRIPTION This module provides an interface to the PGPLOT graphics library. To obtain the library and its manual, see L. For every PGPLOT function the module provides an equivalent Perl function with the same arguments. Thus the user of the module should refer to the PGPLOT manual to learn all about how to use PGPLOT and for the complete list of available functions. Note that PGPLOT is at its heart a Fortran library, so the documentation describes the Fortran interface. Also refer to the extensive set of test scripts (F) included in the module distribution for examples of usage of all kinds of PGPLOT routines. How the function calls map on to Perl calls is detailed below. =head2 Argument Mapping - Simple Numbers And Arrays This is more or less as you might expect - use Perl scalars and Perl arrays in place of FORTRAN/C variables and arrays. Any FORTRAN REAL/INTEGER/CHARACTER* scalar variable maps to a Perl scalar (Perl doesn't care about the differences between strings and numbers and ints and floats). Thus you can say: To draw a line to point (42,$x): pgdraw(42,$x); To plot 10 points with data in Perl arrays C<@x> and C<@y> with plot symbol no. 17. Note the Perl arrays are passed by reference: pgpoint(10, \@x, \@y, 17); You can also use the old Perl4 style: pgpoint(10, *x, *y, 17); but this is deprecated in Perl5. Label the axes: pglabel("X axis", "Data units", $label); Draw ONE point, see how when C C can take a scalar as well as a array argument: pgpoint(1, $x, $y, 17); =head2 Argument Mapping - Images And 2d Arrays Many of the PGPLOT commands (e.g. C) take 2D arrays as arguments. Several schemes are provided to allow efficient use from Perl: =over 4 =item 1. Simply pass a reference to a 2D array, e.g: # Create 2D array $x=[]; for($i=0; $i<128; $i++) { for($j=0; $j<128; $j++) { $$x[$i][$j] = sqrt($i*$j); } } pggray( $x, 128, 128, ...); =item 2. Pass a reference to a 1D array: @x=(); for($i=0; $i<128; $i++) { for($j=0; $j<128; $j++) { $x[$i][$j] = sqrt($i*$j); } } pggray( \@x, 128, 128, ...); Here @x is a 1D array of 1D arrays. (Confused? - see perldata(1)). Alternatively @x could be a flat 1D array with 128x128 elements, 2D routines such as C etc. are programmed to do the right thing as long as the number of elements match. =item 3. If your image data is packed in raw binary form into a character string you can simply pass the raw string. e.g.: read(IMG, $img, 32768); pggray($img, $xsize, $ysize, ...); Here the C function reads the binary data from a file and the C function displays it as a grey-scale image. This saves unpacking the image data in to a potentially very large 2D perl array. However the types must match. The string must be packed as a C<"f*"> for example to use C. This is intended as a short-cut for sophisticated users. Even more sophisticated users will want to download the C module which provides a wealth of functions for manipulating binary data. I: As PGPLOT is a Fortran library it expects its images to be be stored in row order. Thus a 1D list is interpreted as a sequence of rows end to end. Perl is similar to C in that 2D arrays are arrays of pointers thus images end up stored in column order. Thus using perl multidimensional arrays the coordinate ($i,$j) should be stored in $img[$j][$i] for things to work as expected, e.g: $img = []; for $j (0..$nx-1) for $i (0..$ny-1) { $$img[$j][$i] = whatever(); }} pggray($$img, $nx, $ny, ...); Also PGPLOT displays coordinate (0,0) at the bottom left (this is natural as the subroutine library was written by an astronomer!). =back =head2 Argument Mapping - Function Names Some PGPLOT functions (e.g. C) take functions as callback arguments. In Perl simply pass a subroutine reference or a name, e.g.: # Anonymous code reference: pgfunx(sub{ sqrt($_[0]) }, 500, 0, 10, 0); # Pass by ref: sub foo { my $x=shift; return sin(4*$x); } pgfuny(\&foo, 360, 0, 2*$pi, 0); # Pass by name: pgfuny("foo", 360, 0, 2*$pi, 0); =head2 Argument Mapping - General Handling Of Binary Data In addition to the implicit rules mentioned above PGPLOT now provides a scheme for explicitly handling binary data in all routines. If your scalar variable (e.g. C<$x>) holds binary data (i.e. 'packed') then simply pass PGPLOT a reference to it (e.g. C<\$x>). Thus one can say: read(MYDATA, $wavelens, $n*4); read(MYDATA, $spectrum, $n*4); pgline($n, \$wavelens, \$spectrum); This is very efficient as we can be sure the data never gets copied and will always be interpreted as binary. Again see the L module for sophisticated manipulation of binary data, since it takes great advantage of these facilities. See in particular L. Be VERY careful binary data is of the right size or your segments might get violated. =head1 DEBUGGING As of 2.34, there is a C function (not exported). It takes an integer argument, and returns the previous value. When any PGPLOT function is called, if that level is >= 1, the name of the function will be printed to standard error. =head1 HISTORY Originally developed in the olden days of Perl4 (when it was known as 'pgperl' due to the necessity of making a special perl executable) PGPLOT is now a dynamically loadable perl module which interfaces to the FORTRAN graphics library of the same name. =head1 OBTAINING PGPLOT PGPLOT is a FORTRAN library with C bindings, While the Perl module uses the latter, a FORTRAN compiler is still required to build the library. The official library and the manual are available from L Building the library using the official distribution is arcane, tedious, and error-prone. Additionally, the official distribution lacks a number of bug fixes and additions provided by the community over the years. A modern packaging (using the GNU autotools) of the more up-to-date code base is available from L The packaging has been tested on Linux and Mac OS X. Source code is available at either of these sites =over =item L =item L =back =head2 Cygwin Build the pgplot library and install as above, but with these notes in mind. Edit drivers.list to enable the drivers you wish but uncommenting desired drivers by removing the leading ! on the line. Here are the ones used by a previous PDL maintainer: $ grep -v '^!' drivers.list LXDRIV 0 /LATEX LaTeX picture environment NUDRIV 0 /NULL Null device (no output) Std F77 PPDRIV 1 /PPM Portable Pixel Map file, landscape PPDRIV 2 /VPPM Portable PIxel Map file, portrait PSDRIV 1 /PS PostScript printers, monochrome, landscape Std F77 PSDRIV 2 /VPS Postscript printers, monochrome, portrait Std F77 PSDRIV 3 /CPS PostScript printers, color, landscape Std F77 PSDRIV 4 /VCPS PostScript printers, color, portrait Std F77 TTDRIV 5 /XTERM XTERM Tektronix terminal emulator Std F77 WDDRIV 1 /WD X Window dump file, landscape WDDRIV 2 /VWD X Window dump file, portrait XWDRIV 1 /XWINDOW Workstations running X Window System C XWDRIV 2 /XSERVE Persistent window on X Window System C $ vi sys_cygwin/g77_gcc.conf # This diff command shows the lines that need changing $ diff g77_gcc.conf* 12c12 < XINCL="-I/usr/X11R6/include" --- > XINCL="-I/usr/X11R6.4/include" 48c48 < FFLAGD="-fno-backslash -I/usr/include" --- > FFLAGD="-fno-backslash" 58c58 < CFLAGC="-DPG_PPU -O2 -DNOMALLOCH -I. -I/usr/include" --- > CFLAGC="-DPG_PPU -O2 -DNOMALLOCH -I." 75c75 < LIBS="-L/usr/X11R6/lib -lX11 -lpng -lz" --- > LIBS="-L/usr/X11R6.4/lib -lX11" $ ~/pgplot/makemake ~/pgplot cygwin $ make $ make clean $ make cpg $ PGPLOT_DIR="/usr/local/pgplot/"; export PGPLOT_DIR Be sure to add C to your environment and add it to your PATH as well. NOTE: if problems occur, you may need to C your libraries. =head1 PNG OUTPUT If PGPLOT does not write out PNG files, check these things. First, when compiling the pgplot libraries, make sure you uncomment the PNG entries in the F file. Then when running 'make' you probably got an error like C To fix this, find the line in the 'makefile' that starts with 'pndriv.o:' (it's near the bottom). Change, for example, ./png.h to /usr/include/png.h, if that is where your header files are (you do have the libpng and libz devel packages, don't you?). Do this for all four entries on that line, then go back and run C. Second, if you already have the PGPLOT Perl module and PDL installed, you probably tried to write out a PNG file and got fatal error message like: C This is because the PGPLOT Perl module does not automatically link against the png and z libraries. So when you are installing the PGPLOT Perl module (version 2.19) from CPAN, don't do C, but just do C. Then exit from CPAN and manually install PGPLOT, calling the makefile thusly: C assuming that there exist files such as /usr/lib/libpng.so.*, /usr/lib/libz.so.*. Then do the standard C sequence. Now you can write png files from PDL! =head1 AUTHORS Karl Glazebrook Ekgb@aaoepp.aao.gov.auE PGPLOT-2.35/test.img0000644000175000017500000010000013435120245014041 0ustar osboxesosboxes†|||†††††|††šš†h®¤¤¤¤¸ÂêþÖêàô:000DD&&&0DX¨lND0:::DN¼bN:DNXNXNvbl”€D000:0&0NbbXXN:&0DNbblDX&00NÆäRÆž€lX&ôà̤¤r|††††|†|†††š†š¤®®¤¸ôNþôþþ:N:N&&:0&&:0DXDvv€b:0:DND&00&0000blNlŠ€”ÆNlbND::0&000&:XbbbND:DDNvXXN0:&¨ä*p¼¨”žbXþêฮr||†®†||††|†|šô®¤®¤¤®Ì¸àþêàô0bžvDN&DX::ŠlXbXbbbDD0NNXv:0NNDN0:NNXv”¼äвvlNDN00000DNXvlXNXXNDbX€bN&DvÐîО”žbN0êÖÌÌ®|||r†††|†††šš®š¤¤¤¸¸ÌàÖàôàôôbä¨l:NvlN0lNlbvÐXXD:00XXvŠ¨¨bXDNDDbXD:vøîÐÚ¨ŠvDDXb0&0D:DXbNXNDXbXDbbvbb0b0N”Hä¼”€XbDôÖ¸¸r†††|†††††††††ššš®¤¤®®®ÌÖÌÌÖàÖê0NX€Š¨Æb:NbXv²ø¼¨XDD::lvŠ>.Æ€XNXDNbbX€ä> äДlb:NvN&::NXXlbNlvvXXXbl€ŠŠX€î€vžÆøîƨ””vl&ôêÖ¸|†||††|†|††††ššš¤¤¤®¸¤ÌàÌÌàÖêêN0b€l€Š”bŠ²¨î Æ€bXNXl”Ú R¼žbbblb€”¨ÐR*  ²ŠlŠbbN00::Dbblllb€ŠbDlbv”¨žŠ Þ„lžÐä Ƽ²Š€€:þàÌ̸||†|††††||††šš¤š®¤®¸ÌôêÖÖàôô&&&lžNN””²ä ²” À4ÚžŠ”Š”¨Ð  *>H4ŠŠŠ” 4äÐ\z>ÚžŠ”Š²bN:DNNbXXNbv€ŠlNbblv”¨Æ¬n¬l”ÆÐîƲ¨¼žlDôÖÌÌ|||r†||†||†š¤š¤®š®®®ÌÖÖàÌÖàDŠDb0bvb¨² Žò> ÐBz4 ÚÆÐÚÐø$\ òœzäƲÐRR îHò˜*F`”bXŠŠ€b:D:NNvbll€”žllbbŠ”²ž¼¶˜XÆÚäÚÐä¼²¨€XôàÖ̆††|†††||††††ššš¤¤š¤®Â¸ÌÌàÖêþ&&DXXŠl€²¼  Ž`ü>H¬.„f4>\*HÊ„ÔÔRf>  4H\zpR®Ä€lXl”äbXXXNDllbvlv¨lbl€€ž¨²¼Æž:²îîÚøøäÆ”N0êÖ†|r|†||††|†š†®¤®¤®ÂÌÌÖÖÖà0Dl”¼ äø*  ˜Þ$8ÊŽpfÞ˜„HR\\¶¢z¶ÀVœp*  4*>R>\ Š€€vžÆvlbbNNlvlbl€žŠvlŠ”žÆƨ€XXÆäîî  øÆžvDôÌà|†|††r††††ššš®®¤®¸ÌÌÖÖàô0:XlŠ> Ž*RH ˜.V~B~âèL$Þ¢¢ŽŽ¢ÞèVöj~.ÊŽ4*p4f˜¬Àp ¼Ú”vlŠ”vv€vNl€€b€€ž²Šv€žž¼Æ¼v:N”ÐÚä>*øÚ²€N&þÖÖ|†|††||†††šš¤ššš¤¤š®¸®ÌÂÌÖêNlž²¼Ðî>H\¢˜ŽRfÄöj’Þ8j$ÔòVò$$$`º¦ö.ÔÀŽf„˜¬˜ÀÞ„Rî øŠb”¨”ž€lbvžv€Š”²žvl¨²²ÐäÆŠ::0€²î *>>îДb:àÖ|††||†||†š†¤¤¤¤¤š¤ÂÂÌÖêþ:DDv¼ø HpÔ$ü’ÔΈüBÔŽèBLLVººL8$.BœÎº°~`ÀŽ¢˜pÊüÞ¢äø¨Æ伨²ŠŠ²Æ”ŠŠ”žž€Š²¼²äÚä”NXDŠÐø  >\Ú²€X0̆†††††r†ššš¤š¤®®®Â¸Ìàê&NblvÆøä4f¬¶Þ¶~ÎÎòŽÔ$¶Ô¬¶èâºÎ2dÎ$VBL~ ΦÎ`LèÀòè˜>øîÚÐ伲Ʋ¨øø¨²Æ”¨ž”¨ÆÐÐääÚ¼vXN€¼ä*4\\äÆžb&ô†††††|††š¤¤¤¤¤®¤®¸¸àþ00Nb”žÐÐИÀÊÞÔ$`âØÀ>f„zŽ˜„Êj~Ø´–¦8BjˆˆÎ:dö°Lˆ~`LB~.Àp>HîîîÚƼÐÆÐîî¼Ú¼¼²¨¨¼äîîäÚÚžlXlžü@zz\ äÚÆb&ô|†††††††šþ¤š®¤®¸¸¸ÂÌþ0:bžîÚ¼¬HòŽ¬òÀ$jR˜ èz44pÔ.Êf¢¬tœP$Z’ÄP(Pâ’Î8VˆtBèÀp„Ž4 øîÆÐÐ\–è øøäîÚÐä øøøî¨vbb” $†ü„\ øøîvNþ||†||†††ššš¤®®®¤®®ÂÖþþ&NbÆ f˜Rø4\RHzŽ˜¢z$ °Üºü¢p\ŽV$Hzʶ¬òÄt$Ø(j~<´æÂdˆ``œV.8òèz„p\Úäøˆ>ä :HH* îÚ   äîŠlX€4.Žì~4 îД:†||††šš¤¤š¤¤ÂÂ̸ÂÌàþDbvŠÚ*   HzzfHRè¶>fœ$pz˜$Ê4èŽp¢è¶¶ÔÞκ8V( Nʼ’’t¦œ„¢8~tVèÊ„4**  ÊHˆff>R>4ÚÆîH4 øÚ¨bXv” ¶ÀzøäŠN:þ†|†š¤š¤®®®®®¸¸Ìôê&l€€Š¼ä4p¬¬Žf*4H¢>HHfîÚ À8 44˜ÞV$L¢p¶B~´N‚ˆº<Ò(8¬$V°’BòèÀR *HzLjÞ¬pò\ øÚø4HfHîÚШbNbÐŽ„pH¼žl0|††š¤¤š†šÖ®®¸ÂÂÌê0&X€€îääR˜À¢„„HH4  äääî  ø H˜Ž¬Ô`¬zÀ˜ÞVº¸ ¦FŠ– n$B`¦ÎìLjˆ¶RR\.8ˆtfR\R*žDÆ\òf øÚvbX” HzŽp ДlD|†š†ššš¤š®¸¤®¸¸àÖôô&DNv\p„À¬Ž¬Þ¨.zp4*   øÐøÐäÚ*4Hfz¢ŽÀò¶Ê¶¬è.üÊÞj(2LV’(FööìBòœŽ¬$’°œÔH\zf *\¬H*  ƨX0¨*Rz„pÆЊN††††šš¤š®¤®®®ÂÂÖêô&0:Xl¨>ò˜À˜„¬¬~Àz„„z\R *>„H4* >>Rpfpp¢ÔÊBüÔÔ¶.Ôʶ$òt°ÎÎZTðŒ ŒF tVÞzÞÎÄjÞ*„RH*  **   ä¼vNbp„Žf Ð*lD|†šš®š¤¤šš®®Â¸¸ÌÖê&DXŠ¨¼LtÞ„ÀzŽfp„¬ÊüÞÀè¢zz¢p4* *4ff„„˜ü$ÞÀÞèÞòÊÊ¢Bºìª¸Ð ðÒÜxÄŽ’d⦄HÀRRRøîø  ÚžvDИ„„z4äЊN†¤š¤Â¤š®¤¤¸®®ÂÌàôþ0N”Ð p˜ØLüüÊŽz˜ÔòÞ¬Êò謎„\fpzfRpŽŽp\p¢ÔB’’8$$ÞÀ¢Ê¢`xbè þÜ|ú¾2œòj~ئp>¢\>*Úäî*    ÆvXø„Ž¢H„˜”b:††¤šš¤¤¤®¸®ÌÌÖêô0l²äø>Ê°|nØjÔ.ÞŽ¢¬¶ÊüÊÀÊÔLü$`.L`üèÔ¢¢ü.œâ°BÄxˆÞÔò¶˜¶.Z ô TrhÒJÈ2œÀBÞ¢˜f¬zøÐøH  * ŠbŽ\z˜Ž˜pvbІš¤¤š¸®¤®®ÂÂÖêôþ&NŠÆø4f˜ò`â‚ t8Þ„¶¢¶ÞÞÞò謢èB`èV°ìÄÎöˆLBV~ĺˆVÄ ÒrtüÞ˜¬ÞP²  ZödTTÌ–2°.zŽp\H Úäøøøä ¼ŠŽR„„RÚŠbl¤¤šš¤¤¤¸¸®¸ÂÖÖþ0NŠ4*ÞF„Þ8Üx ‚^è¢À¬˜ÊÊzHfRHz¶ÞèâjØnØÎÄ⺜œˆˆœÄ’~¦ì¬^’`BÞÔöšJØÜ@®ÌúÒ‚t˜üŽzf4ÆÚîîøä *  R„¬p\fføäžl:hh^hrrh|rr|†š®®Ö&X*>\Àüü$ÎF~¸„RR *> ÐÐÚ²Æ >Rp¢ÞÔV~Bjˆâ2öØöâÄLL°¾Öd¦ œB.ÞVÄ(ÀœúbÖ,ðÈ¢¢R4øО¨žž¨¼¨ÐÐäîîäRzÞ\fHf¢Ð¨b0þš¸lš®¸¸Â¸ÂÌÌÖàôþ&v€Æ4Žü88ˆ¦~®Zj˜fzpH  > 4>fzz¶üòÔ’jˆ¦¦öö(F ddnF°ØæÒŒ´ª‚<L.j8txÌNІl¤’袄H ÐÚø >>H>\¶Ð4ŽzŽ„\ ä¼”l¤¤š¤®¤¸®¸¸ÂÂÌÌôþ0bŠä\¬.$À~œì@ .j„* >44HR\R„pf\R„¢Þ¬Ê8..$Vt~œØdZ2n¾<öÄ`~ "–Ü"ÈŒâ$BÄ ´6´n„¨Æ¬€.À˜pR >¼¼äîîä >>*f Úp„˜H ä”vNš¤¤¤®¤®®š¸¸ÂÖàô:l€¼ ŽèB8~~LxZÊH4   ˜z˜\pp˜RRp¢Ê¢ÊÞèü8è8t ¾nZÈ´Fdæj(ÜTÜ,Ürªjx´¾ ´2 ¼ VÚäò¶¢\*4*м²ÚîÐø   > ¼žfHf> ø¼ŠlD¤¤¤š®®®¸®¸¸ÖÖà0Ðv²î zVì2ü$8òòüü¢Hø\Ž¢¢ŽffzHH¬À¢ÔÞüºÎˆB$~ö2dŒdFZ Zjx^T¸¸FVL‚<@œêJ ¾hü¢Žf\4øО¼ÆÆÚä  4Ž îÆî>4H øäÆŠb:š¤¤®®®Â®ÂÂÂÌàþ&0b”î*fÄöÄZ@~üÊè˜*øäÐzÀ¢¶ŽfR>\\Ž„¢Þ’ê âL.LLB8âœöd¾¤€ÎrªÖÖ^ZjÄPŒúÈÜ€ ` úDØLÞ¶\4 øШ¨ÆîøøppH*>>zRR ÚÚ²€bN¤®®¸¤®®¸¸ÂÂÌô:NŠÐHèœx’ØØÞ˜„˜* *R*>Rp\zpz\ HpŽÀÀÊV„N~LBj~LVtL’δȮ hdºö®Ò††r 8n¾¤”J¨¨‚LÞÞŽp4¢ О¨î zf *H* °4pføÚÐÆŠNNš¤®®®®¤®ÂÌÌô&b€Æî \œ’œö`ˆÄFŽ„øî 4 p\>H>>fR*z˜Ô¶ÊètV..BLˆØââĦì¾J€¼ÒÄt–ú,"|ÂÈ`ZðhrªòèÊÔ¬\>p䲞Æ*4 RHH Ú„p ø¼Š”XN:®¤®¸®¤¤¸ÂêÖô0N¨ÐÐø*\À8ØœLâ< °°ò˜ÚÚÐîÆä ø>pRf\RHRŽ˜ÔòüòÔÎöº¦~¾6Ü –dìâ2x’(ZnªJJÈdº’ºÄ–|¼Æê@F(ˆ˜zRÆž”Ðîî** RH  î\zÚƼžllN0¸¤®®¤¸¸¸Âàô:XŠ¼Ðpfz(‚ââØ j¶p\îø²²ä>H\HR„Ž˜Ê¢üV8`Ò´þ (¤˜vþ œj~ŒZ Œº(öP– ´‚ º¦Z@²¼ÆbúFâ¦òp\ Úž¨ÐÐø>f44f*ä   R>²ÐÚ²€lD&®®¸Â®¸¸ÖÖô0D”îîøøH„t ºLtÞ8„zR>4 ÚÐÆÆø>>HŽ¶ÔüòÞÔ.j~Ønþ¤¢l¾rÀD®Œ‚~B.¦ìP¦$8Î2ÄÜÜdìì2ZªÐ„ œ –F΢R ä¼ÚäÚ4pHHfHøäî *H îÚvND&®¸®®¸ÂÂÖô&:XŠäÐäRòÄ2ʢʬŽ„* >*Ʋ¼Ð >>H„Àò.B$Ê` <æ†bÖ6Jð´–(Ä°ìŒ(¦òB’2Fâ2@Pœænôz8œJ´ BzRîÆƲä4˜Žfp\ îÐR\Rz* ä¨bND:®¤¤¸¸Ìàô:øl€¼øîîÆHzü~>p¢˜44H4>R>ÚÆî ffz¬Þ8j`L$¦Ü^š@ŒÌôÂÒnÒ–xtjPöغtF–2nh®ÜÎ<6,¾ÒJ¨ÆDâV˜f>øîÆÚ „°ò\pp îø\>pz> ШvlN&®¸¤¸ÂÌþ0Š²lžÆHøÚîîÆäR¢ºpøHRH>RRHR>Hf„À¶ò8$jœ’œºPöFÂ|,¾6€,Jðxœ¦Øì–º$ò¶üP–ÒþÖŒP^ª¤Â6ÖRnjjÔ¢„ îää*¬¶zRÊÀ>øfp¬Ž>ø²žvXN&¸®ÂÌÌêDbv€ŠÆÆäîääÆ Ô~jŽp*R¢R\HR*p¢¶Ô..¦  æðð,rl06ú&¼˜ B” P öØââ¦òVtLd¾ "´Œ Œ´6h6È"Ä’.˜fHøäî\ºÀ4Rzp\ \f¢Ê¬* ÚžŠXD&¸ÂÂàD:N€v”¼ÆÚ 4 >À°~.> 4pR*>H>Rfz¶ÊB`VÄdŒ|®€>ôúÖÊ>l†^X L x F ž,hÎPdxFâ.Ø2윒Î< ÜæðÈ@ÒÌh¼þÜxjVØt¬p\4  LLRppfH>\¬À¶RäОb:ÂÂà&&&&NXX€¨f*>z¢üBLÊòÔ\øäÆÚ 4HfRŽÊüj¦ön¤ê „ $ Z  L F â º t ø œ † ® „êîxT¤êÜx°ºÎ¦8B`ØFÜ"^Š0þš@”¼bââ tò˜\HH\ööÀ\pp„˜f>˜èÀ„R ø²bD¸àôÚ00:Nbl¼øHŽLzLtÔ„¢Ž> м²Ð 4>>f¬èB2ð|NøÀ Î Ì š d Z  BÊ . °*²vp„ z Ð ¬f¤–:Š4 Z `2Î(ºj8LºÎ2xú”Úî̸@êÚøôP°’`¬„pR¶.$¬p„zz„*ø„Þ¬pf ²lD&àêôþê0&0Db€Æ\¶¢H4Ô$Ô¢> äÐî RRHpÊtªÒ| ºü ÂÄ 4 â Äè¤^®d24N  ô6NhÒ¼¢€ Ò t2º<’8ˆ¦ÎFÞø̆"Ìîƨrx(¦B¶ŽÞ¬.Œ˜˜¬„f\fz„RRH* ¨X:&ÂàôêêôþD:vžÚfp\\4HÊÊ H øH*4H\¢Ê8~¦Òà”Ê Ä Ö H p”hìŒØˆ~œ<^hd Ä,dø  \ Ä–ªnZغ.Vˆ°âÞÿ2´Ú†|îмÖ6¾ìL¶˜ Lö ð„謎Rp>f˜À¢H˜À¨N0:Âêôêôô&&NNv¨Ú4f>4Hz„Žf¬4 **pHH*Hf¬òVœ<6\ ¾ J " ¦hTÂZ Øœ¦ì Pdx<ì’jºtêl 8ÔvšÒF(â’B8`ˆ°èÿ<žÜ||à Þ¼NNdºÔzè~j¶„¶„˜ŽÀzpŽÀfRH Ú”D&ÂÖþêêþDXXŠ¼Ú4ŽpÀ\Rzz¢>*fpff\\4\pz„Þ’FDp 2  ¼ h d:(ÈÖ¼à Ü"^–Zxª´nغì<ê„0šð‚PÄjjjL`8x˜äúŒ@ÜÌ Ðž&´‚2z˜L~À\Rz„˜ÊüŽ>>p\\ Ú²lN0Ìêþêê&0:XŠžÐ pp¬¢pR¶¢Ž„z˜„„ff>RŽ„¬èjP"Öp x  € @ ’PF–È®XÌ^þÖ ÒÒð–È Ø¦öT,ð‚P ’B.’ˆjjÒ|n–ܼ þŒ ´ZpŽ¬˜„\Rz¬Þ$L„ „ŽH ÚžbN0ÌêÖêþ00Nb€¨Ú4R¶˜ˆò˜˜¢Ž„¶¢Ž¬f >\¢LœZêÚ ° @ 0 †zÚn¾ð–^rT,h¸¤|h|,¾Œö’’Îúð"JŒ<F~V°ˆL’â2 <Òr†ôbÚÚÖxn<è˜pfŽÊzz¶Ô$`.f \\HøÚ¨bN:þÖÖàô00NN€¨ÚR\„p¶è¢¢¢¢Ž¶¢¢LÊpHRp.ìÒh¤f – ¸° Æ ê–ªÜr,Âî®àŠ†@ð6†r†"|ÈìFÒŒ‚æÒ(º’ˆÄtœ°ZZx@ôø>êžlàÒš†<¶¶¢ÞÀèBÎØ`fpz* *î²”b:0þ¸ÖÖþ0D€bbXv¨ä*ŽHHŽÀ¶ŽÀ˜Ô.¬z¬˜pf„òF:6È@& ¦ n Œ*¤Ü"6^È^^úþš@n,^"†ÆÌ"PnhTܪÒÈÄ؈~â°~P´,š0ÐHNЀþÜ®@Œ8Ô¶òü$Bœdú~pʬ>*4XD&ê®Öêþ0XbbbvžÐ*ò¢fò$òòÔ¢À¢„\p\H¢jZÂ,¸ÐHfšÒÒŒ "^´ ú"h®T|6Ü|šžô^¸TªJÒú,r <º¦¦8âjB<r@àXbƲTðTÒ‚ÞÔL¬¢ÀVVìnÀf¬z4H NXbôÌÖêþ&&:Dvlb€žä ¶„¢j8.ÊppŽzpR\p¢ìÈ"¤¨˜ ®zÆDš,,,"¤|ÒŒ@ÌD²D̨NÆ¢\Ú:rJ0ê¸rÈŒì ÄL¦Ä°<Tàš0&žî|T6æBL.L8Ê8V¦ì’.H¬À\** ä²v00þêàÖôôD::bbvž²Î¶Ôˆ`V`Ž¬p>H˜¶¬ÔnôZ,b* ˆ xf ~ ~vŠJŒ^È<Œrb ˜fp¶* ¦ ú œ ¦ŽRÚ&:àül®¸ú‚캰~â<6P6úr†à&šØL.t$œ¦~V¢ „¶f* äÆ”l:&ôêàÖþþ&N::b€v¨ž4dÂV°ÊÀüÞÊ\ 4ˆœ$ˆ´ ` 2 tÞ â jônT†¾F¸bêÖÐR> L ¤    : Þ R   8 nÞ€v `b^lš"öº¦ØØŒhÜðúú|†êÌh²þææ~LèÀè$ <t.ÊHHŽ¢z\*²€XD0þôôÖàô0DXblN¶²î¶V¦¦ŽzÊüüH>Ô¦L.jö‚T”è â ‚ Ì  dê®Â"d¾@Ünnæ†|b\ Þ îZü „ À 4(Ä . †zžòþ¾T¤@°œìd¾Œ´. .ÈTÖêþ 8ÂÜr"Fjè¬ÞœFØ8è*>ŽpÀR ²€Xl:ôêÂÖêþ::DXbll”ÚøzæöLL¢\ò$.òHRÊ.`tìŒúÌä $ ¦ F °Ô ,PŒªÈÒ"|žÊ ’ Ò¬ Î Ðâö¾P^Îð‚ D ¸äô L”ä@ ÜÜx‚ L,´@¤®Ör<º–Ì62Lü¶¶œâjB\î R˜¢ÊÊ f€XXôàÂÌêô0&DNXbbž \‚,ˆ¶zò$Vʬò``V<ŒŒJ¨H ~ ( ¦p 0Pðð¸|"¤ž .  î v” n >ªPfÂrð¾vD. üÂ: <ŽD´dd(<ðPFP2Ü|^66ÒJ ‚¾(tLöZxö~.Ô>H4R˜¢¶*ø¼Šb:þêàÂÖàþ&:DDll€¼pPà òÊÔèj˜˜òttBˆZ–Üê¶ ¦ $Ðî\ÈP^h,æÌà . n ¨ ¤  Ž ’fê ò€2Òúè p|@^êî®–xö( Œ2FŒT|"rX¸Âh@(ìn<ì`.À¶¬¢¢pŽf  ШŠX0ôêÖÖÖêþ00Nlvv€¼H˜Îî†B~ˆ8ò„¶òœ°¦œðhf  º BèÂ₾T6<2†Ö* â , ¬ ¨ Øf"ì\$h"t'"º¶0Æ ¶îœ€”ŠvHôxx¦ì–nìd^š®†„zøÐÐbîªn¾2jBüè8>„H îî²vD0ôêêÌÌàþ:Nbâèv”ÚÀ¬ˆÎªFŒBR„Àütˆ~LÎdÜà ` 2 ,ÊhF(d¾@ÈZÈ .  Ú X ö `°ò¤ €%:)š(Ò &¦JÖ ˜\ 8 ’ 2¨n<â ÒŒ úš®ô&˜ 6 4 2²Úh¾º`$¦tÊì~üf\Ô4øäОvDþþêÌàÖêô:DŠ4lvžÐ>zʈÎ~ÄzfÊj``°(â š¬ " È<Pâ(´"Ò¾ð: Þ j bÀ¦&Ä$@)66G4²+R!ʪh> ž¢ Œ FÆþ F‚È2 2šr†PÌ¢º ^DšxÄ.8.ÔÔ`.¶f H˜  ÆŠl00þêêÖÌôàþDll€v”Ð pÞ.`j~Àòè¢ÀV.t¦ì–ÂfzÔH 2PP((ú –dF&¶  BÆÔ@T$J-" Xü ð > Þ L„ªØP(´†@¾ þž x ÚærÈ~ÊÔ˜Àè¢4 4R>  ²ŠNôÖÌÖààþ:bvŠ”Æø*¢üV~’8ÔŽÔüp˜òÞÊL°2PÐ VŽ4ª<ZÜÈZn‚d  ’ü < ÎfæT ô ¶ô"!ü,ÎD UF6ˆ,t&H#ŒRÆì *j –f|Fd(ªF´ZFâtx†@úÈZ2”nB莎ÞÞÞ˜f¼\¬fR î²€b&ôàÖÌÂàôþ:bŠÆø 4Ž¦¦~˜pf˜¬HÀÀŽ¬ìÒÊ ªÐ" Zd¾ dFdð†P(Š ° F  ^„  Îæè6"V$à.^3T+À-d&¬%€z.| \¸ à¶d  PZn´PZöPØ$jxÒF°°ö&âj˜„$¬¢fÚ èÞŽ\ ƨv0þêàÖÌÌàêDv”²î*>Žº’ *p¬¬Ê¶.ò8^ê ~ 6b´Ø(Tæxd"®@xð² F P Š Œ î Î x®\X #Ü*Ð)®&ò"`j"ö 6 tff¨¸–ð‚x––2 8jVθ¸´`üt‚z€~Òœòf>4äÚ\¢„¢RîÆ”X&þêêÌÂÂêô0N€ž²ä *Ž`òjV¶  zÀüèèØö ‚D¢Ê>Öú ú|"ªF ,^¾ª‚Æè ºÔ†ò t ú¾à<Ö! d"#dš#úbÐ" T è D ´Ô€JÒ6–´nÄ2’¶è¾¸Æ&"ˆ8ö'(Üâ‚BŽÐ¼ zp>\ Ú¨€Nþêê̸Öà:D€ž¼î *R¢À8˜\„.BV8Lödú² B BŠ@‚ŒN®Ò–´ð´æn<xPþÊ ¾hRæH  ¤(fÞ<žl2Ò`°€  ¾¶zvú@Ì,Œðx´ œF"ä²b¾’~°¦,æ8˜4¨*ÊÀz\>øОb0þêàÖÌÂÖê:Xv¼Ú*>H¢ÔÊ\fÞj¦ttˆ°ÄZ–¤Ž”Ò¾ªúžàÜ–´<( ndàR ¬@  °$~zþ(ô\à †˜Ö<˜ÂvNhr†ÈæÒÈ6Än¾lÖTŒº°Ät.üòp   øÆŽ¢Žf„>î²lNþôêêÖ¸Öô0:XŠ¼ø   >òL$z\„¢j’œ’’ÜðêbhÒÜææÌú<ŒöÎP ö(Œh>4,Ò*P ˜ ” àÀþ4r@¤œ n>”̤J¤rJhr@æh̸B( @æ°°t``èèÔ„ øä*îH$Ê„H4 ЊXDþêàà¸ÌÌô0NbŠ¼ä*>˜èBŽp„Ê~ºÄØ’ Z¾æ†ŒúŒààúúrTð<ئ⦠x<<ª¼¬n‚l ® àÊ œ Î ZL8 Ô´ Z j º ’äþ¤¤TšTT^š^‚F2ØLxŒ¤(º°ˆ~8üüòÀ* î  ÞL¢RH\ø²l0&þþêàÂ̸¤Ì&Nl¨Æä4¢üÀÔ¶¢z¶t~~ìtöF–‚–2P¾Ú¼J†žræ(ìÎd(ZP ¨"æ<bB  L Z n*    " ä4„„à¤@|¤¤r:®(œ`t’ÎFðZÄò$`..Ô\4H> *ÞÔ˜\\\øžv:&êêà̸®¤Ö&&Xv¨ÆÚzòÊøR˜ÞØÄ°<ºFÒܪØÎþ4¸0úöìÜÄìâ ö @îrÈZ" Š° ˆ x œ„   Δ|6ô0ÖÌ@šÜr¸"‚Üúdª´–2fp¢$t8¦j¶4*f>4üÔ¬„R Æžl:&þôàà̤®àô&:€v²äø >¶Ê˜4zR¶Øâìdx”ð°‚È"þ¸æDÌŒì’ΰ<’Bj2úÖÒ´ú–Þ4 ZD&ü¬ø¼R˜&|J®r|ÂDølrú¸Ò‚öd^ê̸ÒÎ~88j$„\\HpL~Žz4îž”N0ôê”ô̸®¤êêXžŠÆîäøøî*pR„R*BØ Z¾6RÈF†à,@N|nZÄΦľºLVZÒšDúöª"Ì € .”hlî€þÖT"JTþ²H¼Ì´¤ðŒª(¦n¸àÂhܦòÊÔB.8$˜H* RÔÞ$ò¢p Ú²€:&ôêà̤¤êþDvžÐîîÐÆîø\„Êjâì(´"®¸*¸JìÄxúdú¸ú&| ‚dìΰ~.ì ÈŠvnæ@–Ü ÒÔ*r´^&,Jrô04 €®"J–æö¦Œ‚ÒÜTr|V¢ü~V¢¢zH**Ú>˜Þü˜f>äОb0þêÖ̤¸šê&X€žî *Úø HB(LºZȨî pZ°BòξŒn2´|6ªZF j° jÞ.VØúî ôþÒhú´¼v¼¼”– n,®¸X fDDÖ| Fjò~^>þhÐúLÊüV`L$è¬zpfRø*„¢è˜pp*伊N&þôêÖ̮̚à&:vžÚ äî>è8¶<Ìøò rèŒj`ˆ6@–|ªx ° ⺈Ê8°ÎJÂü‚Tô¾2ÒšDJP Ò|rhà”vXŠÂÖ,Äì’~n²øšš(Þˆ`LÔ¶„z˜p> f¬¬¢„z*øШv0ê길®¤¤ô0NŠ¨ä*4î¢üV~òÀjª¸¸² 8 ¤l(°BBÄTRxÖà–"Ò<ìdØœ`8ØÈ|´‚D¤FâŒ@J^†àôÌôXvh6þÒFn2nhh"¸J®^Zˆ$L`B.¬ŽŽzz\  ¢¶À¶„„lDêàฮ¤šô:lŠ²Ú >¶$$ÞBÄæúDb¤‚ºn.Øn,††@´x´xZöZPìœ8è.tŒ 8 FÖb”D ú xÜ:¨¸êNô|xâ.jœFÜXê ˜nÈâœêÄ8$$Þ¬Ž¬f*p¶¬¶ŽzRNþôàฮ¤¤¤ô&:bŠ²ÚR>À8Þtö¾Ò6šTØ`ìjü Fx^Âô¤Œ‚dFP‚âœBò`nðÀ²^ž Î:®¤Tú šZ¾Z2‚ZŒð2Þ8tÎŒ ’ ®rŒö°Þ.8$8èèz„pH*èÞÊ¢Žp>øäžlD0þêêÖÌ®š¤††ôDlŠ¼Úø RfzÞ\BʈÄnúÂþ¾œÞj°ð¤nl²Ìæ´FæÒFæ–Zââ’8tªðžÜ‚Jôhš| .¸F°ìnt’d<Ø2xP®Â6¼|¾( ö’¶ÊÞÞÞ¶„R ä>ÞÔʶ˜f4Æ€N0ôêàบ¤êNvžÚäHRpÀüüÞ.ˆ°dÒÒªöV Ö , œÀÌ ZPTªTÜZ œj8üè ‚ðììn´ª¨bNTÈh  n:<¼ ðÂZÎÜ@Tª"^È°.üÔüüÊ8üÀ„\H  ÚøŽÞÞÀʶRÚŠb:ôôàÖ®¤ššþXŠ¨ÆHRÞ¾râÊÀ~ân‚ª´x<dBjFÒŒJÞž^Œ®""æú‚Z œˆ.è$’(ÎΪŒ6ª¼@žä> † f²”|PÒ,‚æÈ‚ªæú `òÞ¶8BB¬˜f>*>¶ÊÔ¬¢H²vD&þêôàÌ®¤¤š†ôDv”Nî*zp$Âô2z¶’Pêú"@´<ÈÄ`–¾‚†vp ¦’0,†"Ü2F °ˆj8t’ˆæb†tFnTÖNʸ^,xÒ(2’ ØL2Œ–œ2FÎ`üÔüòòÞ¬˜Ž>*\Ž¬ÀÊ趘R î²l:&ôôêàÌ®šš††ôDŠ¨Æø>„Žü~ˆV>H8æhþdª^šF–Òàh| t p ¼ Ò¢ò0¸†|–(n°’BüVLœ’$j2ÈxVV’Œªæö‚n´,2ì°¦tˆ¦’ ¦°’j8BüèòüèÞ¶„fH>¶ÊÞÞ¶ÀÀ„ ø¨lDþôôêôÖ®¤¤šš®þb€žÆR„¢üèèÀø4°<F<2r0øÈ|¾ ‚Ì †¨Œ66àZ–Ø’~t¦jt`ü8ˆtü œâtj¤¸d–°Äœ.88’F~jüÔüÞò.ü¶fRzŽÔjÀpÔÔÔ„ÆŠN0ôàÖÌ®¤¤š†¤†êX€žÐp¬òp„pzˆöö xæ"¸DÈÒÈ Ä >Ì Æ þ ìŒZÈ@<Z´Ø’``8œ’Î`ü`ˆLò¦8j’’Zô¬F°Ä’º$$$œâ88j`’’B$ˆ~VV$ʘ˜Ž\\Ê$¢À¶t~RäŠN0ôÌ®¤¤š†††êDl”¼p¶ÔÀpÀÀpÊÞ$ÄFFâ VÚ†@´>  ‚ t 4êæÒð(ÄâÎ~t$’öκœj°œ$ò.Bˆ~ œLBt~VB`’ˆˆBVº~tBLBVB~jB¬˜¢„¢f˜˜¬œú¢fäžbD:þêêàÌ®¤¤†|†ê:bŠÐp¬¢Êè„z>Þt  μl@@¾dØnÖ¨þ "æ  ÒT ºÄº~œV$tĺt~VÄÄL$ò.BBjÎ’88B~Bt2¦¾(°tVˆ`B$.L.8VÔfÀzHz4R˜¬t2¶Hî¨l:0&êàÌ®š†š††ê0N”Ú HŽ˜$f ÚÀVâö~jÄ|"ðúº Œ¸àî t ¬ PŒÈP<✦œV’°t.Bt°œˆ~üè8$`.LL$ò8Bº(Vt°°t’Bèè$B`8Ô¬„˜ü„ŽH>¢ò$`ÔR>¼v:&&þêêÖ®ššš†††êþ&N€î R\ŽL`À8>4 „VºZ8$ØØŒxØ<ì–TD B F ¦|~2¾xú¾2ìΈ~$.8``°VÞ8jBV$Ltº’.B`L88òèÞ8$˜\HRpŽ˜z¢.$üŽHÚ€N:&ôêÌ®¤†šššôôDvÆ4„.ÊtºLò¼¨øRÔLØ°Ô.’jºLjÜ&€ê>Ž ì Ü n´2Ȫ<âĺttL.üò$8Î؈8B$$Vâ2âÄÎ’ˆtVÔ¬Ô.B`ò8òÊÔÊ¢zpR˜„\¬Þ$˜>䔀vþ:ôôÖ¤¤š†ššôšš|àôDbÆz¶Àüî\8ü¶Vtì`L~ö2Ò®,Ð Z : ̘–x æxPÎ  ØÄ`8Þè8’ĺìtj~BœnŒ<ìºÄˆìLèò8üÞÔ„˜„zŽ¶¬„„Ê`.ˆòHä”b:ôþô¸¤¤šš††êô0v¨ „趢 Ðî¼ä\ÞòòB$$88(<<,Ì&¤NЬ 8þZ(<|Èâ‚–F´°œLü$`Î(‚æ(Ä`` ¦~ØØ’º¦òʶÞÞòèèÞ¶¢ŽRRpf¶âì`V˜øžlDþþôôþôêचš†š|††àþ0Xž„ÔòVˆpžŠ¼îRò¶ÀèÞ$º< Ì F¨àlä ´ 2¢rŒPæÖ|Ò(Π "< ÄVB`ÈôJºØ Ä’n¾d¦8`8$ʘüèÊVL`ÞÀ\4¶Ê$8’B˜ ²lNôêþþþôà̤¤šš††††àþ&D¨ zLÀ4ÐlNbŠä„\Ž¬VÞ$ü`ìÒðô¤D  ˆ :  LÆ"<úJ^È–ìnúÈx2F–<~.t°nZ<nPªZV$ÔèÔÞÄÎVtºÎVÀ¢4zVL.Žf  ²NþþôôþþêàÌ®šššš†šš†àêþNŠ„$ˆÞfø¼žvŠ¼îŽÞŽÀt`˜¢¢è~âP„ :J’ Š BŠôÒàT–2‚F(ìd¾n¦ØÄÎ<dì‚ðð‚’B’Äj؈¦¾†rn(~ öjèfpèü$òp>*î¨X0þþêôêàêÖ¸šššš††|†šêêôN€äzÞ8ò¢Ð”Šl€ÐäRŽR¢ÀpŽ˜jâF"¼ d ® | fb" ¸¸Fn(°ì2(dF ìxìLtœˆL’ª6, â..æšTT¤JþRÆÒF Ö‚"Äò¢˜¢ò¶\>²X&þôêôêþฤš††††š|†ÖôþDŠîRÔ$BÞ²ŠXbŠääÐR˜˜„z¬Ê8tˆ°næô¨ ð ê |ü"|æ¸^ ðFì’¦ZŒ<VŒ$8ÊÀLö´2 â°@XlvÖêb ¦ Ä .®æÌl² L$BLÊÀzR žNôôôôêôŽ €®¤ššš†††êàôN”îHÀ8L.>”vvl¨¨¼î*¬ŽR*˜¬è8tºìx”\4èf Pâ0꤮ÒdÜÈö’t(Ît`8.Þ8ÊÊÞò$t°ì,Nš€ °j à0à6ÂZt.üÊzHøžb&þþôôàÖàôT/¼H¤šš†††||†Öêþ0bÆ4¶ò\¨bXbN¨îÚîH>*f„Ê@L* ´ : –€ðÆ j̸¸´ Œ,62j’ˆ<¦L$VÔü.¬À¶> pèºPªúT^X¸®vʾš^¤2BBtÀz>î²lDôàêàÖÖÂÌ&Ðச¤š††††††ÖàôbÚ p˜ÔÊfävXlX”²øøä >\¶¬ò¬8Ø Ä jHú–ÌþN&Æ®  ZÎjB~Œì~VBB8`~`.B脘Žœx"ðÜÜúªxjØ<PÌ2üòÞ˜>ø¼vN0þêôêàÌÌ̸®®¸®šš†††šš¤š|êôê&X²HzŽzp XDbX”²ÚÐ  >z¶ÊÞ.`Ö0(¾þ®J2‚˜ â "è"ÜŒd°°ªdˆVâìVÎö¦LLâ8Ê` ún ‚<2Fx’âìBœ8¶òÊŽ>Æ”vN:ôþþÌÖ®¤¤šš®šš†š††††|êôôN”ø*fpR\¨XbŠ¨² Rä  *f¢À˜¶üö`‚€:–xž ºXlÖ6Z´Î‚Nä´`x(ÄP|TZ( ‚<üV°F<º’¶\òèÊÀ„>vXN&ô&àÖꮤ¤šš¤šš††††††êôþ&Dv²*p˜>äЀ€¼¼Ú4ø **R¬¶¶˜ÊÔò¬œö–€ t길bÐv²Œd¦(JÒìPdnúrÌ‚‚Øö윰ºœjĦt¶¶ø>¢¢¶Ô²vbND:þôôêÌÖ¸®¤¤š¤šššš††|††êôþ:bŠÐ 4¬RîÚÚ¨¼Æøä**î  Hz˜ÀÊÔ¢p˜Ôœâ4ŠÊÌô€\H¨0ôÄ xŒhÜš:,–   dÎÄ’âPBÀppz4*>4H\H ¨vlXD0þôêàà̸®¸¤®¤šš¤ššš††š†††|àêþ0vŠîø*øîî¼Æ²îÚÚ*ÚäRHpzò`ò„HÀ$òt\,´6¸Š²À&”ÊZ‚f &ÎJô¾|¸2Èx"Äœ$Ô’„\øø H\HzHRî²vbXN:0þôôêêÖÌÌ®®®®šš¤š††š††|††††ààê&lžäø*   ÚÆÆ øøÚÆ îÆÚ 4¢jþÎR*fòVjÄ~ºªø ΀|š,T¸`Tdì ºØŒPâ òj$„ø¼ÆÆÚ¨4Rf *Æž€bX:&þþôêêÖÌÌÌꤚš¤¤š†Â††††š†|¤¢làêô&N€Úä  îÐÆÆ žžøÆÚøH$N’>  >ŽÀ¶Þ$بê>¾´(Òúxðè˜$~’8Ô’Ät$¬„Ôf Ʋ”¼ää4*ШvvXX0þþôôêàÌÌ®®¤¤ššš†š††š†††¸LxÌêêþ:DvÆîøøø *ÚƼž¼øäƲÚÚ4ŽpÊ\ øî¬RHH\¬  t¦’L`°Ø(L8ÊüÔff˜zz\R4Rä¼²¨¼ÐÚÐä䨊lXN:þêêàààÖà®®¤š®š®šš¤ššš†††š†††††šà¸àêôþ:Dl€øî ¢Ð*zÚ¼¨ÆÚîШžÐä 4 øäÚø„Æî H„tÎ.zR\¢B¦è˜¬¢\\   * 4„p äîÆÚîШŠ””¨”vbXN:lþôêêÖ¸Ìþ¸¤š¤¤¤ššš†šš†††š†š|†|††êàô0:N€Æî^ \ÐÚ¼ÚÚƨ²¨¼î øäÆäŽî¨žÚî4p\R4 >zpp4 ø*4 Úø >˜è44мäø䞀v”ŠvXN::þôôêêààÌÂÂ̤¤¤¤¤šššš¤šš†š†|†††††ôþôþ&0DDlÆî 4ª 8\¼Æ²ÐƲ¼¼ž¨Æ  ÐÐî ””øäÚøî4H4*øäÚТŽH îÐ  >.\>ø¼ÚÚ¼¨Š€€lbX:þêêààÖÌ®®¸¤®¤®š¤š¤š¤šš††š†††††|††|†êêþþ00N€¨Ú 4ä>Ž¬ ¼ÆžÆÚÐШ”žÚîø*\ÆÆä H¨žÆ²²ÐÐä  ¼ Ú¼¼zŽîäÐø *  ²ž²¨žžlvXND&ôàêÖÖ̸®¸®®¤®¤¤š¤š¤šš†ššš†††††|††||êôôþ::NvžÆÆîø Ðƨ€¼ÆÆƲ²žž¼ÆÚ žÆ¼ÆÚ¨¨¼ÚƲ¼øÚÚäÆî¼¼¨¼¼ÆääÆä Úøøøîƨ²ž”lN:0þôêàÌÖÌ®¸®¸®®¸¤¤¤¤šššššš¤†š††|†||††êôþ&:Xbž¨ÆîÚäÚä¬ÆƼ”¼²¼”Š¨”Š¼ÐÆÚ¨žÆ¨€¼ž€¨¼¼¨¨ž²¨ž¨žŠ²²¼¼ÐÆîÐÚ²ÚÚÚÚ䨞€bN0&ôôààÖàÖÌ̸¸®¸®®®¤¤¤ššš¤ššššš†šš†††r|††|r††êþþ:DXŠÆÚîÐÆÆÐîžlvŠ²¼¼¨Š¨”ž²¼ÆÆž€Š¨ŠŠ€vž²Æ²¨””Š€€lvŠŠ””žž²Ú¼¼ÐÚ ø¨”vlD:þôôààààÖ̸¸®®®¸®®¤¤¤¤šššš®þšš†š†††††|†††|êô0DNžž²ÚÐÆÐÆž::Nʨ²Ð¼¨²”¨Æ¼Æž¨”€€€€€v””²¨²”€ lblbvll€Šl¨²²ž”¨¨¨vXN0&&þþþþôôêààÖ̸¸Â¤¸¤¤¸¸¤¤®®¤šš¤¤¸0ššš†††r†|||šêô&DNvžÐÐÐîÚÐÆX:DX€ÆƼмŠ¨¨¼¼ž””Šl€”vlbŠ¨¨””€llNvllXXlXNll²”ø”bXND0ôôôþêêôÖàÖÌ̸̮¸¸®¸¸¤¤¤š¤¤àš¤¤¤š††††††††|††|ôô0Xl”¼ÚøøÐä”&0XŠ¨²¼ÚÐÆžž¨”¨ž”””vbvvvŠ€Š”Š€lbbNXNDDbNXDNb¼ŠbDDX00þêêêàêàÖÖÌÌÂÂ̸®¸¤¸¤®š¤®¤Ìஆšš†††††††††††þ&:DXlŠ¨²Úäîîäv&bvž¨¨¨äÚ¨l€²²ž”€€Švlbvv€v€”vbbXbNNNDNDDND:NN::::0&&ôôôþôààààÖÖÌàÖ¸¸¸®®¤®¤¤¤¤¤¤Öꤚšš†šš†††††|††þ&0:XbŠ¨ÆÚøîÐ0Dv””žž”²žl”žÆ¨²ž”€ŠvXNb€€ŠlXXXbblbXlDD0DN:000:0&þþôôþàêààêàÂ̸¸¸®®®®®¤¤¤¤¤®®¤¤†šš††š|††||†|þ&&&0Nv”¨¼äøÚ ä¼NXlŠ”””ž²žŠž²²žž”žž€vllllŠvŠvbbî¨lbXNDNNXD00000ôôþþôôêàêÖÖÖÖ̸¸Â¸®®®¤®¤š¤š¤šš¤¤ššš††¸††††††††ô&&:DXvŠ¼¼ÆîÚø 4 ”vŠž”²ŠŠ¨”l€¨¼¼²²¨¨”Š€”vvŠvŠ€v€ tØvbX::NNN:DD00&0&&þþôôôôôêààÖָ¸®¸¤¤šššššš¤šššššš†®†š†††††rr&0DNXbŠžÆÆääH  ²lvŠ²¼žbŠ€bv²²Ð¼¨²²²²ž¨žž”²”ŠvŠÆ²€lb:DDND:::DD0:0&&þôôêôôàôÖ¸¸Ì®¤®¤š®¤¤š®¤¤ššššššš†®|†††††PGPLOT-2.35/README0000644000175000017500000000417014657500370013267 0ustar osboxesosboxesPGPLOT module for Perl ---------------------- Karl Glazebrook karl_pgplot at mac dot com Last update to this file: Apr 10th 2006 This module allows the use of the the PGPLOT graphics library from the popular Perl scripting language. PGPLOT makes it very easy to process and plot data using the powerful file and text manipulation facilites built in to Perl. Perl provides a superset of the features of the useful UNIX utilities awk and sed and is the `Swiss-Army Chainsaw' of UNIX programming. Because Perl is a scripting language a program can be changed and rerun to instantly see the effect on a plot. This makes program development a lot faster and much more fun than when using PGPLOT from fully compiled languages such as C or FORTRAN. Users of MONGO and SM will be familiar with this style of programming. Perl also allows you to create advanced World Wide Web page features and/or routinely do system management tasks (Perl handles regular expressions, files and sockets with equal ease). PGPLOT is a very popular library for plotting astronomical data. (As a glance through any issue of ApJ or MNRAS will confirm.) I have always found that with PGPLOT I could produced far nicer and more complex plots than I could with MONGO but it was always harder to use because it had to be done from C or FORTRAN. SM is a nice package, but the language is primitive in comparison with Perl and it is not free software. The PGPLOT module for Perl is free software and provides a complete Perl interface to all of the PGPLOT library functions. It builds against the PGPLOT C/FORTRAN libraries. The core module is available from The Comprehensive Perl Archive (CPAN) network in the directory http://search.cpan.org/search%3fmodule=PGPLOT ---------------- Installation instructions - see the file INSTALL Problems - see the file HELP News - see the file CHANGES for new features/bug fixes. NOTES FOR LUT TABLES -------------------- The colour tables were taken from STARLINK's GAIA distribution, where they have the GNU copyleft. Further information on STARLINK and GAIA can be found via http://star-www.rl.ac.uk/ and http://star-www.dur.ac.uk/~pdraper/. PGPLOT-2.35/MANIFEST0000644000175000017500000000554414731233364013545 0ustar osboxesosboxesarrays.c arrays.h CHANGES examples/pgplot.pl examples/std_pgplot.pl HELP HINTS.irix HINTS.osf INSTALL INSTALL-MacOSX INSTALL-Win32 lib/PDL/Demos/PGPLOT.pm lib/PDL/Demos/PGPLOT_OO.pm lib/PDL/Graphics/LUT.pm lib/PDL/Graphics/LUT/ramps/equa.fits lib/PDL/Graphics/LUT/ramps/expo.fits lib/PDL/Graphics/LUT/ramps/gamma.fits lib/PDL/Graphics/LUT/ramps/jigsaw.fits lib/PDL/Graphics/LUT/ramps/lasritt.fits lib/PDL/Graphics/LUT/ramps/log.fits lib/PDL/Graphics/LUT/ramps/neg.fits lib/PDL/Graphics/LUT/ramps/neglog.fits lib/PDL/Graphics/LUT/ramps/null.fits lib/PDL/Graphics/LUT/ramps/ramp.fits lib/PDL/Graphics/LUT/ramps/stairs.fits lib/PDL/Graphics/LUT/tables/aips0.fits lib/PDL/Graphics/LUT/tables/backgr.fits lib/PDL/Graphics/LUT/tables/bgyrw.fits lib/PDL/Graphics/LUT/tables/blue.fits lib/PDL/Graphics/LUT/tables/blulut.fits lib/PDL/Graphics/LUT/tables/color.fits lib/PDL/Graphics/LUT/tables/green.fits lib/PDL/Graphics/LUT/tables/heat.fits lib/PDL/Graphics/LUT/tables/idl11.fits lib/PDL/Graphics/LUT/tables/idl12.fits lib/PDL/Graphics/LUT/tables/idl14.fits lib/PDL/Graphics/LUT/tables/idl15.fits lib/PDL/Graphics/LUT/tables/idl2.fits lib/PDL/Graphics/LUT/tables/idl4.fits lib/PDL/Graphics/LUT/tables/idl5.fits lib/PDL/Graphics/LUT/tables/idl6.fits lib/PDL/Graphics/LUT/tables/isophot.fits lib/PDL/Graphics/LUT/tables/light.fits lib/PDL/Graphics/LUT/tables/manycol.fits lib/PDL/Graphics/LUT/tables/pastel.fits lib/PDL/Graphics/LUT/tables/rainbow.fits lib/PDL/Graphics/LUT/tables/rainbow1.fits lib/PDL/Graphics/LUT/tables/rainbow2.fits lib/PDL/Graphics/LUT/tables/rainbow3.fits lib/PDL/Graphics/LUT/tables/rainbow4.fits lib/PDL/Graphics/LUT/tables/ramp.fits lib/PDL/Graphics/LUT/tables/random.fits lib/PDL/Graphics/LUT/tables/random1.fits lib/PDL/Graphics/LUT/tables/random2.fits lib/PDL/Graphics/LUT/tables/random3.fits lib/PDL/Graphics/LUT/tables/random4.fits lib/PDL/Graphics/LUT/tables/random5.fits lib/PDL/Graphics/LUT/tables/random6.fits lib/PDL/Graphics/LUT/tables/real.fits lib/PDL/Graphics/LUT/tables/red.fits lib/PDL/Graphics/LUT/tables/smooth.fits lib/PDL/Graphics/LUT/tables/smooth1.fits lib/PDL/Graphics/LUT/tables/smooth2.fits lib/PDL/Graphics/LUT/tables/smooth3.fits lib/PDL/Graphics/LUT/tables/staircase.fits lib/PDL/Graphics/LUT/tables/stairs8.fits lib/PDL/Graphics/LUT/tables/stairs9.fits lib/PDL/Graphics/LUT/tables/standard.fits lib/PDL/Graphics/PGPLOT.pm lib/PDL/Graphics/PGPLOT/Window.pm lib/PDL/Graphics/PGPLOTOptions.pm lib/PDL/Graphics/State.pm lib/PGPLOT.pm LICENSE Makefile.PL MANIFEST This list of files MANIFEST.SKIP pgcompatbility.p pgfun.c PGPLOT.xs README t/00-report-prereqs.t t/eu-f77-dump.t t/lut.t t/pdl-graphics.t t/t1.t t/t10.t t/t11.t t/t12.t t/t2.t t/t3.t t/t4.t t/t5.t t/t6.t t/t7.t t/t8.t t/t9.t test.img typemap META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) PGPLOT-2.35/Makefile.PL0000644000175000017500000002363714700634034014364 0ustar osboxesosboxesuse strict; use ExtUtils::MakeMaker; use Config; use Devel::CheckLib qw(check_lib); use ExtUtils::F77; # need imports else doesn't work # Examples of how to explicitly override default automatic choice # of OS and compiler (currently commented out): #use ExtUtils::F77 qw(solaris); #use ExtUtils::F77 qw(generic g77); # use command line KEY=VALUE to override defaults. VALUES are comma # separated lists my %Arg = ( # X11 library directories XDIR => '/usr/openwin/lib,/usr/X11/lib,/usr/X11R6/lib', # X11 libraries XLIB => 'X11', # where cpgplot.h should be IDIR => undef, # where libpgplot.a should be LDIR => undef, # extra libraries and directories EXLIB => join(',', grep check_lib(lib => $_), qw(png12 png16 z)), EXDIR => '/Applications/PDL/pgplot,/usr/local/lib', ); # Get user preferences my @NARGV; while( $_ = shift @ARGV ) { if ( /^([\S]+)=(.+)/ && exists $Arg{$1} ) { $Arg{$1} = $2; } else { push @NARGV, $_; } } @ARGV = @NARGV; # look for libraries and includes if not specified on the command line if ( !defined $Arg{IDIR} || !defined $Arg{LDIR} ) { my $IDIR; my $LDIR; # Specification of PGPLOT location via environment variable if ( defined $ENV{PGPLOT_DIR} ) { $IDIR = $ENV{PGPLOT_DIR}; $LDIR = $ENV{PGPLOT_DIR}; } # if using the autotool'd version of PGPLOT (see the "OBTAINING PGPLOT" # section in PGPLOT.pm for more details) pkg-config may be able to # find everything needed. # First try pure-perl vesion elsif ( eval { require PkgConfig; 1 } ) { my $pkg = PkgConfig->find( 'cpgplot' ); if ( $pkg->pkg_exists ) { my @libdirs = map { s/-L//; $_ } grep { /^-L/ } $pkg->get_ldflags; $LDIR = join( ',', @libdirs ); my @incdirs = map { s/-I//; $_ } grep { /^-I/ } $pkg->get_cflags; $IDIR = join( ',', @incdirs ); } } # now try the wrapper around the pkg-config executable elsif ( eval { require ExtUtils::PkgConfig; 1; } ) { my %pkg = eval { ExtUtils::PkgConfig->find( 'cpgplot' ); }; if ( !$@ ) { my @libdirs = map { s/^-L//; $_ } grep { /^-L/ } split( ' ', ExtUtils::PkgConfig->libs_only_L( 'cpgplot' ) ); $LDIR = join( ',', @libdirs ); my @incdirs = map { s/^-I//; $_ } grep { /^-I/ } split( ' ', ExtUtils::PkgConfig->cflags( 'cpgplot' ) ); $IDIR = join( ',', @incdirs ); } } # and if nothing worked, use some defaults $Arg{IDIR} ||= $IDIR || '/usr/include,/Applications/PDL/pgplot,/usr/local/pgplot,/opt/homebrew/opt/pgplot/include'; $Arg{LDIR} ||= $LDIR || '/usr/lib,/usr/lib64,/opt/homebrew/opt/pgplot/lib'; } my $LIBDIRS = join(' ', map { "-L$_" } map { split( ',', $_ ) } @Arg{qw/ XDIR LDIR EXDIR /} ); my $LIBS = join(' ', map { "-l$_" } qw/ cpgplot pgplot /, map { split( ',', $_ ) } @Arg{qw/ XLIB EXLIB /} ); my $IDIRS = join( ' ', map { "-I$_" } split( ',', $Arg{IDIR} ) ); # # Usage: # $needed_libs = find_required_driver_libs($dir); # # Aim: # Parse the drivers.list file to find out what extra libraries # are needed by the module. The file is assumed to be in # the directory $dir. If the file can not be read then # "" is returned rather than exiting with an error. # # The return value is a string like "-lpng -laquaterm", which # can be "". # # This is only used in the OS-X case. It is not currently guaranteed # to be complete since I have not made a complete study of the # drivers. # sub find_required_driver_libs ($) { my $indir = shift; my $infile = "${indir}/drivers.list"; my $retval = ""; open my $fh, '<', $infile or return $retval; # known library requirements # my %libs = ( 'PNDRIV' => 'png', 'AQDRIV' => 'aquaterm', ); while (<$fh>) { next if /^\s*$/ or /^!/; # /; (comment is to un-confuse emacs highlighting) chomp; my @words = split; if ( exists $libs{$words[0]} ) { $retval .= " -l" . $libs{$words[0]}; delete $libs{$words[0]}; # since the driver can appear multiple times in drivers.list } } $fh->close; return $retval; } # sub: find_required_driver_libs() # What os are we using? # my $is_vms = $^O eq "VMS"; my $is_osx = $^O eq "darwin"; my $is_win32 = $^O =~ /mswin32/i; # Move the logic out of the WriteMakefile statement to make it a # bit easier to follow. We use the %items hash to store key,value # pairs that will be used in the WriteMakefile call. Note that # some key settings are platform specific. # my %items; $items{DEFINE} = "-DNO_TRAILING_USCORE" unless ExtUtils::F77->trail_; $items{DLEXT} = "xs.dll" if $is_win32; if ( $is_vms ) { $items{INC} = 'pgplot_dir:'; $items{LIBS} = 'pgplot_dir:cpgplot.olb'; } else { $items{INC} = $IDIRS; $items{OBJECT} = '$(BASEEXT)$(OBJ_EXT) pgplot_tmp/libcpgplot.a ' . 'pgplot_tmp/libpgplot.a' if -d 'pgplot_tmp'; $items{LIBS} = [ join( ' ', $LIBDIRS, $LIBS, ExtUtils::F77->runtime ) ]; # This is not ideal since it assumes that: # objc is required # the logic in find_required_driver_libs() is correct # the libraries are located either in a location pointed to by LDFLAGS # or in /sw/lib # if ($is_osx) { my $pgplot_dir = defined $ENV{PGPLOT_DIR} ? $ENV{PGPLOT_DIR} : "/usr/lib"; my $dir = -d 'pgplot_tmp' ? 'pgplot_tmp' : $pgplot_dir; $items{LIBS}[0] .= " -lobjc " . (defined $ENV{LDFLAGS} ? $ENV{LDFLAGS} : "-L/sw/lib") . find_required_driver_libs($pgplot_dir); } # The following is needed for PGPLOT compiled on OS-X, at least # for both the version used from FINK and a hand-compiled version. # $items{LDDLFLAGS} = "$Config{lddlflags} -Wl,-framework -Wl,Foundation" if $is_osx; # Nasty hack to build only i386/x86_64 only instead of a Universal binary on OS X # I put this in to avoid an error if linking with the pgplot libs in # SciKarl (2.4.6 and above). Hope one day to remove this. # - Karl Glazebrook if ($is_osx) { $items{CCFLAGS} = $Config{ccflags}; $items{LDFLAGS} = $Config{ldflags}; $items{LDDLFLAGS} = $Config{lddlflags}; # Added this 11/1/2021 to avoid warnings about 'compact unwinds' on MacOS11 my @darwin_vers = split("\\.",$Config{osvers}); # Darwin version XX.YY.ZZ if ($darwin_vers[0]>=20) { # Big Sur $items{LDDLFLAGS} .= " -Wl,-no_compact_unwind"; # Avoid mess of warnings about this } # Karl - now figure out automagically WHICH binary arch # to build for and change the various flags mac_universal( \$items{CCFLAGS}, \$items{LDFLAGS}, \$items{LDDLFLAGS}); print "TEST $items{CCFLAGS}\n"; print "TEST $items{LDFLAGS}\n"; print "TEST $items{LDDLFLAGS}\n"; } } my @prereq; my %min_version = ( 'PDL' => '2.089', # broadcast_define, no PGPLOT ); for my $opt_dep (sort keys %min_version) { (my $file = $opt_dep) =~ s#::#/#g; next if !eval { require "$file.pm"; 1 }; # not installed, fine next if eval { $opt_dep->VERSION($min_version{$opt_dep}); 1 }; push @prereq, $opt_dep => $min_version{$opt_dep}; } WriteMakefile( 'NAME' => 'PGPLOT', MIN_PERL_VERSION => '5.010001', 'CONFIGURE_REQUIRES' => { 'ExtUtils::F77' => 1.13, 'Devel::CheckLib' => '1.14' }, 'TEST_REQUIRES' => { 'Test::More' => '0.88' }, PREREQ_PM => { @prereq }, 'VERSION_FROM' => 'lib/PGPLOT.pm', 'dist' => { COMPRESS=>"gzip", SUFFIX=>"gz" }, 'depend' => { '$(OBJECT)' => q[pgfun.c arrays.c PGPLOT.c]}, 'META_MERGE' => { "meta-spec" => { version => 2 }, dynamic_config => 1, # deps actually do change resources => { bugtracker => {web=>'https://github.com/PDLPorters/perl5-PGPLOT/issues'}, repository => { url => 'git://github.com/PDLPorters/perl5-PGPLOT.git', type => 'git', web => 'https://github.com/PDLPorters/perl5-PGPLOT', }, }, prereqs => { develop => { requires => { 'CPAN::Changes' => '0', }, }, runtime => { recommends => \%min_version, requires => {}, }, }, x_IRC => 'irc://irc.perl.org/#pdl', }, %items ); # This subroutine is a nasty hack to modify OS X compile strings # to only build for a single architectutre # Karl Glazebrook (Dec 2010); sub mac_universal { # Note args passed as refs otherwise don't get modified! my @args = @_; my $s = ${$args[0]}; my $count=0; # Do matching against various combinations of # -arch ppc -arch i386 -arch x86_64 # Prefer i386 then prefer x86_64. $count++ while $s =~ /-arch\s\S+/g; return if $count <2; # Do nothing print "\nMac OS X with multiple architecture perl detected...\n"; print "Trying to figure out which arch to build for...\n"; # Figure out which single architecture to build for # when we have more than one my $singlearch = 'x86_64'; $singlearch = 'i386' if $s=~/-arch\s+i386/ & $s=~/-arch\s+ppc/; $singlearch = 'x86_64' if $s=~/-arch\s+x86_64/; # If we can find pgplot's xwindow server try and match the arch it is built for my $pgarch = ''; my $f1 = `which pgxwin_server`; chomp $f1; # Find in path $f1 = '/usr/local/bin/pgxwin_server' if !-e $f1; # Backuo choice if (-e $f1) { print "- Found $f1, trying to determine binary type\n"; my $exe = `file $f1`; chomp $exe; $pgarch = (split(' ',$exe))[-1]; } if ($pgarch ne '') { print "- Found binary type $pgarch\n"; $singlearch = $pgarch; } print "- Building for single architecture -arch $singlearch\n"; # Now substitute the single arch for the multiple pnes my $t; for $t (@args) { $$t =~ s/-arch\s\S+/TESTMARKER/; # Temp mark first occurence $$t =~ s/-arch\s\S+/ /g; # Remove all -arch's $$t =~ s/TESTMARKER/-arch $singlearch/; # Put one back print "\nRESULT: $$t\n"; } } PGPLOT-2.35/examples/0000755000175000017500000000000014731233364014222 5ustar osboxesosboxesPGPLOT-2.35/examples/pgplot.pl0000644000175000017500000002057414600063177016072 0ustar osboxesosboxes=head1 NAME std_pgplot - Examples of PGPLOT routines. =head1 SYNOPSIS std_pgplot.pl =head1 DESCRIPTION This file is intended to show the use of PGPLOT routines using the object-oriented approach. =cut use PDL; use PDL::Graphics::PGPLOT::Window; ## ## Test all PGPLOT routines. ## my $random = grandom(1000); my ($xc, $yc)=hist $random; my $x=zeroes(100)->xlinvals(-5,5); my $y=exp(-$x*$x/2); print "First we will test all functions in PGPLOT.\n"; print "We also will show most of the options\n"; print "After each plot - please press to proceed - type q to quit.\n"; function_to_do ('dev(), env(), hold(), release(), bin(), line()'); # # Create a window object to which we will subsequently plot. # my $w = PDL::Graphics::PGPLOT::Window->new({Device => '/xw', Aspect => 1, WindowWidth => 7}); # Note how we call the functions via the window object. This particular # call will set the axis colour to Red. $w->env(-5, 5, 0, max($yc)*1.1, {Axiscolour => 'Red'}); # Plot a histogram. $w->bin($xc, $yc); # Hold the plot. You can subsequently test whether the plot is held # by calling held() - which returns true (1) if the plot is held. $w->hold(); # This draws a line plot on top of the histogram. Note that you can # refer to options using only the first part of their name - and case # doesn't matter either. It is advised however to use the full name # for options since in some cases you could imagine getting the # wrong result. $w->line($x, $y*max($yc), {LineSty => 'Dashed', Color => 'Blue', LineWidth => 5}); # Release your connection so that the next plotting command will # erase the screen and create a new plot. $w->release(); # These two are just a convenience functions for this demo.. next_plot(); function_to_do ('errb() & points()'); # Create some more data - this time for plots with errorbars. my $xd = pdl(1,3,7,10); my $yd = pdl(2, 7,5,7); my $dy = sqrt($yd**2/12+0.2**2); # This is how you set titles on plots. If you forget to you can # use the label_axes() command (see below) to set them later. $w->env(0, 15, 0, 10, {Xtitle => 'X-data', Ytitle=>'Y-data', Title => 'An example of errb and points', Font => 'Italic'}); # Plot the data as points $w->points($xd, $yd); # Overplot (implicit) the points with error-bars. $w->errb($xd, $yd, $dy); $w->release(); next_plot(); function_to_do('line() poly(), cont(), label_axes() and text()'); # Create an image. my $im = rvals(100, 100); # Draw contours - and hold the plot because will clutter it some more. $w->cont($im, {NCOn => 4}); $w->hold(); # Note that the colours can be specified also in upper case. They can # also be referred to with numbers in keeping with the PGPLOT tradition. $w->line(pdl(0, 50), pdl(0, 50), {Color => 'RED'}); # The corners of a polygon - note that the last should be equal to the # first to get the expected results. my $px = pdl(20, 40, 40, 20, 20); my $py = pdl(80, 80, 100, 100, 80); # The poly function draws polygons - note that we set the fill using # the numerical notation here - this sets a hatched fill. $w->poly($px, $py, {Fill => 3}); # Pay attention to the hatching command as it sets the properties using # an anonymous hash again. I would normally construct this separately # and use a variable for this for readability. $w->poly($px, $py, {Color=>'Red', Fill => 3, Hatch => {Phase => 0.5}}); # label_axes() is a separate function to set the axis titles. This is # often clearer although less compact than setting it directly in the # env() function. $w->label_axes('X-direction', 'Y-direction', 'Title', {Color => 'Yellow'}); # The text() command puts text on the display and can be displayed using # different justifications, angles and fonts as well as colours. $w->text('Towards the centre', 24, 25, {Justification => 0.5, Angle=>45, Font => 'Italic'}); next_plot(); function_to_do('imag(), ctab(), hi2d and several panels'); # # We now create a new window for image display since we want several # panels in the plot window. This requires a new window to be created # at present - changes to the code welcome. # $w->close(); $w = PDL::Graphics::PGPLOT::Window->new({Device => '/xw', Aspect => 0.5, NX => 2, NY => 2, CharSize => 2}); # Display the image using a transform between the pixel coordinates # and the display coordinates. $w->imag($im, {Transform => pdl([0, 0.1, 0, 0, 0, 0.1])}); # This command will go in the next panel and will display the image using # a square root transfer function and square pixels (PIX => 1) $w->imag1($im, {PIX => 1, ITF=>'Sqrt'}); # You set the colour table using ctab() $w->ctab('Fire'); $w->imag($im); # A hold command in a multi-panel situation keeps you in the same panel. $w->hold(); # So that you can overplot a contour plot for instance... $w->cont($im, {Color => 'Yellow'}); $w->release(); # The hi2d() function draws a 2D histogram of the data and could very # likely be improved by someone with some extra time on their hands. $w->hi2d($im->slice('0:-1:10,0:-1:10')); next_plot(); function_to_do('Several plot windows. focus_window(), window_list()'); # # Multiple windows - the secret unveiled... Well, it is easy actually # at least when you use the OO interface! # $w->close(); my $w1 = PDL::Graphics::PGPLOT::Window->new({Device => '/xw', Aspect => 1, AxisColour => 'Blue', WindowName => 'First', WindowWidth => 6}); my $w2 = PDL::Graphics::PGPLOT::Window->new({Device => '/xw', Aspect => 0.618, AxisColour => 'Red', WindowWidth => 6}); # First draw something in Window 1 $w1->line($x, $x**2); $w1->hold(); # Then switch to window 2... my $ii = which($x>=0); $w2->points($x->index($ii), sqrt($x->index($ii))); $w2->hold(); $w2->line($x->index($ii), sqrt($x->index($ii)), {Color => 'Red', Linestyle => 'dashed'}); $w2->release(); # Switch back to window 1 - note how easier it is with the OO interface. $w1->points($x, $x**2+$x->grandom()); $w1->release(); # In the OO interface there is no built-in way to keep track of different # windows in the way that the non-OO interface does, but on the other hand # you don't really need it. # See the std_pgplot.pl file for an example of this. next_plot(); function_to_do('legend(), cursor()'); # Let's close Window2 and continue our examples in window 1. $w2->close(); # The legend function draws legends on plots which can be for different # symbols, linestyles, widths and mixtures. $w1->legend(['Parabola', 'Scatter points'], -2, 20, {Width => 5, LineStyle => ['Solid', undef], Symbol => [undef, 'Default']}); # # Now read the cursor - different types of cursor can be chosen print "Select a point using the cursor:\n"; my ($xp, $yp)=$w1->cursor({Type => 'CrossHair'}); print "(X, Y)=($xp, $yp)\n"; next_plot(); function_to_do('circle(), ellipse(), rectangle() and arrow()'); # The circle, ellipse and rectangle functions do not take note of the # intrinsic display aspect ratio so if you want a really round circle, # you must make sure that the aspect ratio is 1. $w1->close(); $w1 = PDL::Graphics::PGPLOT::Window->new({Device => '/xs', Aspect => 1, WindowWidth => 6}); $w1->env(0, 100, 0,100); # Draw a circle - at the moment the default fill-style is solid so we need # to specify the outline fill to get a non-filled circle.. $w1->circle(50, 50, 10, {Fill => 'Outline'}); # The ellipse can be specified with major and minor axis and the rotation # angle for the ellipse, but note that the angle must be specified in radians.. $w1->ellipse(40, 20, {MajorAxis => 30, MinorAxis=> 10, Theta => 30*3.14/180, Colour => 'Red'}); # The angle must be specified in radians for the rectangle too.... $w1->rectangle(70, 70, {XSide => 10, Angle => 45*3.14/180}); # And finally draw an arrow... $w1->arrow(40, 20, 70, 20, {Color => 'Green'}); next_plot(); $w1->close(); $w1 = PDL::Graphics::PGPLOT::Window->new({Device => '/xs', Aspect => 1, NX => 2, NY => 2}); $w1->line($x, $y); # The important thing here is to show that you can jump directly to a given # panel and start drawing in this.. $w1->bin($xc, $yc, {Panel => 3}); $w1->env(0, 1, 0, 1, {Axis => 'Box'}); $w1->text("That's all folks!", 0.5, 0.5, {Justification => 0.5, CharSize => 5, Color => 'Yellow'}); next_plot(); sub function_to_do { print "\n**************************\n"; print "* $_[0]\n"; print "**************************\n\n"; } sub next_plot { my $message = shift; $message ||=''; print $message."\n"; my $in = ; if ($in =~ /^q/i) { exit; } } PGPLOT-2.35/examples/std_pgplot.pl0000644000175000017500000001000714600063177016732 0ustar osboxesosboxes=head1 NAME std_pgplot - Examples of PGPLOT routines. =head1 SYNOPSIS std_pgplot.pl =head1 DESCRIPTION This file is intended to show the use of PGPLOT routines using the standard interface. See the C file for an object-oriented version of the same (the object-oriented interface is strongly recommended.) =cut use PDL; use PDL::Graphics::PGPLOT; ## ## Test all PGPLOT routines. ## my $random = grandom(1000); my ($xc, $yc)=hist $random; my $x=zeroes(100)->xlinvals(-5,5); my $y=exp(-$x*$x/2); print "First we will test all functions in PGPLOT.\n"; print "We also will show most of the options\n"; print "After each plot - please press to proceed - type q to quit.\n"; function_to_do ('dev(), env(), hold(), release(), bin(), line()'); my $win1 = dev('/xw', {Aspect => 1, WindowWidth => 7}); env(-5, 5, 0, max($yc)*1.1, {Axiscolour => 'Red'}); bin $xc, $yc; hold; line $x, $y*max($yc), {LineSty => 'Dashed', Color => 'Blue', LineWidth => 5}; release; #close_window($win); next_plot(); function_to_do ('errb() & points()'); my $xd = pdl(1,3,7,10); my $yd = pdl(2, 7,5,7); my $dy = sqrt($yd**2/12+0.2**2); env(0, 15, 0, 10, {Xtitle => 'X-data', Ytitle=>'Y-data', Title => 'An example of errb and points', Font => 'Italic'}); points $xd, $yd; errb $xd, $yd, $dy; release; next_plot(); function_to_do('line() poly(), cont(), label_axes() and text()'); my $im = rvals(100, 100); cont $im, {NCOn => 4}; hold; line pdl(0, 50), pdl(0, 50), {Color => 'RED'}; my $px = pdl(20, 40, 40, 20, 20); my $py = pdl(80, 80, 100, 100, 80); poly $px, $py, {Fill => 3}; poly $px, $py, {Color=>'Red', Fill => 3, Hatch => {Phase => 0.5}}; label_axes('X-direction', 'Y-direction', 'Title', {Color => 'Yellow'}); text 'Towards the centre', 24, 25, {Justification => 0.5, Angle=>45, Font => 'Italic'}; next_plot(); function_to_do('imag(), ctab(), hi2d and several panels'); $win1= dev('/xw', 2, 2, {Aspect => 0.5, CharSize => 2}); imag $im, {Transform => pdl([0, 0.1, 0, 0, 0, 0.1])}; imag1 $im, {PIX => 1, ITF=>'Sqrt'}; ctab('Fire'); imag $im; hold; cont $im, {Color => 'Yellow'}; release; hi2d $im->slice('0:-1:10,0:-1:10'); next_plot(); function_to_do('Several plot windows. focus_window(), window_list()'); close_window($win1); $win1 = dev('/xw', {Aspect => 1, AxisColour => 'Blue', WindowName => 'First', WindowWidth => 6}); my $win2 = dev('/xw', {Aspect => 0.618, AxisColour => 'Red', WindowWidth => 6, NewWindow => 1}); focus_window('First'); line $x, $x**2; hold; focus_window($win2); my $ii = which($x>=0); points $x->index($ii), sqrt($x->index($ii)); hold; line $x->index($ii), sqrt($x->index($ii)), {Color => 'Red', Linestyle => 'dashed'}; release; focus_window($win1); points $x, $x**2+$x->grandom(); release; my ($nums, $names)=window_list(); print "Window list:\n"; for (my $i=0; $i <= $#$nums; $i++) { print " $$nums[$i]: $$names[$i]\n"; } next_plot(); function_to_do('legend(), cursor()'); close_window($win2); legend ['Parabola', 'Scatter points'], -2, 20, {Width => 5, LineStyle => ['Solid', undef], Symbol => [undef, 'Default']}; print "Select a point using the cursor:\n"; my ($xp, $yp)=cursor({Type => 'CrossHair'}); print "(X, Y)=($xp, $yp)\n"; next_plot(); function_to_do('circle(), ellipse(), rectangle() and arrow()'); dev('/xs', {Aspect => 1, WindowWidth => 6}); env(0, 100, 0,100); circle(50, 50, 10, {Fill => 'Outline'}); ellipse(40, 20, {MajorAxis => 30, MinorAxis=> 10, Theta => 30*3.14/180, Colour => 'Red'}); rectangle(70, 70, {XSide => 10, Angle => 45*3.14/180}); next_plot(); close_window($win1); $win1 = dev('/xw', 2, 2, {Aspect => 1}); line $x, $y; bin $xc, $yc, {Panel => 3}; env(0, 1, 0, 1, {Axis => 'Box'}); text "That's all folks!", 0.5, 0.5, {Justification => 0.5, CharSize => 3, Color => 'Yellow'}; next_plot(); sub function_to_do { print "\n**************************\n"; print "* $_[0]\n"; print "**************************\n\n"; } sub next_plot { my $message = shift; $message ||=''; print $message."\n"; my $in = ; if ($in =~ /^q/i) { exit; } } PGPLOT-2.35/LICENSE0000644000175000017500000000073413435120245013406 0ustar osboxesosboxes LICENSE INFORMATION ------------------- The PGPLOT module for Perl is distributed under the same licensing terms as Perl itself. Please see the file "README" in the Perl distribution for more details. The PGPLOT library is copyrighted by the California Institute of Technology but is available free for education, academic research and non-commercial purposes. Please see the file copyright.notice in the PGPLOT distribtuion for more details. Karl Glazebrook 7/Dec/1996 PGPLOT-2.35/arrays.c0000644000175000017500000004576214012370505014056 0ustar osboxesosboxes/* Library of typemap functions for C arrays, idea is to provide automatic conversion between references to perl arrays and C arrays. If the argument is a scalar this is automatically detected and handles as a one element array. Thanks go to Tim Bunce for the pointer to gv.h so I could figure out how to handle glob values. Karl Glazebrook [kgb@aaoepp.aao.gov.au] Dec 95: Add double precision arrays - frossie@jach.hawaii.edu Dec 96: Add 'ref to scalar is binary' handling - kgb@aaoepp.aao.gov.au Jan 97: Handles undefined values as zero - kgb@aaoepp.aao.gov.au Feb 97: Fixed a few type cast howlers+bugs - kgb@aaoepp.aao.gov.au Apr 97: Add support for unsigned char and shorts- timj@jach.hawaii.edu */ #include "EXTERN.h" /* std perl include */ #include "perl.h" /* std perl include */ #include "XSUB.h" /* XSUB include */ /* Functions defined in this module, see header comments on each one for more details: */ #include "arrays.h" int is_scalar_ref (SV* arg) { /* Utility to determine if ref to scalar */ SV* foo; if (!SvROK(arg)) return 0; foo = SvRV(arg); if (SvPOK(foo)) return 1; else return 0; } /* #################################################################################### pack1D - argument is perl scalar variable and one char pack type. If it is a reference to a 1D array pack it and return pointer. If it is a glob pack the 1D array of the same name. If it is a scalar pack as 1 element array. If it is a reference to a scalar then assume scalar is prepacked binary data [1D-ness is checked - routine croaks if any of the array elements themselves are references.] Can be used in a typemap file (uses mortal scratch space and perl arrays know how big they are), e.g.: TYPEMAP int * T_INTP float * T_FLOATP double * T_DOUBLEP INPUT T_INTP $var = ($type)pack1D($arg,'i') T_FLOATP $var = ($type)pack1D($arg,'f') T_DOUBLEP $var = ($type)pack1D($arg,'d') */ void* pack1D ( SV* arg, char packtype ) { int iscalar; float scalar; double dscalar; short sscalar; unsigned char uscalar; AV* array; I32 i,n; SV* work; SV** work2; double nval; STRLEN len; if (is_scalar_ref(arg)) /* Scalar ref */ return (void*) SvPV(SvRV(arg), len); if (packtype!='f' && packtype!='i' && packtype!='d' && packtype!='s' && packtype != 'u') croak("Programming error: invalid type conversion specified to pack1D"); /* Create a work char variable - be cunning and make it a mortal *SV which will go away automagically when we leave the current context, i.e. no need to malloc and worry about freeing - thus we can use pack1D in a typemap! */ work = sv_2mortal(newSVpv("", 0)); /* Is arg a scalar? Return scalar*/ if (!SvROK(arg) && SvTYPE(arg)!=SVt_PVGV) { if (packtype=='f') { scalar = (float) SvNV(arg); /* Get the scalar value */ sv_setpvn(work, (char *) &scalar, sizeof(float)); /* Pack it in */ } if (packtype=='i') { iscalar = (int) SvNV(arg); /* Get the scalar value */ sv_setpvn(work, (char *) &iscalar, sizeof(int)); /* Pack it in */ } if (packtype=='d') { dscalar = (double) SvNV(arg); /*Get the scalar value */ sv_setpvn(work, (char *) &dscalar, sizeof(double)); /* Pack it in */ } if (packtype=='s') { sscalar = (short) SvNV(arg); /*Get the scalar value */ sv_setpvn(work, (char *) &sscalar, sizeof(short)); /* Pack it in */ } if (packtype=='u') { uscalar = (unsigned char) SvNV(arg); /*Get the scalar value */ sv_setpvn(work, (char *) &uscalar, sizeof(char)); /* Pack it in */ } return (void *) SvPV(work, PL_na); /* Return the pointer */ } /* Is it a glob or reference to an array? */ if (SvTYPE(arg)==SVt_PVGV || (SvROK(arg) && SvTYPE(SvRV(arg))==SVt_PVAV)) { if (SvTYPE(arg)==SVt_PVGV) { array = (AV *) GvAVn((GV*) arg); /* glob */ }else{ array = (AV *) SvRV(arg); /* reference */ } n = av_len(array); if (packtype=='f') SvGROW( work, sizeof(float)*(n+1) ); /* Pregrow for efficiency */ if (packtype=='i') SvGROW( work, sizeof(int)*(n+1) ); if (packtype=='d') SvGROW( work, sizeof(double)*(n+1) ); if (packtype=='s') SvGROW( work, sizeof(short)*(n+1) ); if (packtype=='u') SvGROW( work, sizeof(char)*(n+1) ); /* Pack array into string */ for(i=0; i<=n; i++) { work2 = av_fetch( array, i, 0 ); /* Fetch */ if (work2==NULL) nval = 0.0; /* Undefined */ else { if (SvROK(*work2)) goto errexit; /* Croak if reference [i.e. not 1D] */ nval = SvNV(*work2); } if (packtype=='f') { scalar = (float) nval; sv_catpvn( work, (char *) &scalar, sizeof(float)); } if (packtype=='i') { iscalar = (int) nval; sv_catpvn( work, (char *) &iscalar, sizeof(int)); } if (packtype=='d') { dscalar = (double) nval; sv_catpvn( work, (char *) &dscalar, sizeof(double)); } if (packtype=='s') { sscalar = (short) nval; sv_catpvn( work, (char *) &sscalar, sizeof(short)); } if (packtype=='u') { uscalar = (unsigned char) nval; sv_catpvn( work, (char *) &uscalar, sizeof(char)); } } /* Return a pointer to the byte array */ return (void *) SvPV(work, PL_na); } errexit: croak("Routine can only handle scalar values or refs to 1D arrays of scalars"); } /* ##################################################################################### pack2D - argument is perl scalar variable and one char pack type. If it is a reference to a 1D/2D array pack it and return pointer. If it is a glob pack the 1D/2D array of the same name. If it is a scalar assume it is a prepacked array and return pointer to char part of scalar. If it is a reference to a scalar then assume scalar is prepacked binary data [2Dness is checked - program croaks if any of the array elements themselves are references. Packs each row sequentially even if they are not all the same dimension - it is up to the programmer to decide if this is sensible or not.] Can be used in a typemap file (uses mortal scratch space and perl arrays know how big they are), e.g.: TYPEMAP int2D * T_INT2DP float2D * T_FLOAT2DP INPUT T_INT2DP $var = ($type)pack2D($arg,'i') T_FLOAT2DP $var = ($type)pack2D($arg,'f') [int2D/float2D would be typedef'd to int/float] */ void* pack2D ( SV* arg, char packtype ) { int iscalar; float scalar; short sscalar; double dscalar; unsigned char uscalar; AV* array; AV* array2; I32 i,j,n,m; SV* work; SV** work2; double nval; int isref; STRLEN len; if (is_scalar_ref(arg)) /* Scalar ref */ return (void*) SvPV(SvRV(arg), len); if (packtype!='f' && packtype!='i' && packtype!='d' && packtype!='s' && packtype!='u') croak("Programming error: invalid type conversion specified to pack2D"); /* Is arg a scalar? Return pointer to char part */ if (!SvROK(arg) && SvTYPE(arg)!=SVt_PVGV) { return (void *) SvPV(arg, PL_na); } /* Create a work char variable - be cunning and make it a mortal *SV which will go away automagically when we leave the current context, i.e. no need to malloc and worry about freeing - thus we can use pack2D in a typemap! */ work = sv_2mortal(newSVpv("", 0)); /* Is it a glob or reference to an array? */ if (SvTYPE(arg)==SVt_PVGV || (SvROK(arg) && SvTYPE(SvRV(arg))==SVt_PVAV)) { if (SvTYPE(arg)==SVt_PVGV) { array = GvAVn((GV*) arg); /* glob */ }else{ array = (AV *) SvRV(arg); /* reference */ } n = av_len(array); /* Pack array into string */ for(i=0; i<=n; i++) { /* Loop over 1st dimension */ work2 = av_fetch( array, i, 0 ); /* Fetch */ isref = work2!=NULL && SvROK(*work2); /* Is is a reference */ if (isref) { array2 = (AV *) SvRV(*work2); /* array of 2nd dimension */ m = av_len(array2); /* Length */ }else{ m=0; /* 1D array */ nval = SvNV(*work2); } /* Pregrow storage for efficiency on first row - note assumes array is rectangular but better than nothing */ if (i==0) { if (packtype=='f') SvGROW( work, sizeof(float)*(n+1)*(m+1) ); if (packtype=='i') SvGROW( work, sizeof(int)*(n+1)*(m+1) ); if (packtype=='s') SvGROW( work, sizeof(short)*(n+1)*(m+1) ); if (packtype=='u') SvGROW( work, sizeof(char)*(n+1)*(m+1) ); if (packtype=='d') SvGROW( work, sizeof(double)*(n+1) ); } for(j=0; j<=m; j++) { /* Loop over 2nd dimension */ if (isref) { work2 = av_fetch( array2, j, 0 ); /* Fetch element */ if (work2==NULL) nval = 0.0; /* Undefined */ else { if (SvROK(*work2)) goto errexit; /* Croak if reference [i.e. not 1D] */ nval = SvNV(*work2); } } if (packtype=='d') { dscalar = (double) nval; sv_catpvn( work, (char *) &dscalar, sizeof(double)); } if (packtype=='f') { scalar = (float) nval; sv_catpvn( work, (char *) &scalar, sizeof(float)); } if (packtype=='i') { iscalar = (int) nval; sv_catpvn( work, (char *) &iscalar, sizeof(int)); } if (packtype=='s') { sscalar = (short) nval; sv_catpvn( work, (char *) &sscalar, sizeof(short)); } if (packtype=='u') { uscalar = (unsigned char) nval; sv_catpvn( work, (char *) &uscalar, sizeof(char)); } } } /* Return a pointer to the byte array */ return (void *) SvPV(work, PL_na); } errexit: croak("Routine can only handle scalar packed char values or refs to 1D or 2D arrays"); } /* ################################################################################### packND - argument is perl scalar variable and one char pack type. arg is treated as a reference to an array of arbitrary dimensions. Pointer to packed data is returned. It is packed recursively, i.e. if an element is a scalar it is packed on the end of the string, if it is a reference the array it points to is packed on the end with further recursive traversal. For a 2D input will produce the same result as pack2D though without, obviously, dimensional checking. Since we don't know in advance how big it is we can't preallocate the storage so this may be inefficient. Note, as in other pack routines globs are handled as the equivalent 1D array. e.g. [1,[2,2,[-4,-4]]],-1,0,1, 2,3,4] is packed as 1,2,2,-4,-4,-1,0,1,2,3,4 If arg is a reference to a scalar then assume scalar is prepacked binary data. Can be used in a typemap file (uses mortal scratch space). */ void* packND ( SV* arg, char packtype ) { SV* work; STRLEN len; void pack_element(SV* work, SV** arg, char packtype); /* Called by packND */ if (is_scalar_ref(arg)) /* Scalar ref */ return (void*) SvPV(SvRV(arg), len); if (packtype!='f' && packtype!='i' && packtype!='d' && packtype!='s' && packtype!='u') croak("Programming error: invalid type conversion specified to packND"); /* Create a work char variable - be cunning and make it a mortal *SV which will go away automagically when we leave the current context, i.e. no need to malloc and worry about freeing - thus we can use packND in a typemap! */ work = sv_2mortal(newSVpv("", 0)); pack_element(work, &arg, packtype); return (void *) SvPV(work, PL_na); } /* Internal function of packND - pack an element recursively */ void pack_element(SV* work, SV** arg, char packtype) { I32 i,n; AV* array; int iscalar; float scalar; short sscalar; unsigned char uscalar; double nval; /* Pack element arg onto work recursively */ /* Is arg a scalar? Pack and return */ if (arg==NULL || (!SvROK(*arg) && SvTYPE(*arg)!=SVt_PVGV)) { if (arg==NULL) nval = 0.0; else nval = SvNV(*arg); if (packtype=='f') { scalar = (float) nval; /* Get the scalar value */ sv_catpvn(work, (char *) &scalar, sizeof(float)); /* Pack it in */ } if (packtype=='i') { iscalar = (int) nval; /* Get the scalar value */ sv_catpvn(work, (char *) &iscalar, sizeof(int)); /* Pack it in */ } if (packtype=='d') { sv_catpvn(work, (char *) &nval, sizeof(double)); /* Pack it in */ } if (packtype=='s') { sscalar = (short) nval; /* Get the scalar value */ sv_catpvn(work, (char *) &sscalar, sizeof(short)); /* Pack it in */ } if (packtype=='u') { uscalar = (unsigned char) nval; sv_catpvn(work, (char *) &uscalar, sizeof(char)); /* Pack it in */ } return; } /* Is it a glob or reference to an array? */ if (SvTYPE(*arg)==SVt_PVGV || (SvROK(*arg) && SvTYPE(SvRV(*arg))==SVt_PVAV)) { /* Dereference */ if (SvTYPE(*arg)==SVt_PVGV) { array = GvAVn((GV*)*arg); /* glob */ }else{ array = (AV *) SvRV(*arg); /* reference */ } /* Pack each array element */ n = av_len(array); for (i=0; i<=n; i++) { /* To curse is human, to recurse divine */ pack_element(work, av_fetch(array, i, 0), packtype ); } return; } errexit: croak("Routine can only handle scalars or refs to N-D arrays of scalars"); } /* ################################################################################## unpack1D - take packed string (C array) and write back into perl 1D array. If 1st argument is a reference, unpack into this array. If 1st argument is a glob, unpack into the 1D array of the same name. Can only be used in a typemap if the size of the array is known in advance or is the size of a preexisting perl array (n=0). If it is determined by another variable you may have to put in in some direct CODE: lines in the XSUB file. */ void unpack1D ( SV* arg, void * var, char packtype, int n ) { /* n is the size of array var[] (n=1 for 1 element, etc.) If n=0 take var[] as having the same dimension as array referenced by arg */ int* ivar; float* fvar; double* dvar; short* svar; unsigned char* uvar; SV* work; AV* array; I32 i,m; /* Note in ref to scalar case data is already changed */ if (is_scalar_ref(arg)) /* Do nothing */ return; if (packtype!='f' && packtype!='i' && packtype!= 'd' && packtype!='u' && packtype!='s') croak("Programming error: invalid type conversion specified to unpack1D"); m=n; array = coerce1D( arg, m ); /* Get array ref and coerce */ if (m==0) m = av_len( array )+1; if (packtype=='i') /* Cast void array var[] to appropriate type */ ivar = (int *) var; if (packtype=='f') fvar = (float *) var; if (packtype=='d') dvar = (double *) var; if (packtype=='u') uvar = (unsigned char *) var; if (packtype=='s') svar = (short *) var; /* Unpack into the array */ for(i=0; i