# HG changeset patch
# User Chris Cannam
# Date 1380540952 -3600
# Node ID 723a1745307d6d3ba5f0b69edf018a9c6e0a005e
# Parent  8304b4b6284f9789ed5f54eeae14bb81cbda89f7
Add forward-magnitude

diff -r 8304b4b6284f -r 723a1745307d src/may/transform/fft.yeti
--- a/src/may/transform/fft.yeti	Mon Sep 30 12:35:35 2013 +0100
+++ b/src/may/transform/fft.yeti	Mon Sep 30 12:35:52 2013 +0100
@@ -43,6 +43,10 @@
         packedToComplex (vec.length bl) v;
     done);
 
+//!!! doc: n separately as above
+realForwardMagnitude n =
+    complex.magnitudes . (realForward n);
+
 //!!! doc: input requires n/2+1 complex values (or should test and throw?)
 //!!! doc: powers of two only? check with jtransforms
 realInverse n = 
@@ -55,6 +59,7 @@
 
 {
 realForward,
+realForwardMagnitude,
 realInverse,
 }