1 files changed, 14 insertions, 0 deletions
diff --git a/test/fmfb-test.lsp b/test/fmfb-test.lsp
new file mode 100644
index 0000000..6a6cd0d
--- /dev/null
+++ b/test/fmfb-test.lsp
@@ -0,0 +1,14 @@
+; SND-FMFB ARGS: t0 hz sr index dur
+
+(defun feedback-fm (pitch index d)
+  (let ((hz (step-to-hz (+ pitch (get-transpose))))
+        (dur (get-duration d)))
+    (snd-fmfb (local-to-global 0)  hz *sound-srate*  index dur))) 
+
+
+(play (feedback-fm a4  1.1 1))
+
+(exit)
+
+
+