* lily/smobs.cc (protect_smob): switch off fancy smob protection

[lilypond.git] / lily / staff-performer.cc

diff --git a/lily/staff-performer.cc b/lily/staff-performer.cc
index b8facd23645e3abbad7fe2bb0a625ff08097a0ac..54a57b94515fa72d5be2ce7d7e51fcdba307e478 100644 (file)
--- a/lily/staff-performer.cc
+++ b/lily/staff-performer.cc
@@ -64,7 +64,13 @@ Staff_performer::initialize ()
 {
   audio_staff_ = new Audio_staff;
   name_ = new Audio_text (Audio_text::TRACK_NAME, context ()->id_string ());
-  tempo_ = new Audio_tempo (get_tempo ());
+
+  Rational r = robust_scm2moment (get_property ("tempoWholesPerMinute"),
+                                 Moment (15,1)).main_part_;
+
+  r *= Rational (4,1);
+  
+  tempo_ = new Audio_tempo (r.to_int ());
 
   audio_staff_->add_audio_item (name_);
   audio_staff_->add_audio_item (tempo_);