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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
#!/usr/bin/perl
use strict;
use warnings;
use MIDI;
use MIDI::Opus;
my ($filename) = @ARGV;
my $opus = MIDI::Opus->new({from_file => $filename});
my %chanpos = (
note_off => 2,
note_on => 2,
key_after_touch => 2,
control_change => 2,
patch_change => 2,
channel_after_touch => 2,
pitch_wheel_change => 2
);
while(<STDIN>)
{
chomp;
my @arg = split /\s+/, $_;
my $cmd = shift @arg;
print "Executing: $cmd @arg\n";
if($cmd eq 'ticks')
{
if(@arg)
{
$opus->ticks($arg[0]);
}
else
{
print "Ticks: ", $opus->ticks(), "\n";
}
}
elsif($cmd eq 'tricks')
{
print "haha, very funny\n";
}
elsif($cmd eq 'tracks')
{
my $tracks = $opus->tracks_r();
if(@arg)
{
my %taken = (0 => 1);
my @t = ($tracks->[0]);
my $force = 0;
for(@arg)
{
if($_ eq '--force')
{
$force = 1;
next;
}
next if $taken{$_}++ and not $force;
push @t, $tracks->[$_];
}
$opus->tracks_r(\@t);
}
else
{
for(1..@$tracks-1)
{
print "Track $_:";
my $name = undef;
my %channels = ();
my $notes = 0;
my %notehash = ();
my $t = 0;
for($tracks->[$_]->events())
{
$_->[0] = 'note_off' if $_->[0] eq 'note_on' and $_->[4] == 0;
$t += $_->[1];
my $p = $chanpos{$_->[0]};
if(defined $p)
{
my $c = $_->[$p] + 1;
++$channels{$c};
}
++$notes if $_->[0] eq 'note_on';
$notehash{$_->[2]}{$_->[3]} = $t if $_->[0] eq 'note_on';
$notehash{$_->[2]}{$_->[3]} = undef if $_->[0] eq 'note_off';
$name = $_->[2] if $_->[0] eq 'track_name';
}
my $channels = join " ", sort keys %channels;
my @stuck = ();
while(my ($k1, $v1) = each %notehash)
{
while(my ($k2, $v2) = each %$v1)
{
push @stuck, sprintf "%d:%d@%.1f%%", $k1+1, $k2, $v2 * 100.0 / $t
if defined $v2;
}
}
print " $name" if defined $name;
print " (channel $channels)" if $channels ne "";
print " ($notes notes)" if $notes;
print " (notes @stuck stuck)" if @stuck;
print "\n";
}
}
}
elsif($cmd eq 'save')
{
$opus->write_to_file($arg[0]);
}
else
{
print "Unknown command, allowed commands: ticks, tricks, tracks, save\n";
}
print "Done with: $cmd @arg\n";
}
|
