Fabio - This is one of the *major* reasons that Doug Hunt wrote the bindings to PLplot. Specifically, it's possible to load an image into a piddle, then have the plotting module plot over that image. For a minor demonstration of this (plotting over an image, not plotting over a map, but you should get the idea), see my slides on PLplot here: http://www.slideshare.net/dcmertens/p-lplot-talk
I discuss drawing on a memory buffer near the end. Note that there is audio associated with the talk which adds a *tremendous* amount to the slides and the transitions between slides. The slides themselves do not contain all the words, you might say. I hope that gives you one way of solving your problems. I cannot speak to accomplishing this in PGPLOT because I've never used it. David On Sun, Jan 15, 2012 at 1:51 PM, Fabio D'Alfonso < [email protected]> wrote: > Hi, > I would be able to write over the same. > I also do not understand the way cartography and pgplot use devices. I > tried to write a map and then write over a pgplot, but the device seems not > exchangeable. > > For example, I would be able to write a map and the to write over the > track of a satellite. > The first thing I would do with Perl/PDL/GSL is a minimal Space Mission > Design. So I would be able to use graphics to depict area coverage during > orbits. > Someone had made something similar? > > Thanks > > Fabio D'Alfonso > 'Enabling Business Through IT' > cell. +39.348.059.40.22 *** > web: www.fabiodalfonso.com > email: [email protected] > linkedin: > www.linkedin.com/in/fabiodalfonso<http://it.linkedin.com/in/fabiodalfonso> > twitter: > www.twitter.com/#!/fabio_dalfonso<http://www.twitter.com/#%21/fabio_dalfonso> > > fax: +39.06.874.599.581 > BlackBerry® Wireless Enabled Address. > ** Hidden numbers are automatically rejected by the phone* > > On 1/15/2012 8:27 PM, Clifford Sobchuk wrote: > > pdl> use PDL::Graphics::PGPLOT::Window > > pdl> $win = pgwin(Device => '/gw') > > pdl> $x=sequence(6218)/1000 > > pdl> p $x(0:10) > [0 0.001 0.002 0.003 0.004 0.005 0.006 0.007 0.008 0.009 0.01] > > pdl> $win->line(sin($x)) > line: xmin=0; xmax=; ymin=-0.999999940395355; ymax=1 > > pdl> $win1 = pgwin(Device => '/gw') > > pdl> $win1->line(cos($x)) > line: xmin=0; xmax=; ymin=-0.999999940395355; ymax=1 > > pdl> $win2 = pgwin(Device => '/gw') > > pdl> $win2->line(tan($x)) > line: xmin=0; xmax=; ymin=-4909.826171875; ymax=2570.82348632813 > > > > _______________________________________________ > Perldl mailing list > [email protected] > http://mailman.jach.hawaii.edu/mailman/listinfo/perldl > > -- Sent via my carrier pigeon.
_______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
