here is the pdl information ...
##############################################################
VERSION: PDL v2.4.10 (supports bad values)
$%PDL::Config = {
'BADVAL_PER_PDL' => '0',
'WITH_PROJ' => '1',
'POSIX_THREADS_INC' => '-IC:/_64/msys/1.0/local_dyn_470/includ
e',
'PDL_CONFIG_VERSION' => '0.005',
'FFTW_TYPE' => 'double',
'PDL_BUILD_DIR' => 'C:\\sisyphusion\\PDL-2.4.10',
'FFTW_LIBS' => [
'C:/_64/msys/1.0/local_470/lib'
],
'WITH_FFTW' => '1',
'GSL_LIBS' => undef,
'GL_BUILD' => '1',
'WITH_IO_BROWSER' => '0',
'PROJ_INC' => [
'C:/_64/msys/1.0/local_470/include'
],
'WHERE_PLPLOT_INCLUDE' => 'C:/_64/msys/1.0/local_470/include/p
lplot',
'HTML_DOCS' => '1',
'SKIP_KNOWN_PROBLEMS' => '1',
'WHERE_PLPLOT_LIBS' => 'C:/_64/msys/1.0/local_470/lib',
'WITH_3D' => '1',
'WITH_POSIX_THREADS' => '1',
'POGL_VERSION' => '0.65',
'FFTW_INC' => [
'C:/_64/msys/1.0/local_470/include'
],
'HIDE_TRYLINK' => '1',
'HDF_INC' => undef,
'WITH_HDF' => '0',
'POGL_WINDOW_TYPE' => 'glut',
'WITH_GD' => '1',
'WITH_BADVAL' => '1',
'FITS_LEGACY' => '1',
'WITH_SLATEC' => '1',
'BADVAL_USENAN' => '0',
'WITH_DEVEL_REPL' => '1',
'TEMPDIR' => 'C:\\Users\\ADMINI~1\\AppData\\Local\\Temp',
'PROJ_LIBS' => [
'C:/_64/msys/1.0/local_470/lib'
],
'USE_POGL' => '1',
'PDL_BUILD_VERSION' => '2.4.10',
'GD_LIBS' => [
'C:/_64/msys/1.0/local_470/lib'
],
'GSL_INC' => undef,
'GD_INC' => [
'C:/_64/msys/1.0/local_470/include'
],
'WITH_GSL' => '1',
'OPTIMIZE' => undef,
'PDLDOC_IGNORE_AUTOLOADER' => '0',
'HDF_LIBS' => undef,
'POSIX_THREADS_LIBS' => '-LC:/_64/msys/1.0/local_dyn_470/lib -
lpthreadGC2',
'MALLOCDBG' => {},
'WITH_MINUIT' => '1',
'WITH_PLPLOT' => '1',
'MINUIT_LIB' => undef
};
Summary of my perl5 (revision 5 version 14 subversion 2) configuration:
Platform:
osname=MSWin32, osvers=4.0, archname=MSWin32-x64-multi-thread
uname='Win32 strawberryperl 5.14.2.1 #1 Tue Nov 22 22:40:59 2011 x64'
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=undef, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc', ccflags =' -s -O2 -DWIN32 -DWIN64 -DCONSERVATIVE -DPERL_TEXTMODE_
SCRIPTS -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-str
ict-aliasing -mms-bitfields',
optimize='-s -O2',
cppflags='-DWIN32'
ccversion='', gccversion='4.4.7', gccosandvers=''
intsize=4, longsize=4, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='long long',
lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='g++', ldflags ='-s -L"C:\strawberry\perl\lib\CORE" -L"C:\strawberry\c\li
b"'
libpth=C:\strawberry\c\lib C:\strawberry\c\x86_64-w64-mingw32\lib
libs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32
-lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion
-lodbc32 -lodbccp32 -lcomctl32
perllibs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladva
pi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lver
sion -lodbc32 -lodbccp32 -lcomctl32
libc=, so=dll, useshrplib=true, libperl=libperl514.a
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-mdll -s -L"C:\strawberry\perl\lib\CORE" -L"C:\st
rawberry\c\lib"'
#####################################################################
________________________________
From: MARK BAKER <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Wednesday, April 4, 2012 9:40 AM
Subject: [Perldl] WhichND is not working ???
one of my scripts based on Based on the Volume rendering is not working and was
working fine
... Robin Williams Demo in 3Dgal is not working as well in the 3d Demos ...
here is the script
#############################################################
use PDL::Image2D;
use PDL; use PDL::Graphics::TriD; keeptwiddling3d();
for $f (1..628) {
$b=zeros(90,90,90);$b=sin($f*20.36000*$b->rvals+$b,
)**cos(20.27000*$b->rvals)**$b;$c= -0; ##}
$a=byte(($b<$c));foreach $jj(reverse
1..4){$t=($a->slice("0:-2")<<$_);$t+=$a->slice("1:-1") ;
$a = $t->mv(0,1);
for $rr (1..62) {
[($x,$y,$z)= whichND($tt=($a == -0) & ($a != 255))];
$r = sin($rr)*xvals($x);
$g =
$rr*tan(($y));
$b = $rr*tan($z);
points3d [$x,$y,$z],[$r,$g,$b];
}
}}
################################################################
it says I need a package for whichND is there a module im not referencing ???
here is the warrning I get
whichND: WARNING - list context deprecated. Set $PDL::whichND. Details in pod.Ca
n't call method "dims" without a package or object reference at C:/strawberry/pe
rl/site/lib/PDL/Graphics/TriD.pm line 739, <DATA> line 387.
where and what is a pod ?
Mark R Baker
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
