VRML load bug for TriD in cvs

I figured I would try out the VRML driver for
PDL::Graphics::TriD with the current CVS version.
When I cut and pasted the sample code lines from
the help docs page, the module failed to even load
with the following error message:

 perl -Mblib vrml-example.pl 
Field name 'Width' already in use at 
/cygdrive/c/chm/pdl_work/try/PDL/blib/lib/PDL//Graphics//TriD//VRML.pm line 604
BEGIN failed--compilation aborted at 
/cygdrive/c/chm/pdl_work/try/PDL/blib/lib/PDL//Graphics//TriD//VRML.pm line 604.
Compilation failed in require at 
/cygdrive/c/chm/pdl_work/try/PDL/blib/lib/PDL/Graphics/TriD.pm line 548.
BEGIN failed--compilation aborted at 
/cygdrive/c/chm/pdl_work/try/PDL/blib/lib/PDL/Graphics/TriD.pm line 552.
Compilation failed in require at vrml-example.pl line 5.
BEGIN failed--compilation aborted at vrml-example.pl line 5.

Can anyone else reproduce this problem?  It looks like some
sort of load order problem but I'm not familiar enough with
oo-perl to start with debugging.  I don't know anything about
the VRML backend to TriD beyond reading the help page so
I could have missed something with the test code below.

Similar code with "GL" as the driver rather than "VRML" works
just fine.

--Chris

################### VRML example code fails:

BEGIN { $PDL::Graphics::TriD::device = "VRML"; };

use strict;

use PDL::Graphics::TriD;
use PDL::LiteF;

print "Done with VRML module loading...\n";

# set some vrml parameters
# my $set = tridsettings(); # get the defaults
# $set->browser_com('netscape/unix');
# $set->compress();
# $set->file('dynamic_scene.wrl.gz');
# 
# line3d([$x,$y,$z]); # plot some lines and view the scene with a browser


################# But OpenGL test code works:

BEGIN { $PDL::Graphics::TriD::device = "GL"; };

use strict;
use PDL::Graphics::TriD;
use PDL::LiteF;

print "Done with OpenGL module loading...\n";
# set some vrml parameters
# my $set = tridsettings(); # get the defaults
# $set->browser_com('netscape/unix');
# $set->compress();
# $set->file('dynamic_scene.wrl.gz');
# 
# line3d([$x,$y,$z]); # plot some lines and view the scene with a browser
_______________________________________________
PDL-porters mailing list
PDL-porters@xxxxxxxxxxxxxxx
http://mailman.jach.hawaii.edu/mailman/listinfo/pdl-porters