-bool
-Session::follow_slave (pframes_t nframes)
-{
- double slave_speed;
- framepos_t slave_transport_frame;
- framecnt_t this_delta;
- int dir;
-
- if (!_slave->ok()) {
- stop_transport ();
- config.set_external_sync (false);
- goto noroll;
- }
-
- _slave->speed_and_position (slave_speed, slave_transport_frame);
-
- DEBUG_TRACE (DEBUG::Slave, string_compose ("Slave position %1 speed %2\n", slave_transport_frame, slave_speed));
-
- if (!_slave->locked()) {
- DEBUG_TRACE (DEBUG::Slave, "slave not locked\n");
- goto noroll;
- }
-
- if (slave_transport_frame > _transport_frame) {
- this_delta = slave_transport_frame - _transport_frame;
- dir = 1;
- } else {
- this_delta = _transport_frame - slave_transport_frame;
- dir = -1;
- }
-
- if (_slave->starting()) {
- slave_speed = 0.0f;
- }
-
- if (_slave->is_always_synced() ||
- (Config->get_timecode_source_is_synced() && (dynamic_cast<TimecodeSlave*>(_slave)) != 0)
- ) {
-
- /* if the TC source is synced, then we assume that its
- speed is binary: 0.0 or 1.0
- */
-
- if (slave_speed != 0.0f) {
- slave_speed = 1.0f;
- }
-
- } else {
-
- /* if we are chasing and the average delta between us and the
- master gets too big, we want to switch to silent
- motion. so keep track of that here.
- */
-
- if (_slave_state == Running) {
- calculate_moving_average_of_slave_delta(dir, this_delta);
- }
- }
-
- track_slave_state (slave_speed, slave_transport_frame, this_delta);
-
- DEBUG_TRACE (DEBUG::Slave, string_compose ("slave state %1 @ %2 speed %3 cur delta %4 avg delta %5\n",
- _slave_state, slave_transport_frame, slave_speed, this_delta, average_slave_delta));
-
-
- if (_slave_state == Running && !_slave->is_always_synced() &&
- !(Config->get_timecode_source_is_synced() && (dynamic_cast<TimecodeSlave*>(_slave)) != 0)
- ) {
-
- if (_transport_speed != 0.0f) {
-
- /*
- note that average_dir is +1 or -1
- */
-
- float delta;
-
- if (average_slave_delta == 0) {
- delta = this_delta;
- delta *= dir;
- } else {
- delta = average_slave_delta;
- delta *= average_dir;
- }
-
-#ifndef NDEBUG
- if (slave_speed != 0.0) {
- DEBUG_TRACE (DEBUG::Slave, string_compose ("delta = %1 speed = %2 ts = %3 M@%4 S@%5 avgdelta %6\n",
- (int) (dir * this_delta),
- slave_speed,
- _transport_speed,
- _transport_frame,
- slave_transport_frame,
- average_slave_delta));
- }
-#endif
-
- if (_slave->give_slave_full_control_over_transport_speed()) {
- set_transport_speed (slave_speed, 0, false, false);
- //std::cout << "set speed = " << slave_speed << "\n";
- } else {
- float adjusted_speed = slave_speed + (1.5 * (delta / float(_current_frame_rate)));
- request_transport_speed (adjusted_speed);
- DEBUG_TRACE (DEBUG::Slave, string_compose ("adjust using %1 towards %2 ratio %3 current %4 slave @ %5\n",
- delta, adjusted_speed, adjusted_speed/slave_speed, _transport_speed,
- slave_speed));
- }
-
-#if 1
- if (!actively_recording() && (framecnt_t) abs(average_slave_delta) > _slave->resolution()) {
- cerr << "average slave delta greater than slave resolution (" << _slave->resolution() << "), going to silent motion\n";
- goto silent_motion;
- }
-#endif
- }
- }
-
-
- if (_slave_state == Running && !non_realtime_work_pending()) {
- /* speed is set, we're locked, and good to go */
- return true;
- }
-
- silent_motion:
- DEBUG_TRACE (DEBUG::Slave, "silent motion\n")
- follow_slave_silently (nframes, slave_speed);
-
- noroll:
- /* don't move at all */
- DEBUG_TRACE (DEBUG::Slave, "no roll\n")
- no_roll (nframes);
- return false;
-}
-
-void
-Session::calculate_moving_average_of_slave_delta (int dir, framecnt_t this_delta)
-{
- if (delta_accumulator_cnt >= delta_accumulator_size) {
- have_first_delta_accumulator = true;
- delta_accumulator_cnt = 0;
- }
-
- if (delta_accumulator_cnt != 0 || this_delta < _current_frame_rate) {
- delta_accumulator[delta_accumulator_cnt++] = (framecnt_t) dir * (framecnt_t) this_delta;
- }
-
- if (have_first_delta_accumulator) {
- average_slave_delta = 0L;
- for (int i = 0; i < delta_accumulator_size; ++i) {
- average_slave_delta += delta_accumulator[i];
- }
- average_slave_delta /= (int32_t) delta_accumulator_size;
- if (average_slave_delta < 0L) {
- average_dir = -1;
- average_slave_delta = abs(average_slave_delta);
- } else {
- average_dir = 1;
- }
- }
-}
-
-void
-Session::track_slave_state (float slave_speed, framepos_t slave_transport_frame, framecnt_t /*this_delta*/)
-{
- if (slave_speed != 0.0f) {
-
- /* slave is running */
-
- switch (_slave_state) {
- case Stopped:
- if (_slave->requires_seekahead()) {
- slave_wait_end = slave_transport_frame + _slave->seekahead_distance ();
- DEBUG_TRACE (DEBUG::Slave, string_compose ("slave stopped, but running, requires seekahead to %1\n", slave_wait_end));
- /* we can call locate() here because we are in process context */
- locate (slave_wait_end, false, false);
- _slave_state = Waiting;
-
- } else {
-
- DEBUG_TRACE (DEBUG::Slave, string_compose ("slave stopped -> running at %1\n", slave_transport_frame));
-
- memset (delta_accumulator, 0, sizeof (int32_t) * delta_accumulator_size);
- average_slave_delta = 0L;
-
- Location* al = _locations->auto_loop_location();
-
- if (al && play_loop && (slave_transport_frame < al->start() || slave_transport_frame > al->end())) {
- // cancel looping
- request_play_loop(false);
- }
-
- if (slave_transport_frame != _transport_frame) {
- DEBUG_TRACE (DEBUG::Slave, string_compose ("require locate to run. eng: %1 -> sl: %2\n", _transport_frame, slave_transport_frame));
- locate (slave_transport_frame, false, false);
- }
- _slave_state = Running;
- }
- break;
-
- case Waiting:
- default:
- break;
- }
-
- if (_slave_state == Waiting) {
-
- DEBUG_TRACE (DEBUG::Slave, string_compose ("slave waiting at %1\n", slave_transport_frame));
-
- if (slave_transport_frame >= slave_wait_end) {
-
- DEBUG_TRACE (DEBUG::Slave, string_compose ("slave start at %1 vs %2\n", slave_transport_frame, _transport_frame));
-
- _slave_state = Running;
-
- /* now perform a "micro-seek" within the disk buffers to realign ourselves
- precisely with the master.
- */
-
-
- bool ok = true;
- framecnt_t frame_delta = slave_transport_frame - _transport_frame;
-
- boost::shared_ptr<RouteList> rl = routes.reader();
- for (RouteList::iterator i = rl->begin(); i != rl->end(); ++i) {
- boost::shared_ptr<Track> tr = boost::dynamic_pointer_cast<Track> (*i);
- if (tr && !tr->can_internal_playback_seek (frame_delta)) {
- ok = false;
- break;
- }
- }
-
- if (ok) {
- for (RouteList::iterator i = rl->begin(); i != rl->end(); ++i) {
- boost::shared_ptr<Track> tr = boost::dynamic_pointer_cast<Track> (*i);
- if (tr) {
- tr->internal_playback_seek (frame_delta);
- }
- }
- _transport_frame += frame_delta;
-
- } else {
- cerr << "cannot micro-seek\n";
- /* XXX what? */
- }
- }
- }
-
- if (_slave_state == Running && _transport_speed == 0.0f) {
- DEBUG_TRACE (DEBUG::Slave, "slave starts transport\n");
- start_transport ();
- }
-
- } else { // slave_speed is 0
-
- /* slave has stopped */
-
- if (_transport_speed != 0.0f) {
- DEBUG_TRACE (DEBUG::Slave, string_compose ("slave stops transport: %1 frame %2 tf %3\n", slave_speed, slave_transport_frame, _transport_frame));
- stop_transport ();
- }
-
- if (slave_transport_frame != _transport_frame) {
- DEBUG_TRACE (DEBUG::Slave, string_compose ("slave stopped, move to %1\n", slave_transport_frame));
- force_locate (slave_transport_frame, false);
- }
-
- reset_slave_state();
- }
-}
-
-void
-Session::follow_slave_silently (pframes_t nframes, float slave_speed)
-{
- if (slave_speed && _transport_speed) {
-
- /* something isn't right, but we should move with the master
- for now.
- */
-
- bool need_butler = false;
-
- silent_process_routes (nframes, need_butler);
-
- get_track_statistics ();
-
- if (need_butler) {
- _butler->summon ();
- }
-
- int32_t frames_moved = (int32_t) floor (_transport_speed * nframes);
-
- if (frames_moved < 0) {
- decrement_transport_position (-frames_moved);
- } else {
- increment_transport_position (frames_moved);
- }
-
- framepos_t const stop_limit = compute_stop_limit ();
- maybe_stop (stop_limit);
- }
-}
-