Math :: Planar :: GPCの機能と特徴にアクセスするには？

Question

2つのポリゴンの交差点を印刷したい。しかし、2つのポリゴンの交差がない場合、どのように印刷するのを避けるために知ることができますか？ 交差点がなければ、$ pgons [0] - > polygonsを呼び出すことができないので、エラーです。
（すべてのポリゴンに穴がない）
ありがとう！

for my $x(0..$#polygon){ 
    for my $y(0..$#polygon){ 
     if ($x != $y){ 
      my $it = GpcClip('INTERSECTION', $polygon[0]->convert2gpc, $polygon[1]->convert2gpc); 
      print FO "$x == $y \n"; 
      my @pgons = Gpc2Polygons($it); 
      #since here we don't have holes, only the first one is a valid polygon 
      if(@pgons){ 
       print FO Dumper($pgons[0]->polygons->[0]); 
       print "\n"; 
      }  
     } 
    } 
} 

Answer 1

Gpc2Polygonsは何の交差点が見つからなかった空の配列を返すように思えます。したがって、交差点が空でないかどうかを調べるには、返される配列の長さが0より大きいかどうかを調べることができます。たとえば：

use feature qw(say); 
use strict; 
use warnings; 

use Math::Geometry::Planar; 

my $p1 = Math::Geometry::Planar->new; 
my $p2 = Math::Geometry::Planar->new; 

$p1->points([[0, 0], [0, 2], [2, 2], [2, 0]]); 
for my $pos (1, 1.5, 2) { 
    say "pos = $pos"; 
    $p2->points([[$pos, 0], [$pos, 2], [$pos + 2, 2], [$pos + 2, 0]]); 
    my $intersect = GpcClip('INTERSECTION', $p1->convert2gpc, $p2->convert2gpc); 
    my @pgons = Gpc2Polygons($intersect); 
    if (@pgons > 0) { 
     say " Found intersection"; 
    } 
    else { 
     say " No intersection"; 
    } 
} 

出力は次のようになります。

pos = 1 
    Found intersection 
pos = 1.5 
    Found intersection 
pos = 2 
    No intersection