X-Git-Url: https://main.carlh.net/gitweb/?a=blobdiff_plain;f=libs%2Fardour%2Fsession_midi.cc;h=50a7178f1bf3590300740ec4da6cd6be228ca45e;hb=4be2176bd900d3ffc685e585c5f435e8f51db4f6;hp=29040dc4dff878cccede5a13a8744e8901b590f1;hpb=10ef65b696492e5e6e9abe009f2e2c4a3af51994;p=ardour.git

diff --git a/libs/ardour/session_midi.cc b/libs/ardour/session_midi.cc
index 29040dc4df..50a7178f1b 100644
--- a/libs/ardour/session_midi.cc
+++ b/libs/ardour/session_midi.cc
@@ -1,4 +1,3 @@
-
 /*
   Copyright (C) 1999-2002 Paul Davis
 
@@ -33,20 +32,19 @@
 #include "midi++/mmc.h"
 #include "midi++/port.h"
 #include "midi++/manager.h"
+
 #include "pbd/error.h"
 #include "pbd/pthread_utils.h"
 
-#include "ardour/configuration.h"
-#include "ardour/debug.h"
-#include "ardour/audioengine.h"
-#include "ardour/session.h"
+#include "timecode/time.h"
+
 #include "ardour/audio_track.h"
+#include "ardour/audioengine.h"
+#include "ardour/debug.h"
 #include "ardour/midi_track.h"
 #include "ardour/midi_ui.h"
-#include "ardour/audio_diskstream.h"
+#include "ardour/session.h"
 #include "ardour/slave.h"
-#include "ardour/cycles.h"
-#include "ardour/timecode.h"
 
 #include "i18n.h"
 
@@ -90,23 +88,23 @@ Session::setup_midi_control ()
 }
 
 void
-Session::spp_start (Parser &, nframes_t /*timestamp*/)
+Session::spp_start ()
 {
-	if (Config->get_mmc_control() && (!config.get_external_sync() || config.get_sync_source() != JACK)) {
+	if (Config->get_mmc_control ()) {
 		request_transport_speed (1.0);
 	}
 }
 
 void
-Session::spp_continue (Parser& ignored, nframes_t timestamp)
+Session::spp_continue ()
 {
-	spp_start (ignored, timestamp);
+	spp_start ();
 }
 
 void
-Session::spp_stop (Parser&, nframes_t /*timestamp*/)
+Session::spp_stop ()
 {
-	if (Config->get_mmc_control()) {
+	if (Config->get_mmc_control ()) {
 		request_stop ();
 	}
 }
@@ -114,7 +112,7 @@ Session::spp_stop (Parser&, nframes_t /*timestamp*/)
 void
 Session::mmc_deferred_play (MIDI::MachineControl &/*mmc*/)
 {
-	if (Config->get_mmc_control() && (!config.get_external_sync() || (config.get_sync_source() != JACK))) {
+	if (Config->get_mmc_control ()) {
 		request_transport_speed (1.0);
 	}
 }
@@ -122,7 +120,7 @@ Session::mmc_deferred_play (MIDI::MachineControl &/*mmc*/)
 void
 Session::mmc_record_pause (MIDI::MachineControl &/*mmc*/)
 {
-	if (Config->get_mmc_control()) {
+	if (Config->get_mmc_control ()) {
 		maybe_enable_record();
 	}
 }
@@ -130,8 +128,9 @@ Session::mmc_record_pause (MIDI::MachineControl &/*mmc*/)
 void
 Session::mmc_record_strobe (MIDI::MachineControl &/*mmc*/)
 {
-	if (!Config->get_mmc_control())
+	if (!Config->get_mmc_control() || (_step_editors > 0)) {
 		return;
+	}
 
 	/* record strobe does an implicit "Play" command */
 
@@ -158,7 +157,7 @@ Session::mmc_record_strobe (MIDI::MachineControl &/*mmc*/)
 void
 Session::mmc_record_exit (MIDI::MachineControl &/*mmc*/)
 {
-	if (Config->get_mmc_control()) {
+	if (Config->get_mmc_control ()) {
 		disable_record (false);
 	}
 }
@@ -166,7 +165,7 @@ Session::mmc_record_exit (MIDI::MachineControl &/*mmc*/)
 void
 Session::mmc_stop (MIDI::MachineControl &/*mmc*/)
 {
-	if (Config->get_mmc_control()) {
+	if (Config->get_mmc_control ()) {
 		request_stop ();
 	}
 }
@@ -174,7 +173,7 @@ Session::mmc_stop (MIDI::MachineControl &/*mmc*/)
 void
 Session::mmc_pause (MIDI::MachineControl &/*mmc*/)
 {
-	if (Config->get_mmc_control()) {
+	if (Config->get_mmc_control ()) {
 
 		/* We support RECORD_PAUSE, so the spec says that
 		   we must interpret PAUSE like RECORD_PAUSE if
@@ -194,7 +193,7 @@ static bool step_queued = false;
 void
 Session::mmc_step (MIDI::MachineControl &/*mmc*/, int steps)
 {
-	if (!Config->get_mmc_control()) {
+	if (!Config->get_mmc_control ()) {
 		return;
 	}
 
@@ -233,7 +232,7 @@ Session::mmc_step (MIDI::MachineControl &/*mmc*/, int steps)
 	     << endl;
 #endif
 
-	request_transport_speed (step_speed);
+	request_transport_speed_nonzero (step_speed);
 	last_mmc_step = now;
 
 	if (!step_queued) {
@@ -249,7 +248,7 @@ Session::mmc_step (MIDI::MachineControl &/*mmc*/, int steps)
 void
 Session::mmc_rewind (MIDI::MachineControl &/*mmc*/)
 {
-	if (Config->get_mmc_control()) {
+	if (Config->get_mmc_control ()) {
 		request_transport_speed(-8.0f);
 	}
 }
@@ -257,7 +256,7 @@ Session::mmc_rewind (MIDI::MachineControl &/*mmc*/)
 void
 Session::mmc_fast_forward (MIDI::MachineControl &/*mmc*/)
 {
-	if (Config->get_mmc_control()) {
+	if (Config->get_mmc_control ()) {
 		request_transport_speed(8.0f);
 	}
 }
@@ -265,11 +264,11 @@ Session::mmc_fast_forward (MIDI::MachineControl &/*mmc*/)
 void
 Session::mmc_locate (MIDI::MachineControl &/*mmc*/, const MIDI::byte* mmc_tc)
 {
-	if (!Config->get_mmc_control()) {
+	if (!Config->get_mmc_control ()) {
 		return;
 	}
 
-	nframes_t target_frame;
+	framepos_t target_frame;
 	Timecode::Time timecode;
 
 	timecode.hours = mmc_tc[0] & 0xf;
@@ -282,8 +281,8 @@ Session::mmc_locate (MIDI::MachineControl &/*mmc*/, const MIDI::byte* mmc_tc)
 	// Also takes timecode offset into account:
 	timecode_to_sample( timecode, target_frame, true /* use_offset */, false /* use_subframes */ );
 
-	if (target_frame > max_frames) {
-		target_frame = max_frames;
+	if (target_frame > max_framepos) {
+		target_frame = max_framepos;
 	}
 
 	/* Some (all?) MTC/MMC devices do not send a full MTC frame
@@ -306,7 +305,7 @@ Session::mmc_locate (MIDI::MachineControl &/*mmc*/, const MIDI::byte* mmc_tc)
 void
 Session::mmc_shuttle (MIDI::MachineControl &/*mmc*/, float speed, bool forw)
 {
-	if (!Config->get_mmc_control()) {
+	if (!Config->get_mmc_control ()) {
 		return;
 	}
 
@@ -315,28 +314,29 @@ Session::mmc_shuttle (MIDI::MachineControl &/*mmc*/, float speed, bool forw)
 	}
 
 	if (forw) {
-		request_transport_speed (speed);
+		request_transport_speed_nonzero (speed);
 	} else {
-		request_transport_speed (-speed);
+		request_transport_speed_nonzero (-speed);
 	}
 }
 
 void
 Session::mmc_record_enable (MIDI::MachineControl &mmc, size_t trk, bool enabled)
 {
-	if (Config->get_mmc_control()) {
+	if (!Config->get_mmc_control ()) {
+		return;
+	}
 
-		RouteList::iterator i;
-		boost::shared_ptr<RouteList> r = routes.reader();
+	RouteList::iterator i;
+	boost::shared_ptr<RouteList> r = routes.reader();
 
-		for (i = r->begin(); i != r->end(); ++i) {
-			AudioTrack *at;
+	for (i = r->begin(); i != r->end(); ++i) {
+		AudioTrack *at;
 
-			if ((at = dynamic_cast<AudioTrack*>((*i).get())) != 0) {
-				if (trk == at->remote_control_id()) {
-					at->set_record_enable (enabled, &mmc);
-					break;
-				}
+		if ((at = dynamic_cast<AudioTrack*>((*i).get())) != 0) {
+			if (trk == at->remote_control_id()) {
+				at->set_record_enabled (enabled, &mmc);
+				break;
 			}
 		}
 	}
@@ -348,7 +348,7 @@ Session::mmc_record_enable (MIDI::MachineControl &mmc, size_t trk, bool enabled)
  * @param t time to send.
  */
 int
-Session::send_full_time_code (nframes64_t const t)
+Session::send_full_time_code (framepos_t const t)
 {
 	/* This function could easily send at a given frame offset, but would
 	 * that be useful?  Does ardour do sub-block accurate locating? [DR] */
@@ -358,25 +358,55 @@ Session::send_full_time_code (nframes64_t const t)
 
 	_send_timecode_update = false;
 
-	if (_mtc_output_port == 0 || !session_send_mtc || _slave) {
+	if (_engine.freewheeling() || !Config->get_send_mtc()) {
+		return 0;
+	}
+	if (_slave && !_slave->locked()) {
 		return 0;
 	}
 
 	// Get timecode time for the given time
 	sample_to_timecode (t, timecode, true /* use_offset */, false /* no subframes */);
 
+	// sample-align outbound to rounded (no subframes) timecode
+	framepos_t mtc_tc;
+	timecode_to_sample(timecode, mtc_tc, true, false);
+	outbound_mtc_timecode_frame = mtc_tc;
+
 	transmitting_timecode_time = timecode;
-	outbound_mtc_timecode_frame = t;
+
+	double const quarter_frame_duration = ((framecnt_t) _frames_per_timecode_frame) / 4.0;
+	if (ceil((t - mtc_tc) / quarter_frame_duration) > 0) {
+		Timecode::increment (transmitting_timecode_time, config.get_subframes_per_frame());
+		outbound_mtc_timecode_frame += _frames_per_timecode_frame;
+	}
+
+	DEBUG_TRACE (DEBUG::MTC, string_compose ("Full MTC TC %1\n", outbound_mtc_timecode_frame));
 
 	// I don't understand this bit yet.. [DR]
+	// I do [rg]:
+	// according to MTC spec 24, 30 drop and 30 non-drop TC, the frame-number represented by 8 quarter frames must be even.
 	if (((mtc_timecode_bits >> 5) != MIDI::MTC_25_FPS) && (transmitting_timecode_time.frames % 2)) {
 		// start MTC quarter frame transmission on an even frame
 		Timecode::increment (transmitting_timecode_time, config.get_subframes_per_frame());
-		outbound_mtc_timecode_frame += (nframes_t) _frames_per_timecode_frame;
+		outbound_mtc_timecode_frame += _frames_per_timecode_frame;
 	}
 
-	// Compensate for audio latency
-	outbound_mtc_timecode_frame += _worst_output_latency;
+#if 0 // compensate for audio latency  -- disabled [rg]
+	/* this needs more thought and work.
+	 * the proper solution will be to just offset MTC by the MIDI port's latency.
+	 *
+	 * using worst_playback_latency() is wrong when the generated MTC is used to sync
+	 * clients which send audio to Ardour for recording.
+	 * worst_capture_latency() vs. worst_playback_latency()
+	 *
+	 * NB. similarly to session_ltc, the offset should be subtracted from the timecode to send,
+	 * instead of being added to timestamp when to send the timecode.
+	 * Otherwise the timestamp may not fall into the jack-cycle of the current _transport frame.
+	 * and no MTC QF will be sent.
+	 */
+	outbound_mtc_timecode_frame += worst_playback_latency();
+#endif
 	next_quarter_frame_to_send = 0;
 
 	// Sync slave to the same Timecode time as we are on
@@ -393,88 +423,101 @@ Session::send_full_time_code (nframes64_t const t)
 	msg[8] = timecode.frames;
 
 	// Send message at offset 0, sent time is for the start of this cycle
-	if (_mtc_output_port->midimsg (msg, sizeof (msg), 0)) {
+	if (MIDI::Manager::instance()->mtc_output_port()->midimsg (msg, sizeof (msg), 0)) {
 		error << _("Session: could not send full MIDI time code") << endmsg;
 		return -1;
 	}
 
+	_pframes_since_last_mtc = 0;
 	return 0;
 }
 
 /** Send MTC (quarter-frame) messages for this cycle.
- * Must be called exactly once per cycle from the audio thread.  Realtime safe.
+ * Must be called exactly once per cycle from the process thread.  Realtime safe.
  * This function assumes the state of full Timecode is sane, eg. the slave is
  * expecting quarter frame messages and has the right frame of reference (any
  * full MTC Timecode time messages that needed to be sent should have been sent
  * earlier already this cycle by send_full_time_code)
  */
 int
-Session::send_midi_time_code_for_cycle(nframes_t nframes)
+Session::send_midi_time_code_for_cycle (framepos_t start_frame, framepos_t end_frame, pframes_t nframes)
 {
-	if (_mtc_output_port == 0 || _slave || !session_send_mtc || transmitting_timecode_time.negative || (next_quarter_frame_to_send < 0)) {
+	if (_engine.freewheeling() || !_send_qf_mtc || transmitting_timecode_time.negative || (next_quarter_frame_to_send < 0)) {
 		// cerr << "(MTC) Not sending MTC\n";
 		return 0;
 	}
+	if (_slave && !_slave->locked()) {
+		return 0;
+	}
+
+	/* MTC is max. 30 fps - assert() below will fail
+	 * TODO actually limit it to 24,25,29df,30fps
+	 * talk to oofus, first.
+	 */
+	if (Timecode::timecode_to_frames_per_second(config.get_timecode_format()) > 30) {
+		return 0;
+	}
 
 	assert (next_quarter_frame_to_send >= 0);
 	assert (next_quarter_frame_to_send <= 7);
 
 	/* Duration of one quarter frame */
-	nframes_t quarter_frame_duration = ((long) _frames_per_timecode_frame) >> 2;
-
-	DEBUG_TRACE (DEBUG::MTC, string_compose ("TF %1 SF %2 NQ %3 FD %4\n",  _transport_frame, outbound_mtc_timecode_frame,
-						 next_quarter_frame_to_send, quarter_frame_duration));
+	double const quarter_frame_duration = _frames_per_timecode_frame / 4.0;
 
-	assert((outbound_mtc_timecode_frame + (next_quarter_frame_to_send * quarter_frame_duration))
-			>= _transport_frame);
+	DEBUG_TRACE (DEBUG::MTC, string_compose ("TF %1 SF %2 MT %3 QF %4 QD %5\n",
+				_transport_frame, start_frame, outbound_mtc_timecode_frame,
+				next_quarter_frame_to_send, quarter_frame_duration));
 
+	if (rint(outbound_mtc_timecode_frame + (next_quarter_frame_to_send * quarter_frame_duration)) < _transport_frame) {
+		send_full_time_code (_transport_frame);
+		return 0;
+	}
 
-	// Send quarter frames for this cycle
-	while (_transport_frame + nframes > (outbound_mtc_timecode_frame +
-				(next_quarter_frame_to_send * quarter_frame_duration))) {
+	/* Send quarter frames for this cycle */
+	while (end_frame > rint(outbound_mtc_timecode_frame + (next_quarter_frame_to_send * quarter_frame_duration))) {
 
 		DEBUG_TRACE (DEBUG::MTC, string_compose ("next frame to send: %1\n", next_quarter_frame_to_send));
 
 		switch (next_quarter_frame_to_send) {
 			case 0:
-				mtc_msg[1] =  0x00 | (transmitting_timecode_time.frames & 0xf);
+				mtc_msg[1] = 0x00 | (transmitting_timecode_time.frames & 0xf);
 				break;
 			case 1:
-				mtc_msg[1] =  0x10 | ((transmitting_timecode_time.frames & 0xf0) >> 4);
+				mtc_msg[1] = 0x10 | ((transmitting_timecode_time.frames & 0xf0) >> 4);
 				break;
 			case 2:
-				mtc_msg[1] =  0x20 | (transmitting_timecode_time.seconds & 0xf);
+				mtc_msg[1] = 0x20 | (transmitting_timecode_time.seconds & 0xf);
 				break;
 			case 3:
-				mtc_msg[1] =  0x30 | ((transmitting_timecode_time.seconds & 0xf0) >> 4);
+				mtc_msg[1] = 0x30 | ((transmitting_timecode_time.seconds & 0xf0) >> 4);
 				break;
 			case 4:
-				mtc_msg[1] =  0x40 | (transmitting_timecode_time.minutes & 0xf);
+				mtc_msg[1] = 0x40 | (transmitting_timecode_time.minutes & 0xf);
 				break;
 			case 5:
 				mtc_msg[1] = 0x50 | ((transmitting_timecode_time.minutes & 0xf0) >> 4);
 				break;
 			case 6:
-				mtc_msg[1] = 0x60 | ((mtc_timecode_bits|transmitting_timecode_time.hours) & 0xf);
+				mtc_msg[1] = 0x60 | ((mtc_timecode_bits | transmitting_timecode_time.hours) & 0xf);
 				break;
 			case 7:
-				mtc_msg[1] = 0x70 | (((mtc_timecode_bits|transmitting_timecode_time.hours) & 0xf0) >> 4);
+				mtc_msg[1] = 0x70 | (((mtc_timecode_bits | transmitting_timecode_time.hours) & 0xf0) >> 4);
 				break;
 		}
 
-		const nframes_t msg_time = (outbound_mtc_timecode_frame
-			+ (quarter_frame_duration * next_quarter_frame_to_send));
+		const framepos_t msg_time = rint(outbound_mtc_timecode_frame	+ (quarter_frame_duration * next_quarter_frame_to_send));
 
 		// This message must fall within this block or something is broken
-		assert(msg_time >= _transport_frame);
-		assert(msg_time < _transport_frame + nframes);
+		assert (msg_time >= start_frame);
+		assert (msg_time < end_frame);
 
-		nframes_t out_stamp = msg_time - _transport_frame;
-		assert(out_stamp < nframes);
+		/* convert from session frames back to JACK frames using the transport speed */
+		pframes_t const out_stamp = (msg_time - start_frame) / _transport_speed;
+		assert (out_stamp < nframes);
 
-		if (_mtc_output_port->midimsg (mtc_msg, 2, out_stamp)) {
+		if (MIDI::Manager::instance()->mtc_output_port()->midimsg (mtc_msg, 2, out_stamp)) {
 			error << string_compose(_("Session: cannot send quarter-frame MTC message (%1)"), strerror (errno))
-			      << endmsg;
+						<< endmsg;
 			return -1;
 		}
 
@@ -493,11 +536,11 @@ Session::send_midi_time_code_for_cycle(nframes_t nframes)
 			// Wrap quarter frame counter
 			next_quarter_frame_to_send = 0;
 			// Increment timecode time twice
-			Timecode::increment( transmitting_timecode_time, config.get_subframes_per_frame() );
-			Timecode::increment( transmitting_timecode_time, config.get_subframes_per_frame() );
+			Timecode::increment (transmitting_timecode_time, config.get_subframes_per_frame());
+			Timecode::increment (transmitting_timecode_time, config.get_subframes_per_frame());
 			// Re-calculate timing of first quarter frame
 			//timecode_to_sample( transmitting_timecode_time, outbound_mtc_timecode_frame, true /* use_offset */, false );
-			outbound_mtc_timecode_frame += 8 * quarter_frame_duration;
+			outbound_mtc_timecode_frame += 2.0 * _frames_per_timecode_frame;
 		}
 	}
 
@@ -534,14 +577,10 @@ Session::mmc_step_timeout ()
 
 	/* slow it down */
 
-	request_transport_speed (_transport_speed * 0.75);
+	request_transport_speed_nonzero (_transport_speed * 0.75);
 	return true;
 }
 
-/*---------------------------------------------------------------------------
-  MIDI THREAD
-  ---------------------------------------------------------------------------*/
-
 int
 Session::start_midi_thread ()
 {
@@ -550,12 +589,3 @@ Session::start_midi_thread ()
 	return 0;
 }
 
-void
-Session::terminate_midi_thread ()
-{
-	if (midi_control_ui) {
-		midi_control_ui->quit ();
-	}
-}
-
-