From dd657ad3f1428b026486db3ec36691df17ddf515 Mon Sep 17 00:00:00 2001 From: "Steve M. Robbins" Date: Sat, 22 Oct 2011 04:54:51 +0200 Subject: Import nyquist_3.05.orig.tar.gz [dgit import orig nyquist_3.05.orig.tar.gz] --- tran/abs.alg | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 tran/abs.alg (limited to 'tran/abs.alg') 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)) +) -- cgit v1.2.3