view release on metacpan or  search on metacpan

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

497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
 
# 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

579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
   $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";