2 Copyright (C) 2004-2007 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.
23 #include <pbd/error.h>
25 #include <ardour/types.h>
26 #include <ardour/stretch.h>
27 #include <ardour/audiofilesource.h>
28 #include <ardour/session.h>
29 #include <ardour/audioregion.h>
34 using namespace ARDOUR;
36 using namespace soundtouch;
38 Stretch::Stretch (Session& s, TimeStretchRequest& req)
44 /* the soundtouch code wants a *tempo* change percentage, which is
45 of opposite sign to the length change.
48 percentage = -tsr.fraction;
50 st.setSampleRate (s.frame_rate());
52 st.setTempoChange (percentage);
53 st.setPitchSemiTones (0);
56 st.setSetting(SETTING_USE_QUICKSEEK, tsr.quick_seek);
57 st.setSetting(SETTING_USE_AA_FILTER, tsr.antialias);
67 Stretch::run (boost::shared_ptr<AudioRegion> region)
70 nframes_t total_frames;
73 const nframes_t bufsize = 16384;
74 gain_t *gain_buffer = 0;
83 total_frames = region->length() * region->n_channels();
86 /* the name doesn't need to be super-precise, but allow for 2 fractional
87 digits just to disambiguate close but not identical stretches.
90 snprintf (suffix, sizeof (suffix), "@%d", (int) floor (tsr.fraction * 100.0f));
92 /* create new sources */
94 if (make_new_sources (region, nsrcs, suffix)) {
98 gain_buffer = new gain_t[bufsize];
99 buffer = new Sample[bufsize];
101 // soundtouch throws runtime_error on error
104 for (uint32_t i = 0; i < nsrcs.size(); ++i) {
107 nframes_t this_read = 0;
111 while (!tsr.cancel && pos < region->length()) {
114 this_time = min (bufsize, region->length() - pos);
116 /* read from the master (original) sources for the region,
117 not the ones currently in use, in case it's already been
121 if ((this_read = region->master_read_at (buffer, buffer, gain_buffer, pos + region->position(), this_time)) != this_time) {
122 error << string_compose (_("tempoize: error reading data from %1"), nsrcs[i]->name()) << endmsg;
129 tsr.progress = (float) done / total_frames;
131 st.putSamples (buffer, this_read);
133 while ((this_read = st.receiveSamples (buffer, bufsize)) > 0 && !tsr.cancel) {
134 if (nsrcs[i]->write (buffer, this_read) != this_read) {
135 error << string_compose (_("error writing tempo-adjusted data to %1"), nsrcs[i]->name()) << endmsg;
145 while (!tsr.cancel && (this_read = st.receiveSamples (buffer, bufsize)) > 0) {
146 if (nsrcs[i]->write (buffer, this_read) != this_read) {
147 error << string_compose (_("error writing tempo-adjusted data to %1"), nsrcs[i]->name()) << endmsg;
153 } catch (runtime_error& err) {
154 error << _("timefx code failure. please notify ardour-developers.") << endmsg;
155 error << err.what() << endmsg;
159 new_name = region->name();
160 at = new_name.find ('@');
162 // remove any existing stretch indicator
164 if (at != string::npos && at > 2) {
165 new_name = new_name.substr (0, at - 1);
170 ret = finish (region, nsrcs, new_name);
172 /* now reset ancestral data for each new region */
174 for (vector<boost::shared_ptr<AudioRegion> >::iterator x = results.begin(); x != results.end(); ++x) {
175 nframes64_t astart = (*x)->ancestral_start();
176 nframes64_t alength = (*x)->ancestral_length();
180 // note: tsr.fraction is a percentage of original length. 100 = no change,
181 // 50 is half as long, 200 is twice as long, etc.
183 float stretch = (*x)->stretch() * (tsr.fraction/100.0);
185 start = (nframes_t) floor (astart + ((astart - (*x)->start()) / stretch));
186 length = (nframes_t) floor (alength / stretch);
188 (*x)->set_ancestral_data (start, length, stretch);
194 delete [] gain_buffer;
201 if (ret || tsr.cancel) {
202 for (SourceList::iterator si = nsrcs.begin(); si != nsrcs.end(); ++si) {
203 (*si)->mark_for_remove ();