Rout.pm (PDL-2.082) | : | Rout.pm (PDL-2.083) | ||
---|---|---|---|---|
skipping to change at line 30 | skipping to change at line 30 | |||
use warnings; | use warnings; | |||
=head1 NAME | =head1 NAME | |||
PDL::Graphics::TriD::Rout - Helper routines for Three-dimensional graphics | PDL::Graphics::TriD::Rout - Helper routines for Three-dimensional graphics | |||
=head1 DESCRIPTION | =head1 DESCRIPTION | |||
This module is for miscellaneous PP-defined utility routines for | This module is for miscellaneous PP-defined utility routines for | |||
the PDL::Graphics::TriD module. Currently, there are | the PDL::Graphics::TriD module. Currently, there are | |||
#line 38 "Rout.pm" | #line 39 "Rout.pm" | |||
=head1 FUNCTIONS | =head1 FUNCTIONS | |||
=cut | =cut | |||
#line 958 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
=head2 combcoords | =head2 combcoords | |||
=for sig | =for sig | |||
Signature: (x(); y(); z(); | Signature: (x(); y(); z(); | |||
float [o]coords(tri=3);) | float [o]coords(tri=3);) | |||
=for ref | =for ref | |||
Combine three coordinates into a single ndarray. | Combine three coordinates into a single ndarray. | |||
Combine x, y and z to a single ndarray the first dimension | Combine x, y and z to a single ndarray the first dimension | |||
of which is 3. This routine does dataflow automatically. | of which is 3. This routine does dataflow automatically. | |||
=for bad | =for bad | |||
combcoords does not process bad values. | combcoords 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 78 "Rout.pm" | ||||
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
*combcoords = \&PDL::combcoords; | *combcoords = \&PDL::combcoords; | |||
#line 85 "Rout.pm" | ||||
#line 958 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
=head2 repulse | =head2 repulse | |||
=for sig | =for sig | |||
Signature: (coords(nc,np); | Signature: (coords(nc,np); | |||
[o]vecs(nc,np); | [o]vecs(nc,np); | |||
int [t]links(np);; | int [t]links(np);; | |||
double boxsize; | double boxsize; | |||
int dmult; | int dmult; | |||
skipping to change at line 97 | skipping to change at line 89 | |||
a repulsive force that vanishes at infinity for many | a repulsive force that vanishes at infinity for many | |||
objects. For use by the module L<PDL::Graphics::TriD::MathGraph>. | objects. For use by the module L<PDL::Graphics::TriD::MathGraph>. | |||
For definition of the potential, see the actual function. | For definition of the potential, see the actual function. | |||
=for bad | =for bad | |||
repulse does not process bad values. | repulse 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 126 "Rout.pm" | ||||
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
*repulse = \&PDL::repulse; | *repulse = \&PDL::repulse; | |||
#line 133 "Rout.pm" | ||||
#line 958 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
=head2 attract | =head2 attract | |||
=for sig | =for sig | |||
Signature: (coords(nc,np); | Signature: (coords(nc,np); | |||
int from(nl); | int from(nl); | |||
int to(nl); | int to(nl); | |||
strength(nl); | strength(nl); | |||
[o]vecs(nc,np);; | [o]vecs(nc,np);; | |||
skipping to change at line 136 | skipping to change at line 122 | |||
like molecular bonds). | like molecular bonds). | |||
For use by the module L<PDL::Graphics::TriD::MathGraph>. | For use by the module L<PDL::Graphics::TriD::MathGraph>. | |||
For definition of the potential, see the actual function. | For definition of the potential, see the actual function. | |||
=for bad | =for bad | |||
attract does not process bad values. | attract 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 174 "Rout.pm" | ||||
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
*attract = \&PDL::attract; | *attract = \&PDL::attract; | |||
#line 181 "Rout.pm" | ||||
#line 958 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
=head2 vrmlcoordsvert | =head2 vrmlcoordsvert | |||
=for sig | =for sig | |||
Signature: (vertices(n=3); char* space; PerlIO *fp) | Signature: (vertices(n=3); char* space; PerlIO *fp) | |||
=for ref | =for ref | |||
info not available | info not available | |||
=for bad | =for bad | |||
vrmlcoordsvert does not process bad values. | vrmlcoordsvert 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 208 "Rout.pm" | ||||
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
*vrmlcoordsvert = \&PDL::vrmlcoordsvert; | *vrmlcoordsvert = \&PDL::vrmlcoordsvert; | |||
#line 215 "Rout.pm" | ||||
#line 214 "rout.pd" | #line 214 "rout.pd" | |||
=head2 contour_segments | =head2 contour_segments | |||
=for ref | =for ref | |||
This is the interface for the pp routine contour_segments_internal | This is the interface for the pp routine contour_segments_internal | |||
- it takes 3 ndarrays as input | - it takes 3 ndarrays as input | |||
skipping to change at line 228 | skipping to change at line 204 | |||
$ncnt = $cnt->slice("($i)"); | $ncnt = $cnt->slice("($i)"); | |||
next if($ncnt==-1); | next if($ncnt==-1); | |||
$pcnt = $pcnt+$ncnt; | $pcnt = $pcnt+$ncnt; | |||
$this->{ContourSegCnt}[$i] = $pcnt; | $this->{ContourSegCnt}[$i] = $pcnt; | |||
$pcnt=$pcnt+1; | $pcnt=$pcnt+1; | |||
$this->{Points} = $this->{Points}->append($segs->slice(":,0:$ncnt ,($i)")->transpose); | $this->{Points} = $this->{Points}->append($segs->slice(":,0:$ncnt ,($i)")->transpose); | |||
} | } | |||
$this->{Points} = $this->{Points}->transpose; | $this->{Points} = $this->{Points}->transpose; | |||
} | } | |||
#line 280 "Rout.pm" | #line 249 "Rout.pm" | |||
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | ||||
*contour_segments_internal = \&PDL::contour_segments_internal; | *contour_segments_internal = \&PDL::contour_segments_internal; | |||
#line 287 "Rout.pm" | ||||
#line 436 "rout.pd" | #line 436 "rout.pd" | |||
=head1 AUTHOR | =head1 AUTHOR | |||
Copyright (C) 2000 James P. Edwards | Copyright (C) 2000 James P. Edwards | |||
Copyright (C) 1997 Tuomas J. Lukka. | Copyright (C) 1997 Tuomas J. Lukka. | |||
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 | |||
#line 307 "Rout.pm" | #line 272 "Rout.pm" | |||
# Exit with OK status | # Exit with OK status | |||
1; | 1; | |||
End of changes. 13 change blocks. | ||||
30 lines changed or deleted | 3 lines changed or added |