Merge branch 'master' into windows
[ardour.git] / libs / ardour / session_midi.cc
index e5f4b9cd6e43ff25c52413e644fd4d6357d58463..e4fd58dedc34635a93996c3a3cb604fa908b9bd7 100644 (file)
@@ -22,8 +22,6 @@
 #include <cerrno>
 #include <cassert>
 #include <unistd.h>
-#include <fcntl.h>
-#include <poll.h>
 
 #include <boost/shared_ptr.hpp>
 
 
 #include "pbd/error.h"
 #include "pbd/pthread_utils.h"
+#include "pbd/timersub.h"
 
 #include "timecode/time.h"
 
-#include "ardour/configuration.h"
-#include "ardour/debug.h"
-#include "ardour/audioengine.h"
-#include "ardour/session.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/ticker.h"
 
 #include "i18n.h"
 
@@ -91,7 +88,7 @@ Session::setup_midi_control ()
 }
 
 void
-Session::spp_start (Parser &, framepos_t /*timestamp*/)
+Session::spp_start ()
 {
        if (Config->get_mmc_control ()) {
                request_transport_speed (1.0);
@@ -99,13 +96,13 @@ Session::spp_start (Parser &, framepos_t /*timestamp*/)
 }
 
 void
-Session::spp_continue (Parser& ignored, framepos_t timestamp)
+Session::spp_continue ()
 {
-       spp_start (ignored, timestamp);
+       spp_start ();
 }
 
 void
-Session::spp_stop (Parser&, framepos_t /*timestamp*/)
+Session::spp_stop ()
 {
        if (Config->get_mmc_control ()) {
                request_stop ();
@@ -361,25 +358,55 @@ Session::send_full_time_code (framepos_t const t)
 
        _send_timecode_update = false;
 
-       if (!Config->get_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 += _frames_per_timecode_frame;
        }
 
-       // Compensate for audio 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
@@ -415,24 +442,39 @@ Session::send_full_time_code (framepos_t const t)
 int
 Session::send_midi_time_code_for_cycle (framepos_t start_frame, framepos_t end_frame, pframes_t nframes)
 {
-       if (_slave || !_send_qf_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 */
-       framecnt_t const quarter_frame_duration = ((framecnt_t) _frames_per_timecode_frame) >> 2;
+       double const quarter_frame_duration = _frames_per_timecode_frame / 4.0;
 
-       DEBUG_TRACE (DEBUG::MTC, string_compose ("TF %1 SF %2 NQ %3 FD %4\n", start_frame, outbound_mtc_timecode_frame,
-                                                next_quarter_frame_to_send, quarter_frame_duration));
+       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));
 
-       assert ((outbound_mtc_timecode_frame + (next_quarter_frame_to_send * quarter_frame_duration)) >= _transport_frame);
+       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 (end_frame > (outbound_mtc_timecode_frame + (next_quarter_frame_to_send * quarter_frame_duration))) {
+       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));
 
@@ -463,7 +505,7 @@ Session::send_midi_time_code_for_cycle (framepos_t start_frame, framepos_t end_f
                                break;
                }
 
-               const framepos_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 >= start_frame);
@@ -475,7 +517,7 @@ Session::send_midi_time_code_for_cycle (framepos_t start_frame, framepos_t end_f
 
                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;
                }
 
@@ -498,7 +540,7 @@ Session::send_midi_time_code_for_cycle (framepos_t start_frame, framepos_t end_f
                        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;
                }
        }
 
@@ -539,9 +581,18 @@ Session::mmc_step_timeout ()
        return true;
 }
 
-/*---------------------------------------------------------------------------
-  MIDI THREAD
-  ---------------------------------------------------------------------------*/
+/***********************************************************************
+ OUTBOUND SYSTEM COMMON STUFF
+**********************************************************************/
+
+
+void
+Session::send_song_position_pointer (framepos_t t)
+{
+       if (midi_clock) {
+               midi_clock->position_changed (t);
+       }
+}
 
 int
 Session::start_midi_thread ()
@@ -551,12 +602,3 @@ Session::start_midi_thread ()
        return 0;
 }
 
-void
-Session::terminate_midi_thread ()
-{
-       if (midi_control_ui) {
-               midi_control_ui->quit ();
-       }
-}
-
-