Commit 1bf6c604 authored by Jan Kasprzak's avatar Jan Kasprzak
Browse files

Makefile: panelized design for 5x5cm fab

parent 6d789ebc
...@@ -2,13 +2,13 @@ WEB_DIR=/home/kas/html/tinyboard/ ...@@ -2,13 +2,13 @@ WEB_DIR=/home/kas/html/tinyboard/
WEB_FILES=pcb-back.png pcb-front.png schematics.png schematics-power.png \ WEB_FILES=pcb-back.png pcb-front.png schematics.png schematics-power.png \
schematics-pin.png schematics-pin.png
GERBER_FILES=\ GERBER_FILES=\
tinyboard.top.gbr \ tinyboard-panel.top.gbr \
tinyboard.bottom.gbr \ tinyboard-panel.bottom.gbr \
tinyboard.topmask.gbr \ tinyboard-panel.topmask.gbr \
tinyboard.bottommask.gbr \ tinyboard-panel.bottommask.gbr \
tinyboard.topsilk.gbr \ tinyboard-panel.topsilk.gbr \
tinyboard.bottomsilk.gbr \ tinyboard-panel.bottomsilk.gbr \
tinyboard.plated-drill.cnc tinyboard-panel.plated-drill.cnc
all: all:
@echo "Usage: make [clean|web|gerber|fab|tinyboard.pcb]" @echo "Usage: make [clean|web|gerber|fab|tinyboard.pcb]"
...@@ -43,18 +43,18 @@ schematics-pin.png: schematics.png ...@@ -43,18 +43,18 @@ schematics-pin.png: schematics.png
gerber: $(GERBER_FILES) gerber: $(GERBER_FILES)
$(GERBER_FILES): tinyboard.pcb $(GERBER_FILES): tinyboard-panel.pcb
pcb -x gerber tinyboard.pcb pcb -x gerber tinyboard-panel.pcb
fab: $(GERBER_FILES) fab: $(GERBER_FILES)
@sh -c 'D=tinyboard-`date +\%Y\%m\%d-\%H\%M` && mkdir $$D && \ @sh -c 'D=tinyboard-`date +\%Y\%m\%d-\%H\%M` && mkdir $$D && \
cp tinyboard.top.gbr $$D/tinyboard.gtl && \ cp tinyboard-panel.top.gbr $$D/tinyboard.gtl && \
cp tinyboard.bottom.gbr $$D/tinyboard.gbl && \ cp tinyboard-panel.bottom.gbr $$D/tinyboard.gbl && \
cp tinyboard.topmask.gbr $$D/tinyboard.gts && \ cp tinyboard-panel.topmask.gbr $$D/tinyboard.gts && \
cp tinyboard.bottommask.gbr $$D/tinyboard.gbs && \ cp tinyboard-panel.bottommask.gbr $$D/tinyboard.gbs && \
cp tinyboard.topsilk.gbr $$D/tinyboard.gto && \ cp tinyboard-panel.topsilk.gbr $$D/tinyboard.gto && \
cp tinyboard.bottomsilk.gbr $$D/tinyboard.gbo && \ cp tinyboard-panel.bottomsilk.gbr $$D/tinyboard.gbo && \
cp tinyboard.plated-drill.cnc $$D/tinyboard.txt && \ cp tinyboard-panel.plated-drill.cnc $$D/tinyboard.txt && \
zip -r $$D.zip $$D && \ zip -r $$D.zip $$D && \
echo "Done. Output in $$D.zip."; \ echo "Done. Output in $$D.zip."; \
echo "You may also want to do git tag gerber-fab-$$D" ' echo "You may also want to do git tag gerber-fab-$$D" '
......
#!/usr/bin/perl
# -*- perl -*-
# Copyright 2006 DJ Delorie <dj@delorie.com>
# Released under the terms of the GNU General Public License, version 2
sub baseboard {
my ($file, $width, $height, $nbase) = @_;
if (! $nbase) {
$base = $file;
$base =~ s@.*/@@;
} else {
$base = $nbase;
}
$panelcopperlayers = ".*" unless $panelcopperlayers;
$pscript = "$base.pscript";
open(PS, ">$pscript");
push(@files_to_remove, "$base.pscript");
open(S, $file) || die("$file: $!");
$outname = "$base.panel.pcb";
$outname =~ s/pnl\.panel\.pcb/pcb/;
open(O, ">$outname");
while (<S>) {
if (/PCB\[.* (\S+) (\S+)\]/) {
s/ (\S+) (\S+)\]/ $width $height\]/;
}
s/Cursor\[.*\]/Cursor[0 0 0.0]/;
if (/^Flags/) {
s/,uniquename,/,/;
s/,uniquename//;
s/uniquename,//;
}
next if /\b(Via|Pin|Pad|ElementLine|Line|Arc|ElementArc|Text)/;
if (/Polygon|Element/) {
$hole = 0;
while (<S>) {
$hole++ if /Hole \(/;
last if /^\s*\)\s*$/ && $hole <= 0;
$hole-- if /\)/;
}
next;
}
if (/Layer/) {
if (@panelvias) {
print O @panelvias;
@panelvias = ();
}
}
print O;
if (/Layer\((\d+) \"(.*)\"\)/) {
$lnum = $1;
$lname = $2;
print O scalar <S>;
print STDERR "layer $lnum $lname vs '$panelcopperlayers'\n";
if ($lnum =~ /$panelcopperlayers/ || $lname =~ /$panelcopperlayers/) {
print O @panelcopper;
}
}
}
close O;
close S;
print PS "LoadFrom(Layout,$outname)\n";
$ox = $oy = 0;
}
sub loadboard {
my ($file) = @_;
$seq = 1 + $seq;
open(S, $file);
open(O, ">temp-panel.$seq");
while (<S>) {
if (/PCB\[.* (\S+) (\S+)\]/) {
$width = &parseval($1);
$height = &parseval($2);
}
s/Cursor\[.*\]/Cursor[0 0 0.0]/;
print O;
}
close O;
close S;
print PS "LoadFrom(LayoutToBuffer,temp-panel.$seq)\n";
push(@files_to_remove, "temp-panel.$seq");
}
sub opaste {
$vx = $ox;
$vy = $oy + $height;
print PS "PasteBuffer(ToLayout,$ox,$oy)\n";
$ox += $width;
$oy = 0;
}
sub vpaste {
print PS "PasteBuffer(ToLayout,$vx,$vy)\n";
$vy += $height;
}
sub done {
print PS "SaveTo(LayoutAs,$outname)\n";
print PS "Quit()\n";
close PS;
system "set -x; pcb --action-script $pscript";
#system "pcb -x ps $base.panel.pcb";
#unlink @files_to_remove;
}
sub parseval {
my ($v) = @_;
if ($v =~ /mil/) {
$v *= 100;
}
if ($v =~ /mm/) {
$v *= 3937.007874015748;
}
return 0 + $v;
}
1;
#!/usr/bin/perl
# -*- perl -*-
# Copyright 2006 DJ Delorie <dj@delorie.com>
# Released under the terms of the GNU General Public License, version 2
if (! @ARGV) {
print "Usage: pcb2panel board1.pcb board2.pcb board3.pcb > boards.pcb";
print "Then edit boards.pcb, putting each outline where you want it\n";
print "and sizing the board. Then:\n";
print "panel2pcb [-l regex] boards.pcb\n";
print "and edit/print boards.panel.pcb\n";
exit 0;
}
$mydir = $0;
if ($mydir =~ m@/@) {
$mydir =~ s@[^/]*$@@;
} else {
$mydir = ".";
}
require "$mydir/panel.pl";
$panel = shift;
if ($panel eq "-l") {
$panelcopperlayers = shift;
$panel = shift;
}
open(P, $panel);
while (<P>) {
if (/PCB\[.* (\S+) (\S+)\]/) {
$panel_width = &parseval($1);
$panel_height = &parseval($2);
}
if (/Element\[\"[^\"]*\" \"([^\"]*)\" \"([^\"]*)\" \"([^\"]*)\" (\S+) (\S+)/) {
$pcb = $1;
$base = $2;
$value = $3;
$mx = &parseval($4);
$my = &parseval($5);
%pinx = ();
%piny = ();
}
if (/Pin\[(\S+) (\S+) \S+ \S+ \S+ \S+ \"(\d)\"/) {
$pinx{$3} = &parseval($1);
$piny{$3} = &parseval($2);
}
if ($pcb && /\)/) {
if ($pinx{'1'} < $pinx{'2'}) {
$rot = 0;
} elsif ($pinx{'1'} > $pinx{'2'}) {
$rot = 2;
} elsif ($piny{'1'} < $piny{'2'}) {
$rot = 3;
} elsif ($piny{'1'} > $piny{'2'}) {
$rot = 1;
}
push (@paste, "$pcb\0$rot\0$mx\0$my");
$pcb = undef;
}
if (/Via/) {
push (@panelvias, $_);
}
if (/^Layer\([^)]*\)$/) {
$junk = <P>; # The opening '('
while ($junk = <P>) {
last if $junk =~ /^\)/;
push (@panelcopper, $junk);
}
}
}
$tmp = "/tmp/panel$$.pcb";
$start = $paste[0];
$start =~ s/\0.*//;
$panel =~ s/\.pcb$//;
&baseboard($start, $panel_width, $panel_height, $panel);
$lastboard = undef;
for $paste (sort @paste) {
($pcb, $rot, $mx, $my) = split(/\0/, $paste);
if ($lastboard ne $pcb) {
&loadboard ($pcb);
$lastboard = $pcb;
$lastrot = 0;
}
while ($lastrot != $rot) {
print PS "PasteBuffer(Rotate,1)\n";
$lastrot = ($lastrot+1) % 4;
}
print PS "PasteBuffer(ToLayout,$mx,$my)\n";
}
&done();
#!/usr/bin/perl
# -*- perl -*-
# Copyright 2006 DJ Delorie <dj@delorie.com>
# Released under the terms of the GNU General Public License, version 2
$mydir = $0;
if ($mydir =~ m@/@) {
$mydir =~ s@[^/]*$@@;
} else {
$mydir = ".";
}
require "$mydir/panel.pl";
if (! @ARGV) {
print "Usage: pcb2panel board1.pcb board2.pcb board3.pcb > boards.pcb\n";
print "Then edit boards.pcb, putting each outline where you want it\n";
print "and sizing the board. Then:\n";
print "panel2pcb boards.pcb\n";
print "and edit/print boards.panel.pcb\n";
exit 0;
}
for $pcb (@ARGV) {
$base = $pcb;
$base =~ s@.*/@@;
$base =~ s@\.pcb$@@;
$base{$pcb} = $base;
push (@pcbs, $pcb);
open(PCB, $pcb);
while (<PCB>) {
if (/^PCB\[".*" (\S+) (\S+)\]/) {
$width{$pcb} = &parseval($1);
$height{$pcb} = &parseval($2);
printf STDERR "%s : %d x %d\n", $pcb, $width{$pcb}, $height{$pcb};
last;
}
}
$outline = '';
while (<PCB>) {
if (/Layer\(.*"outline"\)/) {
$junk = <PCB>; # open paren
while (<PCB>) {
last if /^\)/; # close paren
($args) = m@\[(.*)\]@;
($x1, $y1, $x2, $y2, $width) = split(' ', $args);
$outline .= " ElementLine[$x1 $y1 $x2 $y2 $width]\n";
}
}
}
push (@outlines, $outline);
close PCB;
}
$pw = 10000;
$ph = 0;
for $pcb (@pcbs) {
$pw += 10000;
$pw += $width{$pcb};
$ph = $height{$pcb} if $ph < $height{$pcb};
}
$ph += 20000;
print "PCB[\"\" $pw $ph]\n";
print "Grid[10000.0 0 0 1]\n";
print "DRC[799 799 800 100 1500 800]\n";
print "Groups(\"1,c:2,s\")\n"; #"
$x = 10000;
$y = 10000;
for ($i=0; $i<@pcbs; $i++) {
$pcb = $pcbs[$i];
$outline = $outlines[$i];
$desc = $pcb;
$name = $base{$pcb};
$value = "$width{$pcb} x $height{$pcb}";
$w = $width{$pcb};
$h = $height{$pcb};
print "Element[\"\" \"$desc\" \"$name\" \"$value\" $x $y 2000 2000 0 50 \"\"] (\n";
print " Pin[0 0 1000 0 0 400 \"1\" \"1\" \"\"]\n";
print " Pin[$w 0 1000 0 0 400 \"2\" \"2\" \"\"]\n";
if ($outline =~ /\S/) {
print $outline;
} else {
print " ElementLine[0 0 $w 0 100]\n";
print " ElementLine[0 0 0 $h 100]\n";
print " ElementLine[$w 0 $w $h 100]\n";
print " ElementLine[0 $h $w $h 100]\n";
}
print ")\n";
$x += $w + 10000;
}
print "Layer(1 \"component\")()\n";
print "Layer(2 \"solder\")()\n";
print "Layer(3 \"silk\")()\n";
print "Layer(4 \"silk\")()\n";
exit 0;
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment