kicad/pcbnew/tr_modif.cpp

/**************************************************/
/*					 Edition des pistes			  */
/* Routines de modification automatique de pistes */
/**************************************************/

#include "fctsys.h"
#include "gr_basic.h"

#include "common.h"
#include "pcbnew.h"

#include "protos.h"

/*********************************************************************/
int EraseOldTrack( WinEDA_BasePcbFrame* frame, BOARD* Pcb, wxDC* DC,
                   TRACK* pt_new_track, int nbptnewpiste )
/*********************************************************************/

/* Routine d'effacement de la piste redondante a la piste nouvellement cree
 *  pointee par pt_new_track (nbptnewpiste segments)
 *
 *  la piste cree est supposee constituee de segments contigus en memoire avec:
 *      point de depart pt_newtrack->m_Start.x,y
 *      point d'arrivee pt_newtrack->m_End.x,y
 */
{
    TRACK*  StartTrack, * EndTrack;/* Pointeurs des segments de debut et fin
                                 *  (extremites) de la nouvelle piste */
    TRACK*  EndNewTrack,    /* Pointeur sur le dernier segment de la liste
                             *  chainee de la mouvelle piste */
    * pt_segm, * pt_del;
    int     ii, jj, nb_segm, nbconnect;
    wxPoint start;                          /* coord du point de depart de la piste */
    wxPoint end;                            /* coord du point de fin de la piste */
    int     startmasklayer, endmasklayer;   /* masque couche de depart et de fin */
    TRACK*  BufDeb, * BufEnd;   /* Pointeurs de debut et de fin de la zone
                                 *  des pistes equipotentielles */

    /* Reconstitution de la piste complete ( la nouvelle piste
     *  a pu demarrer sur un segment de piste en l'air */

    ListSetState( pt_new_track, nbptnewpiste, BUSY, OFF );

    /* si la novelle piste commence par une via, il est plus sur de rechercher
     *  la piste complete en utilisant le segment suivant comme reference, car
     *  une via est souvent sur un carrefour de segments, et ne caracterise pas
     *  une piste */
    if( pt_new_track->Type() == TYPEVIA && (nbptnewpiste > 1 ) )
        pt_new_track = (TRACK*) pt_new_track->Pnext;
    pt_new_track = Marque_Une_Piste( frame, DC, pt_new_track, &nbptnewpiste, 0 );

    EndNewTrack = pt_new_track;
    for( ii = 1;  ii < nbptnewpiste; ii++ )
    {
        EndNewTrack = (TRACK*) EndNewTrack->Pnext;
    }

    /* Calcul des limites de recherche des segments de piste */
    /* BufDeb pointe le 1er segment utile */
    BufDeb = Pcb->m_Track->GetStartNetCode( pt_new_track->GetNet() );

    /* BufEnd Pointe le dernier segment */
    BufEnd = BufDeb->GetEndNetCode( pt_new_track->GetNet() );

    /* nettoyage des flags pour tout le net */
    for( pt_del = BufDeb; pt_del != NULL; pt_del = (TRACK*) pt_del->Pnext )
    {
        pt_del->SetState( BUSY | EDIT | CHAIN, OFF );
        if( pt_del == BufEnd )
            break;
    }

    /* Calcul des points limites de la nouvelle piste */
    if( ReturnEndsTrack( pt_new_track, nbptnewpiste,
                         &StartTrack, &EndTrack ) == 0 )
        return 0;

    if( (StartTrack == NULL) || (EndTrack == NULL) )
        return 0;

    /* Calcul des caracteristiques des points de debut et de fin */
    start = StartTrack->m_Start;
    end   = EndTrack->m_End;

    /* Les points de depart et de fin doivent etre distincts */
    if( start == end )
        return 0;

    /* Determinations des couches interconnectees a ces points */
    startmasklayer = StartTrack->ReturnMaskLayer();
    endmasklayer   = EndTrack->ReturnMaskLayer();
    /* Il peut y avoir une via ou un pad sur les extremites: */
    pt_segm = Fast_Locate_Via( Pcb->m_Track, NULL, start, startmasklayer );
    if( pt_segm )
        startmasklayer |= pt_segm->ReturnMaskLayer();
    if( StartTrack->start && (StartTrack->start->Type() == TYPEPAD) )
    {       /* start sur pad */
        D_PAD* pt_pad = (D_PAD*) (StartTrack->start);
        startmasklayer |= pt_pad->m_Masque_Layer;
    }

    pt_segm = Fast_Locate_Via( Pcb->m_Track, NULL, end, endmasklayer );
    if( pt_segm )
        endmasklayer |= pt_segm->ReturnMaskLayer();
    if( EndTrack->end && ( EndTrack->end->Type() == TYPEPAD) )
    {
        D_PAD* pt_pad = (D_PAD*) (EndTrack->end);
        endmasklayer |= pt_pad->m_Masque_Layer;
    }

    /* Marquage a DELETED de la piste nouvelle (qui ne doit pas intervenir
     *  dans la recherche d'autres connexions) */
    ListSetState( pt_new_track, nbptnewpiste, DELETED, ON );

    /* test : un segment doit etre connecte au point de depart car sinon
     *  il est inutile d'analyser l'autre point */

    pt_segm = Fast_Locate_Piste( BufDeb, BufEnd, start, startmasklayer );

    if( pt_segm == NULL )     /* Pas de piste reliee au point de depart */
    {
        /* Suppression du flag DELETED */
        ListSetState( pt_new_track, nbptnewpiste, DELETED, OFF );
        return 0;
    }

    /* Marquage a CHAIN des segments candidats connectes au point de fin
     *  Remarque: les vias ne sont pas prises en compte car elles ne permettent
     *  pas de definir une piste, puisque elles sont sur un carrefour */
    for( pt_del = BufDeb, nbconnect = 0; ; )
    {
        pt_segm = Fast_Locate_Piste( pt_del, BufEnd, end, endmasklayer );
        if( pt_segm == NULL )
            break;

        if( pt_segm->Type() != TYPEVIA )
        {       /* Segment trouve */
            if( pt_segm->GetState( CHAIN ) == 0 )
            {
                pt_segm->SetState( CHAIN, ON );
                nbconnect++;
            }
        }
        if( pt_del == BufEnd )
            break;
        pt_del = (TRACK*) pt_segm->Pnext;
    }

    if( nbconnect == 0 )
    {
        /* nettoyage des flags */
        for( pt_del = BufDeb; pt_del != NULL; pt_del = (TRACK*) pt_del->Pnext )
        {
            pt_del->SetState( DELETED | EDIT | CHAIN, OFF );
            if( pt_del == BufEnd )
                break;
        }

        return 0;
    }

    /* Marquage a EDIT de la piste nouvelle (qui ne doit pas intervenir
     *  dans la recherche d'autres pistes) */
    ListSetState( pt_new_track, nbptnewpiste, DELETED, OFF );

    ListSetState( pt_new_track, nbptnewpiste, EDIT, ON );

    /* Examen de tous les segments marques */
    while( nbconnect )
    {
        for( pt_del = BufDeb; pt_del != NULL; pt_del = (TRACK*) pt_del->Pnext )
        {
            if( pt_del->GetState( CHAIN ) )
                break;
            if( pt_del == BufEnd )
                break;
        }

        nbconnect--; pt_del->SetState( CHAIN, OFF );
        pt_del = Marque_Une_Piste( frame, DC, pt_del, &nb_segm, 0 );

        /* Test si La piste marquee est redondante, c'est a dire si l'un des
         *  segments marques est connecte au point de depart de la piste nouvelle
         */
        ii = 0; pt_segm = pt_del;
        for( ; pt_segm && (ii < nb_segm); pt_segm = (TRACK*) pt_segm->Pnext, ii++ )
        {
            if( ( pt_segm->GetState( BUSY ) ) == 0 )
                break;

            if( (pt_segm->m_Start == start) || (pt_segm->m_End == start) )
            {       /* la piste marquee peut etre effacee */
                TRACK* NextS;
                Trace_Une_Piste( frame->DrawPanel, DC, pt_del, nb_segm, GR_XOR | GR_SURBRILL );
                for( jj = 0; jj < nb_segm; jj++, pt_del = NextS )
                {
                    NextS = (TRACK*) pt_del->Pnext;
                    pt_del->DeleteStructure();
                }

                /* nettoyage des flags */
                for( pt_del = Pcb->m_Track; pt_del != NULL; pt_del = (TRACK*) pt_del->Pnext )
                {
                    if( pt_del->GetState( EDIT ) )
                    {
                        pt_del->SetState( EDIT, OFF );
                        pt_del->Draw( frame->DrawPanel, DC, GR_OR );
                    }
                    pt_del->SetState( EDIT | CHAIN, OFF );
                }

                return 1;
            }
        }

        /* nettoyage du flag BUSY puisque ici la piste marquee n'a pas
         *  ete retenuee */
        ListSetState( pt_del, nb_segm, BUSY, OFF );
    }

    /* nettoyage des flags */
    for( pt_del = Pcb->m_Track; pt_del != NULL; pt_del = (TRACK*) pt_del->Pnext )
    {
        pt_del->SetState( DELETED | EDIT | CHAIN, OFF );
        if( pt_del == BufEnd )
            break;
    }

    return 0;
}