pitch.cc: let rounded_{semi,quarter}tone_pitch return actually rounded values, toward...

Adresses issue 1741.

diff --git a/lily/pitch.cc b/lily/pitch.cc
index 97664e6530e103e7672c91cc494f56d8be5cf859..facbf5d05d193049353a8af54013dc7477940fa1 100644 (file)
--- a/lily/pitch.cc
+++ b/lily/pitch.cc
@@ -25,6 +25,7 @@
 #include "warn.hh"
 
 #include "ly-smobs.icc"
+#include <cmath>
 
 Pitch::Pitch (int o, int n, Rational a)
 {
@@ -78,13 +79,13 @@ Pitch::tone_pitch () const
 int
 Pitch::rounded_semitone_pitch () const
 {
-  return int (double (tone_pitch () * Rational (2)));
+  return int (floor (double (tone_pitch () * Rational (2) + Rational (1,2))));
 }
 
 int
 Pitch::rounded_quartertone_pitch () const
 {
-  return int (double (tone_pitch () * Rational (4)));
+  return int (floor (double (tone_pitch () * Rational (4) + Rational (1,2))));
 }
 
 void