I went ahead and installed PDL::Graphics::Gnuplot from
https://github.com/drzowie/PDL-Graphics-Gnuplot/zipball/master, and
after some tries, I managed to get the hidden surfaces. Under pdl2, I
typed
pdl> use PDL::Graphics::Gnuplot 'plot3d'
pdl> $r=zeroes(20,20)->rvals;
pdl> plot3d({extracmds=>'set hidden'}, sin($r)/$r);
and it worked. (It took me some time to realize that plot options had
to be passed as a hash ref).
Nevertheless, I found a funny behavior. Now I am unable to rotate the
image interactively, as I could with the CPAN version of the
package. Moreover, if I try to rotate the image and call plot3d again,
I get errors
pdl> plot3d({extracmds=>'set hidden'}, sin($r)/$r);
WARNING: the gnuplot backend issued an error:
gnuplot> ????????I????~??.o???}???????M?????9?????~o
?????????M???Dm?8????????J?????!????????&d??u?\'??z??q???????h?:
^
line 0: invalid character ?
and the plot has noise with values of the order of 1e276. After I
initialize $r again, the plot3d starts working again. Somehow, trying
to rotate the image interactively destroys the data pdl.
Regards,
Luis
On Sun, Jan 29, 2012 at 05:51:32PM -0600, Luis Mochan wrote:
>
> I downloaded the zip file
> https://github.com/drzowie/PDL-Graphics-Gnuplot/zipball/master, unzipped it,
> and ran
> perl Makefile.PL
> and got a warning,
> Checking if your kit is complete...
> Warning: the following files are missing in your kit:
> debian/source
> Please inform the author.
> Writing Makefile for PDL::Graphics::Gnuplot
> Writing MYMETA.yml and MYMETA.json
> Then I ran
> make
> make test
> and got
>
> PERL_DL_NONLAZY=1
> /home/mochan/perl5/perlbrew/perls/perl-5.15.7/bin/perl5.15.7
> "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')"
> t/*.t
> t/manifest.t .. skipped: Author tests not required for installation
> t/plot.t ...... 1/5 testfile: pdl_graphics_gnuplot_test_E7vzJmy
>
> # Failed test 'basic plotting succeeded without error'
> # at t/plot.t line 36.
> # plot() died with 'No curve option found that matches 'terminal'
> # '
>
> # Failed test 'basic plotting created a reasonably-sized file'
> # at t/plot.t line 43.
> # resulting output file should be ascii 79x24, but only contains 0 bytes
>
> # Failed test 'error detection works'
> # at t/plot.t line 55.
> # plot() produced no error
> # Testing PDL::Graphics::Gnuplot 0.11ced, Perl 5.015007,
> /home/mochan/perl5/perlbrew/perls/perl-5.15.7/bin/perl5.15.7
> # Looks like you failed 3 tests of 5.
> t/plot.t ...... Failed 3/5 subtests
>
> Test Summary Report
> -------------------
> t/plot.t (Wstat: 0 Tests: 5 Failed: 3)
> Failed tests: 2, 4-5
> Files=2, Tests=5, 1 wallclock secs ( 0.02 usr 0.00 sys + 0.27 cusr 0.04
> csys = 0.33 CPU)
> Result: FAIL
> Failed 1/2 test programs. 3/5 subtests failed.
> make: *** [test_dynamic] Error 255
>
>
> Should I try to install it anyway?
>
> Regards,
> Luis
>
>
> On Sun, Jan 29, 2012 at 03:21:22PM -0700, Craig DeForest wrote:
> > I made an effort in the newer version to support all the plot modes in the
> > manual explicitly; you might want to try the newer build from Dima's link.
> >
> > If that *doesn't* work, it would be helpful to report the contents of the
> > variable
> >
> > $PDL::Graphics::Gnuplot::last_plotcmd
> >
> > which the github/drzowie version sets on every plot.
> >
> >
> >
> >
> > On Jan 29, 2012, at 2:47 PM, Luis Mochan wrote:
> >
> > >
> > > Hi Dima,
> > > I'm using, for example
> > > $r=zeroes(50,50)->rvals/5;
> > > plot3d(extracmds=>'set hidden',sin($r)/(.01+$r));
> > >
> > > Thanks,
> > > Luis
> > >
> > > On Sun, Jan 29, 2012 at 01:31:19PM -0800, Dima Kogan wrote:
> > >> ...
> > >>
> > >> Hi Luis.
> > >>
> > >> Gnuplot hidden line removal only works when plotting SURFACES, while
> > >> PDL::Graphics::Gnuplot plots POINTS or LINES in 3D.
> > >>
> > >> There's a more recent version of PDL::Graphics::Gnuplot at
> > >> https://github.com/drzowie/PDL-Graphics-Gnuplot (this will be uploaded
> > >> to CPAN
> > >> at some point soon). I don't know if that version handles 3D surfaces
> > >> differently, but it might. Craig, did you do anything with that?
> > >>
> > >> If this is something that we don't support right now, we probably should
> > >> add it.
> > >> Can you tell me a bit more about how you're making the plot? Are you just
> > >> passing in a single 2D piddle that contains z values? So if you have
> > >> this 2D
> > >> piddle $z, are you doing
> > >>
> > >> plot3d(extracmds=>'....', $z) ?
> > >>
> > >> Thanks
> > >> dima
> > >
> > > _______________________________________________
> > > Perldl mailing list
> > > [email protected]
> > > http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
> > >
> >
>
> --
>
> o
> W. Luis Mochán, | tel:(52)(777)329-1734 /<(*)
> Instituto de Ciencias Físicas, UNAM | fax:(52)(777)317-5388 `>/ /\
> Apdo. Postal 48-3, 62251 | (*)/\/ \
> Cuernavaca, Morelos, México | [email protected] /\_/\__/
>
> O< ascii ribbon campaign - stop html mail - www.asciiribbon.org
>
>
>
>
> _______________________________________________
> Perldl mailing list
> [email protected]
> http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
--
o
W. Luis Mochán, | tel:(52)(777)329-1734 /<(*)
Instituto de Ciencias Físicas, UNAM | fax:(52)(777)317-5388 `>/ /\
Apdo. Postal 48-3, 62251 | (*)/\/ \
Cuernavaca, Morelos, México | [email protected] /\_/\__/
O< ascii ribbon campaign - stop html mail - www.asciiribbon.org
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
