### Funktion zum Darstellen eines Shapefiles
### Param:  objShape - Shape-Objekt
### Param:  objCanv - WorldCanvas-Objekt
sub displayPolyShape{
    my $objShape = shift;
    my $objCanv = shift;
    my $foreColor = shift;
    my $backColor = shift;
    
    # Shapefile durchlaufen
    for (my $index = 1; $index <= $objShape->shapes(); ++$index) {
        # Referenz auf Shapeobjekt holen und dereferenzieren
        my $shape = $objShape->get_shp_record($index);
        my %shape = %{$shape};
        #use Data::Dumper;
        #print Dumper %shape, "\n";
        # Koordinaten
        my @koords = ();
        # Punkte holen
        my @punkte = @{$shape{'shp_points'}};
        foreach (@punkte) {
            # Koordinaten dereferenzieren
            my $x_koord = ${$_}{'X'};
            my $y_koord = ${$_}{'Y'};
            if($x_koord && $y_koord){
                push(@koords, $x_koord, $y_koord);
            }
        }
        # Polilyne zufügen
        my $pLine = $objCanv->createPolygon(@koords,
                                            -outline => $foreColor,
                                            -fill => $backColor,
                                            -width => 0.01);
        # Tags anfügen
        ### TODO
    }
}