Version 0.99

DLineN.cpp

@@ -0,0 +1,80 @@
+/*******************************************/
+/*  Non-Interpolating Delay Line           */
+/*  Object by Perry R. Cook 1995-96        */
+/*  This one uses a delay line of maximum  */
+/*  length specified on creation.  A non-  */
+/*  interpolating delay line should be     */
+/*  used in non-time varying (reverb) or   */
+/*  non-critical (????) applications.      */
+/*******************************************/
+
+#include "DLineN.h"
+
+DLineN :: DLineN(long max_length)
+{
+    length = max_length;
+    inputs = (MY_FLOAT *) malloc(length * MY_FLOAT_SIZE);
+    this->clear();
+    this->setDelay(length * 0.5);
+    inPoint = 0;
+    outPoint = 0;
+}
+
+DLineN :: ~DLineN()
+{
+    free(inputs);
+}
+
+void DLineN :: clear()
+{
+    long i;
+    for (i=0;i<length;i++) inputs[i] = 0.0;
+    lastOutput = 0;
+}
+
+void DLineN :: setDelay(MY_FLOAT lag)
+{
+    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++];        //  first 1/2 of interpolation */
+    if (outPoint>=length)        {          //  Check for end condition    */
+	outPoint -= length;                             
+    }
+    return lastOutput;
+}
+
+/************   Test Main Program   *****************/
+/*
+void main()
+{
+    DLineN delay(140);
+    FILE *fd;
+    MY_FLOAT temp;
+    short data;
+    long i;
+    
+    fd = fopen("test.raw","wb");
+    
+    delay.setDelay(128);
+    for (i=0;i<4096;i++) {
+	if (i%256 != 0) temp = 0.0; else temp = 1.0;
+	data = (temp + delay.tick(temp)) * 16000.0;
+	fwrite(&data,2,1,fd);
+    }
+    delay.setDelay(64.5);
+    for (i=0;i<4096;i++) {
+	if (i%256 != 0) temp = 0.0; else temp = 1.0;
+	data = (temp + delay.tick(temp)) * 16000.0;
+	fwrite(&data,2,1,fd);
+    }
+    
+    fclose(fd);
+}
+*/