/********************/
/**** rs274d.cpp ****/
/********************/


#include "fctsys.h"
#include "common.h"
#include "confirm.h"
#include "macros.h"
#include "gerbview.h"
#include "pcbplot.h"
#include "trigo.h"
#include "protos.h"

#include <math.h>

#define IsNumber( x ) ( ( ( (x) >= '0' ) && ( (x) <='9' ) )   \
                       || ( (x) == '-' ) || ( (x) == '+' )  || ( (x) == '.' ) )

/* Format Gerber: NOTES:
 * Functions history:
 * Gn =
 * G01 linear interpolation (right trace)
 * G02, G20, G21 Circular interpolation, meaning trig <0
 * G03, G30, G31 Circular interpolation, meaning trigo> 0
 * G04 review
 * G06 parabolic interpolation
 * G07 Cubic Interpolation
 * G10 linear interpolation (scale x10)
 * G11 linear interpolation (0.1x range)
 * G12 linear interpolation (0.01x scale)
 * G52 plot symbol reference code by Dnn
 * G53 plot symbol reference by Dnn; symbol rotates from -90 degrees
 * G54 Selection Tool
 * G55 Fashion photo exhibition
 * G56 plot symbol reference code for DNN
 * G57 displays the symbol link to the console
 * G58 plot displays the symbol and link to the console
 * G60 linear interpolation (scale x100)
 * G70 Units = Inches
 * G71 Units = Millimeters
 * G74 circular interpolation removes 360 degree, has returned G01
 * Active G75 circular interpolation on 360 degree
 * G90 mode absolute coordinates
 * G91 Fashion Related Contacts
 *
 * X, Y
 * X and Y are followed by + or - and m + n digits (not separated)
 * m = integer part
 * n = part after the comma
 * Classic formats: m = 2, n = 3 (size 2.3)
 * m = 3, n = 4 (size 3.4)
 * eg
 * G__ X00345Y-06123 * D__
 *
 * Tools and D_CODES
 * Tool number (identification of shapes)
 * 1 to 99 (Classical)
 * 1 to 999
 * D_CODES:
 *
 * D01 ... D9 = action codes:
 * D01 = activating light (lower pen) when placement
 * D02 = light extinction (lift pen) when placement
 * D03 = Flash
 * D09 = VAPE Flash
 * D51 = G54 preceded by -> Select VAPE
 *
 * D10 ... D255 = Identification Tool (Opening)
 * Not tj in order (see table in PCBPLOT.H)
 */

// Photoplot actions:
#define GERB_ACTIVE_DRAW 1      // Activate light (lower pen)
#define GERB_STOP_DRAW   2      // Extinguish light (lift pen)
#define GERB_FLASH       3      // Flash

static wxPoint LastPosition;


/* Local Functions (are lower case since they are private to this source file)
 **/


/**
 * Function fillCircularTRACK
 * initializes a given TRACK so that it can draw a circle which is not filled
 * and
 * has a given pen width (\a aPenWidth ).
 *
 * @param aTrack The TRACK to fill in.
 * @param Dcode_index The DCODE value, like D14
 * @param aLayer The layer index to set into the TRACK
 * @param aPos The center point of the flash
 * @param aDiameter The diameter of the round flash
 * @param aPenWidth The width of the pen used to draw the circle's
 * circumference.
 * @param isDark True if flash is positive and should use a drawing
 *   color other than the background color, else use the background color
 *   when drawing so that an erasure happens.
 */
static void fillCircularTRACK(  TRACK*         aTrack,
                                int            Dcode_index,
                                int            aLayer,
                                const wxPoint& aPos,
                                int            aDiameter,
                                int            aPenWidth,
                                bool           isDark )
{
    aTrack->m_Shape = S_CIRCLE;
    aTrack->m_Width = aPenWidth;

    aTrack->SetLayer( aLayer );
    aTrack->SetNet( Dcode_index );

    // When drawing a TRACK with shape S_CIRCLE, the hypotenuse (i.e. distance)
    // between the Start and End points gives the radius of the circle.
    aTrack->m_Start  = aTrack->m_End = aPos;
    aTrack->m_End.x += max( 0, (aDiameter + 1) / 2 );

    NEGATE( aTrack->m_Start.y );
    NEGATE( aTrack->m_End.y );

    if( !isDark )
    {
        aTrack->m_Flags |= DRAW_ERASED;
    }
}


/**
 * Function fillRoundFlashTRACK
 * initializes a given TRACK so that it can draw a circle which is filled and
 * has no pen border.
 *
 * @param aTrack The TRACK to fill in.
 * @param Dcode_index The DCODE value, like D14
 * @param aLayer The layer index to set into the TRACK
 * @param aPos The center point of the flash
 * @param aDiameter The diameter of the round flash
 * @param isDark True if flash is positive and should use a drawing
 *   color other than the background color, else use the background color
 *   when drawing so that an erasure happens.
 */
static void fillRoundFlashTRACK(  TRACK*         aTrack,
                                  int            Dcode_index,
                                  int            aLayer,
                                  const wxPoint& aPos,
                                  int            aDiameter,
                                  bool           isDark )
{
    aTrack->SetLayer( aLayer );
    aTrack->m_Width = aDiameter;
    aTrack->m_Start = aTrack->m_End = aPos;
    NEGATE( aTrack->m_Start.y );
    NEGATE( aTrack->m_End.y );
    aTrack->SetNet( Dcode_index );
    aTrack->m_Shape = S_SPOT_CIRCLE;

    if( !isDark )
    {
        aTrack->m_Flags |= DRAW_ERASED;
    }
}


