1 files changed, 33 insertions, 0 deletions
diff --git a/tran/amosc.alg b/tran/amosc.alg
new file mode 100644
index 0000000..0103202
--- /dev/null
+++ b/tran/amosc.alg
@@ -0,0 +1,33 @@
+(AMOSC-ALG
+(NAME "amosc")
+(ARGUMENTS ("sound_type" "input") ("double" "step") ("rate_type" "sr")
+           ("double" "hz") ("time_type" "t0") ("sound_type" "amod")
+           ("double" "phase"))
+(TABLE "input")
+(NOT-IN-INNER-LOOP "input")
+(START (MIN input))
+(STATE 
+       ("double" "ph_incr" "0")
+       ("table_type" "the_table" "sound_to_table(input)")
+       ("sample_type *" "table_ptr" "susp->the_table->samples")
+       ("double" "table_len" "susp->the_table->length")
+       ("double" "phase" "compute_phase(phase, step, (long) susp->table_len,
+        input->sr, sr, hz, &susp->ph_incr)") )
+(ALWAYS-SCALE amod)
+(TERMINATE (MIN amod))
+(LOGICAL-STOP (MIN amod))
+(INNER-LOOP "
+            long table_index = (long) phase;
+            double x1 = (double) (table_ptr[table_index]);
+            output = (sample_type) (x1 + (phase - table_index) * 
+                          (table_ptr[table_index + 1] - x1)) * amod;
+            phase += ph_incr;
+            while (phase > table_len) phase -= table_len;
+")
+(CONSTANT "ph_incr" "table_len" "table_ptr" "the_table")
+
+(SAMPLE-RATE "sr")
+(FINALIZATION "    table_unref(susp->the_table);
+")
+)
+