//-----------------------------------------------------------------------------// Entaro ChucK Developer!// This is a Chugin boilerplate, generated by chuginate!//----------------------------------------------------------------------------- /* *  Copyright (C) 2008 John Gibson * *  This program is free software; you can redistribute it and/or modify *  it under the terms of the GNU General Public License, version 2, as *  published by the Free Software Foundation. * *  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. */ // this should align with the correct versions of these ChucK files#include "chuck_dl.h"#include "chuck_def.h"#include "util_math.h"#include "ulib_math.h" #include "Spectacle-dsp.h" // general includes#include <stdio.h>#include <limits.h> // TODO: due to how chuck random #defines are done, this may need to be __WINDOWS_DS__#ifdef WIN32#define random rand#endif // declaration of chugin constructorCK_DLL_CTOR(spectacle_ctor);// declaration of chugin desctructorCK_DLL_DTOR(spectacle_dtor); CK_DLL_MFUN(spectacle_setFFTlen);CK_DLL_MFUN(spectacle_getFFTlen); CK_DLL_MFUN(spectacle_setOverlap);CK_DLL_MFUN(spectacle_getOverlap); CK_DLL_MFUN(spectacle_setMaxDelay);CK_DLL_MFUN(spectacle_getMaxDelay); CK_DLL_MFUN(spectacle_setMinDelay);CK_DLL_MFUN(spectacle_getMinDelay); CK_DLL_MFUN(spectacle_clear); CK_DLL_MFUN(spectacle_setHold);CK_DLL_MFUN(spectacle_getHold); CK_DLL_MFUN(spectacle_setPostEQ);CK_DLL_MFUN(spectacle_getPostEQ); CK_DLL_MFUN(spectacle_setMinFreq);CK_DLL_MFUN(spectacle_getMinFreq); CK_DLL_MFUN(spectacle_setMaxFreq);CK_DLL_MFUN(spectacle_getMaxFreq); CK_DLL_MFUN(spectacle_setMix);CK_DLL_MFUN(spectacle_getMix); CK_DLL_MFUN(spectacle_setFreqRange); CK_DLL_MFUN(spectacle_setTable); CK_DLL_MFUN(spectacle_setTableLen);CK_DLL_MFUN(spectacle_getTableLen); CK_DLL_MFUN(spectacle_setDelay);CK_DLL_MFUN(spectacle_setEQ);CK_DLL_MFUN(spectacle_setFB); // for Chugins extending UGen, this is mono synthesis function for 1 sampleCK_DLL_TICKF(spectacle_tick); // this is a special offset reserved for Chugin internal datat_CKINT spectacle_data_offset = 0; #define CONFORM_INPUT#define CLIP(a, lo, hi) ( (a)>(lo)?( (a)<(hi)?(a):(hi) ):(lo) )  #define kDefaultFFTLen           1024#define kDefaultWindowLen        2048#define kDefaultOverlap          2#define kDefaultMaxDelTime       6.0f#define kMinMaxDelTime           0.1f#define kMaxMaxDelTime           20.0f#define kMaxTableLen             512#define kDefaultTableSize        64 // class definition for internal Chugin data// (note: this isn't strictly necessary, but serves as example// of one recommended approach)class Spectacle{public:  // constructor  Spectacle( t_CKFLOAT fs)  {    fftlen = kDefaultFFTLen;    windowlen = kDefaultWindowLen;    overlap = kDefaultOverlap;    maxdeltime = kDefaultMaxDelTime;    maxdeltime = CLIP(maxdeltime, kMinMaxDelTime, kMaxMaxDelTime);	mindeltime = 0.0;    srate = fs;    mix = 1.0;    spectdelay = NULL;    float *del = dttable;    float *eq = eqtable;    float *feed = fbtable;    for (int i = 0; i < kMaxTableLen; i++)      {	*del++ = rand2f(mindeltime, maxdeltime);	*eq++ = 0.0;	*feed++ = 0.0;      }    dttablen = eqtablen = fbtablen = kDefaultTableSize;    minfreq = maxfreq = 0.0;    posteq = hold = false;        spectdelay = new Spectacle_dsp();    spectdelay->init(fftlen, windowlen, overlap, srate, maxdeltime);	spectdelay->set_deltable(dttable,dttablen);	spectdelay->set_eqtable(eqtable,eqtablen);	spectdelay->set_feedtable(fbtable,fbtablen);  }   ~Spectacle()  {    delete spectdelay;  }   // for Chugins extending UGen  void tick( SAMPLE* in, SAMPLE* out, int nframes)  {    memset (out, 0, sizeof(SAMPLE)*nframes);	for (int i=0; i<nframes; i+=2)	  {		spectdelay->run(in+i, out+i, 1);		spectdelay->run(in+i, out+i+1, 1);		out[i] = out[i] * mix + in[i] * (1-mix);		out[i+1] = out[i+1] * mix + in[i+1] * (1-mix);	  }    // process a block of samples    //spectdelay->run(in, out, nframes);  }   void clear()  {	//printf ( "Spectacle: cleared.\n" );    spectdelay->clear();  }    float setMaxDelay ( t_CKDUR p)  {    float dt = (p / srate);    dt = CLIP(dt, kMinMaxDelTime, kMaxMaxDelTime);	if (dt > maxdeltime)	  {		// pin existing delay times to new maximum		for (int i = 0; i < dttablen; i++)		  {			if (dttable[i] > dt)			  dttable[i] = dt;		  }		spectdelay->set_maxdeltime(dt);	  }    maxdeltime = dt;	//printf("dt: %f, maxdeltime: %f\n",dt,maxdeltime);    return p;  }   float getMaxDelay ()  {    return (maxdeltime * srate);  }   float setMinDelay ( t_CKDUR p)  {    float dt = (p / srate);    mindeltime = CLIP(dt, 0.0, maxdeltime);    return p;  }   float getMinDelay ()  {    return (mindeltime * srate);  }   // set parameter example  int setHold( t_CKINT p )  {	if (p > 1 || p < 0)	  {		p = 1;		printf ("Spectacle: hold must be 0 or 1\n");	  }	hold = p;	spectdelay->set_hold(p);    return p;  }    // get parameter example  int getHold() { return hold; }   // set parameter example  int setPostEQ( t_CKINT p )  {	if (p > 1 || p < 0)	  {		p = 1;		printf ("Spectacle: posteq must be 0 or 1\n");	  }	posteq = p;	spectdelay->set_posteq(p);    return p;  }    // get parameter example  int getPostEQ() { return posteq; }   // set parameter example  int setFFTlen( t_CKINT p )  {	clear();	int newfft = 1;	// ensure it's a power of 2	while (newfft < p) newfft = newfft << 1;	fftlen = newfft;	windowlen = newfft * 2;    spectdelay->init(fftlen, windowlen, overlap, srate, maxdeltime);    return fftlen;  }   int getFFTlen() { return fftlen; };   // set parameter example  int setOverlap( t_CKINT p )  {	clear();	overlap = p;    spectdelay->init(fftlen, windowlen, overlap, srate, maxdeltime);    return overlap;  }   int getOverlap() { return overlap; };   float setMinFreq ( t_CKFLOAT p )  {	float min = CLIP(p, 0.0, maxfreq);	if (min != minfreq)	  {		minfreq = min;		spectdelay->set_delay_freqrange(minfreq, maxfreq);		spectdelay->set_freqrange(minfreq, maxfreq);	  }          return min;  }   float getMinFreq () { return minfreq; }   float setMaxFreq ( t_CKFLOAT p )  {	const float nyquist = srate / 2;	if (p == 0) p = nyquist;	float max = CLIP(p, minfreq, nyquist);	if (max != maxfreq)	  {		maxfreq = max;		spectdelay->set_delay_freqrange(minfreq, maxfreq);		spectdelay->set_freqrange(minfreq, maxfreq);	  }        return max;  }   float getMaxFreq () { return maxfreq; }   float setMix ( t_CKFLOAT p )  {    mix = CLIP(p,0,1);    return mix;  }   float getMix () { return mix; }   void setFreqRange ( t_CKFLOAT q, t_CKFLOAT p )  {	const float nyquist = srate / 2;	float min = CLIP(p, 0.0, nyquist);	if (q == 0) q = nyquist;	float max = CLIP(q, min, nyquist);	if (max != maxfreq || min != minfreq)	  {		maxfreq = max;		minfreq = min;		spectdelay->set_delay_freqrange(minfreq, maxfreq);		spectdelay->set_freqrange(minfreq, maxfreq);	  }  }    // set parameter example  int setTableLen( t_CKINT p )  {	if (p > kMaxTableLen)	  {		printf("Spectacle: tableSize cannot exceed %d.\n",kMaxTableLen);	  }	p = CLIP(p,1,kMaxTableLen);	dttablen = p;	fbtablen = p;	eqtablen = p;    return p;  }   int getTableLen() { return dttablen; };   float setDelay (t_CKDUR p)  {	float x = (p/srate);	for (int i=0; i<dttablen; i++)	  {		dttable[i] = x;	  }	spectdelay->set_deltable(dttable,dttablen);	return p;  }   float setEQ (t_CKFLOAT x)  {	for (int i=0; i<eqtablen; i++)	  {		eqtable[i] = x;	  }	spectdelay->set_eqtable(eqtable,eqtablen);	return x;  }   float setFB (t_CKFLOAT x)  {	for (int i=0; i<fbtablen; i++)	  {		fbtable[i] = x;	  }	spectdelay->set_feedtable(fbtable,fbtablen);	return x;  }     int setTable ( const char* p, const char* q )  {	const char p0 = p[0];	const char q0 = q[0];	int table, type; 	switch (p0)	  {	  case 'a':		type = 0;		break;	  case 'd':		type = 1;		break;	  case 'e':		type = 2;		break;	  case 'f':		type = 3;		break;	  default:		printf ("Spectacle: error: first argument \"%s\" not valid.\n",p);		return 0;	  } 	switch (q0)	  {	  case 'a':		type = 0;		break;	  case 'd':		type = 1;		break;	  case 'r':		type = 2;		break;	  default:		printf ("Spectacle: error: second argument \"%s\" not valid.\n",q);		return 0;	  } 	if (table == 0 || table == 1) setDelayTable(type);	if (table == 0 || table == 2) setEQTable(type);	if (table == 0 || table == 3) setFBTable(type);	spectdelay->set_deltable(dttable,dttablen);	spectdelay->set_eqtable(eqtable,eqtablen);	spectdelay->set_feedtable(fbtable,fbtablen); 	return 1;  }		  private:  int fftlen, windowlen, overlap;  float srate, maxdeltime, mindeltime;  Spectacle_dsp *spectdelay;  float eqtable[kMaxTableLen];  float dttable[kMaxTableLen];  float fbtable[kMaxTableLen];  int eqtablen, dttablen, fbtablen;  float minfreq, maxfreq;  bool hold, posteq;  float mix;   void setDelayTable (int type)  {	for (int i=0; i<dttablen; i++)	  {		switch (type)		  {		  case 0:			dttable[i] = lerp((float)i, 0, (float)dttablen, mindeltime, maxdeltime);			break;		  case 1:			dttable[i] = lerp((float)i, (float)dttablen, 0, mindeltime, maxdeltime);			break;		  default:			dttable[i] = rand2f(mindeltime, maxdeltime);		  }	  }  }   void setEQTable (int type)  {	for (int i=0; i<eqtablen; i++)	  {		switch (type)		  {		  case 0:			eqtable[i] = lerp((float)i, 0, (float)dttablen, -24.f,24.f);			break;		  case 1:			eqtable[i] = lerp((float)i, (float)dttablen, 0, -24.f,24.f);			break;		  default:			eqtable[i] = rand2f(-24.f,24.f);		  }	  }  }   void setFBTable (int type)  {	for (int i=0; i<fbtablen; i++)	  {		switch (type)		  {		  case 0:			fbtable[i] = lerp((float)i, 0, (float)fbtablen, -1.0 , 1.0);			break;		  case 1:			fbtable[i] = lerp((float)i, (float)fbtablen, 0, -1.0, 1.0);			break;		  default:			fbtable[i] = rand2f( -0.1, 0.1 );		  }	  }  }   float rand2f (float min, float max)  {    return min + (max-min)*(::random()/(t_CKFLOAT)CK_RANDOM_MAX);  }   float lerp (float val, float inlow, float inhigh, float outlow, float outhigh)  {	return outlow + (val-inlow) * (outhigh-outlow) / (inhigh-inlow);	}};  // query function: chuck calls this when loading the Chugin// NOTE: developer will need to modify this function to// add additional functions to this ChuginCK_DLL_QUERY( Spectacle ){  // hmm, don't change this...  QUERY->setname(QUERY, "Spectacle");    // begin the class definition  // can change the second argument to extend a different ChucK class  QUERY->begin_class(QUERY, "Spectacle", "UGen");  

Lines 1–500 of 947. Load more