view release on metacpan or  search on metacpan

lib/Math/Zap/Triangle2.pm  view on Meta::CPAN

# Remove duplicate points caused by splitting the vertices - inefficient and unreliable
  my %p;
  $p{"$_"}=$_ for(@p);
  values(%p); 
 }


=head3 ring

Ring of points formed by overlaying triangle t and T

=cut


sub ring($$)
 {my ($t, $T) = @_; 
  check(@_) if debug; # Triangles

  my @p = $t->pointsInCommon($T);
# scalar(@p) == 1 and warn "Only one point in common";

pod/triangle2.pod  view on Meta::CPAN

   $p{"$_"}=$_ for(@p);
   values(%p); 
  }
 
 


=head3 ring


Ring of points formed by overlaying triangle t and T


 
 
 sub ring($$)
  {my ($t, $T) = @_; 
   check(@_) if debug; # Triangles
 
   my @p = $t->pointsInCommon($T);
 # scalar(@p) == 1 and warn "Only one point in common";