/*  SpiralPlugin
 *  Copyleft (C) 2000 David Griffiths <dave@pawfal.org>
 *
 *  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 <stdio.h>
#include "ControllerPluginGUI.h"
#include <FL/fl_draw.h>
#include <FL/fl_draw.H>

static const int GUI_COLOUR = 179;
static const int GUIBG_COLOUR = 144;
static const int GUIBG2_COLOUR = 145;

////////////////////////////////////////////

ControllerPluginGUI::CVGUI::CVGUI(int n, ControllerPluginGUI *p)
{
	m_SliderGroup = new Fl_Group(0,0,60,153,"");
	m_SliderGroup->box(FL_UP_BOX);
	m_SliderGroup->user_data((void *)p);

	m_Title = new Fl_Input(5,2,50,15,"");
	m_Title->value("Name");
	m_Title->textsize(10);
	m_Title->callback((Fl_Callback*)ControllerPluginGUI::cb_Title,
		(void*)&Numbers[n]);
	m_SliderGroup->add(m_Title);

	m_Max = new Fl_Input(5,18,50,15,"");
	char t[64];
	sprintf(t,"%.6f",1.0f);
	m_Max->value(t);
	m_Max->textsize(10);
	m_Max->callback((Fl_Callback*)ControllerPluginGUI::cb_Max,
		(void*)&Numbers[n]);
	m_SliderGroup->add(m_Max);

	m_Chan = new Fl_Slider(20, 34, 20, 100, "");
	m_Chan->type(4);
	m_Chan->selection_color(GUI_COLOUR);
	m_Chan->maximum(1);
	m_Chan->step(0.01);
	m_Chan->value(0.5);
   	m_Chan->callback((Fl_Callback*)ControllerPluginGUI::cb_Chan,
		(void*)&Numbers[n]);
	m_SliderGroup->add(m_Chan);

	m_Min = new Fl_Input(5,136,50,15,"");
	char t2[64];
	sprintf(t2,"%.6f",-1.0f);
	m_Min->value(t2);
	m_Min->textsize(10);
	m_Min->callback((Fl_Callback*)ControllerPluginGUI::cb_Min,
		(void*)&Numbers[n]);
	m_SliderGroup->add(m_Min);
}

////////////////////////////////////////////

ControllerPluginGUI::ControllerPluginGUI(int w, int h,ControllerPlugin *o,ChannelHandler *ch,const HostInfo *Info) :
SpiralPluginGUI(w,h,o,ch),
m_CVCount(0)
{
        for (int n=0; n<MAX_CHANNELS; n++)
	{
		Numbers[n]=n;
	}

	m_MainPack = new Fl_Pack(0,20,w,h-44);
	m_MainPack->type(FL_HORIZONTAL);
        add (m_MainPack);

	// start with four...
	AddCV();
	AddCV();
	AddCV();
	AddCV();

        m_Buttons = new Fl_Pack (0, h-22, 45, 20);
	m_Buttons->type(FL_HORIZONTAL);
        add (m_Buttons);
        m_Delete = new Fl_Button(2,0,20,20,"-");
	m_Delete->callback((Fl_Callback*)cb_Delete);
	m_Buttons->add(m_Delete);
        m_Add = new Fl_Button(24,0,20,20,"+");
	m_Add->callback((Fl_Callback*)cb_Add);
	m_Buttons->add(m_Add);
}

void ControllerPluginGUI::AddCV()
{
        CVGUI *NewCV = new CVGUI(m_CVCount,this);
	m_GUIVec.push_back(NewCV);
	m_MainPack->add(NewCV->m_SliderGroup);
	m_CVCount++;
}

void ControllerPluginGUI::DeleteCV()
{
	vector<CVGUI*>::iterator i=m_GUIVec.end();
	i--;
	m_MainPack->remove((*i)->m_SliderGroup);
	delete *i;
	m_GUIVec.erase(i);
	m_CVCount--;
}

void ControllerPluginGUI::Clear()
{
	for (vector<ControllerPluginGUI::CVGUI*>::iterator i=m_GUIVec.begin();
		 i!=m_GUIVec.end(); i++)
	{
		m_MainPack->remove((*i)->m_SliderGroup);
		delete *i;
	}
	m_GUIVec.clear();
	m_CVCount=0;
}

void ControllerPluginGUI::UpdateValues(SpiralPlugin *o)
{
	ControllerPlugin *Plugin = (ControllerPlugin *)o;

	int c;
	float min, max, val;
	string Title,Min,Max;
	char temp[64];

	Clear();

	c=Plugin->GetNum();
	for (int n=0; n<c; n++)
	{
		AddCV();
		m_GUIVec[n]->m_Title->value(Plugin->GetName(n).c_str());

		min = Plugin->GetMin(n);
		max = Plugin->GetMax(n);
		sprintf(temp,"%.6f",min);
		m_GUIVec[n]->m_Min->value(temp);
		sprintf(temp,"%.6f",max);
		m_GUIVec[n]->m_Max->value(temp);

	// Scale and invert value to match slider range (0->1)
		float val = 1.0f - (Plugin->GetVal(n) - min) / (max - min);
		m_GUIVec[n]->m_Chan->value(val);
	}

	resize(x(),y(),c*60,h());
}

inline void ControllerPluginGUI::cb_Title_i(Fl_Input* o, void* v)
{
	int num=*(int*)(v);

	char temp[256];
	sprintf(temp,"%s",m_GUIVec[num]->m_Title->value());
	m_GUICH->Set("Number",num);
	m_GUICH->SetData("Name",(void*)temp);
	m_GUICH->SetCommand(ControllerPlugin::SETNAME);
}
void ControllerPluginGUI::cb_Title(Fl_Input* o, void* v)
{ ((ControllerPluginGUI*)(o->parent()->user_data()))->cb_Title_i(o,v);}

inline void ControllerPluginGUI::cb_Max_i(Fl_Input* o, void* v)
{
	int num=*(int*)(v);

	float min = atof(m_GUIVec[num]->m_Min->value());
	float max = atof(m_GUIVec[num]->m_Max->value());
	if (min > max) {
	// Swap values if arse over tit...
		float temp = min;
		char t[64];

		min = max;
		max = temp;

		sprintf(t,"%.6f",min);
		m_GUIVec[num]->m_Min->value(t);
		sprintf(t,"%.6f",max);
		m_GUIVec[num]->m_Max->value(t);
	}

	m_GUICH->Set("Number",num);
	m_GUICH->Set("Max",max);
	m_GUICH->SetCommand(ControllerPlugin::SETMAX);
}
void ControllerPluginGUI::cb_Max(Fl_Input* o, void* v)
{ ((ControllerPluginGUI*)(o->parent()->user_data()))->cb_Max_i(o,v);}

inline void ControllerPluginGUI::cb_Chan_i(Fl_Slider* o, void* v)
{
	int num=*(int*)(v);
	// swap em over, cos it's the easiqest way to reverse
	// the fltk slider, which is upside down imho
	float min = atof(m_GUIVec[num]->m_Min->value());
	float max = atof(m_GUIVec[num]->m_Max->value());
	float val = (1.0f-o->value())*(max-min)+min;
	m_GUICH->Set("Number",num);
	m_GUICH->Set("Value",val);

	m_GUICH->SetCommand(ControllerPlugin::SETCHANNEL);
}
void ControllerPluginGUI::cb_Chan(Fl_Slider* o, void* v)
{ ((ControllerPluginGUI*)(o->parent()->user_data()))->cb_Chan_i(o,v);}

inline void ControllerPluginGUI::cb_Min_i(Fl_Input* o, void* v)
{
	int num=*(int*)(v);

	float min = atof(m_GUIVec[num]->m_Min->value());
	float max = atof(m_GUIVec[num]->m_Max->value());
	if (min > max) {
	// Swap values if arse over tit...
		float temp = min;
		char t[64];

		min = max;
		max = temp;

		sprintf(t,"%.6f",min);
		m_GUIVec[num]->m_Min->value(t);
		sprintf(t,"%.6f",max);
		m_GUIVec[num]->m_Max->value(t);
	}
	m_GUICH->Set("Number",num);
	m_GUICH->Set("Min",min);
	m_GUICH->SetCommand(ControllerPlugin::SETMIN);
}
void ControllerPluginGUI::cb_Min(Fl_Input* o, void* v)
{ ((ControllerPluginGUI*)(o->parent()->user_data()))->cb_Min_i(o,v);}

inline void ControllerPluginGUI::cb_Add_i(Fl_Button* o, void* v)
{
        if (m_CVCount<MAX_CHANNELS)
	{
		AddCV();
		resize(x(),y(),w()+60,h());
		redraw();
		int num   = (int)m_GUIVec.size();
		float min = atof(m_GUIVec[num - 1]->m_Min->value());
		float max = atof(m_GUIVec[num - 1]->m_Max->value());
		float val = (1.0f-o->value())*(max-min)+min;
		char temp[256];
		sprintf(temp,"%s",m_GUIVec[num - 1]->m_Title->value());

		m_GUICH->Set("Number", num);
		m_GUICH->SetCommand(ControllerPlugin::SETNUM);
		m_GUICH->Wait();
		m_GUICH->Set("Number", num);
		m_GUICH->SetData("Name",(void*)temp);
		m_GUICH->Set("Max",max);
		m_GUICH->Set("Value",val);
		m_GUICH->Set("Min",min);
		m_GUICH->SetCommand(ControllerPlugin::SETALL);
	}
}
void ControllerPluginGUI::cb_Add(Fl_Button* o, void* v)
{ ((ControllerPluginGUI*)(o->parent()->parent()))->cb_Add_i(o,v);}

inline void ControllerPluginGUI::cb_Delete_i(Fl_Button* o, void* v)
{
	if (m_GUIVec.size()>1)
	{
		DeleteCV();
		resize(x(),y(),w()-60,h());
		redraw();

		m_GUICH->Set("Number",(int)m_GUIVec.size());
		m_GUICH->SetCommand(ControllerPlugin::SETNUM);
	}
}
void ControllerPluginGUI::cb_Delete(Fl_Button* o, void* v)
{ ((ControllerPluginGUI*)(o->parent()->parent()))->cb_Delete_i(o,v);}

// call for version <3
istream &operator>>(istream &s, ControllerPluginGUI &o)
{
	int c;
	string Title,Min,Max;
	float Val;

	o.Clear();

	s>>c;
	for (int n=0; n<c; n++)
	{
		s>>Title>>Min>>Max>>Val;
		o.AddCV();
		o.m_GUIVec[n]->m_Title->value(Title.c_str());
		o.m_GUIVec[n]->m_Min->value(Min.c_str());
		o.m_GUIVec[n]->m_Max->value(Max.c_str());
		o.m_GUIVec[n]->m_Chan->value(Val);
	}

	o.resize(o.x(),o.y(),c*60,o.h());

	return s;
}

// call for version >=3
// another version of the stream to fix the old style string streaming problem
void ControllerPluginGUI::StreamIn(istream &s)
{
	int c,version,size;
	string Title,Min,Max;
	float Val;
	char Buf[4096];

	Clear();
	s>>version;
	s>>c;
	for (int n=0; n<c; n++)
	{
		AddCV();

		s>>size;
		s.ignore(1);
		s.get(Buf,size+1);
		m_GUIVec[n]->m_Title->value(Buf);

		s>>Min>>Max>>Val;

		m_GUIVec[n]->m_Min->value(Min.c_str());
		m_GUIVec[n]->m_Max->value(Max.c_str());
		m_GUIVec[n]->m_Chan->value(Val);
	}

	resize(x(),y(),c*60,h());
}

void ControllerPluginGUI::StreamOut(ostream &s)
{
	// version
	s<<1<<endl;
	s<<m_GUIVec.size()<<endl;
	for (vector<ControllerPluginGUI::CVGUI*>::iterator i=m_GUIVec.begin();
		 i!=m_GUIVec.end(); i++)
	{
		s<<strlen((*i)->m_Title->value())<<endl;
		s<<(*i)->m_Title->value()<<" ";
		s<<(*i)->m_Min->value()<<" ";
		s<<(*i)->m_Max->value()<<" ";
		s<<(*i)->m_Chan->value()<<endl;		
	}
}

const string ControllerPluginGUI::GetHelpText(const string &loc){
    return string("")
    + "This is a simple plugin to allow you to generate CV values\n"
    + "interatively with sliders in the plugin window. Useful if you\n"
    + "can't use Midi, or for controlling LADSPA plugins. The slider\n"
    + "ranges can be set, and titles can be given to each slider.\n"
    + "You can add or delete sliders from the plugin using the\n"
    + "+ or - buttons.\n";
}