blob: 2176348426e7ea8b4afc7963badbc5b53e3a4421 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/perl -w
$DATAFILE = "earplug_data.txt";
open(DATAFILE);
#368
for ($i = 0; $i < 368; $i++) {
$_ = <DATAFILE>;
# if(m|^\*\*(.*)\*\*$|) {$comment[$i] = $1;}
# if(m|^\*\*.*H-(.*)\.wav \*\*$|) {$arrayname[$i] = "H_$1";}
$_ = <DATAFILE>;
for ($j = 0 ; $j < 128 ; $j++) {
# fscanf(fp, "%f %f ", $impulses[$i][0][$j], $impulses[$i][1][$j]);
while (m|([0-9.-]+) ([0-9.-]+) |g) {
$impulses[$i][0][$j] = $1;
$impulses[$i][1][$j] = $2;
}
}
$_ = <DATAFILE>;
}
close(DATAFILE);
print("t_float impulses\[368\]\[2\]\[128\] = {\n");
for ($i = 0; $i < 368; $i++) {
# print("/*$comment[$i]*/\n");
# print("float $arrayname[$i]\[2\]\[128\] = {\n{");
print("{\n{");
for ($j = 0 ; $j < 128 ; $j++) {
print("$impulses[$i][0][$j], ");
}
print("},\n{");
for ($j = 0 ; $j < 128 ; $j++) {
print("$impulses[$i][1][$j], ");
}
print("}\n},\n");
}
print("\n};\n\n");
|