Move library tree where it belongs

lib-src/libnyquist/nyquist/tran/delaycv.alg

@@ -0,0 +1,19 @@
+(DELAYCV-ALG
+(NAME "delaycv")
+(ARGUMENTS ("sound_type" "s") ("time_type" "delay") ("sound_type" "feedback"))
+(START (MAX s feedback))
+(STATE ("long" "delaylen" "round(s->sr * delay)")
+       ("sample_type *" "delaybuf"
+               "(sample_type *) calloc (sizeof(double), susp->delaylen)")
+       ("sample_type *" "delayptr" "susp->delaybuf")
+       ("sample_type *" "endptr" "susp->delaybuf + susp->delaylen"))
+(CONSTANT "delaylen" "delaybuf")
+(NOT-REGISTER delaybuf)
+(LINEAR s)
+(TERMINATE (MIN s))
+(INNER-LOOP "output = *delayptr;
+         *delayptr = *delayptr * feedback + s;
+         if (++delayptr >= endptr) delayptr = susp->delaybuf;")
+(FINALIZATION "free(susp->delaybuf);")
+)
+