retronetworking
/
freeswitch
13
0
Fork 0
Code Pull Requests Releases Activity

update

This commit is contained in:
Anthony Minessale 2011-10-06 09:47:34 -05:00
parent 1f2bc29f60
commit 915b96ea8a
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/perl/tonegen/rtttl2tgml.pl
View File

@ -56,16 +56,11 @@ if ($r->has_errors()) {
$all = $r->get_notes();
$ms_per_beat = int (60000 / $r->get_bpm());
$ms_per_beat = int (6000 / $r->get_bpm());
foreach (@{$all}) {
my $ms = $ms_per_beat * (1 / $_->[0]) * 4;
#print STDERR "$_->[0] $_->[1] $_->[2] $_->[3]\n";
my $ms = ($ms_per_beat * $_->[2]);
print "%($ms,0,$NOTES->{$_->[1]}->[$_->[2]]);" . $cr;
}