#51 justify option fails in imag (PDL2.3.4)

feature_request
closed
PGPLOT (20)
5
2014-11-07
2002-11-06
Doug Burke
No

The justify option to imag() doesn't work in PDL2.3.4
[I can't say when it stopped working]. Compare the imag
with the contour plot displayed by the following
example: I would expect (and willing to bet some money
that they used to be the same at some unspecified point
in the past) that the axes should be the same in the
two, but they're not on my 2.3.4 installation (linux):

Also note there are a lot of warning messages coming
from PGPLOT

$ perl -w just.pl
Useless use of private variable in void context at
/home/burke/local/perl/lib/5.8.0/i686-linux/PDL/Graphics/PGPLOT/Window.pm
line 4872.
Use of uninitialized value in numeric eq (==) at
/home/burke/local/perl/lib/5.8.0/i686-linux/PDL/Graphics/PGPLOT/Window.pm
line 1926, <DATA> line 381.
Argument "" isn't numeric in numeric eq (==) at
/home/burke/local/perl/lib/5.8.0/i686-linux/PDL/Graphics/PGPLOT/Window.pm
line 1926, <DATA> line 381.
Use of uninitialized value in scalar assignment at
/home/burke/local/perl/lib/5.8.0/i686-linux/PDL/Graphics/PGPLOT/Window.pm
line 1948, <DATA> line 381.
...etc...

where

$ cat just.pl

use strict;

use PDL;
use PDL::Graphics::PGPLOT::Window;

my $win =
PDL::Graphics::PGPLOT::Window->new(nx=>1,ny=>2);

my $a = rvals(20,20);

$win->imag( $a, { justify => 1 } );

$win->cont( $a, $a->min+pdl(4,9), { justify => 1 } );

and

$ perldl -V

gives

Summary of my PDL configuration

VERSION: PDL v2.3.4 (supports bad values)

$%PDL::Config = {
'OPENGL_LIBS' => '-lGLU -lGL -lm',
'WITH_BADVAL' => '1',
'OPENGL_DEFINE' =>
'-DGL_GLEXT_LEGACY',
'FFTW_TYPE' => 'double',
'WITH_SLATEC' => '1',
'BADVAL_USENAN' => '0',
'FFTW_LIBS' => [

'/home/burke/local/lib'
],
'WITH_FFTW' => undef,
'GSL_LIBS' => undef,
'GL_BUILD' => '1',
'WITH_IO_BROWSER' => '0',
'GSL_INC' => undef,
'WITH_KARMA' => '1',
'WHERE_KARMA' => undef,
'WITH_GSL' => undef,
'WITH_3D' => '1',
'MALLOCDBG' => {},
'OPENGL_INC' => undef,
'WITH_POSIX_THREADS' => '0',
'FFTW_INC' => [

'/home/burke/local/include'
],
'HIDE_TRYLINK' => '1'
};
Summary of my perl5 (revision 5.0 version 8 subversion
0) configuration:
Platform:
osname=linux, osvers=2.2.16, archname=i686-linux
uname='linux lilliput 2.2.16 #3 sun nov 19 15:25:33
hst 2000 i686 unknown ' config_args='-de
-Dprefix=/home/burke/local/perl -Uinstallusrbinperl'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef
useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define
usesocks=undef
use64bitint=undef use64bitall=undef
uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fno-strict-aliasing
-I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
optimize='-O3',
cppflags='-fno-strict-aliasing
-I/usr/local/include'
ccversion='', gccversion='2.95.2 19991024
(release)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8,
byteorder=1234
d_longlong=define, longlongsize=8,
d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8,
Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lc
-lposix -lcrypt -lutil
perllibs=-lnsl -ldl -lm -lc -lposix -lcrypt -lutil
libc=, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.1.3'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared
-L/usr/local/lib'

Discussion

  • Craig DeForest

    Craig DeForest - 2002-12-06
    • status: open --> closed
     
  • Craig DeForest

    Craig DeForest - 2002-12-06

    Logged In: YES
    user_id=20200

    Bug fixed in CVS.
    Thanks for reporting the problem!

     

Log in to post a comment.

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks