2 Copyright (C) 1999-2002 Paul Davis
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
26 #include <ardour/timestamps.h>
28 #include <pbd/error.h>
29 #include <pbd/atomic.h>
30 #include <pbd/lockmonitor.h>
32 #include <ardour/ardour.h>
33 #include <ardour/session.h>
34 #include <ardour/diskstream.h>
35 #include <ardour/audioengine.h>
36 #include <ardour/slave.h>
37 #include <ardour/auditioner.h>
38 #include <ardour/cycles.h>
39 #include <ardour/cycle_timer.h>
43 using namespace ARDOUR;
44 //using namespace sigc;
48 Session::process (jack_nframes_t nframes)
50 if (synced_to_jack() && waiting_to_start) {
51 if ( _engine.transport_state() == AudioEngine::TransportRolling) {
52 actually_start_transport ();
56 if (non_realtime_work_pending()) {
57 if (atomic_read (&butler_should_do_transport_work) == 0) {
62 (this->*process_function) (nframes);
66 Session::prepare_diskstreams ()
68 for (DiskStreamList::iterator i = diskstreams.begin(); i != diskstreams.end(); ++i) {
74 Session::no_roll (jack_nframes_t nframes, jack_nframes_t offset)
76 jack_nframes_t end_frame = _transport_frame + nframes;
78 bool declick = get_transport_declick_required();
81 _click_io->silence (nframes, offset);
84 /* XXX we're supposed to have the route_lock while doing this.
85 this is really bad ...
88 if (atomic_read (&processing_prohibited)) {
89 for (RouteList::iterator i = routes.begin(); i != routes.end(); ++i) {
90 (*i)->silence (nframes, offset);
95 for (RouteList::iterator i = routes.begin(); i != routes.end(); ++i) {
101 (*i)->set_pending_declick (declick);
103 if ((*i)->no_roll (nframes, _transport_frame, end_frame, offset, non_realtime_work_pending(),
104 actively_recording(), declick)) {
105 error << string_compose(_("Session: error in no roll for %1"), (*i)->name()) << endmsg;
115 Session::process_routes (jack_nframes_t nframes, jack_nframes_t offset)
118 int declick = get_transport_declick_required();
119 bool rec_monitors = get_rec_monitors_input();
121 if (transport_sub_state & StopPendingCapture) {
122 /* force a declick out */
126 record_active = actively_recording(); // || (get_record_enabled() && get_punch_in());
128 for (RouteList::iterator i = routes.begin(); i != routes.end(); ++i) {
132 if ((*i)->hidden()) {
136 (*i)->set_pending_declick (declick);
138 if ((ret = (*i)->roll (nframes, _transport_frame, _transport_frame + nframes, offset, declick, record_active, rec_monitors)) < 0) {
140 /* we have to do this here. Route::roll() for an AudioTrack will have called DiskStream::process(),
141 and the DS will expect DiskStream::commit() to be called. but we're aborting from that
142 call path, so make sure we release any outstanding locks here before we return failure.
145 for (DiskStreamList::iterator ids = diskstreams.begin(); ids != diskstreams.end(); ++ids) {
158 Session::silent_process_routes (jack_nframes_t nframes, jack_nframes_t offset)
160 bool record_active = actively_recording();
161 int declick = get_transport_declick_required();
162 bool rec_monitors = get_rec_monitors_input();
164 if (transport_sub_state & StopPendingCapture) {
165 /* force a declick out */
169 for (RouteList::iterator i = routes.begin(); i != routes.end(); ++i) {
173 if ((*i)->hidden()) {
177 if ((ret = (*i)->silent_roll (nframes, _transport_frame, _transport_frame + nframes, offset, record_active, rec_monitors)) < 0) {
179 /* we have to do this here. Route::roll() for an AudioTrack will have called DiskStream::process(),
180 and the DS will expect DiskStream::commit() to be called. but we're aborting from that
181 call path, so make sure we release any outstanding locks here before we return failure.
184 for (DiskStreamList::iterator ids = diskstreams.begin(); ids != diskstreams.end(); ++ids) {
197 Session::commit_diskstreams (jack_nframes_t nframes, bool &needs_butler)
203 for (DiskStreamList::iterator i = diskstreams.begin(); i != diskstreams.end(); ++i) {
205 if ((*i)->hidden()) {
209 /* force all diskstreams not handled by a Route to call do their stuff.
212 if ((dret = (*i)->process (_transport_frame, nframes, 0, actively_recording(), get_rec_monitors_input())) == 0) {
213 if ((*i)->commit (nframes)) {
217 } else if (dret < 0) {
221 pworst = min (pworst, (*i)->playback_buffer_load());
222 cworst = min (cworst, (*i)->capture_buffer_load());
225 uint32_t pmin = atomic_read (&_playback_load);
226 uint32_t pminold = atomic_read (&_playback_load_min);
227 uint32_t cmin = atomic_read (&_capture_load);
228 uint32_t cminold = atomic_read (&_capture_load_min);
230 atomic_set (&_playback_load, (uint32_t) floor (pworst * 100.0f));
231 atomic_set (&_capture_load, (uint32_t) floor (cworst * 100.0f));
232 atomic_set (&_playback_load_min, min (pmin, pminold));
233 atomic_set (&_capture_load_min, min (cmin, cminold));
235 if (actively_recording()) {
241 Session::process_with_events (jack_nframes_t nframes)
244 jack_nframes_t this_nframes;
245 jack_nframes_t end_frame;
246 jack_nframes_t offset;
247 bool session_needs_butler = false;
248 jack_nframes_t stop_limit;
252 auditioner->silence (nframes, 0);
255 while (pending_events.read (&ev, 1) == 1) {
259 /* if we are not in the middle of a state change,
260 and there are immediate events queued up,
264 while (!non_realtime_work_pending() && !immediate_events.empty()) {
265 Event *ev = immediate_events.front ();
266 immediate_events.pop_front ();
270 if (!process_can_proceed()) {
271 no_roll (nframes, 0);
275 if (events.empty() || next_event == events.end()) {
276 process_without_events (nframes);
280 end_frame = _transport_frame + nframes;
283 TentativeLockMonitor rm (route_lock, __LINE__, __FILE__);
285 Events::iterator the_next_one;
287 if (!rm.locked() || (post_transport_work & (PostTransportLocate|PostTransportStop))) {
288 no_roll (nframes, 0);
292 if (!_exporting && _slave) {
293 if (!follow_slave (nframes, 0)) {
298 if (_transport_speed == 0) {
299 no_roll (nframes, 0);
303 if (actively_recording()) {
304 stop_limit = max_frames;
307 if (Config->get_stop_at_session_end()) {
308 stop_limit = current_end_frame();
310 stop_limit = max_frames;
314 if (maybe_stop (stop_limit)) {
315 no_roll (nframes, 0);
319 this_event = *next_event;
320 the_next_one = next_event;
327 if (this_event == 0 || this_event->action_frame > end_frame || this_event->action_frame < _transport_frame) {
329 this_nframes = nframes;
333 /* compute nframes to next event */
335 if (this_event->action_frame < end_frame) {
336 this_nframes = nframes - (end_frame - this_event->action_frame);
338 this_nframes = nframes;
344 click (_transport_frame, nframes, offset);
346 /* now process frames between now and the first event in this block */
347 prepare_diskstreams ();
349 if (process_routes (this_nframes, offset)) {
350 no_roll (nframes, 0);
354 commit_diskstreams (this_nframes, session_needs_butler);
356 nframes -= this_nframes;
357 offset += this_nframes;
359 frames_moved = (jack_nframes_t) floor (_transport_speed * this_nframes);
361 if (frames_moved < 0) {
362 decrement_transport_position (-frames_moved);
364 increment_transport_position (frames_moved);
367 maybe_stop (stop_limit);
368 check_declick_out ();
371 /* now handle this event and all others scheduled for the same time */
373 while (this_event && this_event->action_frame == _transport_frame) {
374 process_event (this_event);
376 if (the_next_one == events.end()) {
379 this_event = *the_next_one;
384 /* if an event left our state changing, do the right thing */
386 if (non_realtime_work_pending()) {
387 no_roll (nframes, offset);
391 /* this is necessary to handle the case of seamless looping */
392 /* not sure if it will work in conjuction with varispeed */
393 end_frame = _transport_frame + nframes;
399 } /* implicit release of route lock */
402 if (session_needs_butler) {
406 if (!_engine.freewheeling() && send_mtc) {
407 send_midi_time_code_in_another_thread ();
414 Session::reset_slave_state ()
416 average_slave_delta = 1800;
417 delta_accumulator_cnt = 0;
418 have_first_delta_accumulator = false;
419 slave_state = Stopped;
423 Session::follow_slave (jack_nframes_t nframes, jack_nframes_t offset)
426 jack_nframes_t slave_transport_frame;
427 jack_nframes_t this_delta;
433 set_slave_source (None, 0);
437 _slave->speed_and_position (slave_speed, slave_transport_frame);
439 if (!_slave->locked()) {
443 if (slave_transport_frame > _transport_frame) {
444 this_delta = slave_transport_frame - _transport_frame;
447 this_delta = _transport_frame - slave_transport_frame;
451 if ((starting = _slave->starting())) {
456 cerr << "delta = " << (int) (dir * this_delta)
457 << " speed = " << slave_speed
458 << " ts = " << _transport_speed
459 << " M@"<< slave_transport_frame << " S@" << _transport_frame
460 << " avgdelta = " << average_slave_delta
464 if (Config->get_timecode_source_is_synced()) {
466 /* if the TC source is synced, then we assume that its
467 speed is binary: 0.0 or 1.0
470 if (slave_speed != 0.0f) {
476 /* TC source is able to drift relative to us (slave)
477 so we need to keep track of the drift and adjust
478 our speed to remain locked.
481 if (delta_accumulator_cnt >= delta_accumulator_size) {
482 have_first_delta_accumulator = true;
483 delta_accumulator_cnt = 0;
486 if (delta_accumulator_cnt != 0 || this_delta < _current_frame_rate) {
487 delta_accumulator[delta_accumulator_cnt++] = dir*this_delta;
490 if (have_first_delta_accumulator) {
491 average_slave_delta = 0;
492 for (int i = 0; i < delta_accumulator_size; ++i) {
493 average_slave_delta += delta_accumulator[i];
495 average_slave_delta /= delta_accumulator_size;
496 if (average_slave_delta < 0) {
498 average_slave_delta = -average_slave_delta;
502 // cerr << "avgdelta = " << average_slave_delta*average_dir << endl;
506 if (slave_speed != 0.0f) {
508 /* slave is running */
510 switch (slave_state) {
512 if (_slave->requires_seekahead()) {
513 slave_wait_end = slave_transport_frame + _current_frame_rate;
514 locate (slave_wait_end, false, false);
515 slave_state = Waiting;
520 slave_state = Running;
522 Location* al = _locations.auto_loop_location();
524 if (al && auto_loop && (slave_transport_frame < al->start() || slave_transport_frame > al->end())) {
526 request_auto_loop(false);
529 if (slave_transport_frame != _transport_frame) {
530 locate (slave_transport_frame, false, false);
543 if (slave_state == Waiting) {
545 // cerr << "waiting at " << slave_transport_frame << endl;
547 if (slave_transport_frame >= slave_wait_end) {
548 // cerr << "\tstart at " << _transport_frame << endl;
549 slave_state = Running;
552 jack_nframes_t frame_delta = slave_transport_frame - _transport_frame;
554 for (DiskStreamList::iterator i = diskstreams.begin(); i != diskstreams.end(); ++i) {
555 if (!(*i)->can_internal_playback_seek (frame_delta)) {
562 for (DiskStreamList::iterator i = diskstreams.begin(); i != diskstreams.end(); ++i) {
563 (*i)->internal_playback_seek (frame_delta);
565 _transport_frame += frame_delta;
568 // cerr << "cannot micro-seek\n";
572 memset (delta_accumulator, 0, sizeof (jack_nframes_t) * delta_accumulator_size);
573 average_slave_delta = 0;
578 if (slave_state == Running && _transport_speed == 0.0f) {
580 // cerr << "slave starts transport\n";
587 /* slave has stopped */
589 if (_transport_speed != 0.0f) {
591 // cerr << "slave stops transport: " << slave_speed << " frame: " << slave_transport_frame
592 // << " tf = " << _transport_frame
595 if (_slave_type == JACK) {
596 last_stop_frame = _transport_frame;
602 if (slave_transport_frame != _transport_frame) {
603 // cerr << "slave stopped, move to " << slave_transport_frame << endl;
604 force_locate (slave_transport_frame, false);
607 slave_state = Stopped;
610 if (slave_state == Running && !Config->get_timecode_source_is_synced()) {
613 if (_transport_speed != 0.0f) {
616 note that average_dir is +1 or -1
619 const float adjust_seconds = 1.0f;
622 //if (average_slave_delta == 0) {
626 // delta = average_slave_delta;
627 // delta *= average_dir;
630 float adjusted_speed = slave_speed +
631 (delta / (adjust_seconds * _current_frame_rate));
633 // cerr << "adjust using " << delta
634 // << " towards " << adjusted_speed
635 // << " ratio = " << adjusted_speed / slave_speed
636 // << " current = " << _transport_speed
637 // << " slave @ " << slave_speed
640 request_transport_speed (adjusted_speed);
643 if ((jack_nframes_t) average_slave_delta > _slave->resolution()) {
644 // cerr << "not locked\n";
651 if (!starting && !non_realtime_work_pending()) {
652 /* speed is set, we're locked, and good to go */
658 if (slave_speed && _transport_speed) {
660 /* something isn't right, but we should move with the master
666 prepare_diskstreams ();
667 silent_process_routes (nframes, offset);
668 commit_diskstreams (nframes, need_butler);
674 jack_nframes_t frames_moved = (long) floor (_transport_speed * nframes);
676 if (frames_moved < 0) {
677 decrement_transport_position (-frames_moved);
679 increment_transport_position (frames_moved);
682 jack_nframes_t stop_limit;
684 if (actively_recording()) {
685 stop_limit = max_frames;
687 if (Config->get_stop_at_session_end()) {
688 stop_limit = current_end_frame();
690 stop_limit = max_frames;
694 maybe_stop (stop_limit);
698 /* don't move at all */
699 no_roll (nframes, 0);
704 Session::process_without_events (jack_nframes_t nframes)
706 bool session_needs_butler = false;
707 jack_nframes_t stop_limit;
711 TentativeLockMonitor rm (route_lock, __LINE__, __FILE__);
713 if (!rm.locked() || (post_transport_work & (PostTransportLocate|PostTransportStop))) {
714 no_roll (nframes, 0);
718 if (!_exporting && _slave) {
719 if (!follow_slave (nframes, 0)) {
724 if (_transport_speed == 0) {
725 no_roll (nframes, 0);
729 if (actively_recording()) {
730 stop_limit = max_frames;
732 if (Config->get_stop_at_session_end()) {
733 stop_limit = current_end_frame();
735 stop_limit = max_frames;
739 if (maybe_stop (stop_limit)) {
740 no_roll (nframes, 0);
744 click (_transport_frame, nframes, 0);
746 prepare_diskstreams ();
748 frames_moved = (long) floor (_transport_speed * nframes);
750 if (process_routes (nframes, 0)) {
751 no_roll (nframes, 0);
755 commit_diskstreams (nframes, session_needs_butler);
757 if (frames_moved < 0) {
758 decrement_transport_position (-frames_moved);
760 increment_transport_position (frames_moved);
763 maybe_stop (stop_limit);
764 check_declick_out ();
766 } /* implicit release of route lock */
768 if (session_needs_butler) {
772 if (!_engine.freewheeling() && send_mtc) {
773 send_midi_time_code_in_another_thread ();
780 Session::process_audition (jack_nframes_t nframes)
782 TentativeLockMonitor rm (route_lock, __LINE__, __FILE__);
786 for (RouteList::iterator i = routes.begin(); i != routes.end(); ++i) {
787 if (!(*i)->hidden()) {
788 (*i)->silence (nframes, 0);
793 if (auditioner->play_audition (nframes) > 0) {
797 while (pending_events.read (&ev, 1) == 1) {
801 /* if we are not in the middle of a state change,
802 and there are immediate events queued up,
806 while (!non_realtime_work_pending() && !immediate_events.empty()) {
807 Event *ev = immediate_events.front ();
808 immediate_events.pop_front ();
812 if (!auditioner->active()) {
813 process_function = &Session::process_with_events;