/*************************/
	/* Edition des Pastilles */
	/*************************/

#include "fctsys.h"
#include "gr_basic.h"
#include "common.h"
#include "pcbnew.h"
#include "autorout.h"
#include "trigo.h"

#include "drag.h"

#include "protos.h"

/* Routines Locales */

/* Variables locales */
static D_PAD* s_CurrentSelectedPad;	/* pointeur sur le pad selecte pour edition */
static wxPoint Pad_OldPos;



/************************************************************/
static void Exit_Move_Pad(WinEDA_DrawPanel * Panel, wxDC * DC)
/************************************************************/
/* Routine de sortie du menu EDIT PADS.
	Sortie simple si pad de pad en mouvement
	Remise en etat des conditions initiales avant move si move en cours
*/
{
D_PAD * pad = s_CurrentSelectedPad;

	Panel->ManageCurseur = NULL;
	Panel->ForceCloseManageCurseur = NULL;
	if (pad == NULL) return;

	pad->Draw(Panel,DC, wxPoint(0,0), GR_XOR);
	pad->m_Flags = 0;
	pad->m_Pos = Pad_OldPos;
	pad->Draw(Panel, DC, wxPoint(0,0), GR_XOR);
	/* Pad Move en cours : remise a l'etat d'origine */
	if( g_Drag_Pistes_On )
	{
		/* Effacement des segments dragges */
		DRAG_SEGM * pt_drag = g_DragSegmentList;
		for( ; pt_drag != NULL; pt_drag = pt_drag->Pnext)
		{
			TRACK * Track = pt_drag->m_Segm;
			Track->Draw(Panel, DC, GR_XOR);
			Track->SetState(EDIT,OFF);
			pt_drag->SetInitialValues();
			Track->Draw(Panel, DC, GR_OR);
		}
	}

	EraseDragListe();
	s_CurrentSelectedPad = NULL;
	g_Drag_Pistes_On = FALSE;
}


/*************************************************************************/
static void Show_Pad_Move(WinEDA_DrawPanel * panel, wxDC * DC, bool erase)
/*************************************************************************/
/* Affiche le pad et les pistes en mode drag lors des deplacements du pad */
{
TRACK * Track;
DRAG_SEGM * pt_drag;
BASE_SCREEN * screen = panel->GetScreen();
D_PAD * pad = s_CurrentSelectedPad;

	if ( erase ) pad->Draw(panel, DC, wxPoint(0,0), GR_XOR);
	pad->m_Pos = screen->m_Curseur;
	pad->Draw(panel, DC, wxPoint(0,0), GR_XOR);

	if( ! g_Drag_Pistes_On ) return;

	/* Tracage des segments dragges */
	pt_drag = g_DragSegmentList;
	for( ; pt_drag != NULL; pt_drag = pt_drag->Pnext)
	{
		Track = pt_drag->m_Segm;
		if ( erase ) Track->Draw(panel, DC, GR_XOR);
		if( pt_drag->m_Pad_Start)
		{
			Track->m_Start = pad->m_Pos;
		}
		if( pt_drag->m_Pad_End)
		{
			Track->m_End = pad->m_Pos;
		}
		Track->Draw(panel, DC, GR_XOR);
	}
}


/*************************************************************/
void WinEDA_BasePcbFrame::Export_Pad_Settings( D_PAD * pt_pad)
/*************************************************************/
/* Charge en liste des caracteristiques par defaut celles du pad selecte
*/
{
MODULE * Module;

	if ( pt_pad == NULL ) return;

	Module = (MODULE*) pt_pad->m_Parent;

	pt_pad->Display_Infos(this);

	g_Pad_Master.m_PadShape = pt_pad->m_PadShape;
	g_Pad_Master.m_Attribut = pt_pad->m_Attribut;
	g_Pad_Master.m_Masque_Layer = pt_pad->m_Masque_Layer;
	g_Pad_Master.m_Orient = pt_pad->m_Orient -
			((MODULE*)pt_pad->m_Parent)->m_Orient;
	g_Pad_Master.m_Size = pt_pad->m_Size;
	g_Pad_Master.m_DeltaSize = pt_pad->m_DeltaSize;
	pt_pad->ComputeRayon();

	g_Pad_Master.m_Offset = pt_pad->m_Offset;
	g_Pad_Master.m_Drill = pt_pad->m_Drill;
	g_Pad_Master.m_DrillShape = pt_pad->m_DrillShape;
}


