"
"This ULP generates a SCRIPT file that draws rectangles of successional pixels with identical color.
"
"These rectangles serve as templates in order to draw the image with EAGLE commands like POLYGON, WIRE, CIRCLE, TEXT.
"
"
"
"Das ULP erzeugt eine SCRIPT-Datei, in der zusammenhängende gleichfarbige Pixel als Rechteck generiert werden.
"
"Diese Rechtecke dienen als Vorlage, um das Bild mit EAGLE-Werkzeugen wie POLYGON, WIRE, CIRLE, TEXT zu definieren.
"
"
is a %.0f color BitMAP : ist eine %.0f-Farben-BitMAP
";
break;
case 1 : ratiologo = "
";
break;
case 2 : ratiologo = "
";
break;
}
switch (unit) {
case 0 : menuinfo = menuval0[scaled];
break;
case 1 : menuinfo = menuval1[scaled];
break;
case 2 : menuinfo = menuval2[scaled];
break;
case 3 : menuinfo = menuval3[scaled];
break;
}
return ;
}
//---------------------------------
void set_scale(void) {
switch(scaled) {
case 0 : Grid = grid[0];
yScale = 1 / xScale; // Dots Per Inch
xScale = yScale;
break;
case 1 : Grid = Grid = grid[unit];
yScale = xScale;
break;
case 2 : Grid = Grid = grid[unit];
yScale = xScale / X; // Aspect Ratio = Width / Pixel X
xScale = yScale;
break;
}
return;
}
void imp_bmp(void) {
colorscan = 0; // reset scanning mode
menuinfo = "Dot scale";
scriptheader();
GenScript(); // generate script string
printf("SET UNDO_LOG ON;\n");
printf("WINDOW FIT;\n");
printf( "Change Size %.4f;\n", yScale * 2);
printf("CHANGE FONT VECTOR;\n");
printf( "TEXT '" + fileName + "' (0 %.4f);\n", -5 * yScale );
return;
}
void runscript(void) {
string script;
int s = fileread(script, script_path + "bmp.scr");
Result = dlgDialog("Accept Script?") {
dlgHBoxLayout dlgSpacing(300);
dlgHBoxLayout {
dlgVBoxLayout dlgSpacing(300);
dlgTextEdit(script);
}
dlgLabel(" ULP-Version " + Version);
dlgHBoxLayout {
dlgStretch(0);
dlgPushButton("+Run script") dlgAccept();
dlgStretch(1);
dlgPushButton("-Cancel") dlgReject();
dlgStretch(0);
}
};
if (Result == 1) exit ("script '" + script_path + "bmp.scr'");
else exit (0);
}
void showbmp() {
if ( X <= 1280 && Y <= 1280) {
dlgDialog("File:'" + fileName + "'") {
dlgLabel("";
// bmpcolor[1] = "
";
// bmpcolor[4] = "
";
bmpcolor[8] = "
";
// bmps[0] = "
";
// bmps[1] = "
";
// bmps[2] = "
";
// bmps[3] = "
",
// bmps[4] = "
";
// bmps[5] = "
";
// bmps[6] = "
";
// bmps[7] = "
";
fileName = dlgFileOpen("Select a bmp file", "", "*.bmp");
if (fileName == "") exit (0);
run_info = "Import File : " + filename(fileName);
nBytes = fileread(c, fileName); // read file in array
// up to 31 bytes - not all used
if(c[0] != 'B') {
dlgMessageBox(fileName + ":\nis not a bmp file.\n\nist keine bmp-Datei.", "OK");
exit(0);
}
if(c[1] != 'M') {
dlgMessageBox(fileName + ":\nis not a bmp file.\n\nist keine bmp-Datei.", "OK");
exit(0);
}
if(c[21] > 0) {
dlgMessageBox(fileName + ":\nToo many pixels in x direction\n"
+ "\nAnzahl der Pixel in X zu gross\n", "OK");
exit (0);
}
if(c[25] > 0) {
dlgMessageBox(fileName + ":\nToo many pixels y direction\n"
+ "\nAnzahl der Pixel in Y zu gross\n", "OK");
exit (0);
}
// case 6 TO 9, 14 TO 17 not used
ColorBits = c[28]; // counter of ColorBits
if(ColorBits > 8) {
colors24(); // to many colors, break
exit(0);
}
AdrEnd = c[2] + c[3] * 256 + c[4] * 256 * 256 + c[5] * 256 * 256 * 256;
AdrStart = c[10]+ c[11] * 256 + c[12] * 256 * 256 + c[13] * 256 * 256 * 256;
X = c[18] + c[19] * 256 + c[20] * 65536 + c[21] * 256 * 256 * 256;
Y = c[22] + c[23] * 256 + c[24] * 65536 + c[25] * 256 * 256 * 256;
sprintf(xy, " X = %5d Pixel\n Y = %5d Pixel", X, Y);
length = AdrEnd - AdrStart; // BitMaP length
Byte4Group = length / Y / 4;
/*** 2007.03.30 Coral-Draw sets wrong address range in Byte upper Byte 18 (22 = $14) ***/
if (X > length || Y > length) {
dlgMessageBox("!BitMaP Format Error in Adress-Range (Byte 18+19+20 and 22+23+24) from:\n" + fileName +
"\n\nCheck this bytes or load the BMP-File in Windows Paint-Brush and save it.",
"OK");
exit(-1);
}
if(scan()) { // first scan used colors
colorscan = 1;
GenScript();
}
selectMenue();
//---------------------------------
int d = 1;
while(d) {
dlgDialog("Info "+ fileName) {
dlgLabel(" ULP-Version " + Version);
dlgHBoxLayout {
dlgVBoxLayout {
dlgGroup("File data") {
dlgLabel(xy, 1);
}
dlgLabel(ratiologo, 1);
dlgStretch(1);
}
dlgVBoxLayout {
dlgGroup("Format") {
dlgRadioButton("&DPI", scaled) { unit = 0; menuchange(); }
dlgRadioButton("&Scaled", scaled) {menuchange(); }
dlgRadioButton("&Aspect/Ratio m ", scaled) { menuchange(); }
}
dlgGroup("Unit") {
dlgRadioButton("&Inch", unit) { menuchange(); dlgRedisplay();}
dlgRadioButton("Mi&l", unit) { if ( scaled == 0) scaled = 1; menuchange(); }
dlgRadioButton("&MM", unit) { if ( scaled == 0) scaled = 1; menuchange(); }
dlgRadioButton("Mi&cron", unit) { if ( scaled == 0) scaled = 1; menuchange(); }
}
dlgPushButton("S&elected colors") selectMenue();
dlgStretch(1);
}
}
dlgHBoxLayout {
dlgVBoxLayout {
dlgLabel(menulbl, 1);
dlgLabel(menuinfo, 1);
dlgHBoxLayout {
dlgRealEdit(xScale, vmin[unit], vmax[unit]);
dlgSpacing(100);
}
dlgSpacing(10);
dlgLabel("Choose start layer for &1st selected color");
dlgHBoxLayout {
dlgSpinBox(Layer, 1, 255);
dlgSpacing(100);
}
}
dlgStretch(1);
}
dlgStretch(1);
dlgLabel(run_info, 1);
dlgHBoxLayout {
dlgPushButton("+OK") {
set_scale();
if (check_max()) { // check of maximum EAGLE coodinates
dlgAccept();
output(script_path + "bmp.scr", "wtD") {
d = 0;
imp_bmp();
}
runscript();
}
}
dlgStretch(1);
dlgPushButton("-Cancel") exit(0);
dlgPushButton("show &BitMaP") showbmp();
}
};
}
}