/**
 * Function fillOvalOrRectFlashTRACK
 * initializes a given TRACK so that it can draw an oval or rectangular
 * filled rectangle.
 *
 * @param aTrack The TRACK to fill in.
 * @param Dcode_index The DCODE value, like D14
 * @param aLayer The layer index to set into the TRACK
 * @param aPos The center point of the rectangle
 * @param aSize The size of the flash
 * @param aShape What type of flash, S_SPOT_OVALE or S_SPOT_RECT
 * @param isDark True if flash is positive and should use a drawing
 *   color other than the background color, else use the background color
 *   when drawing so that an erasure happens.
 */
static void fillOvalOrRectFlashTRACK(  TRACK*         aTrack,
                                       int            Dcode_index,
                                       int            aLayer,
                                       const wxPoint& aPos,
                                       const wxSize&  aSize,
                                       int            aShape,
                                       bool           isDark )
{
    int width = MIN( aSize.x, aSize.y );
    int len   = MAX( aSize.x, aSize.y ) - width;

    aTrack->SetLayer( aLayer );

    aTrack->m_Width = width;

    aTrack->m_Start = aTrack->m_End = aPos;
    NEGATE( aTrack->m_Start.y );
    NEGATE( aTrack->m_End.y );

    aTrack->SetNet( Dcode_index );

    aTrack->m_Shape = aShape;

    len >>= 1;
    if( aSize.x > aSize.y )  // oval or rectangle is horizontal
    {
        aTrack->m_Start.x -= len;
        aTrack->m_End.x   += len;
    }
    else    // oval or rectangle is vertical
    {
        aTrack->m_Start.y -= len;
        aTrack->m_End.y   += len;
    }

    if( !isDark )
    {
        aTrack->m_Flags |= DRAW_ERASED;
    }
}


/**
 * Function fillLineTRACK
 * initializes a given TRACK so that it can draw a linear D code.
 *
 * @param aTrack The TRACK to fill in.
 * @param Dcode_index The DCODE value, like D14
 * @param aLayer The layer index to set into the TRACK
 * @param aPos The center point of the flash
 * @param aDiameter The diameter of the round flash
 * @param isDark True if flash is positive and should use a drawing
 *   color other than the background color, else use the background color
 *   when drawing so that an erasure happens.
 */
static void fillLineTRACK(  TRACK*         aTrack,
                            int            Dcode_index,
                            int            aLayer,
                            const wxPoint& aStart,
                            const wxPoint& aEnd,
                            int            aWidth,
                            bool           isDark )
{
    aTrack->SetLayer( aLayer );

    aTrack->m_Width = aWidth;

    aTrack->m_Start = aStart;
    NEGATE( aTrack->m_Start.y );

    aTrack->m_End = aEnd;
    NEGATE( aTrack->m_End.y );

    aTrack->SetNet( Dcode_index );

    if( !isDark )
    {
        aTrack->m_Flags |= DRAW_ERASED;
    }
}


/**
 * Function fillArcTRACK
 * initializes a given TRACK so that it can draw an arc G code.
 * <p>
 * if multiquadrant == true : arc can be 0 to 360 degrees
 *   and \a rel_center is the center coordinate relative to start point.
 * <p>
 * if multiquadrant == false arc can be only 0 to 90 deg,
 *     and only in the same quadrant :
 * <ul>
 * <li> absolute angle 0 to 90 (quadrant 1) or
 * <li> absolute angle 90 to 180 (quadrant 2) or
 * <li> absolute angle 180 to 270 (quadrant 3) or
 * <li> absolute angle 270 to 0 (quadrant 4)
 * </ul><p>
 * @param aTrack is the TRACK to fill in.
 * @param Dcode_index is the DCODE value, like D14
 * @param aLayer is the layer index to set into the TRACK
 * @param aStart is the starting point
 * @param aEnd is the ending point
 * @param rel_center is the center coordinate relative to start point,
 *   given in ABSOLUTE VALUE and the sign of values x et y de rel_center
 *   must be calculated from the previously given constraint: arc only in the
 * same quadrant.
 * @param aDiameter The diameter of the round flash
 * @param aWidth is the pen width.
 * @param isDark True if flash is positive and should use a drawing
 *   color other than the background color, else use the background color
 *   when drawing so that an erasure happens.
 */
