summaryrefslogtreecommitdiff
path: root/tran/abs.alg
diff options
context:
space:
mode:
authorSteve M. Robbins <smr@debian.org>2011-10-22 04:54:51 +0200
committerSteve M. Robbins <smr@debian.org>2011-10-22 04:54:51 +0200
commitdd657ad3f1428b026486db3ec36691df17ddf515 (patch)
tree6ffb465595479fb5a76c1a6ea3ec992abaa8c1c1 /tran/abs.alg
Import nyquist_3.05.orig.tar.gz
[dgit import orig nyquist_3.05.orig.tar.gz]
Diffstat (limited to 'tran/abs.alg')
-rw-r--r--tran/abs.alg9
1 files changed, 9 insertions, 0 deletions
diff --git a/tran/abs.alg b/tran/abs.alg
new file mode 100644
index 0000000..2c139e6
--- /dev/null
+++ b/tran/abs.alg
@@ -0,0 +1,9 @@
+(ABS-ALG
+ (NAME "abs")
+ (ARGUMENTS ("sound_type" "input"))
+ (ALWAYS-SCALE input)
+ (START (MIN input))
+ (INNER-LOOP "{ sample_type s = input; sample_type o = s; if (o < 0.0) o = -o; output = o; }")
+ (TERMINATE (MIN input))
+ (LOGICAL-STOP (MIN input))
+)