+++ /dev/null
-
-/*
- * CINELERRA
- * Copyright (C) 2011 Adam Williams <broadcast at earthling dot net>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- *
- */
-
-#include "bcdisplayinfo.h"
-#include "bchash.h"
-#include "filexml.h"
-#include "format.inc"
-#include "language.h"
-#include "theme.h"
-#include "../timestretch/timestretchengine.h"
-#include "timestretchrt.h"
-#include "transportque.h"
-
-#include <string.h>
-
-
-
-
-
-
-
-REGISTER_PLUGIN(TimeStretchRT);
-
-
-
-TimeStretchRTConfig::TimeStretchRTConfig()
-{
- scale = 1;
- size = 40;
-}
-
-
-int TimeStretchRTConfig::equivalent(TimeStretchRTConfig &src)
-{
- return fabs(scale - src.scale) < 0.0001 && size == src.size;
-}
-
-void TimeStretchRTConfig::copy_from(TimeStretchRTConfig &src)
-{
- this->scale = src.scale;
- this->size = src.size;
-}
-
-void TimeStretchRTConfig::interpolate(TimeStretchRTConfig &prev,
- TimeStretchRTConfig &next,
- int64_t prev_frame,
- int64_t next_frame,
- int64_t current_frame)
-{
- this->scale = prev.scale;
- this->size = prev.size;
- boundaries();
-}
-
-void TimeStretchRTConfig::boundaries()
-{
- if(fabs(scale) < 0.01) scale = 0.01;
- if(fabs(scale) > 100) scale = 100;
- if(size < 10) size = 10;
- if(size > 1000) size = 1000;
-}
-
-
-
-
-TimeStretchRTWindow::TimeStretchRTWindow(TimeStretchRT *plugin)
- : PluginClientWindow(plugin,
- 210,
- 160,
- 200,
- 160,
- 0)
-{
- this->plugin = plugin;
-}
-
-TimeStretchRTWindow::~TimeStretchRTWindow()
-{
-}
-
-void TimeStretchRTWindow::create_objects()
-{
- int x = 10, y = 10;
-
- BC_Title *title = 0;
- add_subwindow(title = new BC_Title(x, y, _("Fraction of original speed:")));
- y += title->get_h() + plugin->get_theme()->widget_border;
- scale = new TimeStretchRTScale(this,
- plugin,
- x,
- y);
- scale->create_objects();
-
- y += scale->get_h() + plugin->get_theme()->widget_border;
- add_subwindow(title = new BC_Title(x, y, _("Window size (ms):")));
- y += title->get_h() + plugin->get_theme()->widget_border;
- size = new TimeStretchRTSize(this,
- plugin,
- x,
- y);
- size->create_objects();
-
- show_window();
-}
-
-
-
-
-
-
-TimeStretchRTScale::TimeStretchRTScale(TimeStretchRTWindow *window,
- TimeStretchRT *plugin,
- int x,
- int y)
- : BC_TumbleTextBox(window,
- (float)(1.0 / plugin->config.scale),
- (float)0.0001,
- (float)1000,
- x,
- y,
- 100)
-{
- this->plugin = plugin;
- set_increment(0.01);
-}
-
-int TimeStretchRTScale::handle_event()
-{
- plugin->config.scale = 1.0 / atof(get_text());
- plugin->send_configure_change();
- return 1;
-}
-
-
-
-
-TimeStretchRTSize::TimeStretchRTSize(TimeStretchRTWindow *window,
- TimeStretchRT *plugin,
- int x,
- int y)
- : BC_TumbleTextBox(window,
- plugin->config.size,
- 10,
- 1000,
- x,
- y,
- 100)
-{
- this->plugin = plugin;
- set_increment(10);
-}
-
-int TimeStretchRTSize::handle_event()
-{
- plugin->config.size = atoi(get_text());
- plugin->send_configure_change();
- return 1;
-}
-
-
-
-
-
-
-
-
-TimeStretchRT::TimeStretchRT(PluginServer *server)
- : PluginAClient(server)
-{
- need_reconfigure = 1;
- dest_start = -1;
- source_start = -1;
- engine = 0;
-}
-
-
-TimeStretchRT::~TimeStretchRT()
-{
- delete engine;
-}
-
-const char* TimeStretchRT::plugin_title() { return _("Time Stretch RT"); }
-int TimeStretchRT::is_realtime() { return 1; }
-int TimeStretchRT::is_synthesis() { return 1; }
-
-
-NEW_WINDOW_MACRO(TimeStretchRT, TimeStretchRTWindow)
-
-LOAD_CONFIGURATION_MACRO(TimeStretchRT, TimeStretchRTConfig)
-
-
-int TimeStretchRT::process_buffer(int64_t size,
- Samples *buffer,
- int64_t start_position,
- int sample_rate)
-{
- need_reconfigure = load_configuration();
-
- if(!engine) engine = new TimeStretchEngine(config.scale,
- sample_rate,
- config.size);
-
- if(start_position != dest_start) need_reconfigure = 1;
- dest_start = start_position;
-
-// Get start position of the input.
-// Sample 0 is the keyframe position
-//printf("TimeStretchRT::process_buffer %d %f\n", __LINE__, config.scale);
- if(need_reconfigure)
- {
- int64_t prev_position = edl_to_local(
- get_prev_keyframe(
- get_source_position())->position);
-
- if(prev_position == 0)
- {
- prev_position = get_source_start();
- }
-
- source_start = (int64_t)((start_position - prev_position) /
- config.scale) + prev_position;
-
- engine->reset();
- engine->update(config.scale, sample_rate, config.size);
- need_reconfigure = 0;
-//printf("TimeStretchRT::process_buffer %d start_position=" _LD
-// " prev_position=%jd scale=%f source_start=%jd\n",
-// __LINE__, start_position, prev_position, config.scale, source_start);
- }
-
-// process buffers until output length is reached
- int error = 0;
- while(!error && engine->get_output_size() < size)
- {
-
-// printf("TimeStretchRT::process_buffer %d buffer=%p size=%lld source_start=%lld\n",
-// __LINE__,
-// buffer,
-// size,
-// source_start);
- read_samples(buffer,
- 0,
- sample_rate,
- source_start,
- size);
-
-
- if(get_direction() == PLAY_FORWARD)
- source_start += size;
- else
- source_start -= size;
-
-//printf("TimeStretchRT::process_buffer %d size=%d\n", __LINE__, size);
- engine->process(buffer, size);
-//printf("TimeStretchRT::process_buffer %d\n", __LINE__);
-
- }
-//printf("TimeStretchRT::process_buffer %d\n", __LINE__);
-
-
- engine->read_output(buffer, size);
-
-//printf("TimeStretchRT::process_buffer %d\n", __LINE__);
- if(get_direction() == PLAY_FORWARD)
- dest_start += size;
- else
- dest_start -= size;
-
- return 0;
-}
-
-
-
-
-
-void TimeStretchRT::save_data(KeyFrame *keyframe)
-{
- FileXML output;
-
-// cause data to be stored directly in text
- output.set_shared_output(keyframe->get_data(), MESSAGESIZE);
- output.tag.set_title("TIMESTRETCHRT");
- output.tag.set_property("SCALE", config.scale);
- output.tag.set_property("SIZE", config.size);
- output.append_tag();
- output.tag.set_title("/TIMESTRETCHRT");
- output.append_tag();
- output.append_newline();
- output.terminate_string();
-}
-
-void TimeStretchRT::read_data(KeyFrame *keyframe)
-{
- FileXML input;
-
- input.set_shared_input(keyframe->get_data(), strlen(keyframe->get_data()));
-
- while(!input.read_tag())
- {
- if(input.tag.title_is("TIMESTRETCHRT"))
- {
- config.scale = input.tag.get_property("SCALE", config.scale);
- config.size = input.tag.get_property("SIZE", config.size);
- }
- }
-}
-
-void TimeStretchRT::update_gui()
-{
- if(thread)
- {
- if(load_configuration())
- {
-
- thread->window->lock_window("TimeStretchRT::update_gui");
- ((TimeStretchRTWindow*)thread->window)->scale->update((float)(1.0 / config.scale));
- ((TimeStretchRTWindow*)thread->window)->size->update((int64_t)config.size);
- thread->window->unlock_window();
- }
- }
-}
-
-
-
-
-