static void fillArcTRACK(  TRACK* aTrack, int Dcode_index, int aLayer,
                           const wxPoint& aStart, const wxPoint& aEnd,
                           const wxPoint& rel_center, int aWidth,
                           bool clockwise, bool multiquadrant, bool isDark )
{
    wxPoint center, delta;

    aTrack->m_Shape = S_ARC;
    aTrack->SetLayer( aLayer );
    aTrack->m_Width = aWidth;

    if( multiquadrant )
    {
        center.x = aStart.x + rel_center.x;
        center.y = aStart.y + rel_center.y;

        if( clockwise )
        {
            aTrack->m_Start = aStart;
            aTrack->m_End   = aEnd;
        }
        else
        {
            aTrack->m_Start = aEnd;
            aTrack->m_End   = aStart;
        }
    }
    else
    {
        center  = rel_center;
        delta.x = aEnd.x - aStart.x;
        delta.y = aEnd.y - aStart.y;

        if( (delta.x >= 0) && (delta.y >= 0) )
        {
            // Quadrant 2
        }
        else if( (delta.x >= 0) && (delta.y < 0) )
        {
            // Quadrant 1
            center.y = -center.y;
        }
        else if( (delta.x < 0) && (delta.y >= 0) )
        {
            // Quadrant 4
            center.x = -center.x;
        }
        else
        {
            // Quadrant 3
            center.x = -center.x;
            center.y = -center.y;
        }

        center.x += aStart.x;
        center.y += aStart.y;

        if( clockwise )
        {
            aTrack->m_Start = aStart;
            aTrack->m_End   = aEnd;
        }
        else
        {
            aTrack->m_Start = aEnd;
            aTrack->m_End   = aStart;
        }
    }

    aTrack->SetNet( Dcode_index );
    aTrack->m_Param = center.x;
    aTrack->SetSubNet( center.y );

    NEGATE( aTrack->m_Start.y );
    NEGATE( aTrack->m_End.y );

    aTrack->SetSubNet( -aTrack->GetSubNet() );

    if( !isDark )
    {
        aTrack->m_Flags |= DRAW_ERASED;
    }
}


/**
 * Function fillArcPOLY
 * creates an arc G code when found in poly outlines.
 * <p>
 * if multiquadrant == true : arc can be 0 to 360 degrees
 *   and \a rel_center is the center coordinate relative to start point.
 * <p>
 * if multiquadrant == false arc can be only 0 to 90 deg,
 *     and only in the same quadrant :
 * <ul>
 * <li> absolute angle 0 to 90 (quadrant 1) or
 * <li> absolute angle 90 to 180 (quadrant 2) or
 * <li> absolute angle 180 to 270 (quadrant 3) or
 * <li> absolute angle 270 to 0 (quadrant 4)
 * </ul><p>
 * @param aPcb is the board.
 * @param aLayer is the layer index to set into the TRACK
 * @param aStart is the starting point
 * @param aEnd is the ending point
 * @param rel_center is the center coordinate relative to start point,
 *   given in ABSOLUTE VALUE and the sign of values x et y de rel_center
 *   must be calculated from the previously given constraint: arc only in the
 * same quadrant.
 * @param aDiameter The diameter of the round flash
 * @param aWidth is the pen width.
 * @param isDark True if flash is positive and should use a drawing
 *   color other than the background color, else use the background color
 *   when drawing so that an erasure happens.
 * @return a pointer to the first segment created
 */
static SEGZONE * fillArcPOLY(  BOARD * aPcb, int aLayer,
                           const wxPoint& aStart, const wxPoint& aEnd,
                           const wxPoint& rel_center,
                           bool clockwise, bool multiquadrant, bool isDark )
{
    /* in order to calculate arc parameters, we use fillArcTRACK
     * so we muse create a dummy track and use its geometric parmeters
     */
    static TRACK dummyTrack(NULL);
    SEGZONE * firstSegment = NULL;

    fillArcTRACK(  &dummyTrack, 0, aLayer,
                           aStart, aEnd,
                           rel_center, 0,
                           clockwise, multiquadrant, isDark );

    // dummyTrack has right geometric parameters, and has its Y coordinates negated (to match the pcbnew Y axis).
    // Approximate arc by 36 segments per 360 degree
    const int increment_angle = 360/36;

    wxPoint center;
    center.x = dummyTrack.m_Param;
    center.y = dummyTrack.GetSubNet();

    // Calculate relative coordinates;
    wxPoint start = dummyTrack.m_Start - center;
    wxPoint end = dummyTrack.m_End - center;

    /* Calculate angle arc
     * angle is here clockwise because Y axis is reversed
     */
    double start_angle =
        atan2( (double)start.y, (double)start.x );
    start_angle = 180 * start_angle / M_PI;
    double end_angle =
        atan2( (double)end.y , (double)end.x );
    end_angle = 180 * end_angle / M_PI;
    double angle = start_angle - end_angle;

//    D( printf( " >>>> st %d,%d angle %f, end %d,%d angle %f delta %f\n",
//        start.x, start.y, start_angle, end.x, end.y, end_angle, angle ) );
    if( !clockwise )
    {
        EXCHG(start, end);
        D( printf( " >>>> reverse arc\n") );
    }

    // Normalize angle
    while ( angle > 360.0 )
        angle -= 360.0;
    while ( angle < 0.0 )
        angle += 360.0;

    int count = (int) (angle / increment_angle );
    if( count <= 0 )
        count = 1;
//    D( printf( " >>>> angle %f, cnt %d sens %d\n", angle, count, clockwise ) );

    // calculate segments
    wxPoint start_arc = start;
    for( int ii = 1; ii <= count; ii++ )
    {
        wxPoint end_arc = start;
        int rot = 10 * ii * increment_angle;    // rot is in 0.1 deg
        if( ii < count )
        {
            if( clockwise )
                RotatePoint(&end_arc, rot);
            else
                RotatePoint(&end_arc, -rot);
        }
        else
            end_arc = end;
        SEGZONE * edge_poly = new SEGZONE( aPcb );
        if( firstSegment == NULL )
            firstSegment = edge_poly;
        aPcb->m_Zone.Append( edge_poly );
//        D( printf( " >> Add arc %d rot %d, edge poly item %d,%d to %d,%d\n",
//                ii, rot, start_arc.x, start_arc.y,end_arc.x, end_arc.y ); )

        edge_poly->SetLayer( aLayer );
        edge_poly->m_Width = 1;

        edge_poly->m_Start = start_arc + center;
        edge_poly->m_End = end_arc + center;

        // the first track of each polygon has a netcode of zero,
        // otherwise one.
        // set netcode to 1. the calling function is responsible
        // to set the first point to 0
        edge_poly->SetNet( 1 );
        if( !isDark )
        {
            edge_poly->m_Flags |= DRAW_ERASED;
        }
        start_arc = end_arc;
    }

    return firstSegment;
}




