Version 3.2

2026-01-14 21:41:53 +00:00 · 2013-09-25 14:47:10 +02:00
parent 4b6500d3de
commit 3f126af4e5
443 changed files with 11772 additions and 8060 deletions
--- a/projects/ragamatic/Tabla.cpp
+++ b/projects/ragamatic/Tabla.cpp
@@ -0,0 +1,155 @@
+/*******************************************/
+/*  Master Class for Drum Synthesizer      */
+/*  by Perry R. Cook, 1995-96              */
+/*                                         */
+/*  This instrument contains a bunch of    */
+/*  RawWvIn objects, run through a bunch   */
+/*  of one-pole filters.  All the          */
+/*  corresponding rawwave files have been  */
+/*  sampled at 22050 Hz.  Thus, if the     */
+/*  compile-time SRATE = 22050, then       */
+/*  no interpolation is used.  Otherwise,  */
+/*  the rawwave data is appropriately      */
+/*  interpolated for the current SRATE.    */
+/*  You can specify the maximum Polyphony  */
+/*  (maximum number of simultaneous voices)*/
+/*  in a #define in the .h file.           */
+/*                                         */
+/*  Modified for RawWvIn class             */
+/*  by Gary P. Scavone (4/99)              */
+/*******************************************/
+
+#include "Tabla.h"
+#include <string.h>
+
+Tabla :: Tabla() : Instrmnt()
+{
+  int i;
+
+  for (i=0;i<TABLA_POLYPHONY;i++)   {
+    filters[i] = new OnePole;
+    sounding[i] = -1;
+  }
+  /* This counts the number of sounding voices */
+  numSounding = 0;
+
+  /* Print warning about aliasing if SRATE < 22050 */
+  if (SRATE < 22050) {
+    printf("\nWarning: Tabla is designed for sampling rates of\n");
+    printf("22050 Hz or greater.  You will likely encounter aliasing\n");
+    printf("at the current sampling rate of %.0f Hz.\n\n", SRATE);
+  }
+}
+
+Tabla :: ~Tabla()
+{
+  int i;
+  for ( i=0; i<numSounding-1; i++ ) delete waves[i];
+  for ( i=0; i<TABLA_POLYPHONY; i++ ) delete filters[i];
+}
+
+void Tabla :: noteOn(MY_FLOAT freq, MY_FLOAT amp)
+{
+  int i, notDone;
+  int noteNum;
+  int vel;
+  char tempString[64];
+  RawWvIn *tempWv;
+  OnePole *tempFilt;
+  char waveNames[TABLA_NUMWAVES][16] = { 
+		    "Drdak2.raw",
+		    "Drdak3.raw",
+		    "Drdak4.raw",
+		    "Drddak1.raw",
+		    "Drdee1.raw",
+		    "Drdee2.raw",
+		    "Drdoo1.raw",
+		    "Drdoo2.raw",
+		    "Drdoo3.raw",
+		    "Drjun1.raw",
+		    "Drjun2.raw",
+		    "DrDoi1.raw",
+		    "DrDoi2.raw",
+		    "DrTak1.raw",
+		    "DrTak2.raw"		    
+  };
+
+  noteNum = (int) freq;
+  vel = (int) (amp * 127);
+
+#if defined(_debug_)
+  printf("NoteOn: %i vel=%i\n",noteNum,vel);
+#endif
+
+  notDone = -1;
+  for (i=0;i<TABLA_POLYPHONY;i++)      {        /* Check first to see     */
+    if (sounding[i] == noteNum) notDone = i;    /* if there's already     */
+  }                                             /* one like this sounding */
+
+  if (notDone<0) {                              /* If not, then       */
+    if (numSounding == TABLA_POLYPHONY) {       /* If we're already   */
+      delete waves[0];                          /* at max polyphony,  */
+      filters[0]->clear();                      /* then               */
+      tempWv = waves[0];
+      tempFilt = filters[0];
+      for (i=0;i<TABLA_POLYPHONY-1;i++) {       /* preempt oldest     */
+        waves[i] = waves[i+1];                  /* voice and   	      */
+        filters[i] = filters[i+1];              /* ripple all down    */
+      }
+      waves[TABLA_POLYPHONY-1] = tempWv;
+      filters[TABLA_POLYPHONY-1] = tempFilt;
+    } else {
+      numSounding += 1;                     /* otherwise just add one */
+    }
+
+    sounding[numSounding-1] = noteNum;           /* allocate new wave  */
+    strcpy(tempString,"rawwaves/");
+    strcat(tempString,waveNames[noteNum]);
+    waves[numSounding-1] = new RawWvIn(tempString, "oneshot");
+    if (SRATE != 22050) {
+      waves[numSounding-1]->setRate((MY_FLOAT) (22050.0/SRATE));
+    }
+    waves[numSounding-1]->normalize((MY_FLOAT) 0.4);
+    filters[numSounding-1]->setPole((MY_FLOAT) 0.999 - ((MY_FLOAT) vel * NORM_7 * 0.6));
+    filters[numSounding-1]->setGain(vel / (MY_FLOAT) 128.0);
+  }
+  else {
+    waves[notDone]->reset();
+    filters[notDone]->setPole((MY_FLOAT) 0.999 - ((MY_FLOAT) vel * NORM_7 * 0.6));
+    filters[notDone]->setGain(vel / (MY_FLOAT) 128.0);
+  }
+
+#if defined(_debug_)
+  printf("Number Sounding = %i\n",numSounding);
+  for (i=0;i<numSounding;i++) printf(" %i  ",sounding[i]);
+  printf("\n");   
+#endif
+}
+
+MY_FLOAT Tabla :: tick()
+{
+  int j, i = 0;
+  MY_FLOAT output = 0.0;
+  OnePole *tempFilt;
+
+  while (i < numSounding) {
+    output += filters[i]->tick(waves[i]->lastOut());
+    if (waves[i]->informTick() == 1) {
+      delete waves[i];
+	    tempFilt = filters[i];
+    
+      for (j=i;j<numSounding-1;j++) {
+        sounding[j] = sounding[j+1];
+        waves[j] = waves[j+1];
+        filters[j] = filters[j+1];
+      }
+      filters[j] = tempFilt;
+      filters[j]->clear();
+      sounding[j] = -1;
+      numSounding -= 1;
+      i -= 1;
+    }
+    i++;
+  }    
+  return output;
+}