+ Byte status_byte = (char) (0x90 + channel_);
+ string str = "";
+ int finetune;
+
+ // print warning if fine tuning was needed, HJJ
+ if (get_fine_tuning () != 0)
+ {
+ warning (_f ("experimental: temporarily fine tuning (of %d cents) a channel.",
+ get_fine_tuning ()));
+
+ finetune = PITCH_WHEEL_CENTER;
+ // Move pitch wheel to a shifted position.
+ // The pitch wheel range (of 4 semitones) is multiplied by the cents.
+ finetune += (PITCH_WHEEL_RANGE *get_fine_tuning ()) / (4 * 100);
+
+ str += ::to_string ((char) (0xE0 + channel_));
+ str += ::to_string ((char) (finetune & 0x7F));
+ str += ::to_string ((char) (finetune >> 7));
+ str += ::to_string ((char) (0x00));
+ }