From 53285b1e8b5a5a6b1d73499974d3e379a91bae5c Mon Sep 17 00:00:00 2001
From: hjunes <hjunes>
Date: Sun, 2 Nov 2003 23:43:45 +0000
Subject: [PATCH] 	* lily/midi-item.cc lily/include/midi-item.hh
 (get_fine_tuning): 	new function, warn how many cents are missing in fine
 tuning.

---
 ChangeLog                 |  5 +++++
 lily/include/midi-item.hh |  1 +
 lily/midi-item.cc         | 16 ++++++++++++++++
 3 files changed, 22 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index a9d946f668..a95026109b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-11-03  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* lily/midi-item.cc lily/include/midi-item.hh (get_fine_tuning):
+	new function, warn how many cents are missing in fine tuning.
+
 2003-11-01  Heikki Junes  <hjunes@cc.hut.fi>
 
 	* input/bugs/rhytmicstaff-tie.ly: add file.
diff --git a/lily/include/midi-item.hh b/lily/include/midi-item.hh
index 952a140c51..978bad1c47 100644
--- a/lily/include/midi-item.hh
+++ b/lily/include/midi-item.hh
@@ -123,6 +123,7 @@ public:
 
   Moment get_length () const;
   int get_pitch () const;
+  int get_fine_tuning () const;
   virtual String to_string () const;
 
   Audio_note* audio_;
diff --git a/lily/midi-item.cc b/lily/midi-item.cc
index 2452a46951..2ac68b6b55 100644
--- a/lily/midi-item.cc
+++ b/lily/midi-item.cc
@@ -234,6 +234,15 @@ Midi_note::get_length () const
   return m;
 }
 
+int
+Midi_note::get_fine_tuning () const
+{
+  int ft = audio_->pitch_.quartertone_pitch ();
+  ft -= 2 * audio_->pitch_.semitone_pitch();
+  ft *= 50; // 1 quarter tone = 50 cents
+  return ft;
+}
+
 int
 Midi_note::get_pitch () const
 {
@@ -251,6 +260,13 @@ Midi_note::to_string () const
 {
   Byte status_byte = (char) (0x90 + channel_);
 
+  // print warning if fine tuning was needed, HJJ
+  if (get_fine_tuning () != 0)
+    {
+      warning (_f ("Omitting fine tuning (of %d cents) a note.", 
+	    get_fine_tuning ()));
+    }
+
   String str = ::to_string ((char)status_byte);
   str += ::to_string ((char) (get_pitch () + c0_pitch_i_));
 
-- 
2.39.2