1 files changed, 20 insertions, 0 deletions
diff --git a/tran/atone.alg b/tran/atone.alg
new file mode 100644
index 0000000..03b4d9f
--- /dev/null
+++ b/tran/atone.alg
@@ -0,0 +1,20 @@
+(ATONE-ALG
+(NAME "atone")
+(ARGUMENTS ("sound_type" "s") ("double" "hz"))
+(START (MIN s))
+(TERMINATE (MIN s))
+(LOGICAL-STOP (MIN s))
+(STATE ("double" "bb" "2.0 - cos(hz * PI2 / s->sr)" TEMP)
+       ("double" "cc" "bb - sqrt((bb * bb) - 1.0)")
+       ("double" "prev" "0.0"))
+(CONSTANT "cc")
+(INNER-LOOP-LOCALS "        double current;
+")
+(INNER-LOOP "current = s;
+            prev = cc * (prev + current); /* use prev as temp variable ... */
+            output = (float) prev; /* ... so we can do proper type conversion */
+            prev -= current;")
+; old code was:
+;	    prev = (output = cc * (prev + current)) - current;")
+)
+