1 files changed, 11 insertions, 0 deletions
diff --git a/tran/coterm.alg b/tran/coterm.alg
new file mode 100644
index 0000000..84bce1d
--- /dev/null
+++ b/tran/coterm.alg
@@ -0,0 +1,11 @@
+(COTERM-ALG
+  (NAME "coterm")
+  (ARGUMENTS ("sound_type" "s1") ("sound_type" "s2"))
+  (START (MAX s1 s2))
+  (INNER-LOOP "{sample_type dummy = s2; output = s1;}")
+  (LINEAR s1)
+  (TERMINATE (MIN s1 s2))
+  (LOGICAL-STOP (MIN s1 s2))
+  (INTERNAL-SCALING s2)
+)
+