###############################################################################
#Read old lookup table
###############################################################################
-open FILE, "Lookup-Wire-OLD.txt" or die $!."\nLookup-Wire-OLD.txt not found.";
+#~ open FILE, "Lookup-Wire-OLD.txt" or die $!."\nLookup-Wire-OLD.txt not found.";
+open FILE, "lookupOld-allsectors-feb24.txt" or die $!."\n lookupOld-allsectors-feb24.txt not found.";
while (my $a = <FILE>) {
if(my @values = $a =~ /^(\d)\s(\d)\s(\d+)\s(\d+)\s\|\s(\d)\s(\d)\s(\d+)\s+.+\s(-?\d)\s(-?\d+)/) {
my $p = shift @values;
$oldc = 7-$c if ($c<8);
$oldc = 39-$c if ($c >=16 && $c < 24);
- my $layer = $oldlayer->[$p][0][$b][$f][$oldc];
- my $cell = $oldcell-> [$p][0][$b][$f][$oldc];
+ my $layer = $oldlayer->[$p][$s][$b][$f][$oldc];
+ my $cell = $oldcell-> [$p][$s][$b][$f][$oldc];
printf("0x%04x\t%u\t%u\t%u\t%u\t%i\t%i\n",$addr+$f,$c,$p,$s,$b,$layer,$cell);
}
# Plane # Sector # inner short # outer short # inner long # outer long # inner center #
#####################################################################################################################################
- 0 0 A3000001f1408528 1F000001f14F7D28 B7000001f110A428 78000001F149E028 A2000001F1194E28
+ 0 0 A3000001f1408528 1F000001f14F7D28 B7000001f110A428 78000001F149E028 A2000001F1194E28
0 1 22000001f1438f28 54000001f130e628 7e000001f12f9e28 81000001f1496e28 72000001F10CD428
0 2 96000001f1132328 a6000001f14adc28 55000001f141EE28 AD000001F12B0228 0D000001F10B8428
0 3 df000001f1508528 1f000001f1449e28 68000001f1438228 2d000001f1299428 94000001F1CF2628