(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| Pnm.pm (PDL-2.082) | : | Pnm.pm (PDL-2.083) |
|---|
| | |
| skipping to change at line 59 | | skipping to change at line 59 |
|---|
| my $sz = 8*howbig($type); | | my $sz = 8*howbig($type); |
| $sz-- if !PDL::Type->new($type)->unsigned; | | $sz-- if !PDL::Type->new($type)->unsigned; |
| return ((1 << $sz)-1); | | return ((1 << $sz)-1); |
| } | | } |
| #line 62 "Pnm.pm" | | #line 62 "Pnm.pm" |
| | |
| =head1 FUNCTIONS | | =head1 FUNCTIONS |
| | |
| =cut | | =cut |
| | |
|
| #line 958 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | |
| | | |
| =head2 pnminraw | | =head2 pnminraw |
| | |
| =for sig | | =for sig |
| | |
| Signature: (type(); byte+ [o] im(m,n); byte [t] buf(llen); int ms => m; int ns
=> n; | | Signature: (type(); byte+ [o] im(m,n); byte [t] buf(llen); int ms => m; int ns
=> n; |
| int isbin; PerlIO *fp) | | int isbin; PerlIO *fp) |
| | |
| =for ref | | =for ref |
| | |
| Read in a raw pnm file. | | Read in a raw pnm file. |
| | |
| skipping to change at line 83 | | skipping to change at line 81 |
|---|
| determine the type of the operation when creating C<im> or trigger | | determine the type of the operation when creating C<im> or trigger |
| the appropriate type conversion (maybe we want a byte+ here so that | | the appropriate type conversion (maybe we want a byte+ here so that |
| C<im> follows I<strictly> the type of C<type>). | | C<im> follows I<strictly> the type of C<type>). |
| | |
| =for bad | | =for bad |
| | |
| pnminraw does not process bad values. | | pnminraw does not process bad values. |
| It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. | | It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. |
| | |
| =cut | | =cut |
|
| #line 105 "Pnm.pm" | | |
| | |
| #line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | |
| | |
| *pnminraw = \&PDL::pnminraw; | | *pnminraw = \&PDL::pnminraw; |
|
| #line 112 "Pnm.pm" | | |
| | |
| #line 958 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | |
| | |
| =head2 pnminascii | | =head2 pnminascii |
| | |
| =for sig | | =for sig |
| | |
| Signature: (type(); byte+ [o] im(m,n); int ms => m; int ns => n; | | Signature: (type(); byte+ [o] im(m,n); int ms => m; int ns => n; |
| int format; PerlIO *fp) | | int format; PerlIO *fp) |
| | |
| =for ref | | =for ref |
| | |
| Read in an ascii pnm file. | | Read in an ascii pnm file. |
| | |
| =for bad | | =for bad |
| | |
| pnminascii does not process bad values. | | pnminascii does not process bad values. |
| It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. | | It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. |
| | |
| =cut | | =cut |
|
| #line 140 "Pnm.pm" | | |
| | |
| #line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | |
| | |
| *pnminascii = \&PDL::pnminascii; | | *pnminascii = \&PDL::pnminascii; |
|
| #line 147 "Pnm.pm" | | |
| | |
| #line 958 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | |
| | |
| =head2 pnmout | | =head2 pnmout |
| | |
| =for sig | | =for sig |
| | |
| Signature: (a(m); int israw; int isbin; PerlIO *fp) | | Signature: (a(m); int israw; int isbin; PerlIO *fp) |
| | |
| =for ref | | =for ref |
| | |
| Write a line of pnm data. | | Write a line of pnm data. |
| | |
| This function is implemented this way so that broadcasting works | | This function is implemented this way so that broadcasting works |
| naturally. | | naturally. |
| | |
| =for bad | | =for bad |
| | |
| pnmout does not process bad values. | | pnmout does not process bad values. |
| It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. | | It will set the bad-value flag of all output ndarrays if the flag is set for any
of the input ndarrays. |
| | |
| =cut | | =cut |
|
| #line 177 "Pnm.pm" | | |
| | |
| #line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | |
| | |
| *pnmout = \&PDL::pnmout; | | *pnmout = \&PDL::pnmout; |
|
| #line 184 "Pnm.pm" | | |
| | |
| #line 44 "pnm.pd" | | #line 44 "pnm.pd" |
| | |
| =head2 rpnm | | =head2 rpnm |
| | |
| =for ref | | =for ref |
| | |
| Read a pnm (portable bitmap/pixmap, pbm/ppm) file into an ndarray. | | Read a pnm (portable bitmap/pixmap, pbm/ppm) file into an ndarray. |
| | |
| =for usage | | =for usage |
| | |
| skipping to change at line 370 | | skipping to change at line 352 |
|---|
| Copyright (C) 1996,1997 Christian Soeller <c.soeller@auckland.ac.nz> | | Copyright (C) 1996,1997 Christian Soeller <c.soeller@auckland.ac.nz> |
| All rights reserved. There is no warranty. You are allowed | | All rights reserved. There is no warranty. You are allowed |
| to redistribute this software / documentation under certain | | to redistribute this software / documentation under certain |
| conditions. For details, see the file COPYING in the PDL | | conditions. For details, see the file COPYING in the PDL |
| distribution. If this file is separated from the PDL distribution, | | distribution. If this file is separated from the PDL distribution, |
| the copyright notice should be included in the file. | | the copyright notice should be included in the file. |
| | |
| =cut | | =cut |
| | |
| ############################## END PM CODE ################################ | | ############################## END PM CODE ################################ |
|
| #line 420 "Pnm.pm" | | #line 391 "Pnm.pm" |
| | |
| # Exit with OK status | | # Exit with OK status |
| | |
| 1; | | 1; |
| | | |
| End of changes. 8 change blocks. |
|---|
| 19 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 