Please, disregard my previous message. The problem was that XWDRIV was
not activated as driver in the PGPLOT driver list.





2008/1/6, Hernán De Angelis <[EMAIL PROTECTED]>:
> Hi,
>
> I have recently done a clean install of openSUSE 10.3 on a computer,
> including PDL. Everything was apparently installed smoothly and
> without problems. However, I am experiencing a problem when running
> the Transform and Cartography demos: no graphics windows are open and
> errors are reported regarding "pgopen". This is strange because PGPLOT
> was installed OK, and "demo pgplot" and "demo bad2" work just fine.
>
> Does any one have a clue of what is going on?
>
>
> Example of error: (Cartography, first part):
>
> ---- Code:
>   ### Map data are stored natively in Plate Caree format.
>   ### The image contains a FITS header that contains coordinate system info.
>   print "FITS HEADER INFORMATION:\n";
>   for $_(keys %{$map->hdr}){
>     next if(m/SIMPLE/ || m/HISTORY/ || m/COMMENT/);
>     printf ("  %8s: %10s%s", $_, $map->hdr->{$_}, (++$i%3) ? "  " : "\n");
>   }
>   print "\n";
>
>   $w = pgwin(Dev=>"/xw",size=>[8,6]);
>   $w->fits_imag($map, {Title=>"NASA/MODIS Earth Map (Plate Caree)",J=>0});
> ---- Output:
> FITS HEADER INFORMATION:
>      NAXIS:          3
>     NAXIS1:       2048      CRPIX1:     1024.5      CRVAL1:          0
>     NAXIS2:       1024      CRPIX2:      512.5      CRVAL2:          0
>     NAXIS3:          3      CRPIX3:          1      CRVAL3:          0
>     CTYPE1:  Longitude      CUNIT1:    degrees      CDELT1: 0.17578125
>     CTYPE2:   Latitude      CUNIT2:    degrees      CDELT2: 0.17578125
>     CTYPE3:        RGB      CUNIT3:      index      CDELT3:          1
>
>  %PGPLOT, Unrecognized device type
>  %PGPLOT, Invalid device specification: /xw
> ---- (press enter)----
> OOPS!!! Something went wrong, please make a bug report!: PDL: Opening
> new window (pgopen) failed: -1
>
> Caught at file /usr/bin/perldl, line 388, pkg main
>  at /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/PDL/Core.pm line 
> 2596
>         PDL::Core::barf('Opening new window (pgopen) failed: -1\x{a}')
> called at 
> /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/PDL/Graphics/PGPLOT/Window.pm
> line 2425
>         PDL::Graphics::PGPLOT::Window::release_and_barf('Opening new
> window (pgopen) failed: -1\x{a}') called at
> /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/PDL/Graphics/PGPLOT/Window.pm
> line 2619
>         
> PDL::Graphics::PGPLOT::Window::_open_new_window('PDL::Graphics::PGPLOT::Window=HASH(0x8e96068)',
> 'HASH(0x8b5817c)') called at
> /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/PDL/Graphics/PGPLOT/Window.pm
> line 2582
>         PDL::Graphics::PGPLOT::Window::new('PDL::Graphics::PGPLOT::Window',
> 'Dev', '/xw', 'size', 'ARRAY(0x8b57c60)') called at
> /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/PDL/Graphics/PGPLOT/Window.pm
> line 2504
>         PDL::Graphics::PGPLOT::Window::pgwin('Dev', '/xw', 'size',
> 'ARRAY(0x8b57c60)') called at (eval 163) line 11
>         eval 'package PDL::Demos::Cartography_demo; use PDL;
>   ### Map data are stored natively in Plate Caree format.
>   ### The image contains a FITS header that contains coordinate system info.
>   print "FITS HEADER INFORMATION:\\n";
>   for $_(keys %{$map->hdr}){
>     next if(m/SIMPLE/ || m/HISTORY/ || m/COMMENT/);
>     printf ("  %8s: %10s%s", $_, $map->hdr->{$_}, (++$i%3) ? "  " : "\\n");
>   }
>   print "\\n";
>
>   $w = pgwin(Dev=>"/xw",size=>[8,6]);
>   $w->fits_imag($map, {Title=>"NASA/MODIS Earth Map (Plate Caree)",J=>0});
>
> ;' called at 
> /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/PDL/Demos/Screen.pm
> line 40
>         PDL::Demos::Routines::act('\x{a}  ### Map data are stored
> natively in Plate Caree format. \x{a} ...') called at
> /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/PDL/Demos/Cartography_demo.pm
> line 70
>         PDL::Demos::Cartography_demo::run() called at /usr/bin/perldl line 388
>         main::demo('cartography') called at (eval 159) line 4
>         main::__ANON__() called at /usr/bin/perldl line 644
>         eval {...} called at /usr/bin/perldl line 644
>         main::eval_and_report('demo \'cartography\'') called at
> /usr/bin/perldl line 583
>         main::process_input() called at /usr/bin/perldl line 603
>         eval {...} called at /usr/bin/perldl line 603
>
> ----
>
>
>
> --
>
> Hernán De Angelis
> Linux user # 397217
>


-- 

Hernán De Angelis
Linux user # 397217

_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl

Reply via email to