summaryrefslogtreecommitdiff
path: root/tran/sqrt.alg
diff options
context:
space:
mode:
Diffstat (limited to 'tran/sqrt.alg')
-rw-r--r--tran/sqrt.alg9
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))
+)