----- Original Message -----
From: "Chris Marshall" <[email protected]>
> Does perl -Mblib perldl
> and then demo 3d or demo 3d2 work?
Unfortunately, no:
#################################
C:\temp\temp\PDL>perl -Mblib perldl
perlDL shell v1.35
PDL comes with ABSOLUTELY NO WARRANTY. For details, see the file
'COPYING' in the PDL distribution. This is free software and you
are welcome to redistribute it under certain conditions, see
the same file for details.
ReadLines, NiceSlice, MultiLines enabled
Reading PDL/default.pdl...
Found docs database C:/perl510_M/site/5.10.1/lib/PDL/pdldoc.db
Type 'help' for online help
Type 'demo' for online demos
Loaded PDL v2.4.4_12git (supports bad values)
Note: AutoLoader not enabled ('use PDL::AutoLoader' recommended)
perldl> demo 3d
Field name 'Width' already in use at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 603
at C:/perl510_M/5.10.1/lib/fields.pm line 65
fields::import('fields', 'Width', 'Height', 'Interactive',
'_ViewPorts',
'_CurrentViewPort', 'VRMLTop', 'DefMaterial') called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 603
PDL::Graphics::TriD::Window::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
eval {...} called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
require PDL//Graphics//TriD//VRML.pm called at
C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm line 548
PDL::Graphics::TriD::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
eval {...} called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
require PDL/Graphics/TriD.pm called at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD1.pm line 8
PDL::Demos::TriD1::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
eval {...} called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
require PDL/Demos/TriD1.pm called at (eval 48) line 1
eval 'require PDL::Demos::TriD1;' called at perldl line 406
main::demo('3d') called at (eval 46) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
BEGIN failed--compilation aborted at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604, <DATA> line
387.
at C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
require PDL//Graphics//TriD//VRML.pm called at
C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm line 548
PDL::Graphics::TriD::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
eval {...} called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
require PDL/Graphics/TriD.pm called at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD1.pm line 8
PDL::Demos::TriD1::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
eval {...} called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604
require PDL/Demos/TriD1.pm called at (eval 48) line 1
eval 'require PDL::Demos::TriD1;' called at perldl line 406
main::demo('3d') called at (eval 46) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
Compilation failed in require at
C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm
line 548, <DATA> line 387.
at C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm line 548
PDL::Graphics::TriD::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 552
eval {...} called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 552
require PDL/Graphics/TriD.pm called at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD1.pm line 8
PDL::Demos::TriD1::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 552
eval {...} called at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 552
require PDL/Demos/TriD1.pm called at (eval 48) line 1
eval 'require PDL::Demos::TriD1;' called at perldl line 406
main::demo('3d') called at (eval 46) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
BEGIN failed--compilation aborted at
C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm line 552, <DATA> line 387.
at C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm line 552
require PDL/Graphics/TriD.pm called at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD1.pm line 8
PDL::Demos::TriD1::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm line 552
eval {...} called at C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm
line 552
require PDL/Demos/TriD1.pm called at (eval 48) line 1
eval 'require PDL::Demos::TriD1;' called at perldl line 406
main::demo('3d') called at (eval 46) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
Compilation failed in require at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD1.pm line 8, <DATA> line 387.
at C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD1.pm line 8
PDL::Demos::TriD1::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm line 8
eval {...} called at C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm
line 8
require PDL/Demos/TriD1.pm called at (eval 48) line 1
eval 'require PDL::Demos::TriD1;' called at perldl line 406
main::demo('3d') called at (eval 46) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
BEGIN failed--compilation aborted at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD1.pm line 8, <DATA> line 387.
at C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD1.pm line 8
require PDL/Demos/TriD1.pm called at (eval 48) line 1
eval 'require PDL::Demos::TriD1;' called at perldl line 406
main::demo('3d') called at (eval 46) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
Compilation failed in require at (eval 48) line 1, <DATA> line 387.
at (eval 48) line 1
eval 'require PDL::Demos::TriD1;' called at perldl line 406
main::demo('3d') called at (eval 46) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
(in cleanup) Undefined subroutine &PDL::Demos::TriD1::run called at
perldl line 408, <DATA> line 387.
at perldl line 408
main::demo('3d') called at (eval 46) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
perldl> demo 3d2
Attempt to reload PDL/Graphics/TriD.pm aborted.
Compilation failed in require at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD2.pm line 8, <STDIN> line 2.
at C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD2.pm line 8
PDL::Demos::TriD2::BEGIN() called at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD2.pm line 8
eval {...} called at C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD2.pm
line 8
require PDL/Demos/TriD2.pm called at (eval 86) line 1
eval 'require PDL::Demos::TriD2;' called at perldl line 406
main::demo('3d2') called at (eval 85) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d2\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
BEGIN failed--compilation aborted at
C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD2.pm line 8, <STDIN> line 2.
at C:\temp\temp\PDL\blib\lib/PDL/Demos/TriD2.pm line 8
require PDL/Demos/TriD2.pm called at (eval 86) line 1
eval 'require PDL::Demos::TriD2;' called at perldl line 406
main::demo('3d2') called at (eval 85) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d2\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
Compilation failed in require at (eval 86) line 1, <STDIN> line 2.
at (eval 86) line 1
eval 'require PDL::Demos::TriD2;' called at perldl line 406
main::demo('3d2') called at (eval 85) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d2\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
(in cleanup) Undefined subroutine &PDL::Demos::TriD2::run called at
perldl line 408, <STDIN> line 2.
at perldl line 408
main::demo('3d2') called at (eval 85) line 4
main::__ANON__() called at perldl line 664
eval {...} called at perldl line 664
main::eval_and_report('demo \'3d2\'\x{a}') called at perldl line 602
main::process_input() called at perldl line 622
eval {...} called at perldl line 622
perldl>
#################################
With 3dtest.pl:
#################################
C:\temp\temp\PDL>perl -Mblib 3dtest.pl
Field name 'Width' already in use at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 603
BEGIN failed--compilation aborted at
C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//VRML.pm line 604, <DATA> line
387.
Compilation failed in require at
C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm
line 548, <DATA> line 387.
BEGIN failed--compilation aborted at
C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm line 552, <DATA> line 387.
Compilation failed in require at 3dtest.pl line 8, <DATA> line 387.
BEGIN failed--compilation aborted at 3dtest.pl line 8, <DATA> line 387.
#################################
Here are some of the relevant lines from VRML.pm:
544: my $mod = $dv;
545: $mod =~ s|::|//|g;
546: print "dev = $dev mod=$mod\n" if($verbose);
547:
548: require "$mod.pm";
549: $dv->import;
550: my $verbose;
551:
552: }
553:
596: }
597: my $g = PDL->null;
598: &PDL::Graphics::TriD::Rout::combcoords(@$c,$g);
599: $g->dump if $PDL::Graphics::TriD::verbose;
600: return $g;
601: }
602:
603: sub objplotcommand {
604: my($object) = @_;
605: my $win = PDL::Graphics::TriD::get_current_window();
And PDL/Demos/TriD2.pm begins with:
1: # Copyright (C) 1998 Tuomas J. Lukka.
2: # All rights reserved, except redistribution
3: # with PDL under the PDL License permitted.
4:
5: package PDL::Demos::TriD2;
6:
7: use PDL;
8: use PDL::Graphics::TriD;
9: use PDL::Graphics::TriD::Image;
Cheers,
Rob
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
