X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/1059e1cc0c2ecfa237406949aa26155b6a5b9154..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/interpreter/preprocessor/faust-0.9.47mr3/architecture/plot.cpp

diff --git a/interpreter/preprocessor/faust-0.9.47mr3/architecture/plot.cpp b/interpreter/preprocessor/faust-0.9.47mr3/architecture/plot.cpp
new file mode 100644
index 0000000..d2181d1
--- /dev/null
+++ b/interpreter/preprocessor/faust-0.9.47mr3/architecture/plot.cpp
@@ -0,0 +1,486 @@
+/************************************************************************
+
+	IMPORTANT NOTE : this file contains two clearly delimited sections : 
+	the ARCHITECTURE section (in two parts) and the USER section. Each section 
+	is governed by its own copyright and license. Please check individually 
+	each section for license and copyright information.
+*************************************************************************/
+
+/*******************BEGIN ARCHITECTURE SECTION (part 1/2)****************/
+
+/************************************************************************
+    FAUST Architecture File
+	Copyright (C) 2003-2011 GRAME, Centre National de Creation Musicale
+    ---------------------------------------------------------------------
+    This Architecture section 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 3 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, see <http://www.gnu.org/licenses/>.
+
+	EXCEPTION : As a special exception, you may create a larger work 
+	that contains this FAUST architecture section and distribute  
+	that work under terms of your choice, so long as this FAUST 
+	architecture section is not modified. 
+
+
+ ************************************************************************
+ ************************************************************************/
+
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <limits.h>
+#include <math.h>
+#include <errno.h>
+#include <time.h>
+#include <ctype.h>
+
+#include <vector>
+#include <stack>
+#include <string>
+#include <map>
+#include <iostream> 
+
+// g++ -O3 -lm -lsndfile  myfx.cpp
+
+using namespace std;
+
+struct Meta : map<const char*, const char*>
+{
+    void declare (const char* key, const char* value) { (*this)[key]=value; }
+};
+
+//-------------------------------------------------------------------
+// Generic min and max using c++ inline
+//-------------------------------------------------------------------
+
+inline int 		max (unsigned int a, unsigned int b) { return (a>b) ? a : b; }
+inline int 		max (int a, int b) 			{ return (a>b) ? a : b; }
+
+inline long 	max (long a, long b) 		{ return (a>b) ? a : b; }
+inline long 	max (int a, long b) 		{ return (a>b) ? a : b; }
+inline long 	max (long a, int b) 		{ return (a>b) ? a : b; }
+
+inline float 	max (float a, float b) 		{ return (a>b) ? a : b; }
+inline float 	max (int a, float b) 		{ return (a>b) ? a : b; }
+inline float 	max (float a, int b) 		{ return (a>b) ? a : b; }
+inline float 	max (long a, float b) 		{ return (a>b) ? a : b; }
+inline float 	max (float a, long b) 		{ return (a>b) ? a : b; }
+
+inline double 	max (double a, double b) 	{ return (a>b) ? a : b; }
+inline double 	max (int a, double b) 		{ return (a>b) ? a : b; }
+inline double 	max (double a, int b) 		{ return (a>b) ? a : b; }
+inline double 	max (long a, double b) 		{ return (a>b) ? a : b; }
+inline double 	max (double a, long b) 		{ return (a>b) ? a : b; }
+inline double 	max (float a, double b) 	{ return (a>b) ? a : b; }
+inline double 	max (double a, float b) 	{ return (a>b) ? a : b; }
+
+
+inline int 		min (int a, int b) 			{ return (a<b) ? a : b; }
+
+inline long 	min (long a, long b) 		{ return (a<b) ? a : b; }
+inline long 	min (int a, long b) 		{ return (a<b) ? a : b; }
+inline long 	min (long a, int b) 		{ return (a<b) ? a : b; }
+
+inline float 	min (float a, float b) 		{ return (a<b) ? a : b; }
+inline float 	min (int a, float b) 		{ return (a<b) ? a : b; }
+inline float 	min (float a, int b) 		{ return (a<b) ? a : b; }
+inline float 	min (long a, float b) 		{ return (a<b) ? a : b; }
+inline float 	min (float a, long b) 		{ return (a<b) ? a : b; }
+
+inline double 	min (double a, double b) 	{ return (a<b) ? a : b; }
+inline double 	min (int a, double b) 		{ return (a<b) ? a : b; }
+inline double 	min (double a, int b) 		{ return (a<b) ? a : b; }
+inline double 	min (long a, double b) 		{ return (a<b) ? a : b; }
+inline double 	min (double a, long b) 		{ return (a<b) ? a : b; }
+inline double 	min (float a, double b) 	{ return (a<b) ? a : b; }
+inline double 	min (double a, float b) 	{ return (a<b) ? a : b; }
+		
+
+
+inline int		lsr (int x, int n)			{ return int(((unsigned int)x) >> n); }
+		
+template<typename T> T abs (T a)			{ return (a<T(0)) ? -a : a; }
+
+
+/******************************************************************************
+*******************************************************************************
+
+							       VECTOR INTRINSICS
+
+*******************************************************************************
+*******************************************************************************/
+
+//inline void *aligned_calloc(size_t nmemb, size_t size) { return (void*)((unsigned)(calloc((nmemb*size)+15,sizeof(char)))+15 & 0xfffffff0); }
+//inline void *aligned_calloc(size_t nmemb, size_t size) { return (void*)((size_t)(calloc((nmemb*size)+15,sizeof(char)))+15 & ~15); }
+
+<<includeIntrinsic>>
+
+
+
+
+/******************************************************************************
+*******************************************************************************
+
+								USER INTERFACE
+
+*******************************************************************************
+*******************************************************************************/
+
+class UI
+{
+	bool	fStopped;
+public:
+		
+	UI() : fStopped(false) {}
+	virtual ~UI() {}
+	
+	// -- active widgets
+	
+	virtual void addButton(const char* label, float* zone) = 0;
+	virtual void addToggleButton(const char* label, float* zone) = 0;
+	virtual void addCheckButton(const char* label, float* zone) = 0;
+	virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
+	virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
+	virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step) = 0;
+	
+	// -- passive widgets
+	
+	virtual void addNumDisplay(const char* label, float* zone, int precision) = 0;
+	virtual void addTextDisplay(const char* label, float* zone, char* names[], float min, float max) = 0;
+	virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max) = 0;
+	virtual void addVerticalBargraph(const char* label, float* zone, float min, float max) = 0;
+	
+	// -- frames and labels
+	
+	virtual void openFrameBox(const char* label) = 0;
+	virtual void openTabBox(const char* label) = 0;
+	virtual void openHorizontalBox(const char* label) = 0;
+	virtual void openVerticalBox(const char* label) = 0;
+	virtual void closeBox() = 0;
+	
+	virtual void show() = 0;
+	virtual void run() = 0;
+	
+	void stop()		{ fStopped = true; }
+	bool stopped() 	{ return fStopped; }
+
+    virtual void declare(float* zone, const char* key, const char* value) {}
+};
+
+struct param {
+	float* fZone; float fMin; float fMax;
+	param(float* z, float init, float a, float b) : fZone(z), fMin(a), fMax(b) { *z = init; }
+};
+
+
+class CMDUI : public UI
+{
+	int					fArgc;
+	char**				fArgv;
+	vector<char*>		fFiles;
+	stack<string>		fPrefix;
+	map<string, param>	fKeyParam;
+	
+	void openAnyBox(const char* label)
+	{
+		string prefix;
+		
+		if (label && label[0]) {
+			prefix = fPrefix.top() + "-" + label;
+		} else {
+			prefix = fPrefix.top();
+		}
+		fPrefix.push(prefix);
+	}
+
+	string simplify(const string& src)
+	{
+		int		i=0;
+		int		level=0;
+		string	dst;
+		
+		while (src[i] ) {
+		
+			switch (level) {
+			
+				case 0 : 	
+				case 1 : 			
+				case 2 : 	
+					// Skip the begin of the label "--foo-"
+					// until 3 '-' have been read
+					if (src[i]=='-') { level++; }
+					break;
+							
+				case 3 :	
+					// copy the content, but skip non alphnum
+					// and content in parenthesis
+					switch (src[i]) {
+						case '(' : 	
+						case '[' : 	
+							level++;
+							break;
+							
+						case '-' : 	
+							dst += '-';
+							break;
+									
+						default :
+							if (isalnum(src[i])) {
+								dst+= tolower(src[i]); 
+							}
+							
+					}
+					break;
+					
+				default :	
+					// here we are inside parenthesis and 
+					// we skip the content until we are back to
+					// level 3
+					switch (src[i]) {
+		
+						case '(' : 	
+						case '[' : 
+							level++;
+							break;
+									
+						case ')' : 	
+						case ']' : 
+							level--;
+							break;
+							
+						default :
+							break;
+					}
+						
+			}
+			i++;
+		}
+		return dst;
+	}
+	
+	
+public:
+		
+	CMDUI(int argc, char *argv[]) : UI(), fArgc(argc), fArgv(argv) { fPrefix.push("-"); }
+	virtual ~CMDUI() {}
+	
+		
+	void addOption(const char* label, float* zone, float init, float min, float max)
+	{
+		string fullname = "-" + simplify(fPrefix.top() + "-" + label);
+		fKeyParam.insert(make_pair(fullname, param(zone, init, min, max)));
+	}
+
+	
+	virtual void addButton(const char* label, float* zone)
+	{
+		addOption(label,zone,0,0,1);
+	}
+	
+	virtual void addToggleButton(const char* label, float* zone)
+	{
+		addOption(label,zone,0,0,1);
+	}
+	
+	virtual void addCheckButton(const char* label, float* zone)
+	{
+		addOption(label,zone,0,0,1);
+	}
+		
+	virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step)
+	{
+		addOption(label,zone,init,min,max);
+	}
+		
+	virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step)
+	{
+		addOption(label,zone,init,min,max);
+	}
+
+	virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step)
+	{
+		addOption(label,zone,init,min,max);
+	}
+		
+	// -- passive widgets
+	
+	virtual void addNumDisplay(const char* label, float* zone, int precision) 						{}
+	virtual void addTextDisplay(const char* label, float* zone, char* names[], float min, float max) 	{}
+	virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max) 			{}
+	virtual void addVerticalBargraph(const char* label, float* zone, float min, float max) 			{}
+	
+	virtual void openFrameBox(const char* label)		{ openAnyBox(label); }
+	virtual void openTabBox(const char* label)			{ openAnyBox(label); }
+	virtual void openHorizontalBox(const char* label)	{ openAnyBox(label); }
+	virtual void openVerticalBox(const char* label)		{ openAnyBox(label); }
+	
+	virtual void closeBox() 							{ fPrefix.pop(); }
+	
+	virtual void show() {}
+	virtual void run() 	{}
+	
+	void printhelp() 
+	{
+		map<string, param>::iterator i;
+		cout << fArgc << "\n";
+		cout << fArgv[0] << " option list : ";
+		for (i = fKeyParam.begin(); i != fKeyParam.end(); i++) {
+			cout << "[ " << i->first << " " << i->second.fMin << ".." << i->second.fMax <<" ] ";
+		}
+		cout << " infile outfile\n";
+	}
+		
+	void process_command()
+	{
+		map<string, param>::iterator p;
+		for (int i = 1; i < fArgc; i++) {
+			if (fArgv[i][0] == '-') {
+				if (	(strcmp(fArgv[i], "-help") == 0) 
+					 || (strcmp(fArgv[i], "-h") == 0)
+					 || (strcmp(fArgv[i], "--help") == 0) ) 	{
+					printhelp();
+					exit(1);
+				}
+				p = fKeyParam.find(fArgv[i]); 
+				if (p == fKeyParam.end()) {
+					cout << fArgv[0] << " : unrecognized option " << fArgv[i] << "\n";
+					printhelp();
+					exit(1);
+				}
+				char*	end;
+				*(p->second.fZone) = float(strtod(fArgv[i+1], &end));
+				i++;
+			} else {
+				fFiles.push_back(fArgv[i]);
+			}
+		}
+	}
+			
+	int 	files()			{ return fFiles.size(); }
+	char* 	file (int n)	{ return fFiles[n]; }
+		
+};
+
+//----------------------------------------------------------------
+//  d�inition du processeur de signal
+//----------------------------------------------------------------
+			
+class dsp {
+ protected:
+	int fSamplingFreq;
+ public:
+	dsp() {}
+	virtual ~dsp() {}
+	
+	virtual int getNumInputs() 										= 0;
+	virtual int getNumOutputs() 									= 0;
+	virtual void buildUserInterface(UI* interface) 					= 0;
+	virtual void init(int samplingRate) 							= 0;
+ 	virtual void compute(int len, float** inputs, float** outputs) 	= 0;
+ 	virtual void conclude() 										{}
+};
+		
+/********************END ARCHITECTURE SECTION (part 1/2)****************/
+
+/**************************BEGIN USER SECTION **************************/
+		
+<<includeclass>>
+
+/***************************END USER SECTION ***************************/
+
+/*******************BEGIN ARCHITECTURE SECTION (part 2/2)***************/
+					
+mydsp	DSP;
+	
+	
+class channels
+{
+	int 	fNumFrames;
+	int		fNumChannels;
+	float*	fBuffers[256];
+
+  public:
+		  
+	channels(int nframes, int nchannels) 
+	{
+		fNumFrames		= nframes;
+		fNumChannels 	= nchannels;
+		
+		// allocate audio  channels
+		for (int i = 0; i < fNumChannels; i++) {
+			fBuffers[i] = (float*) calloc (fNumFrames, sizeof(float));
+		}
+	}
+	
+	~channels()
+	{
+		// free separate input channels
+		for (int i = 0; i < fNumChannels; i++) {
+		//	free(fBuffers[i]);
+		}		
+	}
+	
+	float**	buffers()		{ return fBuffers; }
+};
+
+
+
+#define kFrames 512
+	
+int main(int argc, char *argv[] )
+{
+	float			fnbsamples;
+	
+
+	CMDUI* interface = new CMDUI(argc, argv);
+	DSP.buildUserInterface(interface);
+	interface->addOption("-n", &fnbsamples, 16, 0.0, 100000000.0);
+	
+	if (DSP.getNumInputs() > 0) {
+		fprintf(stderr, "no inputs allowed\n");
+		exit(1);
+	}
+	
+	// init signal processor and the user interface values
+	DSP.init(44100);
+	
+	// modifie the UI valuez according to the command line options
+	interface->process_command();
+	
+	int nouts = DSP.getNumOutputs();
+	channels chan (kFrames, nouts);
+
+	int nbsamples = int(fnbsamples);
+	while (nbsamples > kFrames) {
+		DSP.compute(kFrames, 0, chan.buffers());
+		for (int i = 0; i < kFrames; i++) {
+			for (int c = 0; c < nouts; c++) {
+				printf("%8f\t", chan.buffers()[c][i]);
+			}
+			cout << endl;
+		}
+		nbsamples -= kFrames;
+	}
+	
+	DSP.compute(nbsamples, 0, chan.buffers());
+	for (int i = 0; i < nbsamples; i++) {
+		for (int c = 0; c < nouts; c++) {
+			printf("%8f\t", chan.buffers()[c][i]);
+		}
+		cout << endl;
+	}
+	return 0;
+} 
+/********************END ARCHITECTURE SECTION (part 2/2)****************/
+
+