/*
 * CINELERRA
 * Copyright (C) 2009 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 "bcsignals.h"
#include "file.h"
#include "language.h"
#include "mainprogress.h"
#include "../../cinelerra/resample.h"
#include "resample.h"
#include "samples.h"
#include "transportque.inc"
#include "vframe.h"




PluginClient* new_plugin(PluginServer *server)
{
	return new ResampleEffect(server);
}



ResampleFraction::ResampleFraction(ResampleEffect *plugin, int x, int y)
 : BC_TextBox(x, y, xS(100), 1, (float)plugin->scale, 1, MEDIUMFONT, 6)
{
	this->plugin = plugin;
}

int ResampleFraction::handle_event()
{
	plugin->scale = atof(get_text());
	return 1;
}








ResampleWindow::ResampleWindow(ResampleEffect *plugin, int x, int y)
 : BC_Window(_(PROGRAM_NAME ": Resample"),
				x - xS(160),
				y - yS(75),
				xS(320),
				yS(150),
				xS(320),
				yS(150),
				0,
				0,
				1)
{
	this->plugin = plugin;
// *** CONTEXT_HELP ***
	if(plugin) context_help_set_keyword(plugin->plugin_title());
	else 	   context_help_set_keyword("Rendered Audio Effects");
}

void ResampleWindow::create_objects()
{
	int xs10 = xS(10);
	int ys10 = yS(10), ys20 = yS(20);
	int x = xs10, y = ys10;
	lock_window("ResampleWindow::create_objects");
	add_subwindow(new BC_Title(x, y, _("Scale factor:")));
	y += ys20;
	add_subwindow(new ResampleFraction(plugin, x, y));
	add_subwindow(new BC_OKButton(this));
	add_subwindow(new BC_CancelButton(this));
	show_window();
	unlock_window();
}








ResampleResample::ResampleResample(ResampleEffect *plugin)
{
	this->plugin = plugin;
}

int ResampleResample::read_samples(Samples *buffer, int64_t start, int64_t len)
{
//printf("ResampleResample::read_samples %d %lld\n", __LINE__, len);

	return plugin->read_samples(buffer,
		0,
		start + plugin->get_source_start(),
		len);
}







ResampleEffect::ResampleEffect(PluginServer *server)
 : PluginAClient(server)
{
	reset();
}

ResampleEffect::~ResampleEffect()
{
}

const char* ResampleEffect::plugin_title() { return N_("Resample"); }

void ResampleEffect::reset()
{
	resample = 0;
}

int ResampleEffect::get_parameters()
{
	BC_DisplayInfo info;
	ResampleWindow window(this, info.get_abs_cursor_x(), info.get_abs_cursor_y());
	window.create_objects();
	int result = window.run_window();

	return result;
}


int ResampleEffect::load_defaults()
{
	char directory[BCTEXTLEN];

// set the default directory
	sprintf(directory, "%s/resample.rc", File::get_config_path());
// load the defaults
	defaults = new BC_Hash(directory);
	defaults->load();

	scale = defaults->get("SCALE", (double)1);
//printf("ResampleEffect::load_defaults %d %f\n", __LINE__, scale);
	return 0;
}

int ResampleEffect::save_defaults()
{
//printf("ResampleEffect::save_defaults %d %f\n", __LINE__, scale);
	defaults->update("SCALE", scale);
	defaults->save();
	return 0;
}



int ResampleEffect::start_loop()
{
	if(PluginClient::interactive)
	{
		char string[BCTEXTLEN];
		sprintf(string, "%s...", plugin_title());
		progress = start_progress(string,
			(int64_t)((double)(PluginClient::end - PluginClient::start) / scale));
	}

	current_position = PluginClient::start;
	total_written = 0;

	resample = new ResampleResample(this);
	return 0;
}

int ResampleEffect::stop_loop()
{
	if(PluginClient::interactive)
	{
		progress->stop_progress();
		delete progress;
	}
	return 0;
}

int ResampleEffect::process_loop(Samples *buffer, int64_t &write_length)
{
	int result = 0;

// Length to read based on desired output size
//printf("ResampleEffect::process_loop %d %d\n", __LINE__);
//	int64_t size = (int64_t)((double)PluginAClient::in_buffer_size * scale);
	int64_t predicted_total = (int64_t)((double)(PluginClient::end - PluginClient::start) / scale + 0.5);

//	Samples *input = new Samples(size);

//	read_samples(input, 0, current_position, size);
//	current_position += size;

	resample->resample(buffer,
		PluginAClient::out_buffer_size,
		1000000,
		(int)(1000000.0 / scale),
		total_written,
		PLAY_FORWARD);

	write_length = PluginAClient::out_buffer_size;
	if(total_written + write_length >= predicted_total)
	{
		write_length = predicted_total - total_written;
		result = 1;
	}
	total_written += write_length;
//printf("ResampleEffect::process_loop %d %lld %f\n", __LINE__, write_length, scale);

// 	resample->resample_chunk(input,
// 		size,
// 		1000000,
// 		(int)(1000000.0 / scale),
// 		0);
//
// //
// 	if(resample->get_output_size(0))
// 	{
// 		int64_t output_size = resample->get_output_size(0);
//
// // 		if(output_size)
// 		{
// 			total_written += output_size;
// 		}
//
// // // Trim output to predicted length of stretched selection.
// 		if(total_written > predicted_total)
// 		{
// 			output_size -= total_written - predicted_total;
// 			result = 1;
// 		}
//
// // 		resample->read_output(buffer, 0, output_size);
//
// // 		write_length = output_size;
// 	}

	if(PluginClient::interactive) result |= progress->update(total_written);
//printf("ResampleEffect::process_loop %d %lld\n", __LINE__, total_written);

//	delete input;
	return result;
}