Fabio, please leave the entire thread in the reply. It is becoming difficult 
for me to follow which items to which you are responding.

If you want to overwrite, use 'hold'.

pdl> use PDL::Graphics::PGPlot::Window

pdl> $win = pgwin(Device => '/gw')

pdl> $x=sequence(6218)/1000

pdl> $win->line(sin($x))
line: xmin=0; xmax=; ymin=-0.999999940395355; ymax=1

pdl> $win->hold

pdl> $win->line(cos($x))

Is that what you wish to see? Two or more overlays?

CLIFF SOBCHUK
Core RF Engineering
Phone 613-667-1974   ecn: 8109-71974
mobile 403-819-9233
yahoo: sobchuk
www.ericsson.com<http://www.ericsson.com/>

"The author works for Telefonaktiebolaget L M Ericsson ("Ericsson"), who is 
solely responsible for this email and its contents. All inquiries regarding 
this email should be addressed to Ericsson. The web site for Ericsson is 
www.ericsson.com."

This Communication is Confidential. We only send and receive email on the basis 
of the terms set out at 
www.ericsson.com/email_disclaimer<http://www.ericsson.com/email_disclaimer>



________________________________
From: Fabio D'Alfonso [mailto:[email protected]]
Sent: Sunday, January 15, 2012 12:51 PM
To: Clifford Sobchuk; [email protected]
Subject: Re: [Perldl] Sharing Graphics Devices

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 <http://www.fabiodalfonso.com/>
email: [email protected]
<mailto:[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(r) 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

Reply via email to