sub Normaliza
{
        say "Normalizar polígonos" if DEBUG;

        # Recorremos todos los polígonos y le restamos un polígono cero
        # El resultado se almacenará como nuevos polígonos

        my %NewContornos;
        my $Ancho = 400;
        my $Alto  = 200;
        my $c;
        my $d;

        foreach my $base ( sort { $a <=> $b } keys %Contornos )
        {
                # Para todos los contornos de ese valor
                foreach my $i ( 0..$#{$Contornos{$base}} )
                {
                        $c++;

                        # Creamos objeto polígono base
                        my $gpc_base = Math::Geometry::Planar::GPC::Polygon->new();
                        $gpc_base->add_polygon(\@{$Contornos{$base}[$i][0]}, 0);

                        # Idem para el polígono a restart
                        my $gpc_sup = Math::Geometry::Planar::GPC::Polygon->new();
                        $gpc_sup->add_polygon(
                        [
                                [ $Ancho+0, $Alto+0 ], [ $Ancho+1, $Alto+0 ],
                                [ $Ancho+1, $Alto+1 ], [ $Ancho+0, $Alto+1 ],
                        ], 0);

                        # Calcular diferencias
                        my $gpc_res = $gpc_base->clip_to($gpc_sup, 'DIFFERENCE');

                        # Almacenar resultado, todos los polígonos encontrados
                        my @p = $gpc_res->get_polygons;
                        foreach my $poly ( 0..$#p )
                        {
                                push @{ $NewContornos{$base} }, [ [ @{ clone(\@{$p[$poly]}) } ] ];
                                $d++;
                        }
                }
        }
        say "\t$c -> $d" if DEBUG;

        %Contornos = %{ clone(\%NewContornos) };
}