RepoMirrors/xonotic
1
0
Fork 0
mirror of https://gitlab.com/xonotic/xonotic synced 2025-03-03 18:07:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

better orchestra helper scripts ;)

Browse Source
This commit is contained in:
Rudolf Polzer 2012-10-24 12:32:30 +02:00
parent 81791a2ca0
commit 8a94609600
2 changed files with 126 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
misc/tools/midi2cfg-ng.conf.cpp
View File

@ -1,7 +1,7 @@
#define USE_CHEATS
#undef FAST
#define BOW
#undef INDICATORS
#define INDICATORS
#ifdef FAST
timeoffset_preinit 0
@ -1549,7 +1549,7 @@ bot vocals
#ifdef INDICATORS
cmd cc usetarget indicator_vocals
#endif
cmd sound 10 %s
cmd sound -10 %s
buttons crouch
time 0.05
buttons

127
misc/tools/midichannels.pl Normal file → Executable file
View File

@ -87,6 +87,115 @@ while(<STDIN>)
{
print "haha, very funny\n";
}
elsif($cmd eq 'retrack')
{
my $tracks = $opus->tracks_r();
my @newtracks = ();
for(0..@$tracks-1)
{
for(abstime $tracks->[$_]->events())
{
my $p = $chanpos{$_->[0]};
if(defined $p)
{
my $c = $_->[$p] + 1;
push @{$newtracks[$c]}, $_;
}
else
{
push @{$newtracks[0]}, $_;
}
}
}
$opus->tracks_r([map { ($_ && @$_) ? MIDI::Track->new({ events => [reltime @$_] }) : () } @newtracks]);
}
elsif($cmd eq 'program')
{
my $tracks = $opus->tracks_r();
my ($channel, $program) = @arg;
for(0..@$tracks-1)
{
my @events = ();
my $added = 0;
for(abstime $tracks->[$_]->events())
{
my $p = $chanpos{$_->[0]};
if(defined $p)
{
my $c = $_->[$p] + 1;
if($c == $channel)
{
next
if $_->[0] eq 'patch_change';
if(!$added)
{
push @events, ['patch_change', $_->[1], $c-1, $program-1]
if $program;
$added = 1;
}
}
}
push @events, $_;
}
$tracks->[$_]->events_r([reltime @events]);
}
}
elsif($cmd eq 'transpose')
{
my $tracks = $opus->tracks_r();
my ($track, $channel, $delta) = @arg;
for(($track eq '*') ? (0..@$tracks-1) : $track)
{
for($tracks->[$_]->events())
{
my $p = $chanpos{$_->[0]};
if(defined $p)
{
my $c = $_->[$p] + 1;
if($channel eq '*' || $c == $channel)
{
if($_->[0] eq 'note_on' || $_->[0] eq 'note_off')
{
$_->[3] += $delta;
}
}
}
}
}
}
elsif($cmd eq 'percussion')
{
my $tracks = $opus->tracks_r();
my %map = @arg;
for(0..@$tracks-1)
{
my @events = ();
for(abstime $tracks->[$_]->events())
{
my $p = $chanpos{$_->[0]};
if(defined $p)
{
my $c = $_->[$p] + 1;
if($c == 10)
{
if($_->[0] eq 'note_on' || $_->[0] eq 'note_off')
{
if(length $map{$_->[3]})
{
$_->[3] = $map{$_->[3]};
}
elsif(exists $map{$_->[3]})
{
next;
}
}
}
}
push @events, $_;
}
$tracks->[$_]->events_r([reltime @events]);
}
}
elsif($cmd eq 'tracks')
{
my $tracks = $opus->tracks_r();
@ -127,14 +236,18 @@ while(<STDIN>)
if(defined $p)
{
my $c = $_->[$p] + 1;
++$channels{$c};
$channels{$c} //= {};
if($_->[0] eq 'patch_change')
{
++$channels{$c}{$_->[3]};
}
}
++$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 $channels = join " ", map { sprintf "%s(%s)", $_, join ",", sort { $a <=> $b } keys %{$channels{$_}} } sort { $a <=> $b } keys %channels;
my @stuck = ();
while(my ($k1, $v1) = each %notehash)
{
@ -159,7 +272,15 @@ while(<STDIN>)
}
else
{
print "Unknown command, allowed commands: ticks, tracks, clean, save\n";
print "Unknown command, allowed commands:\n";
print " clean\n";
print " dump\n";
print " ticks [value]\n";
print " retrack\n";
print " program <channel> <program (1-based)>\n";
print " transpose <track|*> <channel|*> <delta>\n";
print " percussion <from> <to> [<from> <to> ...]\n";
print " tracks [trackno] [trackno] ...\n";
}
print "Done with: $cmd @arg\n";
}