/* These routines read the text string point from Text.
 * After use, advanced Text the beginning of the sequence unread
 */
wxPoint GERBER::ReadXYCoord( char*& Text )
{
    wxPoint pos = m_CurrentPos;
    int     type_coord = 0, current_coord, nbchar;
    bool    is_float   = false;
    char*   text;
    char    line[256];


    if( m_Relative )
        pos.x = pos.y = 0;
    else
        pos = m_CurrentPos;

    if( Text == NULL )
        return pos;

    text = line;
    while( *Text )
    {
        if( (*Text == 'X') || (*Text == 'Y') )
        {
            type_coord = *Text;
            Text++;
            text   = line;
            nbchar = 0;
            while( IsNumber( *Text ) )
            {
                if( *Text == '.' )
                    is_float = true;
                *(text++) = *(Text++);
                if( (*Text >= '0') && (*Text <='9') )
                    nbchar++;
            }

            *text = 0;
            if( is_float )
            {
                if( m_GerbMetric )
                    current_coord = wxRound( atof( line ) / 0.00254 );
                else
                    current_coord = wxRound( atof( line ) * PCB_INTERNAL_UNIT );
            }
            else
            {
                int fmt_scale =
                    (type_coord == 'X') ? m_FmtScale.x : m_FmtScale.y;
                if( m_NoTrailingZeros )
                {
                    int min_digit =
                        (type_coord == 'X') ? m_FmtLen.x : m_FmtLen.y;
                    while( nbchar < min_digit )
                    {
                        *(text++) = '0';
                        nbchar++;
                    }

                    *text = 0;
                }
                current_coord = atoi( line );
                double real_scale = 1.0;

                switch( fmt_scale )
                {
                case 0:
                    real_scale = 10000.0;
                    break;

                case 1:
                    real_scale = 1000.0;
                    break;

                case 2:
                    real_scale = 100.0;
                    break;

                case 3:
                    real_scale = 10.0;
                    break;

                case 4:
                    break;

                case 5:
                    real_scale = 0.1;
                    break;

                case 6:
                    real_scale = 0.01;
                    break;

                case 7:
                    real_scale = 0.001;
                    break;

                case 8:
                    real_scale = 0.0001;
                    break;

                case 9:
                    real_scale = 0.00001;
                    break;
                }

                if( m_GerbMetric )
                    real_scale = real_scale / 25.4;

                current_coord = wxRound( current_coord * real_scale );
            }

            if( type_coord == 'X' )
                pos.x = current_coord;
            else if( type_coord == 'Y' )
                pos.y = current_coord;

            continue;
        }
        else
            break;
    }

    if( m_Relative )
    {
        pos.x += m_CurrentPos.x;
        pos.y += m_CurrentPos.y;
    }

    m_CurrentPos = pos;
    return pos;
}


/* Returns the current coordinate type pointed to by InnJnn Text (InnnnJmmmm)
 * These coordinates are relative, so if coordinate is absent, it's value
 * defaults to 0
 */
wxPoint GERBER::ReadIJCoord( char*& Text )
{
    wxPoint pos( 0, 0 );

    int     type_coord = 0, current_coord, nbchar;
    bool    is_float   = false;
    char*   text;
    char    line[256];

    if( Text == NULL )
        return pos;

    text = line;
    while( *Text )
    {
        if( (*Text == 'I') || (*Text == 'J') )
        {
            type_coord = *Text;
            Text++;
            text   = line;
            nbchar = 0;
            while( IsNumber( *Text ) )
            {
                if( *Text == '.' )
                    is_float = true;
                *(text++) = *(Text++);
                if( (*Text >= '0') && (*Text <='9') )
                    nbchar++;
            }

            *text = 0;
            if( is_float )
            {
                if( m_GerbMetric )
                    current_coord = wxRound( atof( line ) / 0.00254 );
                else
                    current_coord = wxRound( atof( line ) * PCB_INTERNAL_UNIT );
            }
            else
            {
                int fmt_scale =
                    (type_coord == 'I') ? m_FmtScale.x : m_FmtScale.y;
                if( m_NoTrailingZeros )
                {
                    int min_digit =
                        (type_coord == 'I') ? m_FmtLen.x : m_FmtLen.y;
                    while( nbchar < min_digit )
                    {
                        *(text++) = '0';
                        nbchar++;
                    }

                    *text = 0;
                }
                current_coord = atoi( line );
                double real_scale = 1.0;

                switch( fmt_scale )
                {
                case 0:
                    real_scale = 10000.0;
                    break;

                case 1:
                    real_scale = 1000.0;
                    break;

                case 2:
                    real_scale = 100.0;
                    break;

                case 3:
                    real_scale = 10.0;
                    break;

                case 4:
                    break;

                case 5:
                    real_scale = 0.1;
                    break;

                case 6:
                    real_scale = 0.01;
                    break;

                case 7:
                    real_scale = 0.001;
                    break;

                case 8:
                    real_scale = 0.0001;
                    break;

                case 9:
                    real_scale = 0.00001;
                    break;
                }

                if( m_GerbMetric )
                    real_scale = real_scale / 25.4;
                current_coord = wxRound( current_coord * real_scale );
            }
            if( type_coord == 'I' )
                pos.x = current_coord;
            else if( type_coord == 'J' )
                pos.y = current_coord;
            continue;
        }
        else
            break;
    }

    m_IJPos = pos;
    return pos;
}


