Experimental step-up driver for chain of 5630 LEDs.
[tinyboard.git] / panel2pcb
1 #!/usr/bin/perl
2 # -*- perl -*-
3
4 # Copyright 2006 DJ Delorie <dj@delorie.com>
5 # Released under the terms of the GNU General Public License, version 2
6
7 if (! @ARGV) {
8     print "Usage: pcb2panel board1.pcb board2.pcb board3.pcb > boards.pcb";
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 [-l regex] boards.pcb\n";
12     print "and edit/print boards.panel.pcb\n";
13     exit 0;
14 }
15
16 $mydir = $0;
17 if ($mydir =~ m@/@) {
18     $mydir =~ s@[^/]*$@@;
19 } else {
20     $mydir = ".";
21 }
22
23 require "$mydir/panel.pl";
24
25 $panel = shift;
26
27 if ($panel eq "-l") {
28     $panelcopperlayers = shift;
29     $panel = shift;
30 }
31
32 open(P, $panel);
33 while (<P>) {
34     if (/PCB\[.* (\S+) (\S+)\]/) {
35         $panel_width = &parseval($1);
36         $panel_height = &parseval($2);
37     }
38     if (/Element\[\"[^\"]*\" \"([^\"]*)\" \"([^\"]*)\" \"([^\"]*)\" (\S+) (\S+)/) {
39         $pcb = $1;
40         $base = $2;
41         $value = $3;
42         $mx = &parseval($4);
43         $my = &parseval($5);
44         %pinx = ();
45         %piny = ();
46     }
47     if (/Pin\[(\S+) (\S+) \S+ \S+ \S+ \S+ \"(\d)\"/) {
48         $pinx{$3} = &parseval($1);
49         $piny{$3} = &parseval($2);
50     }
51     if ($pcb && /\)/) {
52         if ($pinx{'1'} < $pinx{'2'}) {
53             $rot = 0;
54         } elsif ($pinx{'1'} > $pinx{'2'}) {
55             $rot = 2;
56         } elsif ($piny{'1'} < $piny{'2'}) {
57             $rot = 3;
58         } elsif ($piny{'1'} > $piny{'2'}) {
59             $rot = 1;
60         }
61         push (@paste, "$pcb\0$rot\0$mx\0$my");
62         $pcb = undef;
63     }
64     if (/Via/) {
65         push (@panelvias, $_);
66     }
67     if (/^Layer\([^)]*\)$/) {
68         $junk = <P>; # The opening '('
69         while ($junk = <P>) {
70             last if $junk =~ /^\)/;
71             push (@panelcopper, $junk);
72         }
73     }
74 }
75
76 $tmp = "/tmp/panel$$.pcb";
77
78 $start = $paste[0];
79 $start =~ s/\0.*//;
80
81 $panel =~ s/\.pcb$//;
82 &baseboard($start, $panel_width, $panel_height, $panel);
83
84 $lastboard = undef;
85 for $paste (sort @paste) {
86     ($pcb, $rot, $mx, $my) = split(/\0/, $paste);
87     if ($lastboard ne $pcb) {
88         &loadboard ($pcb);
89         $lastboard = $pcb;
90         $lastrot = 0;
91     }
92     while ($lastrot != $rot) {
93         print PS "PasteBuffer(Rotate,1)\n";
94         $lastrot = ($lastrot+1) % 4;
95     }
96     print PS "PasteBuffer(ToLayout,$mx,$my)\n";
97 }
98
99 &done();