5 my @pulses = @ARGV || die "usage: $0 *.pulses";
7 my $khz = 50; # ir-ctl --features | grep Resolution
8 # 1 ms = 1000 Hz = 1 kHz
11 open(my $metadata, '>', 'new/metadata');
27 foreach my $ch ( 1 .. scalar($#pulses) ) {
28 my $name = $pulses[ $ch - 1 ];
29 print $metadata qq{probe$ch=$name\n};
33 open(my $logic, '>', 'new/logic-1-1');
41 $t = $t / $khz; # convert time to bits
43 my $patt = $s ? "\x01" : "\x00";
44 print $logic ( $patt x $t );
49 if (/^pulse\s(\d+)/ ) {
51 } elsif ( /^space\s(\d+)/ ) {
53 } elsif ( /^timeout\s(\d+)/ ) {
63 open(my $version, '>', 'new/version');
67 system "cd new ; zip ../new.sr *";