/* Read the Gnn sequence and returns the value nn.
 */
int GERBER::ReturnGCodeNumber( char*& Text )
{
    int   ii = 0;
    char* text;
    char  line[1024];

    if( Text == NULL )
        return 0;
    Text++;
    text = line;
    while( IsNumber( *Text ) )
    {
        *(text++) = *(Text++);
    }

    *text = 0;
    ii    = atoi( line );
    return ii;
}


/* Get the sequence Dnn and returns the value nn
 */
int GERBER::ReturnDCodeNumber( char*& Text )
{
    int   ii = 0;
    char* text;
    char  line[1024];

    if( Text == NULL )
        return 0;

    Text++;
    text = line;
    while( IsNumber( *Text ) )
        *(text++) = *(Text++);

    *text = 0;
    ii    = atoi( line );
    return ii;
}


bool GERBER::Execute_G_Command( char*& text, int G_commande )
{
    D( printf( "%22s: G_CODE<%d>\n", __func__, G_commande ); )

    switch( G_commande )
    {
    case GC_PHOTO_MODE:     // can starts a D03 flash command: redundant, can
                            // be safely ignored
        break;

    case GC_LINEAR_INTERPOL_1X:
        m_Iterpolation = GERB_INTERPOL_LINEAR_1X;
        break;

    case GC_CIRCLE_NEG_INTERPOL:
        m_Iterpolation = GERB_INTERPOL_ARC_NEG;
        break;

    case GC_CIRCLE_POS_INTERPOL:
        m_Iterpolation = GERB_INTERPOL_ARC_POS;
        break;

    case GC_COMMENT:
        text = NULL;
        break;

    case GC_LINEAR_INTERPOL_10X:
        m_Iterpolation = GERB_INTERPOL_LINEAR_10X;
        break;

    case GC_LINEAR_INTERPOL_0P1X:
        m_Iterpolation = GERB_INTERPOL_LINEAR_01X;
        break;

    case GC_LINEAR_INTERPOL_0P01X:
        m_Iterpolation = GERB_INTERPOL_LINEAR_001X;
        break;

    case GC_SELECT_TOOL:
    {
        int D_commande = ReturnDCodeNumber( text );
        if( D_commande < FIRST_DCODE )
            return false;
        if( D_commande > (MAX_TOOLS - 1) )
            D_commande = MAX_TOOLS - 1;
        m_Current_Tool = D_commande;
        D_CODE* pt_Dcode = GetDCODE( D_commande, false );
        if( pt_Dcode )
            pt_Dcode->m_InUse = true;
        break;
    }

    case GC_SPECIFY_INCHES:
        m_GerbMetric = false;           // false = Inches, true = metric
        break;

    case GC_SPECIFY_MILLIMETERS:
        m_GerbMetric = true;            // false = Inches, true = metric
        break;

    case GC_TURN_OFF_360_INTERPOL:
        m_360Arc_enbl = false;
        break;

    case GC_TURN_ON_360_INTERPOL:
        m_360Arc_enbl = true;
        break;

    case GC_SPECIFY_ABSOLUES_COORD:
        m_Relative = false;         // false = absolute Coord, true = relative
                                    // Coord
        break;

    case GC_SPECIFY_RELATIVEES_COORD:
        m_Relative = true;          // false = absolute Coord, true = relative
                                    // Coord
        break;

    case GC_TURN_ON_POLY_FILL:
        m_PolygonFillMode = true;
        break;

    case GC_TURN_OFF_POLY_FILL:
        m_PolygonFillMode = false;
        m_PolygonFillModeState = 0;
        break;

    case GC_MOVE:       // Non existent
    default:
    {
        wxString msg; msg.Printf( wxT( "G%0.2d command not handled" ),
                                  G_commande );
        DisplayError( NULL, msg );
        return false;
    }
    }


    return true;
}


/**
 * Function scale
 * converts a distance given in floating point to our deci-mils
 */
static int scale( double aCoord, bool isMetric )
{
    int ret;

    if( isMetric )
        ret = wxRound( aCoord / 0.00254 );
    else
        ret = wxRound( aCoord * PCB_INTERNAL_UNIT );

    return ret;
}


/**
 * Function mapPt
 * translates a point from the aperture macro coordinate system to our
 * deci-mils coordinate system.
 * @return wxPoint - The gerbview coordinate system vector.
 */
static wxPoint mapPt( double x, double y, bool isMetric )
{
    wxPoint ret( scale( x, isMetric ),
                 scale( y, isMetric ) );

    return ret;
}


