← Back to branch summary

~ubuntu-branches/ubuntu/trusty/pdl/trusty-proposed

« back to all changes in this revision

Viewing changes to Demos/Transform_demo.pm

  • Committer: Package Import Robot
  • Author(s): Julian Taylor
  • Date: 2012-05-23 00:38:11 UTC
  • mfrom: (2.1.8 sid)
  • Revision ID: package-import@ubuntu.com-20120523003811-pkc6ksfbwkn9r51w
Tags: 1:2.4.10+dfsg-1ubuntu1
* Merge from Debian testing.  Remaining changes:
  - debian/perldl.conf: Enabled bad-val as NAN

Show diffs side-by-side

added added

removed removed

Lines of Context:
Demos/Transform_demo.pm
97
97
  #### Resampling with ->map and no FITS interpretation works in pixel space.
98
98
 
99
99
  ### Create a PGPLOT window, and display the original image
100
 
    $win = pgwin( dev=>'/xw', nx=>2, ny=>2, Charsize=>2, J=>1, Size=>[8,6] );
 
100
    $dev = $^O =~ /MSWin/i ? '/GW' : '/xw';
 
101
    $win = pgwin( dev=> $dev, nx=>2, ny=>2, Charsize=>2, J=>1, Size=>[8,6] );
101
102
 
102
103
    $win->imag( $m51 , { DrawWedge=>0, Title=>"M51" }  );
103
104
 
258
259
    $s = "M51 closeup ("; $ss=" coords)";
259
260
    $ps = " (pixels)";
260
261
 
261
 
    $w1 = pgwin( dev=>'/xw', size=>[4,4], charsize=>1.5, justify=>1 );
 
262
    $dev = $^O =~ /MSWin/i ? '/GW' : '/xw';
 
263
    $w1 = pgwin( dev=> $dev, size=>[4,4], charsize=>1.5, justify=>1 );
262
264
    $w1->imag( $data, 600, 750, { title=>"${s}pixel${ss}", 
263
265
                                  xtitle=>"X$ps", ytitle=>"Y$ps" } );
264
266
    $w1->hold;
265
267
 
266
 
    $w2 = pgwin( dev=>'/xw', size=>[4,4], charsize=>1.5, justify=>1 );
 
268
    $w2 = pgwin( dev=> $dev, size=>[4,4], charsize=>1.5, justify=>1 );
267
269
    $w2->fits_imag( $data, 600, 750, { title=>"${s}sci.${ss}", dr=>0 } );
268
270
    $w2->hold;
269
271