/******************************************/
/* Kicad: Common plot GERBER Routines */
/******************************************/

#include "fctsys.h"
#include "gr_basic.h"
#include "trigo.h"
#include "wxstruct.h"
#include "base_struct.h"
#include "common.h"
#include "plot_common.h"
#include "macros.h"


/***************************************************************************/
void InitPlotParametresGERBER( wxPoint aOffset, double aXScale, double aYScale )
/***************************************************************************/

/** function InitPlotParametresGERBER
  * Set the plot offset for the current plotting
  * @param aOffset = plot offset
  * @param aXScale,aYScale = coordinate scale (scale coefficient for coordinates)
 */
{
    g_Plot_PlotOrientOptions = 0;
    g_Plot_PlotOffset = aOffset;
    g_Plot_XScale = aXScale;
    g_Plot_YScale = aYScale;
    g_Plot_DefaultPenWidth = 120;            /* epaisseur du trait standard en 1/1000 pouce */
    g_Plot_CurrentPenWidth = -1;
}


/******************************************************************/
void Write_Header_GERBER( const wxString aTitle, FILE* aFile )
/******************************************************************/
/** Function Write_Header_GERBER
 * Write GERBER header to file
 * initialize global variable g_Plot_PlotOutputFile
 * @param aTitle: the name of creator (comment)
 * @param aFile: an opened file to write to
 */
{
    char Line[1024];
	g_Plot_PlotOutputFile =  aFile;

    DateAndTime( Line );
    wxString Title = aTitle + wxT( " " ) + GetBuildVersion();
    fprintf( g_Plot_PlotOutputFile, "G04 (created by %s) date %s*\n", CONV_TO_UTF8( Title ), Line );

    // Specify linear interpol (G01), unit = INCH (G70), abs format (G90):
    fputs( "G01*\nG70*\nG90*\n", g_Plot_PlotOutputFile );
    fputs( "%MOIN*%\n", g_Plot_PlotOutputFile );     // set unites = INCHES

    /* Set gerber format to 3.4 */
    fputs( "G04 Gerber Fmt 3.4, Leading zero omitted, Abs format*\n%FSLAX34Y34*%\n",
		g_Plot_PlotOutputFile);

    fputs( "G04 APERTURE LIST*\n", g_Plot_PlotOutputFile );
}


/**********************************************/
void LineTo_GERBER( wxPoint aPos, int aCommand )
/**********************************************/
/** Function LineTo_GERBER
  * if aCommand = 'U' initialise the starting point of a line
  * if aCommand = 'D' draw a line from the starting point, or last point to aPos
  * @param aPos = end of the current line.
  * @param aCommand = 'U' or 'D' or 'Z' (Pen up , no moving )
 */
{
	static wxPoint LastPoint;
    switch ( aCommand )
	{
		case 'Z':
			return;

		case 'U':
			break;

		case 'D':
            PlotGERBERLine( LastPoint, aPos, g_Plot_CurrentPenWidth );
	}
	LastPoint = aPos;
}

/** Function PlotGERBERLine
 * Plot a line
 * the D_CODE **MUST** have already selected (this is just the line plot)
 * @param aStartPos = starting point of the line
 * @param aEndPos   = ending point of the line
 * @param aThickness = line thickness (not used here)
*/
void PlotGERBERLine( wxPoint aStartPos, wxPoint aEndPos, int aThickness )
{
    UserToDeviceCoordinate( aStartPos );
    UserToDeviceCoordinate( aEndPos );
    fprintf( g_Plot_PlotOutputFile, "X%5.5dY%5.5dD02*\n", aStartPos.x, aStartPos.y );
    fprintf( g_Plot_PlotOutputFile, "X%5.5dY%5.5dD01*\n", aEndPos.x, aEndPos.y );
}


/********************************************************************/
void PlotCircle_GERBER( wxPoint aCentre, int aRadius, int aWidth )
/********************************************************************/
/** Function PlotCircle_GERBER
 * writes a non filled circle to output file
 * Plot one circle as segments (6 to 16 depending on its radius
 * @param aCentre = centre coordintes
 * @param aRadius = radius of the circle
 * @param aWidth = line width (noc currently used, D_CODEs must be selected before)
*/
{
    int ii;
    wxPoint start, end;
    int delta;      	/* increment (in 0.1 degrees) to draw circles */

    delta = 3600/32;    /* there are delta segments for draw a circle */

    start.x = aCentre.x + aRadius;
    start.y = aCentre.y;
    for( ii = delta; ii < 3600; ii += delta )
    {
        end.x = aCentre.x + (int) (aRadius * fcosinus[ii]);
        end.y = aCentre.y + (int) (aRadius * fsinus[ii]);
        PlotGERBERLine( start, end, aWidth );
        start = end;
    }

    end.x = aCentre.x + aRadius;
    end.y = aCentre.y;
	PlotGERBERLine( start, end, aWidth );
}


/***************************************************************/
void PlotFilledPolygon_GERBER( int aCornersCount, int* aCoord )
/***************************************************************/
/** Function PlotFilledPolygon_GERBER
 * writes a filled polyline to output file
 * @param aCornersCount = numer of corners
 * @param aCoord = buffer of corners coordinates
*/
{
    int     ii;
    wxPoint pos, startpos;

    fputs( "G36*\n", g_Plot_PlotOutputFile );
    pos.x = *aCoord;
    aCoord++;
    pos.y = *aCoord;
    aCoord++;
    UserToDeviceCoordinate( pos );
    startpos = pos;
    fprintf( g_Plot_PlotOutputFile, "X%5.5dY%5.5dD02*\n", pos.x, pos.y );
    for( ii = 1; ii < aCornersCount; ii++ )
    {
        pos.x = *aCoord;
        aCoord++;
        pos.y = *aCoord;
        aCoord++;
        UserToDeviceCoordinate( pos );
        fprintf( g_Plot_PlotOutputFile, "X%5.5dY%5.5dD01*\n", pos.x, pos.y );
    }

    fprintf( g_Plot_PlotOutputFile, "X%5.5dY%5.5dD01*\n", startpos.x, startpos.y );
    fputs( "G37*\n", g_Plot_PlotOutputFile );
}


/*******************************************************************/
void PlotPolygon_GERBER( int aCornersCount, int* aCoord, int aWidth )
/*******************************************************************/
/** Function PlotPolygon_GERBER
 * writes a closed polyline (not a filled polygon) to output file
 * @param aCornersCount = numer of corners
 * @param aCoord = buffer of corners coordinates
 * @param aWidth = line width (not currently used, D_CODEs must be selected before)
*/
{
    wxPoint start, end, startpoint;
    startpoint.x = *aCoord++;
    startpoint.y = *aCoord++;
    start = startpoint;
    for( int ii = 0; ii < aCornersCount-1; ii++ )
    {
        end.x = *aCoord;
        aCoord++;
        end.y = *aCoord;
        aCoord++;
        PlotGERBERLine(start, end, aWidth );
        start = end;
    }

    if ( startpoint != end )    // Close poly
        PlotGERBERLine(end, startpoint, aWidth );

}