1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
/*
* gEDA - GNU Electronic Design Automation
* This file is a part of gerbv.
*
* Copyright (C) 2008 Julian Lamb
*
* $Id$
*
* 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, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
*/
/** \file export-drill.c
\brief Functions for exporting gerbv images to Excellon drill files
\ingroup libgerbv
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <glib.h>
#include <math.h>
#include <glib/gstdio.h>
#include "gerbv.h"
/* DEBUG printing. #define DEBUG 1 in config.h to use this fcn. */
#define dprintf if(DEBUG) printf
#define round(x) floor(x+0.5)
gboolean
gerbv_export_drill_file_from_image (gchar *filename, gerbv_image_t *inputImage,
gerbv_user_transformation_t *transform) {
FILE *fd;
GArray *apertureTable = g_array_new(FALSE,FALSE,sizeof(int));
gerbv_net_t *currentNet;
if ((fd = g_fopen(filename, "w")) == NULL) {
GERB_MESSAGE("Can't open file for writing: %s\n", filename);
return FALSE;
}
/* duplicate the image, cleaning it in the process */
gerbv_image_t *image = gerbv_image_duplicate_image (inputImage, transform);
/* write header info */
fprintf(fd, "M48\n");
fprintf(fd, "INCH,TZ\n");
/* define all apertures */
gerbv_aperture_t *currentAperture;
gint i;
/* the image should already have been cleaned by a duplicate_image call, so we can safely
assume the aperture range is correct */
for (i=APERTURE_MIN; i<APERTURE_MAX; i++) {
currentAperture = image->aperture[i];
if (!currentAperture)
continue;
switch (currentAperture->type) {
case GERBV_APTYPE_CIRCLE:
fprintf(fd, "T%dC%1.3f\n",i,currentAperture->parameter[0]);
/* add the "approved" aperture to our valid list */
g_array_append_val (apertureTable, i);
break;
default:
break;
}
}
fprintf(fd, "%%\n");
/* write rest of image */
for (i=0; i<apertureTable->len; i++) {
int currentAperture=g_array_index (apertureTable, int, i);
/* write tool change */
fprintf(fd, "T%d\n",currentAperture);
/* run through all nets and look for drills using this aperture */
for (currentNet = image->netlist; currentNet; currentNet = currentNet->next){
if ((currentNet->aperture == currentAperture)&&(currentNet->aperture_state == GERBV_APERTURE_STATE_FLASH)) {
long xVal,yVal;
xVal = (long) round(currentNet->stop_x * 10000.0);
yVal = (long) round(currentNet->stop_y * 10000.0);
fprintf(fd, "X%06ldY%06ld\n",xVal,yVal);
}
}
}
g_array_free (apertureTable, TRUE);
/* write footer */
fprintf(fd, "M30\n\n");
gerbv_destroy_image (image);
fclose(fd);
return TRUE;
}
|