/**
 * Function mapExposure
 * translates the first parameter from an aperture macro into a current
 * exposure
 * setting.
 * @param curExposure A dynamic setting which can change throughout the
 * reading of the gerber file, and it indicates whether the current tool
 * is lit or not.
 * @param isNegative A dynamic setting which can change throughout the reading
 * of
 *    the gerber file, and it indicates whether the current D codes are to
 *    be interpreted as erasures or not.
 */
static bool mapExposure( int param1, bool curExposure, bool isNegative )
{
    bool exposure;

    switch( param1 )
    {
    case 0:
        exposure = false;
        break;

    default:
    case 1:
        exposure = true;
        break;

    case 2:
        exposure = !curExposure;
    }

    return exposure ^ isNegative;
}


bool GERBER::Execute_DCODE_Command( WinEDA_GerberFrame* frame,
                                    char*& text, int D_commande )
{
    wxSize     size( 15, 15 );

    APERTURE_T aperture = APT_CIRCLE;
    TRACK*     track;
    BOARD*     pcb = frame->GetBoard();

    int        activeLayer = frame->GetScreen()->m_Active_Layer;

    int        dcode = 0;
    D_CODE*    tool  = NULL;
    wxString   msg;

    D( printf( "%22s: D_CODE<%d>\n", __func__, D_commande ); )

    if( D_commande >= FIRST_DCODE )  // This is a "Set tool" command
    {
        if( D_commande > (MAX_TOOLS - 1) )
            D_commande = MAX_TOOLS - 1;

        // remember which tool is selected, nothing is done with it in this
        // call
        m_Current_Tool = D_commande;

        D_CODE* pt_Dcode = GetDCODE( D_commande, false );
        if( pt_Dcode )
            pt_Dcode->m_InUse = true;

        return true;
    }
    else // D_commande = 0..9:  this is a pen command (usually D1, D2 or D3)
    {
        m_Last_Pen_Command = D_commande;
    }

    if( m_PolygonFillMode )    // Enter a polygon description:
    {
        SEGZONE* edge_poly;
        switch( D_commande )
        {
        case 1:     // code D01 Draw line, exposure ON
            m_Exposure = true;

            switch( m_Iterpolation )
            {
            case GERB_INTERPOL_ARC_NEG:
            case GERB_INTERPOL_ARC_POS:
                D( printf( "Add arc poly %d,%d to %d,%d fill %d interpol %d 360_enb %d\n",
                        m_PreviousPos.x, m_PreviousPos.y, m_CurrentPos.x,
                        m_CurrentPos.y, m_PolygonFillModeState, m_Iterpolation, m_360Arc_enbl ); )
                edge_poly = fillArcPOLY( pcb, activeLayer, m_PreviousPos,
                              m_CurrentPos, m_IJPos,
                              ( m_Iterpolation == GERB_INTERPOL_ARC_NEG ) ?
                              false : true, m_360Arc_enbl,
                              !(m_LayerNegative ^ m_ImageNegative) );
                edge_poly->SetNet( m_PolygonFillModeState );
                break;

            default:
                edge_poly = new SEGZONE( pcb );
                pcb->m_Zone.Append( edge_poly );
                D( printf( "Add poly edge %d,%d to %d,%d fill %d\n",
                        m_PreviousPos.x, m_PreviousPos.y,
                        m_CurrentPos.x, m_CurrentPos.y, m_Iterpolation ); )

                edge_poly->SetLayer( activeLayer );
                edge_poly->m_Width = 1;

                edge_poly->m_Start = m_PreviousPos;
                NEGATE( edge_poly->m_Start.y );

                edge_poly->m_End = m_CurrentPos;
                NEGATE( edge_poly->m_End.y );

                edge_poly->SetNet( m_PolygonFillModeState );

                // the first track of each polygon has a netcode of zero,
                // otherwise one.  Set the erasure flag in that special track,
                // if a negative polygon.
                if( !m_PolygonFillModeState )
                {
                    if( m_LayerNegative ^ m_ImageNegative )
                        edge_poly->m_Flags |= DRAW_ERASED;
                    D( printf( "\nm_Flags=0x%08X\n", edge_poly->m_Flags ); )
                }
                break;
            }

            m_PreviousPos = m_CurrentPos;
            m_PolygonFillModeState = 1;
            break;

        case 2:     // code D2: exposure OFF (i.e. "move to")
            m_Exposure    = false;
            m_PreviousPos = m_CurrentPos;
            m_PolygonFillModeState = 0;
            break;

        default:
            return false;
        }
    }
    else
    {
        switch( D_commande )
        {
        case 1:     // code D01 Draw line, exposure ON
            m_Exposure = true;

            tool = GetDCODE( m_Current_Tool, false );
            if( tool )
            {
                size     = tool->m_Size;
                dcode    = tool->m_Num_Dcode;
                aperture = tool->m_Shape;
            }

            switch( m_Iterpolation )
            {
            case GERB_INTERPOL_LINEAR_1X:
                track = new TRACK( pcb );
                pcb->m_Track.Append( track );
                D( printf( "R:%p\n", track ); )
                fillLineTRACK( track, dcode, activeLayer, m_PreviousPos,
                               m_CurrentPos, size.x,
                               !(m_LayerNegative ^ m_ImageNegative) );
                break;

            case GERB_INTERPOL_LINEAR_01X:
            case GERB_INTERPOL_LINEAR_001X:
            case GERB_INTERPOL_LINEAR_10X:
                wxBell();
                break;

            case GERB_INTERPOL_ARC_NEG:
            case GERB_INTERPOL_ARC_POS:
                track = new TRACK( pcb );
                pcb->m_Track.Append( track );
                D( printf( "R:%p\n", track ); )
                fillArcTRACK( track, dcode, activeLayer, m_PreviousPos,
                              m_CurrentPos, m_IJPos, size.x,
                              ( m_Iterpolation == GERB_INTERPOL_ARC_NEG ) ?
                              false : true, m_360Arc_enbl,
                              !(m_LayerNegative ^ m_ImageNegative) );
                break;

            default:
                msg.Printf( wxT( "Execute_DCODE_Command: interpol error (type %X)" ),
                            m_Iterpolation );
                DisplayError( frame, msg );
                break;
            }

            m_PreviousPos = m_CurrentPos;
            break;

        case 2:     // code D2: exposure OFF (i.e. "move to")
            m_Exposure    = false;
            m_PreviousPos = m_CurrentPos;
            break;

        case 3:     // code D3: flash aperture
            tool = GetDCODE( m_Current_Tool, false );
            if( tool )
            {
                size     = tool->m_Size;
                dcode    = tool->m_Num_Dcode;
                aperture = tool->m_Shape;
            }

            switch( aperture )
            {
            case APT_LINE:  // APT_LINE is not in the spec, don't know why it's
                            // here
            case APT_CIRCLE:
                track = new TRACK( pcb );
                pcb->m_Track.Append( track );
                D( printf( "R:%p\n", track ); )
                fillRoundFlashTRACK( track, dcode, activeLayer,
                                     m_CurrentPos, size.x,
                                     !(m_LayerNegative ^ m_ImageNegative) );
                break;

            case APT_OVAL:
            case APT_RECT:
                track = new TRACK( pcb );
                pcb->m_Track.Append( track );
                D( printf( "R:%p\n", track ); )
                fillOvalOrRectFlashTRACK( track, dcode, activeLayer,
                                          m_CurrentPos, size,
                                          ( aperture == APT_RECT ) ?
                                          S_SPOT_RECT : S_SPOT_OVALE,
                                          !(m_LayerNegative ^ m_ImageNegative) );
                break;

            case APT_MACRO:
            {
                APERTURE_MACRO* macro = tool->GetMacro();
                wxASSERT( macro );

                // split the macro primitives up into multiple normal TRACK
                // elements
                for( AM_PRIMITIVES::iterator p = macro->primitives.begin();
                     p!=macro->primitives.end();
                     ++p )
                {
                    bool    exposure;
                    wxPoint curPos = m_CurrentPos;

                    switch( p->primitive_id )
                    {
                    case AMP_CIRCLE:
                    {
                        exposure = mapExposure( p->GetExposure(), m_Exposure,
                                                m_ImageNegative );
                        curPos += mapPt( p->params[2].GetValue( tool ),
                                         p->params[3].GetValue( tool ),
                                         m_GerbMetric );
                        int diameter = scale( p->params[1].GetValue( tool ),
                                              m_GerbMetric );

                        track = new TRACK( pcb );
                        pcb->m_Track.Append( track );
                        D( printf( "R:%p\n", track ); )
                        fillRoundFlashTRACK( track, dcode, activeLayer,
                                             m_CurrentPos, diameter, exposure );
                    }
                    break;

                    case AMP_LINE2:
                    case AMP_LINE20:
                    {
                        exposure = mapExposure(
                            p->GetExposure(), m_Exposure, m_ImageNegative );
                        int     width = scale( p->params[1].GetValue( tool ),
                                               m_GerbMetric );
                        wxPoint start = mapPt( p->params[2].GetValue( tool ),
                                               p->params[3].GetValue( tool ),
                                               m_GerbMetric );
                        wxPoint end = mapPt( p->params[4].GetValue( tool ),
                                             p->params[5].GetValue( tool ),
                                             m_GerbMetric );

                        if( start.x == end.x )
                        {
                            size.x = width;
                            size.y = ABS( end.y - start.y ) + 1;
                        }
                        else
                        {
                            size.x = ABS( end.x - start.x ) + 1;
                            size.y = width;
                        }

                        wxPoint midPoint( ( start.x + end.x ) / 2,
                                          ( start.y + end.y ) / 2 );
                        curPos += midPoint;
                        track   = new TRACK( pcb );
                        pcb->m_Track.Append( track );
                        D( printf( "R:%p\n", track ); )
                        fillOvalOrRectFlashTRACK( track, dcode, activeLayer,
                                                  curPos, size, S_SPOT_RECT,
                                                  exposure );
                    }
                    break;

                    case AMP_LINE_CENTER:
                    {
                        exposure = mapExposure( p->GetExposure(), m_Exposure,
                                                m_ImageNegative );
                        wxPoint msize = mapPt( p->params[1].GetValue( tool ),
                                               p->params[2].GetValue( tool ),
                                               m_GerbMetric );
                        size.x  = msize.x;
                        size.y  = msize.y;
                        curPos += mapPt( p->params[3].GetValue( tool ),
                                         p->params[4].GetValue( tool ),
                                         m_GerbMetric );
                        track = new TRACK( pcb );
                        pcb->m_Track.Append( track );
                        D( printf( "R:%p\n", track ); )
                        fillOvalOrRectFlashTRACK( track, dcode, activeLayer,
                                                  curPos, size, S_SPOT_RECT,
                                                  exposure );
                    }
                    break;

                    case AMP_LINE_LOWER_LEFT:
                    {
                        exposure = mapExposure(
                            p->GetExposure(), m_Exposure, m_ImageNegative );
                        wxPoint msize = mapPt( p->params[1].GetValue( tool ),
                                               p->params[2].GetValue( tool ),
                                               m_GerbMetric );
                        size.x = msize.x;
                        size.y = msize.y;
                        wxPoint lowerLeft = mapPt( p->params[3].GetValue( tool ),
                                                   p->params[4].GetValue( tool ),
                                                   m_GerbMetric );
                        curPos += lowerLeft;

                        // need the middle, so adjust from the lower left
                        curPos.y += size.y / 2;
                        curPos.x += size.x / 2;
                        track     = new TRACK( pcb );
                        pcb->m_Track.Append( track );
                        D( printf( "R:%p\n", track ); )
                        fillOvalOrRectFlashTRACK( track, dcode, activeLayer,
                                                  curPos, size, S_SPOT_RECT,
                                                  exposure );
                    }
                    break;

                    case AMP_THERMAL:
                    {
                        int outerDiam = scale( p->params[2].GetValue( tool ),
                                               m_GerbMetric );
                        int innerDiam = scale( p->params[3].GetValue( tool ),
                                               m_GerbMetric );

                        curPos += mapPt( p->params[0].GetValue( tool ),
                                         p->params[1].GetValue( tool ),
                                         m_GerbMetric );

                        track = new TRACK( pcb );
                        pcb->m_Track.Append( track );
                        D( printf( "R:%p\n", track ); )
                        fillRoundFlashTRACK( track, dcode, activeLayer,
                                             curPos, outerDiam,
                                             !( m_LayerNegative ^ m_ImageNegative ) );

                        track = new TRACK( pcb );
                        pcb->m_Track.Append( track );
                        D( printf( "R:%p\n", track ); )
                        fillRoundFlashTRACK( track, dcode, activeLayer, curPos,
                                             innerDiam,
                                             ( m_LayerNegative ^ m_ImageNegative ) );

                        // @todo: draw the cross hairs, see page 23 of rs274
                        // spec. this might be done with two lines, thickness
                        // from params[4], and drawing
                        // darkness "(m_LayerNegative ^ m_ImageNegative)"
                    }
                    break;

                    case AMP_MOIRE:
                    {
                        curPos += mapPt( p->params[0].GetValue( tool ),
                                         p->params[1].GetValue( tool ),
                                         m_GerbMetric );

                        // e.g.: "6,0,0,0.125,.01,0.01,3,0.003,0.150,0"
                        int outerDiam = scale( p->params[2].GetValue( tool ),
                                               m_GerbMetric );
                        int penThickness = scale( p->params[3].GetValue( tool ),
                                                  m_GerbMetric );
                        int gap = scale( p->params[4].GetValue( tool ),
                                         m_GerbMetric );
                        int numCircles = (int) p->params[5].GetValue( tool );
                        int crossHairThickness =
                            scale( p->params[6].GetValue( tool ), m_GerbMetric );
                        int crossHairLength =
                            scale( p->params[7].GetValue( tool ), m_GerbMetric );

                        // ignore rotation, not supported
                        // adjust outerDiam by this on each nested circle
                        int diamAdjust = 2 * (gap + penThickness);
                        for( int i = 0;
                             i < numCircles;
                             ++i, outerDiam -= diamAdjust )
                        {
                            track = new TRACK( pcb );
                            pcb->m_Track.Append( track );
                            D( printf( "R:%p\n", track ); )
                            fillCircularTRACK( track, dcode, activeLayer,
                                               curPos, outerDiam,
                                               penThickness,
                                               !( m_LayerNegative ^ m_ImageNegative ) );
                        }

                        track = new TRACK( pcb );
                        pcb->m_Track.Append( track );
                        D( printf( "R:%p\n", track ); )
                        fillOvalOrRectFlashTRACK( track, dcode, activeLayer,
                                                  curPos,
                                                  wxSize( crossHairThickness,
                                                          crossHairLength ),
                                                  S_SPOT_RECT,
                                                  !( m_LayerNegative ^ m_ImageNegative ) );

                        track = new TRACK( pcb );
                        pcb->m_Track.Append( track );
                        D( printf( "R:%p\n", track ); )

                        // swap x and y in wxSize() for this one
                        fillOvalOrRectFlashTRACK( track, dcode, activeLayer,
                                                  curPos,
                                                  wxSize( crossHairLength,
                                                          crossHairThickness ),
                                                  S_SPOT_RECT,
                                                  !( m_LayerNegative ^ m_ImageNegative ) );
                    }
                    break;

                    case AMP_EOF:
                    case AMP_OUTLINE:
                    case AMP_POLYGON:
                    default:

                        // not yet supported, waiting for you.
                        break;
                    }
                }
            }
            break;

            default:
                break;
            }

            m_PreviousPos = m_CurrentPos;
            break;

        default:
            return false;
        }
    }

    return true;
}
