specctra_export.cpp

Go to the documentation of this file.

/*
 * This program source code file is part of KiCad, a free EDA CAD application.
 *
 * Copyright (C) 2007-2015 SoftPLC Corporation, Dick Hollenbeck <[email protected]>
 * Copyright The KiCad Developers, see AUTHORS.txt for contributors.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */
 
 
/*  This source is a complement to specctra.cpp and implements the export to
    specctra dsn file format.  The specification for the grammar of the specctra
    dsn file used to develop this code is given here:
    http://tech.groups.yahoo.com/group/kicad-users/files/  then file "specctra.pdf"
 
    Also see the comments at the top of the specctra.cpp file itself.
*/
 
#include "specctra.h"
 
#include <project/net_settings.h>
#include <set>
#include <map>
 
#include <wx/log.h>
 
#include <pcb_edit_frame.h>
#include <confirm.h>            // DisplayErrorMessage()
#include <gestfich.h>           // EDA_FileSelector()
#include <locale_io.h>
#include <macros.h>
#include <math/util.h>          // for KiROUND
#include <string_utils.h>
 
#include <board.h>
#include <board_design_settings.h>
#include <footprint.h>
#include <pcb_shape.h>
#include <pcb_track.h>
#include <pad.h>
#include <zone.h>
#include <base_units.h>
#include <collectors.h>
#include <geometry/shape_poly_set.h>
#include <geometry/convex_hull.h>
#include <convert_basic_shapes_to_polygon.h>
#include <geometry/geometry_utils.h>
#include <mmh3_hash.h>
#include <pcbnew_settings.h>
 
#include "fmt/xchar.h"
 
 
using namespace DSN;
 
// comment the line #define EXPORT_CUSTOM_PADS_CONVEX_HULL to export CUSTOM pads exact shapes.
// Shapes can be non convex polygons with holes (linked to outline) that can create issues.
// Especially Freerouter does not handle them very well:
// - too complex shapes are not accepted, especially shapes with holes (dsn files are not loaded).
// - and Freerouter actually uses something like a convex hull of the shape (that works poorly).
// I am guessing non convex polygons with holes linked could create issues with any Router.
#define EXPORT_CUSTOM_PADS_CONVEX_HULL
 
 
bool PCB_EDIT_FRAME::ExportSpecctraFile( const wxString& aFullFilename )
{
    BASE_SCREEN* screen = GetScreen();
    bool         wasModified = screen->IsContentModified();
    wxString     errorText;
    bool         ok = true;
 
    try
    {
        DSN::ExportBoardToSpecctraFile( GetBoard(), aFullFilename );
    }
    catch( const IO_ERROR& ioe )
    {
        ok = false;
 
        // copy the error string to safe place, ioe is in this scope only.
        errorText = ioe.What();
    }
 
    // The two calls to FOOTPRINT::Flip() in ExportBoardToSpecctraFile both set the modified flag,
    // yet their actions cancel each other out, so it should be ok to clear the flag.
    if( !wasModified )
        screen->SetContentModified( false );
 
    if( ok )
        SetStatusText( wxString( _( "BOARD exported OK." ) ) );
    else
        DisplayErrorMessage( this, _( "Unable to export, please fix and try again" ), errorText );
 
    return ok;
}
 
namespace DSN
{
 
 
void ExportBoardToSpecctraFile( BOARD* aBoard, const wxString& aFullFilename )
{
    SPECCTRA_DB db;
 
    db.SetPCB( SPECCTRA_DB::MakePCB() );
 
    LOCALE_IO toggle; // Switch the locale to standard C
 
    // Build the board outlines *before* flipping footprints
    if( !db.BuiltBoardOutlines( aBoard ) )
        wxLogWarning( _( "Board outline is malformed. Run DRC for a full analysis." ) );
 
    // DSN Images (=KiCad FOOTPRINTs and PADs) must be presented from the top view.  So we
    // temporarily flip any footprints which are on the back side of the board to the front,
    // and record this in the FOOTPRINT's flag field.
    db.FlipFOOTPRINTs( aBoard );
 
    try
    {
        aBoard->SynchronizeNetsAndNetClasses( false );
        db.FromBOARD( aBoard );
        db.ExportPCB( aFullFilename, true );
        db.RevertFOOTPRINTs( aBoard );
 
        // if an exception is thrown by FromBOARD() or ExportPCB(), then ~SPECCTRA_DB() will
        // close the file.
    }
    catch( ... )
    {
        db.RevertFOOTPRINTs( aBoard );
        throw;
    }
}
 
 
// "specctra reported units" are what we tell the external router that our exported lengths are in

static inline double scale( int kicadDist )
{
    // nanometers to um
    return kicadDist / ( pcbIUScale.IU_PER_MM / 1000.0 );
}
 

static inline double IU2um( int kicadDist )
{
    return kicadDist * ( 1000.0 / pcbIUScale.IU_PER_MM );
}
 
 
static inline double mapX( int x )
{
    return scale( x );
}
 
 
static inline double mapY( int y )
{
    return -scale( y );      // make y negative, since it is increasing going down.
}
 

static POINT mapPt( const VECTOR2I& pt )
{
    POINT ret;
 
    ret.x   = mapX( pt.x );
    ret.y   = mapY( pt.y );
    ret.FixNegativeZero();
    return ret;
}
 
 
static POINT mapPt( const VECTOR2I& pt, FOOTPRINT* aFootprint )
{
    VECTOR2I fpRelative = pt - aFootprint->GetPosition();
    RotatePoint( fpRelative, -aFootprint->GetOrientation() );
    return mapPt( fpRelative );
}
 

static bool isRoundKeepout( PAD* aPad )
{
    std::vector<PCB_LAYER_ID> layers = aPad->Padstack().UniqueLayers();
 
    // Any layer with real copper makes this a pad, not a keepout.  An empty padstack passes
    // that test vacuously, so it does not count.
    bool swallowedByHole = !layers.empty();
 
    for( PCB_LAYER_ID layer : layers )
    {
        if( aPad->GetShape( layer ) != PAD_SHAPE::CIRCLE
            || aPad->GetDrillSize().x < aPad->GetSize( layer ).x )
        {
            swallowedByHole = false;
        }
    }
 
    if( swallowedByHole )
        return true;
 
    return aPad->GetShape( aPad->Padstack().EffectiveLayerFor( F_Cu ) ) == PAD_SHAPE::CIRCLE
           && !( aPad->GetLayerSet() & LSET::AllCuMask() ).any();
}
 

static PATH* makePath( const POINT& aStart, const POINT& aEnd, const std::string& aLayerName )
{
    PATH* path = new PATH( nullptr, T_path );
 
    path->AppendPoint( aStart );
    path->AppendPoint( aEnd );
    path->SetLayerId( aLayerName );
    return path;
}
 
 
bool SPECCTRA_DB::BuiltBoardOutlines( BOARD* aBoard  )
{
    return aBoard->GetBoardPolygonOutlines( m_brd_outlines, true );
}
 

struct SPECCTRA_SHAPE_ID
{
    std::string m_family;   
    std::string m_dims;     
    std::string m_offset;   
 
