Version 3.0

STK/DLineN.cpp

@@ -0,0 +1,70 @@
+/*******************************************/
+/*  Non-Interpolating Delay Line           */
+/*  Object by Perry R. Cook 1995-96.       */
+/*  Revised by Gary Scavone, 1999.         */
+/*                                         */
+/*  This one uses either a delay line of   */
+/*  maximum length specified on creation   */
+/*  or a default length of 2048 samples.   */
+/*  A non-interpolating delay line is      */
+/*  typically used in non-time varying     */
+/*  (reverb) applications.                 */
+/*******************************************/
+
+#include "DLineN.h"
+
+DLineN :: DLineN()
+{
+  // Default max delay length set to 2047.
+  length = 2048;
+  inputs = (MY_FLOAT *) malloc(length * sizeof(MY_FLOAT));
+  this->clear();
+  inPoint = 0;
+  outPoint = length >> 1;
+}
+
+DLineN :: DLineN(long max_length)
+{
+  // Writing before reading allows delays from 0 to length-1.
+  // Thus, if we want to allow a delay of max_length, we need
+  // a delay-line of length = max_length+1.
+  length = max_length+1;
+  inputs = (MY_FLOAT *) malloc(length * sizeof(MY_FLOAT));
+  this->clear();
+  inPoint = 0;
+  outPoint = length >> 1;
+}
+
+DLineN :: ~DLineN()
+{
+  free(inputs);
+}
+
+void DLineN :: clear()
+{
+  long i;
+  for (i=0;i<length;i++) inputs[i] = (MY_FLOAT) 0.0;
+  lastOutput = (MY_FLOAT) 0;
+}
+
+void DLineN :: setDelay(MY_FLOAT lag)
+{
+  if (lag > length-1) {                   // if delay is too big,
+    printf("DLineN: Delay length too big ... setting to maximum length of %ld.\n",length-1);
+    outPoint = inPoint + 1;               // force delay to max_length
+  }
+  else 
+    outPoint = inPoint - (long) lag;      // read chases write
+  while (outPoint<0) outPoint += length;  // modulo maximum length
+}
+
+MY_FLOAT DLineN :: tick(MY_FLOAT sample)  // Take one, yield one
+{
+  inputs[inPoint++] = sample;             // Input next sample
+  if (inPoint == length)                  // Check for end condition
+    inPoint -= length;
+  lastOutput = inputs[outPoint++];        // Read out next value
+  if (outPoint>=length)                   // Check for end condition
+    outPoint -= length;                             
+  return lastOutput;
+}