diff options
Diffstat (limited to 'tran/sqrt.alg')
-rw-r--r-- | tran/sqrt.alg | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tran/sqrt.alg b/tran/sqrt.alg new file mode 100644 index 0000000..5c392a3 --- /dev/null +++ b/tran/sqrt.alg @@ -0,0 +1,9 @@ +(SQRT-ALG + (NAME "sqrt") + (ARGUMENTS ("sound_type" "input")) + (ALWAYS-SCALE input) + (START (MIN input)) + (INNER-LOOP "{ sample_type i = input; if (i < 0) i = 0; output = (sample_type) sqrt(i); }") + (TERMINATE (MIN input)) + (LOGICAL-STOP (MIN input)) +) |