    bool operator==( const SPECCTRA_SHAPE_ID& aOther ) const = default;
};
 

static SPECCTRA_SHAPE_ID appendPadstackShape( PADSTACK* aPadstack, PAD* aPad, PCB_LAYER_ID aPadLayer,
                                              const std::vector<std::string>& aLayerNames )
{
    SPECCTRA_SHAPE_ID  id;
    const VECTOR2I&    padSize = aPad->GetSize( aPadLayer );
    const VECTOR2I&    offset = aPad->GetOffset( aPadLayer );
    POINT              dsnOffset;
 
    if( offset.x || offset.y )
    {
        dsnOffset = mapPt( offset );
 
        // Using () would cause padstack name to be quoted, and {} locks freerouter, so use [].
        std::ostringstream oss;
        oss.imbue( std::locale::classic() );
        oss << std::fixed << std::setprecision( 6 )
            << '[' << dsnOffset.x << ',' << dsnOffset.y << ']';
        id.m_offset = oss.str();
    }
 
    std::ostringstream dims;
    dims << std::fixed << std::setprecision( 6 );
 
    switch( aPad->GetShape( aPadLayer ) )
    {
    case PAD_SHAPE::CIRCLE:
    {
        for( const std::string& layerName : aLayerNames )
        {
            SHAPE* shape = new SHAPE( aPadstack );
 
            aPadstack->Append( shape );
 
            CIRCLE* circle = new CIRCLE( shape );
 
            shape->SetShape( circle );
 
            circle->SetLayerId( layerName );
            circle->SetDiameter( scale( padSize.x ) );
            circle->SetVertex( dsnOffset );
        }
 
        id.m_family = "Round";
        dims << IU2um( padSize.x ) << "_um";
        break;
    }
 
    case PAD_SHAPE::RECTANGLE:
    {
        double dx = scale( padSize.x ) / 2.0;
        double dy = scale( padSize.y ) / 2.0;
 
        POINT lowerLeft( -dx, -dy );
        POINT upperRight( dx, dy );
 
        lowerLeft += dsnOffset;
        upperRight += dsnOffset;
 
        for( const std::string& layerName : aLayerNames )
        {
            SHAPE* shape = new SHAPE( aPadstack );
 
            aPadstack->Append( shape );
 
            RECTANGLE* rect = new RECTANGLE( shape );
 
            shape->SetShape( rect );
 
            rect->SetLayerId( layerName );
            rect->SetCorners( lowerLeft, upperRight );
        }
 
        id.m_family = "Rect";
        dims << IU2um( padSize.x ) << "x" << IU2um( padSize.y ) << "_um";
        break;
    }
 
    case PAD_SHAPE::OVAL:
    {
        double dx = scale( padSize.x ) / 2.0;
        double dy = scale( padSize.y ) / 2.0;
        double dr = dx - dy;
        double radius;
        POINT  pstart;
        POINT  pstop;
 
        if( dr >= 0 ) // oval is horizontal
        {
            radius = dy;
 
            pstart = POINT( -dr, 0.0 );
            pstop = POINT( dr, 0.0 );
        }
        else // oval is vertical
        {
            radius = dx;
            dr = -dr;
 
            pstart = POINT( 0.0, -dr );
            pstop = POINT( 0.0, dr );
        }
 
        pstart += dsnOffset;
        pstop += dsnOffset;
 
        for( const std::string& layerName : aLayerNames )
        {
            // see http://www.freerouting.net/usren/viewtopic.php?f=3&t=317#p408
            SHAPE* shape = new SHAPE( aPadstack );
 
            aPadstack->Append( shape );
 
            PATH* path = makePath( pstart, pstop, layerName );
 
            shape->SetShape( path );
            path->SetAperture( 2.0 * radius );
        }
 
        id.m_family = "Oval";
        dims << IU2um( padSize.x ) << "x" << IU2um( padSize.y ) << "_um";
        break;
    }
 
    case PAD_SHAPE::TRAPEZOID:
    {
        double dx = scale( padSize.x ) / 2.0;
        double dy = scale( padSize.y ) / 2.0;
 
        const VECTOR2I& delta = aPad->GetDelta( aPadLayer );
 
        double ddx = scale( delta.x ) / 2.0;
        double ddy = scale( delta.y ) / 2.0;
 
        // see class_pad_draw_functions.cpp which draws the trapezoid pad
        POINT lowerLeft( -dx - ddy, -dy - ddx );
        POINT upperLeft( -dx + ddy, +dy + ddx );
        POINT upperRight( +dx - ddy, +dy - ddx );
        POINT lowerRight( +dx + ddy, -dy + ddx );
 
        lowerLeft += dsnOffset;
        upperLeft += dsnOffset;
        upperRight += dsnOffset;
        lowerRight += dsnOffset;
 
        for( const std::string& layerName : aLayerNames )
        {
            SHAPE* shape = new SHAPE( aPadstack );
 
            aPadstack->Append( shape );
 
            // a T_polygon exists as a PATH
            PATH* polygon = new PATH( shape, T_polygon );
 
            shape->SetShape( polygon );
 
            polygon->SetLayerId( layerName );
 
            polygon->AppendPoint( lowerLeft );
            polygon->AppendPoint( upperLeft );
            polygon->AppendPoint( upperRight );
            polygon->AppendPoint( lowerRight );
        }
 
        id.m_family = "Trapz";
        dims << IU2um( padSize.x ) << "x" << IU2um( padSize.y ) << "_"
             << ( delta.x < 0 ? "n" : "p" ) << std::abs( IU2um( delta.x ) ) << "x"
             << ( delta.y < 0 ? "n" : "p" ) << std::abs( IU2um( delta.y ) ) << "_um";
        break;
    }
 
    case PAD_SHAPE::CHAMFERED_RECT:
    case PAD_SHAPE::ROUNDRECT:
    {
        // Export the shape as as polygon, round rect does not exist as primitive
        const int      circleToSegmentsCount = 36;
        int            rradius = aPad->GetRoundRectCornerRadius( aPadLayer );
        SHAPE_POLY_SET cornerBuffer;
 
        // Use a slightly bigger shape because the round corners are approximated by
        // segments, giving to the polygon a slightly smaller shape than the actual shape
 
        /* calculates the coeff to compensate radius reduction of holes clearance
         * due to the segment approx.
         * For a circle the min radius is radius * cos( 2PI / s_CircleToSegmentsCount / 2)
         * correctionFactor is cos( PI/s_CircleToSegmentsCount  )
         */
        double correctionFactor = cos( M_PI / (double) circleToSegmentsCount );
        int    extra_clearance = KiROUND( rradius * ( 1.0 - correctionFactor ) );
        VECTOR2I psize = padSize;
        psize.x += extra_clearance * 2;
        psize.y += extra_clearance * 2;
        rradius += extra_clearance;
        bool doChamfer = aPad->GetShape( aPadLayer ) == PAD_SHAPE::CHAMFERED_RECT;
 
        TransformRoundChamferedRectToPolygon( cornerBuffer, VECTOR2I( 0, 0 ), psize, ANGLE_0,
                rradius, aPad->GetChamferRectRatio( aPadLayer ),
                doChamfer ? aPad->GetChamferPositions( aPadLayer ) : 0,
                0, aPad->GetMaxError(), ERROR_INSIDE );
 
        SHAPE_LINE_CHAIN& polygonal_shape = cornerBuffer.Outline( 0 );
 
        for( const std::string& layerName : aLayerNames )
        {
            SHAPE* shape = new SHAPE( aPadstack );
 
            aPadstack->Append( shape );
 
            // a T_polygon exists as a PATH
            PATH* polygon = new PATH( shape, T_polygon );
 
            shape->SetShape( polygon );
 
            polygon->SetLayerId( layerName );
 
            // append a closed polygon
            POINT first_corner;
 
            for( int idx = 0; idx < polygonal_shape.PointCount(); idx++ )
            {
                POINT corner( scale( polygonal_shape.CPoint( idx ).x ),
                              scale( -polygonal_shape.CPoint( idx ).y ) );
                corner += dsnOffset;
                polygon->AppendPoint( corner );
 
                if( idx == 0 )
                    first_corner = corner;
            }
 
            polygon->AppendPoint( first_corner ); // Close polygon
        }
 
        id.m_family = "RoundRect";
        dims << IU2um( padSize.x ) << 'x'
             << IU2um( padSize.y ) << '_'
             << IU2um( rradius ) << "_um_"
             << ( doChamfer ? aPad->GetChamferRectRatio( aPadLayer ) : 0.0 ) << '_'
             << std::hex << std::uppercase
             << ( doChamfer ? aPad->GetChamferPositions( aPadLayer ) : 0 );
        break;
    }
 
    case PAD_SHAPE::CUSTOM:
    {
        std::vector<VECTOR2I> polygonal_shape;
        SHAPE_POLY_SET        pad_shape;
        aPad->MergePrimitivesAsPolygon( aPadLayer, &pad_shape );
 
#ifdef EXPORT_CUSTOM_PADS_CONVEX_HULL
        BuildConvexHull( polygonal_shape, pad_shape );
#else
        const SHAPE_LINE_CHAIN& p_outline = pad_shape.COutline( 0 );
 
        for( int ii = 0; ii < p_outline.PointCount(); ++ii )
            polygonal_shape.push_back( wxPoint( p_outline.CPoint( ii ) ) );
#endif
 
        // The polygon must be closed
        if( polygonal_shape.front() != polygonal_shape.back() )
            polygonal_shape.push_back( polygonal_shape.front() );
 
        for( const std::string& layerName : aLayerNames )
        {
            SHAPE* shape = new SHAPE( aPadstack );
 
            aPadstack->Append( shape );
 
            // a T_polygon exists as a PATH
            PATH* polygon = new PATH( shape, T_polygon );
 
            shape->SetShape( polygon );
 
            polygon->SetLayerId( layerName );
 
            for( const VECTOR2I& pt : polygonal_shape )
            {
                POINT corner( scale( pt.x ), scale( -pt.y ) );
                corner += dsnOffset;
                polygon->AppendPoint( corner );
            }
        }
 
        const HASH_128 hash = pad_shape.GetHash();
        const BOX2I    rect = aPad->GetBoundingBox();
 
        id.m_family = "Cust";
        dims << IU2um( padSize.x ) << 'x' << IU2um( padSize.y ) << '_'
             << IU2um( rect.GetWidth() ) << 'x' << IU2um( rect.GetHeight() ) << '_'
             << polygonal_shape.size() << "_um_"
             << hash.ToString();
        break;
    }
    }
 
    id.m_dims = dims.str();
 
    return id;
}
 
 
PADSTACK* SPECCTRA_DB::makePADSTACK( BOARD* aBoard, PAD* aPad )
{
    std::string uniqifier;
 
    // caller must do these checks before calling here.
    wxASSERT( !isRoundKeepout( aPad ) );
 
    PADSTACK*   padstack = new PADSTACK();
 
    uniqifier = '[';
 
    const int copperCount = aBoard->GetCopperLayerCount();
    const LSET all_cu = LSET::AllCuMask( copperCount );
 
    // Board layers grouped by the padstack layer they resolve to, so one geometry build serves
    // every layer that shares it
    std::vector<std::pair<PCB_LAYER_ID, std::vector<std::string>>> layerGroups;
 
    bool onAllCopperLayers = ( (aPad->GetLayerSet() & all_cu) == all_cu );
 
    if( onAllCopperLayers )
        uniqifier += 'A'; // A for all layers
 
    for( int layer=0; layer < copperCount; ++layer )
    {
        PCB_LAYER_ID kilayer = m_pcbLayer2kicad[layer];
 
        if( onAllCopperLayers || aPad->IsOnLayer( kilayer ) )
        {
            PCB_LAYER_ID padLayer = aPad->Padstack().EffectiveLayerFor( kilayer );
            auto         group = std::find_if( layerGroups.begin(), layerGroups.end(),
                                               [&]( const auto& aGroup )
                                               {
                                                   return aGroup.first == padLayer;
                                               } );
 
            if( group == layerGroups.end() )
                layerGroups.emplace_back( padLayer, std::vector<std::string>{ m_layerIds[layer] } );
            else
                group->second.push_back( m_layerIds[layer] );
 
            if( !onAllCopperLayers )
            {
                if( layer == 0 )
                    uniqifier += 'T';
                else if( layer == copperCount - 1 )
                    uniqifier += 'B';
                else
                    uniqifier += fmt::format( "{}", layer );
            }
        }
    }
 
    uniqifier += ']';
 
    if( layerGroups.empty() )
    {
        padstack->SetPadstackId( ( "Empty" + uniqifier + "Pad" ).c_str() );
        return padstack;
    }
 
    // Every Specctra shape carries its own layer id, so emit each group's geometry in turn
    std::vector<SPECCTRA_SHAPE_ID> shapeIds;
 
    for( const auto& [padLayer, names] : layerGroups )
        shapeIds.push_back( appendPadstackShape( padstack, aPad, padLayer, names ) );
 
    bool uniform = std::all_of( shapeIds.begin(), shapeIds.end(),
                                [&]( const SPECCTRA_SHAPE_ID& aId )
                                {
                                    return aId == shapeIds.front();
                                } );
 
    // This string _must_ be unique for a given physical shape
    std::ostringstream oss;
 
    if( uniform )
    {
        oss << shapeIds.front().m_family << uniqifier << shapeIds.front().m_offset << "Pad_"
            << shapeIds.front().m_dims;
    }
    else
    {
        // Spelling out every layer grows the id without bound on a deep stackup, so fold the
        // layers past the first into a digest
        MMH3_HASH hash( 0 );
 
        for( size_t ndx = 0; ndx < shapeIds.size(); ++ndx )
        {
            for( const std::string& name : layerGroups[ndx].second )
                hash.add( name );
 
            hash.add( shapeIds[ndx].m_family );
            hash.add( shapeIds[ndx].m_offset );
            hash.add( shapeIds[ndx].m_dims );
        }
 
        oss << "Complex" << uniqifier << shapeIds.front().m_offset << "Pad_"
            << shapeIds.front().m_family << '_' << shapeIds.front().m_dims << '_'
            << hash.digest().ToString();
    }
 
    padstack->SetPadstackId( oss.str().c_str() );
 
    return padstack;
}
 

typedef std::map<wxString, int> PINMAP;
 
 
IMAGE* SPECCTRA_DB::makeIMAGE( BOARD* aBoard, FOOTPRINT* aFootprint )
{
    PINMAP      pinmap;
    wxString    padNumber;
 
    PCB_TYPE_COLLECTOR  fpItems;
 
    // get all the FOOTPRINT's pads.
    fpItems.Collect( aFootprint, { PCB_PAD_T } );
 
    IMAGE*  image = new IMAGE( nullptr );
 
    image->m_image_id = aFootprint->GetFPID().Format().c_str();
 
    // from the pads, and make an IMAGE using collated padstacks.
    for( int p = 0; p < fpItems.GetCount(); ++p )
    {
        PAD* pad = (PAD*) fpItems[p];
 
        // see if this pad is a through hole with no copper on its perimeter
        if( isRoundKeepout( pad ) )
        {
            double  diameter = scale( pad->GetDrillSize().x );
            POINT   vertex   = mapPt( pad->GetFPRelativePosition() );
 
            diameter += scale( aBoard->GetDesignSettings().m_HoleClearance * 2 );
 
            int layerCount = aBoard->GetCopperLayerCount();
 
            for( int layer=0; layer<layerCount; ++layer )
            {
                KEEPOUT* keepout = new KEEPOUT( image, T_keepout );
 
                image->m_keepouts.push_back( keepout );
 
                CIRCLE* circle = new CIRCLE( keepout );
 
                keepout->SetShape( circle );
 
                circle->SetDiameter( diameter );
                circle->SetVertex( vertex );
                circle->SetLayerId( m_layerIds[layer] );
            }
        }
        else        // else if() could there be a square keepout here?
        {
            // Pads not on copper layers (i.e. only on tech layers) are ignored
            // because they create invalid pads in .dsn file for freeroute
            LSET mask_copper_layers = pad->GetLayerSet() & LSET::AllCuMask();
 
            if( !mask_copper_layers.any() )
                continue;
 
            PADSTACK* padstack = makePADSTACK( aBoard, pad );
            auto      iter = m_padstackset.find( *padstack );
 
            if( iter != m_padstackset.end() )
            {
                // padstack is a duplicate, delete it and use the original
                delete padstack;
                padstack = (PADSTACK*) *iter.base();    // folklore, be careful here
            }
            else
            {
                m_padstackset.insert( padstack );
            }
 
            PIN* pin = new PIN( image );
 
            padNumber   = pad->GetNumber();
            pin->m_pin_id = TO_UTF8( padNumber );
 
            if( padNumber != wxEmptyString && pinmap.find( padNumber ) == pinmap.end() )
            {
                pinmap[ padNumber ] = 0;
            }
            else    // pad name is a duplicate within this footprint
            {
                int     duplicates = ++pinmap[ padNumber ];
 
                pin->m_pin_id +=
                        "@" + std::to_string( duplicates ); // append "@1" or "@2", etc. to pin name
            }
 
            pin->m_kiNetCode = pad->GetNetCode();
 
            image->m_pins.push_back( pin );
 
            pin->m_padstack_id = padstack->m_padstack_id;
 
            EDA_ANGLE angle = pad->GetOrientation() - aFootprint->GetOrientation();
            pin->SetRotation( angle.Normalize().AsDegrees() );
 
            VECTOR2I pos( pad->GetFPRelativePosition() );
 
            pin->SetVertex( mapPt( pos ) );
        }
    }
 
    SHAPE_POLY_SET crtYd = aFootprint->GetCourtyard( F_CrtYd );
    crtYd.Append( aFootprint->GetCourtyard( B_CrtYd ) );
    crtYd.Simplify();
 
    // Specctra only supports the first outline, so add courtyard first
    for( const SHAPE_POLY_SET::POLYGON& polygon : crtYd.CPolygons() )
    {
        for( const SHAPE_LINE_CHAIN& chain : polygon )
        {
            SHAPE* outline = new SHAPE( image, T_outline );
            image->Append( outline );
 
            PATH* path = new PATH( outline, T_polygon );
 
            outline->SetShape( path );
            path->SetAperture( 0 );
            path->SetLayerId( "signal" );
 
            for( int ii = 0; ii < chain.PointCount(); ++ii )
            {
                VECTOR2I corner( chain.CPoint( ii ).x, chain.CPoint( ii ).y );
                path->AppendPoint( mapPt( corner, aFootprint ) );
            }
        }
    }
 
    // get all the FOOTPRINT's SHAPEs and convert those to DSN outlines.
    fpItems.Collect( aFootprint, { PCB_SHAPE_T } );
 
    for( int i = 0; i < fpItems.GetCount(); ++i )
    {
        PCB_SHAPE* graphic = static_cast<PCB_SHAPE*>( fpItems[i] );
        SHAPE*     outline;
        PATH*      path;
 
        if( graphic->IsOnLayer( F_CrtYd ) || graphic->IsOnLayer( B_CrtYd ) )
            continue; // Courtyard already handled above 
 
        switch( graphic->GetShape() )
        {
        case SHAPE_T::SEGMENT:
            outline = new SHAPE( image, T_outline );
 
            image->Append( outline );
            path = new PATH( outline );
 
            outline->SetShape( path );
            path->SetAperture( scale( graphic->GetWidth() ) );
            path->SetLayerId( "signal" );
            path->AppendPoint( mapPt( graphic->GetStart(), aFootprint ) );
            path->AppendPoint( mapPt( graphic->GetEnd(), aFootprint ) );
            break;
 
        case SHAPE_T::CIRCLE:
        {
            // this is best done by 4 QARC's but freerouter does not yet support QARCs.
            // for now, support by using line segments.
            outline = new SHAPE( image, T_outline );
            image->Append( outline );
 
            path = new PATH( outline );
 
            outline->SetShape( path );
            path->SetAperture( scale( graphic->GetWidth() ) );
            path->SetLayerId( "signal" );
 
            double radius = graphic->GetRadius();
            VECTOR2I circle_centre = graphic->GetStart();
 
            SHAPE_LINE_CHAIN polyline;
            ConvertArcToPolyline( polyline, VECTOR2I( circle_centre ), radius, ANGLE_0, ANGLE_360,
                                  ARC_HIGH_DEF, ERROR_INSIDE );
 
            for( int ii = 0; ii < polyline.PointCount(); ++ii )
            {
                VECTOR2I corner( polyline.CPoint( ii ).x, polyline.CPoint( ii ).y );
                path->AppendPoint( mapPt( corner, aFootprint ) );
            }
 
            break;
        }
 
        case SHAPE_T::RECTANGLE:
        {
            outline = new SHAPE( image, T_outline );
 
            image->Append( outline );
            path = new PATH( outline );
 
            outline->SetShape( path );
            path->SetAperture( scale( graphic->GetWidth() ) );
            path->SetLayerId( "signal" );
            VECTOR2I corner = graphic->GetStart();
            path->AppendPoint( mapPt( corner, aFootprint ) );
 
            corner.x = graphic->GetEnd().x;
            path->AppendPoint( mapPt( corner, aFootprint ) );
 
            corner.y = graphic->GetEnd().y;
            path->AppendPoint( mapPt( corner, aFootprint ) );
 
            corner.x = graphic->GetStart().x;
            path->AppendPoint( mapPt( corner, aFootprint ) );
 
            corner = graphic->GetStart();
            path->AppendPoint( mapPt( corner, aFootprint ) );
            break;
        }
 
        case SHAPE_T::ARC:
        {
            // this is best done by QARC's but freerouter does not yet support QARCs.
            // for now, support by using line segments.
            // So we use a "polygon" (PATH) to create a approximate arc shape
            // Note we can't use "path" with aperture width because FreeRouting converts it to a convex polygon
            outline = new SHAPE( image, T_outline );
 
            image->Append( outline );
            path = new PATH( outline, T_polygon );
 
            outline->SetShape( path );
            path->SetAperture( 0 );
            path->SetLayerId( "signal" );
 
            SHAPE_POLY_SET polyBuffer;
            graphic->TransformShapeToPolygon( polyBuffer, graphic->GetLayer(), 0, ARC_HIGH_DEF,
                                              ERROR_INSIDE, false );
 
            const SHAPE_LINE_CHAIN& poly = polyBuffer.COutline( 0 );
 
            for( int ii = 0; ii < poly.PointCount(); ++ii )
            {
                VECTOR2I corner( poly.CPoint( ii ).x, poly.CPoint( ii ).y );
                path->AppendPoint( mapPt( corner, aFootprint ) );
            }
 
            break;
        }
 
        default:
            continue;
        }
    }
 
    for( ZONE* zone : aFootprint->Zones() )
    {
        if( !zone->GetIsRuleArea() )
            continue;
 
        // IMAGE object coordinates are relative to the IMAGE not absolute board coordinates.
        ZONE untransformedZone( *zone );
 
        EDA_ANGLE angle = -aFootprint->GetOrientation();
        angle.Normalize();
        untransformedZone.Rotate( aFootprint->GetPosition(), angle );
 
        // keepout areas have a type. types are
        // T_place_keepout, T_via_keepout, T_wire_keepout,
        // T_bend_keepout, T_elongate_keepout, T_keepout.
        // Pcbnew knows only T_keepout, T_via_keepout and T_wire_keepout
        DSN_T keepout_type;
 
        if( zone->GetDoNotAllowVias() && zone->GetDoNotAllowTracks() )
            keepout_type = T_keepout;
        else if( zone->GetDoNotAllowVias() )
            keepout_type = T_via_keepout;
        else if( zone->GetDoNotAllowTracks() )
            keepout_type = T_wire_keepout;
        else
            keepout_type = T_keepout;
 
        // Now, build keepout polygon on each copper layer where the zone
        // keepout is living (keepout zones can live on many copper layers)
        LSET layerset = zone->GetLayerSet() & LSET::AllCuMask( aBoard->GetCopperLayerCount() );
 
        for( PCB_LAYER_ID layer : layerset.CuStack() )
        {
            KEEPOUT* keepout = new KEEPOUT( m_pcb->m_structure, keepout_type );
            image->m_keepouts.push_back( keepout );
 
            PATH* mainPolygon = new PATH( keepout, T_polygon );
            keepout->SetShape( mainPolygon );
 
            mainPolygon->layer_id = m_layerIds[ m_kicadLayer2pcb[ layer ] ];
 
            // Handle the main outlines
            SHAPE_POLY_SET::ITERATOR iterator;
            bool is_first_point = true;
            VECTOR2I startpoint;
 
            for( iterator = untransformedZone.IterateWithHoles(); iterator; iterator++ )
            {
                VECTOR2I point( iterator->x, iterator->y );
 
                point -= aFootprint->GetPosition();
 
                if( is_first_point )
                {
                    startpoint = point;
                    is_first_point = false;
                }
 
                mainPolygon->AppendPoint( mapPt( point ) );
 
                // this was the end of the main polygon
                if( iterator.IsEndContour() )
                {
                    mainPolygon->AppendPoint( mapPt( startpoint ) );
                    break;
                }
            }
 
            WINDOW* window = nullptr;
            PATH*   cutout = nullptr;
            bool    isStartContour = true;
 
            // handle the cutouts
            for( iterator++; iterator; iterator++ )
            {
                if( isStartContour )
                {
                    is_first_point = true;
                    window = new WINDOW( keepout );
                    keepout->AddWindow( window );
 
                    cutout = new PATH( window, T_polygon );
 
                    window->SetShape( cutout );
 
                    cutout->layer_id = m_layerIds[ m_kicadLayer2pcb[ layer ] ];
                }
 
                isStartContour = iterator.IsEndContour();
 
                wxASSERT( window );
                wxASSERT( cutout );
 
                VECTOR2I point( iterator->x, iterator->y );
 
                point -= aFootprint->GetPosition();
 
                if( is_first_point )
                {
                    startpoint = point;
                    is_first_point = false;
                }
 
                cutout->AppendPoint( mapPt( point ) );
 
                // Close the polygon
                if( iterator.IsEndContour() )
                    cutout->AppendPoint( mapPt( startpoint ) );
            }
        }
    }
 
    return image;
}
 
 
PADSTACK* SPECCTRA_DB::makeVia( int aCopperDiameter, int aDrillDiameter,
                                int aTopLayer, int aBotLayer )
{
    char        name[48];
    PADSTACK*   padstack = new PADSTACK();
    double      dsnDiameter = scale( aCopperDiameter );
 
    for( int layer=aTopLayer; layer<=aBotLayer; ++layer )
    {
        SHAPE* shape = new SHAPE( padstack );
 
        padstack->Append( shape );
 
        CIRCLE* circle = new CIRCLE( shape );
 
        shape->SetShape( circle );
 
        circle->SetDiameter( dsnDiameter );
        circle->SetLayerId( m_layerIds[layer] );
    }
 
    snprintf( name, sizeof( name ), "Via[%d-%d]_%.6g:%.6g_um",
              aTopLayer, aBotLayer, dsnDiameter,
              // encode the drill value into the name for later import
              IU2um( aDrillDiameter ) );
 
    name[ sizeof(name) - 1 ] = 0;
    padstack->SetPadstackId( name );
 
    return padstack;
}
 
 
PADSTACK* SPECCTRA_DB::makeVia( const PCB_VIA* aVia )
{
    PCB_LAYER_ID    topLayerNum;
    PCB_LAYER_ID    botLayerNum;
 
    aVia->LayerPair( &topLayerNum, &botLayerNum );
 
    int topLayer = m_kicadLayer2pcb[topLayerNum];
    int botLayer = m_kicadLayer2pcb[botLayerNum];
 
    if( topLayer > botLayer )
        std::swap( topLayer, botLayer );
 
    if( aVia->Padstack().Mode() == ::PADSTACK::MODE::NORMAL )
    {
        return makeVia( aVia->GetWidth( ::PADSTACK::ALL_LAYERS ), aVia->GetDrillValue(), topLayer,
                        botLayer );
    }
 
    PADSTACK*          padstack = new PADSTACK();
    std::ostringstream oss;
 
    oss << "Via[" << topLayer << '-' << botLayer << ']' << std::fixed << std::setprecision( 6 );
 
    for( int layer = topLayer; layer <= botLayer; ++layer )
    {
        ::PCB_LAYER_ID viaLayer = aVia->Padstack().EffectiveLayerFor( m_pcbLayer2kicad[layer] );
        double         dsnDiameter = scale( aVia->GetWidth( viaLayer ) );
 
        SHAPE* shape = new SHAPE( padstack );
 
        padstack->Append( shape );
 
        CIRCLE* circle = new CIRCLE( shape );
 
        shape->SetShape( circle );
 
        circle->SetDiameter( dsnDiameter );
        circle->SetLayerId( m_layerIds[layer] );
 
        oss << '_' << dsnDiameter;
    }
 
    // encode the drill value into the name for later import
    oss << ':' << IU2um( aVia->GetDrillValue() ) << "_um";
 
    padstack->SetPadstackId( oss.str().c_str() );
 
    return padstack;
}
 
 
void SPECCTRA_DB::fillBOUNDARY( BOARD* aBoard, BOUNDARY* boundary )
{
    for( int cnt = 0; cnt < m_brd_outlines.OutlineCount(); cnt++ )   // Should be one outline
    {
        PATH*  path = new PATH( boundary );
        boundary->paths.push_back( path );
        path->layer_id = "pcb";
 
        SHAPE_LINE_CHAIN& outline = m_brd_outlines.Outline( cnt );
 
        for( int ii = 0; ii < outline.PointCount(); ii++ )
        {
            VECTOR2I pos( outline.CPoint( ii ).x, outline.CPoint( ii ).y );
            path->AppendPoint( mapPt( pos ) );
        }
 
        // Close polygon:
        VECTOR2I pos0( outline.CPoint( 0 ).x, outline.CPoint( 0 ).y );
        path->AppendPoint( mapPt( pos0 ) );
 
        // Generate holes as keepout:
        for( int ii = 0; ii < m_brd_outlines.HoleCount( cnt ); ii++ )
        {
            // emit a signal layers keepout for every interior polygon left...
            KEEPOUT*    keepout = new KEEPOUT( nullptr, T_keepout );
            PATH*       poly_ko = new PATH( nullptr, T_polygon );
 
            keepout->SetShape( poly_ko );
            poly_ko->SetLayerId( "signal" );
            m_pcb->m_structure->m_keepouts.push_back( keepout );
 
            SHAPE_LINE_CHAIN& hole = m_brd_outlines.Hole( cnt, ii );
 
            for( int jj = 0; jj < hole.PointCount(); jj++ )
            {
                VECTOR2I pos( hole.CPoint( jj ).x, hole.CPoint( jj ).y );
                poly_ko->AppendPoint( mapPt( pos ) );
            }
 
            // Close polygon:
            VECTOR2I pos( hole.CPoint( 0 ).x, hole.CPoint( 0 ).y );
            poly_ko->AppendPoint( mapPt( pos ) );
        }
    }
}
 
 
// Specctra strings have no in-string escape, so a payload holding the quote delimiter would end
// the token early and desync the reader.  Only fold free-text fields that need no round-trip
static std::string sanitizeForDSNString( const wxString& aValue )
{
    wxString ret = aValue;
    ret.Replace( wxT( "\"" ), wxT( "''" ) );
    return TO_UTF8( ret );
}
 
 
void SPECCTRA_DB::FromBOARD( BOARD* aBoard )
{
    std::shared_ptr<NET_SETTINGS>& netSettings = aBoard->GetDesignSettings().m_NetSettings;
 
    // Component ids must be unique for the session file to round-trip, but empty and duplicate
    // references (unannotated REF** fiducials, intentional duplicates) are common, so uniquify
    // rather than refuse the export.  Exported DSN defaults to case-insensitive ids, so fold case
    // when checking for collisions.
    std::map<FOOTPRINT*, std::string> componentIds;
    {
        std::set<wxString> used;
 
        for( FOOTPRINT* footprint : aBoard->Footprints() )
        {
            wxString ref = footprint->GetReference();
 
            if( ref.IsEmpty() )
                ref = wxT( "REF**" );
 
            wxString unique = ref;
 
            for( int suffix = 1; !used.insert( unique.Lower() ).second; ++suffix )
                unique = wxString::Format( wxT( "%s_%d" ), ref, suffix );
 
            componentIds[footprint] = TO_UTF8( unique );
        }
    }
 
    if( !m_pcb )
        m_pcb = SPECCTRA_DB::MakePCB();
 
    //-----<layer_descriptor>-----------------------------------------------
    {
        // Specctra wants top physical layer first, then going down to the bottom most physical
        // layer in physical sequence.
 
        buildLayerMaps( aBoard );
 
        int layerCount = aBoard->GetCopperLayerCount();
 
        for( int pcbNdx=0; pcbNdx<layerCount; ++pcbNdx )
        {
            LAYER* layer = new LAYER( m_pcb->m_structure );
 
            m_pcb->m_structure->m_layers.push_back( layer );
 
            layer->name = m_layerIds[pcbNdx];
 
            DSN_T layerType;
 
            switch( aBoard->GetLayerType( m_pcbLayer2kicad[pcbNdx] ) )
            {
            default:
            case LT_SIGNAL: layerType = T_signal;       break;
            case LT_POWER:  layerType = T_power;        break;
 
            // Freerouter does not support type "mixed", only signal and power.
            // Remap "mixed" to "signal".
            case LT_MIXED:  layerType = T_signal;       break;
            case LT_JUMPER: layerType = T_jumper;       break;
            }
 
            layer->layer_type = layerType;
 
            layer->properties.push_back( PROPERTY() );
            PROPERTY*   property = &layer->properties.back();
            property->name = "index";
            property->value = std::to_string( pcbNdx );
        }
    }
 
    // a space in a quoted token is NOT a terminator, true establishes this.
    m_pcb->m_parser->space_in_quoted_tokens = true;
 
    //-----<unit_descriptor> & <resolution_descriptor>--------------------
    {
        // Tell freerouter to use "tenths of micrometers", which is 100 nm resolution.  Possibly
        // more resolution is possible in freerouter, but it would need testing.
 
        m_pcb->m_unit->units = T_um;
        m_pcb->m_resolution->units  = T_um;
        m_pcb->m_resolution->value  = 10;       // tenths of a um
    }
 
    //-----<boundary_descriptor>------------------------------------------
    {
        // Because fillBOUNDARY() can throw an exception, we link in an empty boundary so the
        // BOUNDARY does not get lost in the event of of an exception.
        BOUNDARY* boundary = new BOUNDARY( nullptr );
 
        m_pcb->m_structure->SetBOUNDARY( boundary );
        fillBOUNDARY( aBoard, boundary );
    }
 
    //-----<rules>--------------------------------------------------------
    {
        char      rule[80];
        int       defaultTrackWidth = netSettings->GetDefaultNetclass()->GetTrackWidth();
        int       defaultClearance = netSettings->GetDefaultNetclass()->GetClearance();
        double    clearance         = scale( defaultClearance );
 
        std::vector<std::string>& rules = m_pcb->m_structure->m_rules->m_rules;
 
        std::snprintf( rule, sizeof( rule ), "(width %.6g)", scale( defaultTrackWidth ) );
        rules.push_back( rule );
 
        std::snprintf( rule, sizeof( rule ), "(clearance %.6g)", clearance );
        rules.push_back( rule );
 
        // Pad to pad spacing on a single SMT part can be closer than our clearance. We don't want
        // freerouter complaining about that, so output a significantly smaller pad to pad
        // clearance to freerouter.
        clearance = scale( defaultClearance ) / 4;
 
        std::snprintf( rule, sizeof( rule ), "(clearance %.6g (type smd_smd))", clearance );
        rules.push_back( rule );
    }
 
    //-----<zones (not keepout areas) become wiring polygons>-----------------------
    // Specctra treats (plane ...) as pins; export copper zones as (wire (polygon ...))
    // instead. Top-level polygon = fractured zone outline; windows = outline − fill.
    {
        int     netlessZones = 0;
        WIRING* wiring = m_pcb->m_wiring;
 
        auto appendClosedChain = [&]( PATH* aPath, const SHAPE_LINE_CHAIN& aChain )
        {
            if( aChain.PointCount() < 3 )
                return;
 
            for( int v = 0; v < aChain.PointCount(); v++ )
                aPath->AppendPoint( mapPt( aChain.CPoint( v ) ) );
 
            aPath->AppendPoint( mapPt( aChain.CPoint( 0 ) ) );
        };
 
        for( ZONE* zone : aBoard->Zones() )
        {
            if( zone->GetIsRuleArea() || !zone->IsOnCopperLayer() )
                continue;
 
            const SHAPE_POLY_SET* zoneOutline = zone->Outline();
            wxCHECK2( zoneOutline && zoneOutline->OutlineCount() > 0, continue );
 
            // Fracture the zone outline with potential cutouts to fit as top-level wire polygon.
            SHAPE_POLY_SET zoneOutlineFractured( *zoneOutline );
            zoneOutlineFractured.Fracture();
            wxCHECK2( zoneOutlineFractured.OutlineCount() == 1, continue );
 
            if( zoneOutlineFractured.FullPointCount() < 3 )
                continue;
 
            std::string netId = zone->GetNetname().utf8_string();
 
            if( netId.empty() )
            {
                NET* no_net = new NET( m_pcb->m_network );
                no_net->m_net_id = "@:no_net_" + std::to_string( netlessZones++ );
                m_pcb->m_network->m_nets.push_back( no_net );
                netId = no_net->m_net_id;
            }
 
            LSET layerset = zone->GetLayerSet() & LSET::AllCuMask( aBoard->GetCopperLayerCount() );
 
            for( PCB_LAYER_ID layer : layerset )
            {
                const std::string& layerId = m_layerIds[m_kicadLayer2pcb[layer]];
 
                WIRE* wire = new WIRE( wiring );
                wiring->wires.push_back( wire );
                wire->m_net_id = netId;
                wire->m_wire_type = T_protect;
 
                PATH* mainPolygon = new PATH( wire, T_polygon );
                wire->SetShape( mainPolygon );
                mainPolygon->layer_id = layerId;
                appendClosedChain( mainPolygon, zoneOutlineFractured.COutline( 0 ) );
 
                SHAPE_POLY_SET* zoneFill = zone->GetFill( layer );
 
                if( !zoneFill || zoneFill->IsEmpty() )
                    continue;
 
                SHAPE_POLY_SET fill( *zoneFill );
                fill.Unfracture();
 
                SHAPE_POLY_SET cutouts( *zoneOutline );
                cutouts.BooleanSubtract( fill );
 
                for( int c = 0; c < cutouts.OutlineCount(); c++ )
                {
                    const SHAPE_LINE_CHAIN& hole = cutouts.COutline( c );
 
                    if( hole.PointCount() < 3 )
                        continue;
 
                    WINDOW* window = new WINDOW( wire );
                    wire->AddWindow( window );
 
                    PATH* cutout = new PATH( window, T_polygon );
                    window->SetShape( cutout );
                    cutout->layer_id = layerId;
                    appendClosedChain( cutout, hole );
                }
            }
        }
    }
 
    //-----<zones flagged keepout areas become keepout>--------------------------------
    {
        for( ZONE* zone : aBoard->Zones() )
        {
            if( !zone->GetIsRuleArea() )
                continue;
 
            // Keepout areas have a type: T_place_keepout, T_via_keepout, T_wire_keepout,
            // T_bend_keepout, T_elongate_keepout, T_keepout.
            // Pcbnew knows only T_keepout, T_via_keepout and T_wire_keepout
            DSN_T keepout_type;
 
            if( zone->GetDoNotAllowVias() && zone->GetDoNotAllowTracks() )
                keepout_type = T_keepout;
            else if( zone->GetDoNotAllowVias() )
                keepout_type = T_via_keepout;
            else if( zone->GetDoNotAllowTracks() )
                keepout_type = T_wire_keepout;
            else
                keepout_type = T_keepout;
 
            // Now, build keepout polygon on each copper layer where the zone
            // keepout is living (keepout zones can live on many copper layers)
            LSET layerset = zone->GetLayerSet() & LSET::AllCuMask( aBoard->GetCopperLayerCount() );
 
            for( PCB_LAYER_ID layer : layerset )
            {
                KEEPOUT*   keepout = new KEEPOUT( m_pcb->m_structure, keepout_type );
                m_pcb->m_structure->m_keepouts.push_back( keepout );
 
                PATH* mainPolygon = new PATH( keepout, T_polygon );
                keepout->SetShape( mainPolygon );
 
                mainPolygon->layer_id = m_layerIds[ m_kicadLayer2pcb[ layer ] ];
 
                // Handle the main outlines
                SHAPE_POLY_SET::ITERATOR iterator;
                bool                     is_first_point = true;
                VECTOR2I                 startpoint;
 
                for( iterator = zone->IterateWithHoles(); iterator; iterator++ )
                {
                    VECTOR2I point( iterator->x, iterator->y );
 
                    if( is_first_point )
                    {
                        startpoint = point;
                        is_first_point = false;
                    }
 
                    mainPolygon->AppendPoint( mapPt( point ) );
 
                    // this was the end of the main polygon
                    if( iterator.IsEndContour() )
                    {
                        mainPolygon->AppendPoint( mapPt( startpoint ) );
                        break;
                    }
                }
 
                WINDOW* window = nullptr;
                PATH*   cutout = nullptr;
 
                bool isStartContour = true;
 
                // handle the cutouts
                for( iterator++; iterator; iterator++ )
                {
                    if( isStartContour )
                    {
                        is_first_point = true;
                        window = new WINDOW( keepout );
                        keepout->AddWindow( window );
 
                        cutout = new PATH( window, T_polygon );
                        window->SetShape( cutout );
                        cutout->layer_id = m_layerIds[ m_kicadLayer2pcb[ layer ] ];
                    }
 
                    isStartContour = iterator.IsEndContour();
 
                    wxASSERT( window );
                    wxASSERT( cutout );
 
                    VECTOR2I point( iterator->x, iterator->y );
 
                    if( is_first_point )
                    {
                        startpoint = point;
                        is_first_point = false;
                    }
 
                    cutout->AppendPoint( mapPt(point) );
 
                    // Close the polygon
                    if( iterator.IsEndContour() )
                        cutout->AppendPoint( mapPt( startpoint ) );
                }
            }
        }
    }
 
    //-----<build the images, components, and netlist>-----------------------
    {
        PIN_REF             empty( m_pcb->m_network );
        std::string         componentId;
        int                 highestNetCode = 0;
        const NETINFO_LIST& netInfo = aBoard->GetNetInfo();
 
        // find the highest numbered netCode within the board.
        for( NETINFO_LIST::iterator i = netInfo.begin(); i != netInfo.end(); ++i )
            highestNetCode = std::max( highestNetCode, i->GetNetCode() );
 
        deleteNETs();
 
        // expand the net vector to highestNetCode+1, setting empty to NULL
        m_nets.resize( highestNetCode + 1, nullptr );
 
        for( unsigned i = 1 /* skip "No Net" at [0] */; i < m_nets.size(); ++i )
            m_nets[i] = new NET( m_pcb->m_network );
 
        for( NETINFO_LIST::iterator i = netInfo.begin(); i != netInfo.end(); ++i )
        {
            if( i->GetNetCode() > 0 )
                m_nets[i->GetNetCode()]->m_net_id = sanitizeForDSNString( i->GetNetname() );
        }
 
        m_padstackset.clear();
 
        for( FOOTPRINT* footprint : aBoard->Footprints() )
        {
            IMAGE* image = makeIMAGE( aBoard, footprint );
 
            componentId = componentIds[footprint];
 
            // Create a net list entry for all the actual pins in the current footprint.
            // Location of this code is critical because we fabricated some pin names to ensure
            // unique-ness within a footprint, and the life of this 'IMAGE* image' is not
            // necessarily long.  The exported netlist will have some fabricated pin names in it.
            // If you don't like fabricated pin names, then make sure all pads within your
            // FOOTPRINTs are uniquely named!
            for( PIN& pin : image->m_pins )
            {
                int  netcode = pin.m_kiNetCode;
 
                if( netcode > 0 )
                {
                    NET* net = m_nets[netcode];
 
                    net->m_pins.push_back( empty );
 
                    PIN_REF& pin_ref = net->m_pins.back();
 
                    pin_ref.component_id = componentId;
                    pin_ref.pin_id = pin.m_pin_id;
                }
            }
 
            IMAGE* registered = m_pcb->m_library->LookupIMAGE( image );
 
            if( registered != image )
            {
                // If our new 'image' is not a unique IMAGE, delete it.
                // and use the registered one, known as 'image' after this.
                delete image;
                image = registered;
            }
 
            COMPONENT*  comp = m_pcb->m_placement->LookupCOMPONENT( image->GetImageId() );
            PLACE*      place = new PLACE( comp );
 
            comp->m_places.push_back( place );
 
            place->SetRotation( footprint->GetOrientationDegrees() );
            place->SetVertex( mapPt( footprint->GetPosition() ) );
            place->m_component_id = componentId;
            place->m_part_number  = sanitizeForDSNString( footprint->GetValue() );
 
            // footprint is flipped from bottom side, set side to T_back
            if( footprint->GetFlag() )
            {
                EDA_ANGLE angle = ANGLE_180 - footprint->GetOrientation();
                place->SetRotation( angle.Normalize().AsDegrees() );
 
                place->m_side = T_back;
            }
        }
 
        // copy the SPECCTRA_DB::padstackset to the LIBRARY.  Since we are
        // removing, do not increment the iterator
        for( auto i = m_padstackset.begin(); i != m_padstackset.end(); i = m_padstackset.begin() )
        {
            boost::ptr_set<PADSTACK>::auto_type ps = m_padstackset.release( i );
            PADSTACK* padstack = ps.release();
 
            m_pcb->m_library->AddPadstack( padstack );
        }
 
        // copy our SPECCTRA_DB::nets to the pcb->network
        for( unsigned n = 1; n < m_nets.size(); ++n )
        {
            NET* net = m_nets[n];
 
            if( net->m_pins.size() )
            {
                // give ownership to pcb->network
                m_pcb->m_network->m_nets.push_back( net );
                m_nets[n] = nullptr;
            }
        }
    }
 
    // Create a list of all in-use non-default netclasses
    std::unordered_map<wxString, NETCLASS*> netclassesInUse;
 
    for( NETINFO_ITEM* net : aBoard->GetNetInfo() )
    {
        NETCLASS*       netclass = net->GetNetClass();
        const wxString& name = netclass->GetName();
 
        // Don't add the default netclass
        if( name == NETCLASS::Default )
            continue;
 
        if( !netclassesInUse.contains( name ) )
            netclassesInUse[name] = netclass;
    }
 
    //-----< output vias used in netclasses >-----------------------------------
    {
        // Assume the netclass vias are all the same kind of thru, blind, or buried vias.
        // This is in lieu of either having each netclass via have its own layer pair in
        // the netclass dialog, or such control in the specctra export dialog.
 
        m_top_via_layer = 0;       // first specctra cu layer is number zero.
        m_bot_via_layer = aBoard->GetCopperLayerCount()-1;
 
        // Add the via from the Default netclass first.  The via container
        // in pcb->library preserves the sequence of addition.
 
        PADSTACK* via = makeVia( netSettings->GetDefaultNetclass()->GetViaDiameter(),
                                 netSettings->GetDefaultNetclass()->GetViaDrill(), m_top_via_layer,
                                 m_bot_via_layer );
 
        // we AppendVia() this first one, there is no way it can be a duplicate,
        // the pcb->library via container is empty at this point.  After this,
        // we'll have to use LookupVia().
        wxASSERT( m_pcb->m_library->m_vias.size() == 0 );
        m_pcb->m_library->AppendVia( via );
 
        // set the "spare via" index at the start of the
        // pcb->library->spareViaIndex = pcb->library->vias.size();
 
        // output the non-Default netclass vias
        for( const auto& [name, netclass] : netclassesInUse )
        {
            via = makeVia( netclass->GetViaDiameter(), netclass->GetViaDrill(), m_top_via_layer, m_bot_via_layer );
 
            // maybe add 'via' to the library, but only if unique.
            PADSTACK* registered = m_pcb->m_library->LookupVia( via );
 
            if( registered != via )
                delete via;
        }
    }
 
    //-----<create the wires from tracks>-----------------------------------
    {
        // One Specctra wire per KiCad track/arc segment, always exactly two path points.
        // FreeRouting may have issues normalizing multi-point (polyline) wires
        // that share endpoints
        WIRING* wiring = m_pcb->m_wiring;
 
        for( PCB_TRACK* track : aBoard->Tracks() )
        {
            if( !track->IsType( { PCB_TRACE_T, PCB_ARC_T } ) )
                continue;
 
            int netcode = track->GetNetCode();
 
            if( netcode == 0 )
                continue;
 
            NETINFO_ITEM* net = aBoard->FindNet( netcode );
            wxASSERT( net );
 
            WIRE* wire = new WIRE( wiring );
 
            wiring->wires.push_back( wire );
            wire->m_net_id = TO_UTF8( net->GetNetname() );
 
            if( track->IsLocked() )
                wire->m_wire_type = T_fix; // tracks with fix property are not returned in .ses files
            else
                wire->m_wire_type = T_protect;
 
            PCB_LAYER_ID kiLayer = track->GetLayer();
            int          pcbLayer = m_kicadLayer2pcb[kiLayer];
 
            PATH* path = new PATH( wire );
            wire->SetShape( path );
            path->layer_id = m_layerIds[pcbLayer];
            path->aperture_width = scale( track->GetWidth() );
            path->AppendPoint( mapPt( track->GetStart() ) );
            path->AppendPoint( mapPt( track->GetEnd() ) );
        }
    }
 
    //-----<export the existing real BOARD instantiated vias>-----------------
    {
        // Export all vias, once per unique size and drill diameter combo.
        for( PCB_TRACK* track : aBoard->Tracks() )
        {
            if( track->Type() != PCB_VIA_T )
                continue;
 
            PCB_VIA* via = static_cast<PCB_VIA*>( track );
            int      netcode = via->GetNetCode();
 
            if( netcode == 0 )
                continue;
 
            PADSTACK*   padstack    = makeVia( via );
            PADSTACK*   registered  = m_pcb->m_library->LookupVia( padstack );
 
            // if the one looked up is not our padstack, then delete our padstack
            // since it was a duplicate of one already registered.
            if( padstack != registered )
                delete padstack;
 
            WIRE_VIA* dsnVia = new WIRE_VIA( m_pcb->m_wiring );
 
            m_pcb->m_wiring->wire_vias.push_back( dsnVia );
 
            dsnVia->m_padstack_id = registered->m_padstack_id;
            dsnVia->m_vertexes.push_back( mapPt( via->GetPosition() ) );
 
            NETINFO_ITEM* net = aBoard->FindNet( netcode );
            wxASSERT( net );
 
            dsnVia->m_net_id = TO_UTF8( net->GetNetname() );
 
            if( via->IsLocked() )
                dsnVia->m_via_type = T_fix;    // vias with fix property are not returned in .ses files
            else
                dsnVia->m_via_type = T_protect;
        }
    }
 
    //-----<via_descriptor>-------------------------------------------------
    {
        // The pcb->library will output <padstack_descriptors> which is a combined list of part
        // padstacks and via padstacks.  specctra dsn uses the <via_descriptors> to say which of
        // those padstacks are vias.
 
        // Output the vias in the padstack list here, by name only.  This must be done after
        // exporting existing vias as WIRE_VIAs.
        VIA* vias = m_pcb->m_structure->m_via;
 
        for( unsigned viaNdx = 0; viaNdx < m_pcb->m_library->m_vias.size(); ++viaNdx )
            vias->AppendVia( m_pcb->m_library->m_vias[viaNdx].m_padstack_id.c_str() );
    }
 
    //-----<output NETCLASSs>----------------------------------------------------
 
    // Export netclass info
    exportNETCLASS( netSettings->GetDefaultNetclass().get(), aBoard );
 
    for( const auto& [name, netclass] : netclassesInUse )
        exportNETCLASS( netclass, aBoard );
}
 
 
void SPECCTRA_DB::exportNETCLASS( const NETCLASS* aNetClass, const BOARD* aBoard )
{
    /*  From page 11 of specctra spec:
     *
     *   Routing and Placement Rule Hierarchies
     *
     *   Routing and placement rules can be defined at multiple levels of design
     *   specification. When a routing or placement rule is defined for an object at
     *   multiple levels, a predefined routing or placement precedence order
     *   automatically determines which rule to apply to the object. The routing rule
     *   precedence order is
     *
     *       pcb < layer < class < class layer < group_set < group_set layer < net <
     *       net layer < group < group layer < fromto < fromto layer < class_class <
     *       class_class layer < padstack < region < class region < net region <
     *       class_class region
     *
     *   A pcb rule (global rule for the PCB design) has the lowest precedence in the
     *   hierarchy. A class-to-class region rule has the highest precedence. Rules
     *   set at one level of the hierarchy override conflicting rules set at lower
     *   levels. The placement rule precedence order is
     *
     *       pcb < image_set < image < component < super cluster < room <
     *       room_image_set < family_family < image_image
     *
     *   A pcb rule (global rule for the PCB design) has the lowest precedence in the
     *   hierarchy. An image-to-image rule has the highest precedence. Rules set at
     *   one level of the hierarchy override conflicting rules set at lower levels.
     */
 
    char    text[256];
 
    CLASS*  clazz = new CLASS( m_pcb->m_network );
 
    m_pcb->m_network->m_classes.push_back( clazz );
 
    clazz->m_class_id = TO_UTF8( aNetClass->GetName() );
 
    for( NETINFO_ITEM* net : aBoard->GetNetInfo() )
    {
        if( net->GetNetClass()->GetName() == clazz->m_class_id )
            clazz->m_net_ids.push_back( TO_UTF8( net->GetNetname() ) );
    }
 
    clazz->m_rules = new RULE( clazz, T_rule );
 
    // output the track width.
    if( aNetClass->HasTrackWidth() )
    {
        int trackWidth = aNetClass->GetTrackWidth();
        std::snprintf( text, sizeof( text ), "(width %.6g)", scale( trackWidth ) );
        clazz->m_rules->m_rules.push_back( text );
    }
 
    // output the clearance.
    if( aNetClass->HasClearance() )
    {
        int clearance = aNetClass->GetClearance();
        std::snprintf( text, sizeof( text ), "(clearance %.6g)", scale( clearance ) );
        clazz->m_rules->m_rules.push_back( text );
    }
 
    // Freerouter creates a class named 'default' anyway, and if we try to use that we end up
    // with two 'default' via rules so use something else as the name of our default class.
    if( aNetClass->GetName() == NETCLASS::Default )
        clazz->m_class_id = "kicad_default";
 
    // The easiest way to get the via name is to create a temporary via (which generates the
    // name internal to the PADSTACK), and then grab the name and delete the via.  There are not
    // that many netclasses so this should never become a performance issue.
 
    PADSTACK* via = makeVia( aNetClass->GetViaDiameter(), aNetClass->GetViaDrill(),
                             m_top_via_layer, m_bot_via_layer );
 
    snprintf( text, sizeof( text ), "(use_via \"%s\")", via->GetPadstackId().c_str() );
    clazz->m_circuit.push_back( text );
 
    delete via;
}
 
 
void SPECCTRA_DB::FlipFOOTPRINTs( BOARD* aBoard )
{
    // DSN Images (=KiCad FOOTPRINTs and PADs) must be presented from the top view.
    // Note: to export footprints, the footprints must be flipped around the X axis, otherwise
    // the rotation angle is not good.
    for( FOOTPRINT* footprint : aBoard->Footprints() )
    {
        footprint->SetFlag( 0 );
 
        if( footprint->GetLayer() == B_Cu )
        {
            footprint->Flip( footprint->GetPosition(), FLIP_DIRECTION::TOP_BOTTOM );
            footprint->SetFlag( 1 );
        }
    }
 
    m_footprintsAreFlipped = true;
}
 
 
void SPECCTRA_DB::RevertFOOTPRINTs( BOARD* aBoard )
{
    if( !m_footprintsAreFlipped )
        return;
 
    // DSN Images (=KiCad FOOTPRINTs and PADs) must be presented from the
    // top view.  Restore those that were flipped.
    // Note: to export footprints, the footprints were flipped around the X axis,
    for( FOOTPRINT* footprint : aBoard->Footprints() )
    {
        if( footprint->GetFlag() )
        {
            footprint->Flip( footprint->GetPosition(), FLIP_DIRECTION::TOP_BOTTOM );
            footprint->SetFlag( 0 );
        }
    }
 
    m_footprintsAreFlipped = false;
}
 
} // namespace DSN