--- gforth/fft.fs	2005/12/31 15:46:08	1.2
+++ gforth/fft.fs	2007/08/10 15:53:19	1.3
@@ -76,3 +76,6 @@ Carray expix
 : fft  ( -- )  #points  true (fft ;
 : rfft ( -- )  #points false (fft ;
 
+: hamming ( -- )  #points 0 DO
+	I values dup z@ pi I #points fm*/ fsin f**2 f2* zscale z!
+    LOOP ;
\ No newline at end of file