"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Demos/Transform_demo.pm" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

Transform_demo.pm  (PDL-2.077):Transform_demo.pm  (PDL-2.078)
skipping to change at line 232 skipping to change at line 232
$win->fits_imag($m51, {Title => "M51"} ); $win->fits_imag($m51, {Title => "M51"} );
# Skewed # Skewed
$win->fits_imag( $m51_fl->map( $t_skew ), $win->fits_imag( $m51_fl->map( $t_skew ),
{ Title => "M51 skewed by \\\\gp in spatial coords" } ); { Title => "M51 skewed by \\\\gp in spatial coords" } );
# Untwisted -- show that m51 has a half-twist per scale height # Untwisted -- show that m51 has a half-twist per scale height
$win->fits_imag( $m51_fl->map( $t_untwist ), $win->fits_imag( $m51_fl->map( $t_untwist ),
{ Title => "M51 unspiraled (\\\\gp / r\\\\ds\\\\u)"} ); { Title => "M51 unspiraled (\\\\gp / r\\\\ds\\\\u)"} );
# Untwisted -- the jacobean method uses variable spatial filtering # Untwisted -- the jacobian method uses variable spatial filtering
# to eliminate spatial artifacts, at significant computational cost # to eliminate spatial artifacts, at significant computational cost
# (This may take some time to complete). # (This may take some time to complete).
$win->fits_imag( $m51_fl->map( $t_untwist, {m=>jacobean}), $win->fits_imag( $m51_fl->map( $t_untwist, {m=>"jacobian"}),
{ Title => "M51 unspiraled (\\\\gp / r\\\\ds\\\\u; antialiased)" } ); { Title => "M51 unspiraled (\\\\gp / r\\\\ds\\\\u; antialiased)" } );
|], |],
[act => q| [act => q|
$win->close; $win->close;
### Native FITS interpretation makes it easy to view your data in ### Native FITS interpretation makes it easy to view your data in
### your preferred coordinate system. Here we zoom in on a 0.2x0.2 ### your preferred coordinate system. Here we zoom in on a 0.2x0.2
### arcmin region of M51, sampling it to 100x100 pixels resolution. ### arcmin region of M51, sampling it to 100x100 pixels resolution.
$m51 = float $m51; $m51 = float $m51;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)