Sisyphus wrote:
>
> ----- Original Message ----- From: "Chris Marshall" <[email protected]>
>
>>> Puzzled for the night,
>>> Chris
Looking better....
I've pushed fixes for these already from feedback
from Mac OS X testers.
Good lusk,
Chris
>> Try setting PDL_3D_DEVICE in the environment to 'GL'
>> before running the tests and see if that changes things.
>
> With PDL_3D_CEVICE set to GL, running the 'demo 3d' in the perldl shell
> I get repeated complaints that:
>
> OOPS!!! Something went wrong, please make a bug report!: Your vendor has
> not defined OpenGL macro KeyPressMask, used at
> C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//GL.pm line 623.
>
> Same for 'demo 3d2'. (These messages emanate from Screen.pm.)
>
> Running 3dtest.pl I get basically the same:
>
> ################################
> C:\temp\temp\PDL>perl -Mblib 3dtest.pl
> $im3 has dims of 3 640 480
> get_current_window - creating window...
> PDL::Graphics::TriD::Window - calling SUPER::new...
> PDL::Graphics::TriD::Window - got back
> PDL::Graphics::TriD::Window=HASH(0x3462ee4)
> PDL::Graphics::TriD::Window: calling gdriver....
> GL gdriver...
> Your vendor has not defined OpenGL macro KeyPressMask, used at
> C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//GL.pm line 623.
> AUTOLOAD: DESTROY at
> C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD/Window.pm line 224.
> Window AUTOLOADing 'DESTROY':
> self=PDL::Graphics::TriD::Window=HASH(0x3462ee4),
> args=''
> ################################
>
> The appropriate section of the GL.pm code is:
>
> 623: $options->{mask} = (KeyPressMask | ButtonPressMask |
> 624: ButtonMotionMask | ButtonReleaseMask |
> 625: ExposureMask | StructureNotifyMask |
> 626: PointerMotionMask) unless defined
> $options->{mask};
>
> Seems that KeyPressMask ,ButtonMotionMask and PointerMotionMask are not
> vendor-defined for me. With those symbols removed, 3dtest.pl runs, but
> crashes when I click on the x to close the window. It terminates nicely
> if I hit the 'q' key:
>
> ###############################
> C:\temp\temp\PDL>perl -Mblib 3dtest.pl
> $im3 has dims of 3 640 480
> get_current_window - creating window...
> PDL::Graphics::TriD::Window - calling SUPER::new...
> PDL::Graphics::TriD::Window - got back
> PDL::Graphics::TriD::Window=HASH(0x34a2e84)
> PDL::Graphics::TriD::Window: calling gdriver....
> GL gdriver...
> STARTING OPENGL 300 300
> gdriver: Calling OpengGL::OO(HASH(0x349dd6c))...
> Creating GLUT OO window
> gdriver: Calling glClearColor...
> gdriver: Calling glpRasterFont...
> gdriver: window_type => 'glut' so not actually setting the rasterfont
> STARTED OPENGL!
> PDL::Graphics::TriD::Window: gdriver gave back 1....
> It's interactive... calling ev_defaults...
> calling new_viewport...
> Adding viewport 0,0,300,300
> ARC: 300,300
> PDL::Graphics::TriD::ArcCone 300,300
> ARC: 300,300
> Resized window: 300,300
> PDL::Graphics::TriD::SimpleScaler 300,300
> new_viewport: PDL::Graphics::TriD::ViewPort 0
> get_current_window - calling set_material...
> AUTOLOAD: set_material at
> C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD/Window.pm line 224.
> Window AUTOLOADing 'set_material':
> self=PDL::Graphics::TriD::Window=HASH(0x34a2e
> 84), args='PDL::Graphics::TriD::Material=HASH(0x34a5e9c)'
> do_perspective 300 300
> PDL::Graphics::TriD::Window
> (C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//GL.pm, line 826)
> PDL::Graphics::TriD::Window
> (C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//GL.pm, line 734)
> PDL::Graphics::TriD (C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD.pm,
> line 676)
> main (3dtest.pl, line 17)
> (, line )
>
> Transforming viewport!
> CALLIST !
> CHECKVALID PDL::Graphics::TriD::ViewPort=HASH(0x34a6c84)
> GENLIST 1
> EGENLIST 1
> VALID1 PDL::Graphics::TriD::ViewPort=HASH(0x34a6c84)
> EVENT!
> OO::XPending: have 0 xevents
> _pdl_fake_KeyPress: got (113 351 642)
> e= 2,q
> Your vendor has not defined OpenGL macro KeyPress, used at
> C:\temp\temp\PDL\blib\lib/PDL//Graphics//TriD//GL.pm line 753.
> AUTOLOAD: DESTROY at
> C:\temp\temp\PDL\blib\lib/PDL/Graphics/TriD/Window.pm line 224.
> Window AUTOLOADing 'DESTROY':
> self=PDL::Graphics::TriD::Window=HASH(0x34a2e84),
> args=''
>
> ###############################
>
> Oops ... there's another undefined macro (KeyPress).
>
> Only this time it's not so easily dealt with:
>
> 749: }
> 750: print "e= ".join(",",@e)."\n" if($PDL::Graphics::TriD::verbose);
> 751:
> 752: if(@e){
> 753: if ($e[0] == VisibilityNotify || $e[0] == Expose) {
> 754: $hap = 1;
> 755: } elsif ($e[0] == ConfigureNotify) {
> 756: print "CONFIGNOTIFE\n" if($PDL::Graphics::TriD::verbose);
> 757: $this->reshape($e[1],$e[2]);
> 758: $hap=1;
>
> The 2 demos in the perldl shell sort of work .... the images seem to get
> superimposed as the demo proceeds. I don't think that's right.
> And at the end of the demo the window is unresponsive, which is
> definitely not right.
>
> But it's all definitely encouraging !!
>
> I'll copy the PDL and OpenGL stuff over to my XP laptop (which,
> apparently, has additional drivers installed) and see how it goes there.
> (Might take me a while, as $job is about to get in the way again.) I'll
> let you know how it goes.
>
> Cheers,
> Rob
>
>
>
> ------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG - www.avg.com
> Version: 8.5.409 / Virus Database: 270.14.0/2406 - Release Date: 09/30/09
> 18:56:00
>
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
