4 # Copyright 2006 DJ Delorie <dj@delorie.com>
5 # Released under the terms of the GNU General Public License, version 2
8 print "Usage: pcb2panel board1.pcb board2.pcb board3.pcb > boards.pcb\n";
9 print "Then edit boards.pcb, putting each outline where you want it\n";
10 print "and sizing the board. Then:\n";
11 print "panel2pcb boards.pcb\n";
12 print "and edit/print boards.panel.pcb\n";
24 if (/^PCB\[".*" (\d+) (\d+)\]/) {
38 $ph = $height{$pcb} if $ph < $height{$pcb};
42 print "PCB[\"\" $pw $ph]\n";
43 print "Grid[10000.0 0 0 1]\n";
44 print "Groups(\"1,c:2,s\")\n";
51 $value = "$width{$pcb} x $height{$pcb}";
54 print "Element[\"\" \"$desc\" \"$name\" \"$value\" $x $y 2000 2000 0 50 \"\"] (\n";
55 print " Pin[0 0 300 0 0 100 \"1\" \"1\" \"\"]\n";
56 print " Pin[$w 0 300 0 0 100 \"2\" \"2\" \"\"]\n";
57 print " ElementLine[0 0 $w 0 100]\n";
58 print " ElementLine[0 0 0 $h 100]\n";
59 print " ElementLine[$w 0 $w $h 100]\n";
60 print " ElementLine[0 $h $w $h 100]\n";
65 print "Layer(1 \"component\")()\n";
66 print "Layer(2 \"solder\")()\n";
67 print "Layer(3 \"silk\")()\n";
68 print "Layer(4 \"silk\")()\n";