/***********************************************************************/
void WinEDA_BasePcbFrame::Import_Pad_Settings(D_PAD * pt_pad, wxDC * DC)
/***********************************************************************/
/* Met a jour les nouvelles valeurs de dimensions du pad pointe par pt_pad
	- Source : valeurs choisies des caracteristiques generales
	- les dimensions sont modifiees
	- la position et les noms ne sont pas touches
*/
{
	if ( DC ) pt_pad->Draw(DrawPanel, DC, wxPoint(0,0), GR_XOR);

	pt_pad->m_PadShape = g_Pad_Master.m_PadShape ;
	pt_pad->m_Masque_Layer = g_Pad_Master.m_Masque_Layer ;
	pt_pad->m_Attribut = g_Pad_Master.m_Attribut ;
	pt_pad->m_Orient = g_Pad_Master.m_Orient +
			((MODULE*)pt_pad->m_Parent)->m_Orient;
	pt_pad->m_Size = g_Pad_Master.m_Size;
	pt_pad->m_DeltaSize = wxSize(0,0);
	pt_pad->m_Offset = g_Pad_Master.m_Offset;
	pt_pad->m_Drill = g_Pad_Master.m_Drill ;
	pt_pad->m_DrillShape = g_Pad_Master.m_DrillShape ;

	/* Traitement des cas particuliers : */
	switch ( g_Pad_Master.m_PadShape)
		{
		case TRAPEZE :
			pt_pad->m_DeltaSize = g_Pad_Master.m_DeltaSize;
			break;

		case CIRCLE :
			pt_pad->m_Size.y = pt_pad->m_Size.x;
			break;

		}

	switch( g_Pad_Master.m_Attribut & 0x7F)
		{
		case SMD:
		case CONN :
			pt_pad->m_Drill = wxSize(0,0);
			pt_pad->m_Offset.x = 0;
			pt_pad->m_Offset.y = 0;
		}

	pt_pad->ComputeRayon();

	if ( DC ) pt_pad->Draw(DrawPanel, DC, wxPoint(0,0), GR_XOR);
	((MODULE*)pt_pad->m_Parent)->m_LastEdit_Time = time(NULL);
}


/***********************************************************/
void WinEDA_BasePcbFrame::AddPad(MODULE * Module, wxDC * DC)
/***********************************************************/
/* Routine d'ajout d'un pad sur l'module selectionnee */
{
D_PAD * Pad, *ptliste;
int rX, rY;

	m_Pcb->m_Status_Pcb = 0 ;
	Module->m_LastEdit_Time = time(NULL);

	Pad = new D_PAD( Module );

	/* Chainage de la structure en fin de liste des pads : */
	ptliste = Module->m_Pads;
	if( ptliste == NULL ) /* 1er pad */
	{
		Module->m_Pads = Pad;
		Pad->Pback = (EDA_BaseStruct*) Module;
	}
	else
	{
		while( ptliste )
		{
			if( ptliste->Pnext == NULL ) break;
			ptliste = (D_PAD *) ptliste->Pnext;
		}
		Pad->Pback = (EDA_BaseStruct*)ptliste;
		ptliste->Pnext = (EDA_BaseStruct*)Pad;
	}

	/* Mise a jour des caract de la pastille : */
	Import_Pad_Settings(Pad, NULL);
	Pad->m_Netname.Empty();

	Pad->m_Pos = GetScreen()->m_Curseur;
	rX = Pad->m_Pos.x - Module->m_Pos.x;
	rY = Pad->m_Pos.y - Module->m_Pos.y;
	RotatePoint( &rX, &rY, - Module->m_Orient);
	Pad->m_Pos0.x = rX; Pad->m_Pos0.y = rY;

	/* Increment automatique de la reference courante Current_PadName */
	long num = 0; int ponder = 1;
	while ( g_Current_PadName.Last() >= '0' && g_Current_PadName.Last() <= '9')
	{
		num += (g_Current_PadName.Last() - '0') * ponder;
		g_Current_PadName.RemoveLast();
		ponder *= 10;
	}
	num++;
	g_Current_PadName << num;
	Pad->SetPadName(g_Current_PadName);

	/* Redessin du module */
	Module->Set_Rectangle_Encadrement();
	Pad->Display_Infos(this);
	Module->Draw(DrawPanel, DC, wxPoint(0,0),GR_OR);

}

/*********************************************************/
void WinEDA_BasePcbFrame::DeletePad(D_PAD* Pad, wxDC * DC)
/*********************************************************/
/* Function to delete the pad "pad" */
{
MODULE * Module;
wxString line;

	if ( Pad == NULL ) return;

	Module = (MODULE*) Pad->m_Parent;
	Module->m_LastEdit_Time = time(NULL);

	line.Printf( _("Delete Pad (module %s %s) "),
		Module->m_Reference->m_Text.GetData(),Module->m_Value->m_Text.GetData() );
	if( ! IsOK(this, line) ) return ;

	m_Pcb->m_Status_Pcb = 0 ;

	if ( DC ) Pad->Draw(DrawPanel, DC, wxPoint(0,0),GR_XOR);

	DeleteStructure(Pad);

	/* Redessin du module */
	if ( DC ) Module->Draw(DrawPanel, DC, wxPoint(0,0),GR_OR);
	Module->Set_Rectangle_Encadrement();
	GetScreen()->SetModify();
	return ;
}

/*************************************************************/
void WinEDA_BasePcbFrame::StartMovePad(D_PAD * Pad, wxDC * DC)
/*************************************************************/
/* Function to initialise the "move pad" command */
{
MODULE * Module;

	if(Pad == NULL ) return;

	Module = (MODULE*) Pad->m_Parent;

	s_CurrentSelectedPad = Pad ;
	Pad_OldPos = Pad->m_Pos;
	Pad->Display_Infos(this);
	DrawPanel->ManageCurseur = Show_Pad_Move;
	DrawPanel->ForceCloseManageCurseur = Exit_Move_Pad;

	/* Draw the pad  (SKETCH mode) */
	Pad->Draw(DrawPanel, DC, wxPoint(0,0),GR_XOR);
	Pad->m_Flags |= IS_MOVED;
	Pad->Draw(DrawPanel, DC, wxPoint(0,0),GR_XOR);

	/* Build the list of track segments to drag */
	Build_1_Pad_SegmentsToDrag(DrawPanel, DC, Pad);
}


/*********************************************************/
void WinEDA_BasePcbFrame::PlacePad(D_PAD * Pad, wxDC * DC)
/*********************************************************/
/* Routine to Place a moved pad */
{
int dX, dY;
TRACK * Track;
DRAG_SEGM *pt_drag;
MODULE * Module;

	if(Pad == NULL ) return;

	Module = (MODULE*) Pad->m_Parent;

	/* Placement du pad */
	Pad->Draw(DrawPanel, DC, wxPoint(0,0),GR_XOR);

	/* Save old module */
	Pad->m_Pos = Pad_OldPos; SaveCopyInUndoList(m_Pcb->m_Modules);
	Pad->m_Pos = GetScreen()->m_Curseur;

	/* Compute local coordinates (i.e refer to Module position and for Module orient = 0)*/
	dX = Pad->m_Pos.x - Pad_OldPos.x;
	dY = Pad->m_Pos.y - Pad_OldPos.y;
	RotatePoint(&dX, &dY, - Module->m_Orient );
	Pad->m_Pos0.x += dX; s_CurrentSelectedPad->m_Pos0.y += dY;

	Pad->m_Flags = 0;

	Pad->Draw(DrawPanel, DC, wxPoint(0,0),GR_OR);

	Module->Set_Rectangle_Encadrement();
	Module->m_LastEdit_Time = time(NULL);

	/* Tracage des segments dragges */
	pt_drag = g_DragSegmentList;
	for( ; pt_drag; pt_drag = pt_drag->Pnext)
	{
		Track = pt_drag->m_Segm;
		Track->SetState(EDIT,OFF);
		Track->Draw(DrawPanel, DC, GR_OR);
	}
	EraseDragListe();

	GetScreen()->SetModify();
	DrawPanel->ManageCurseur = NULL;
	DrawPanel->ForceCloseManageCurseur = NULL;
	m_Pcb->m_Status_Pcb &= ~( LISTE_CHEVELU_OK | CONNEXION_OK);
}

/**********************************************************/
void WinEDA_BasePcbFrame::RotatePad(D_PAD * Pad, wxDC * DC)
/**********************************************************/
/* Tourne de 90 degres le pad selectionne :
	c.a.d intervertit dim X et Y et offsets
 */
{
MODULE * Module;
	if ( Pad == NULL ) return;

	Module = (MODULE*) Pad->m_Parent;
	Module->m_LastEdit_Time = time(NULL);

	GetScreen()->SetModify();

	Module->Draw(DrawPanel, DC, wxPoint(0,0),GR_XOR);

	EXCHG(Pad->m_Size.x, Pad->m_Size.y);
	EXCHG(Pad->m_Drill.x, Pad->m_Drill.y);
	EXCHG(Pad->m_Offset.x, Pad->m_Offset.y);
	Pad->m_Offset.y = -Pad->m_Offset.y;

	EXCHG(Pad->m_DeltaSize.x,Pad->m_DeltaSize.y) ;
	Pad->m_DeltaSize.x = -Pad->m_DeltaSize.x; /* ceci est la variation
											de la dim Y sur l'axe X */

	Module->Set_Rectangle_Encadrement();

	Pad->Display_Infos(this);
	Module->Draw(DrawPanel, DC, wxPoint(0,0), GR_OR);
}