From a5468c2965d78584a0357f6159665fd3c051a2c7 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Fri, 27 Jan 2012 23:54:56 -0300
Subject: [PATCH] test/rewrite: added two examples from Unchained - A Matter Of
 Taste (Remix)

---
 src/compiler/test/rewrite | 41 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/src/compiler/test/rewrite b/src/compiler/test/rewrite
index 611d182..f3607f1 100755
--- a/src/compiler/test/rewrite
+++ b/src/compiler/test/rewrite
@@ -10,4 +10,45 @@ equiv1 "rewrite: prettier Krash - Digital Flame" \
 sedit s/swapcolour/swap/g
 equiv2 <Data/flame.fnp
 
+#------------------------------------------------------------------------------
+
+#
+# The original used rand(3) instead of sin(3), but we don't have that (yet ?)
+#
+
+equiv1 "rewrite: per_frame_2 from Unchained - A Matter Of Taste (Remix)" <<EOF
+per_frame_2=entropy=if(bnot(entropy),2,if(equal(pulse,-9.42),1+sin(3),entropy));
+EOF
+equiv2 <<EOF
+per_frame:
+	entropy = !entropy ? 2 :
+	    pulse == -9.42 ? 1+sin(3) : entropy;
+EOF
+
+#------------------------------------------------------------------------------
+
+equiv1 "rewrite: per_frame_12 from Unchained - A Matter Of Taste (Remix)" <<EOF
+per_frame_12=pulse=if(above(abs(pulse),9.42),-9.42,pulse+.1*bor(bor(bass_changed*bnot(treb_changed),treb_changed*bnot(bass_changed))*bnot(mid_changed),mid_changed)+(mid+bass+treb)*entropy*.01);
+EOF
+equiv2 <<EOF
+per_frame:
+	pulse = abs(pulse) > 9.42 ? -9.42 :
+	    pulse+
+	    0.1*(
+	        (bass_changed*!treb_changed || treb_changed*!bass_changed)*
+		  !mid_changed ||
+		mid_changed)+
+	    (mid+bass+treb)*entropy*0.01;
+EOF
+
+#
+# This could be written even more cleanly as
+#
+#	pulse = abs(pulse) > 9.42 ? -9.42 :
+#	    pulse+
+#	    0.1*(mid_changed ? 1 :
+#	        bass_changed*!treb_changed || treb_changed*!bass_changed)+
+#	    0.01*(mid+bass+treb)*entropy;
+#
+
 ###############################################################################