From: Anthony Minessale <anthm@freeswitch.org>
Date: Thu, 6 Oct 2011 14:47:34 +0000 (-0500)
Subject: update
X-Git-Tag: v1.2-rc1~27^2~368
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=915b96ea8abcc1d3f50023d7068138f889707c3d;p=thirdparty%2Ffreeswitch.git

update
---

diff --git a/scripts/perl/tonegen/rtttl2tgml.pl b/scripts/perl/tonegen/rtttl2tgml.pl
index a8a3ed0632..39d4ab715a 100644
--- a/scripts/perl/tonegen/rtttl2tgml.pl
+++ b/scripts/perl/tonegen/rtttl2tgml.pl
@@ -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;
-
 }