From fc1103ed2fd0dcdd07b0eb2b265fa6169abb204f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 8 Aug 2012 20:29:02 -0700
Subject: [PATCH] unmaintained: removing old math.transforms.fft.

---
 unmaintained/math/transforms/fft/authors.txt  |  1 -
 .../math/transforms/fft/fft-docs.factor       |  7 ----
 unmaintained/math/transforms/fft/fft.factor   | 38 -------------------
 unmaintained/math/transforms/fft/summary.txt  |  1 -
 4 files changed, 47 deletions(-)
 delete mode 100644 unmaintained/math/transforms/fft/authors.txt
 delete mode 100644 unmaintained/math/transforms/fft/fft-docs.factor
 delete mode 100644 unmaintained/math/transforms/fft/fft.factor
 delete mode 100644 unmaintained/math/transforms/fft/summary.txt

diff --git a/unmaintained/math/transforms/fft/authors.txt b/unmaintained/math/transforms/fft/authors.txt
deleted file mode 100644
index 3b4a4af215..0000000000
--- a/unmaintained/math/transforms/fft/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Hans Schmid
diff --git a/unmaintained/math/transforms/fft/fft-docs.factor b/unmaintained/math/transforms/fft/fft-docs.factor
deleted file mode 100644
index 93d72f39a4..0000000000
--- a/unmaintained/math/transforms/fft/fft-docs.factor
+++ /dev/null
@@ -1,7 +0,0 @@
-USING: help.markup help.syntax sequences ;
-IN: math.transforms.fft
-
-HELP: fft
-{ $values { "seq" sequence } { "seq'" sequence } }
-{ $description "Fast Fourier transform function." } ;
-
diff --git a/unmaintained/math/transforms/fft/fft.factor b/unmaintained/math/transforms/fft/fft.factor
deleted file mode 100644
index 440243a968..0000000000
--- a/unmaintained/math/transforms/fft/fft.factor
+++ /dev/null
@@ -1,38 +0,0 @@
-! Copyright (c) 2007 Hans Schmid.
-! See http://factorcode.org/license.txt for BSD license.
-USING: columns grouping kernel math math.constants math.functions math.vectors
-    sequences ;
-IN: math.transforms.fft
-
-! Fast Fourier Transform
-
-<PRIVATE
-
-: n^v ( n v -- w ) [ ^ ] with map ;
-
-: omega ( n -- n' )
-    recip -2 pi i* * * exp ;
-
-: twiddle ( seq -- seq' )
-    dup length [ omega ] [ n^v ] bi v* ;
-
-PRIVATE>
-
-DEFER: fft
-
-: two ( seq -- seq' )
-    fft 2 v/n dup append ;
-
-<PRIVATE
-
-: even ( seq -- seq' ) 2 group 0 <column> ;
-: odd ( seq -- seq' ) 2 group 1 <column> ;
-
-: (fft) ( seq -- seq' )
-    [ odd two twiddle ] [ even two ] bi v+ ;
-
-PRIVATE>
-
-: fft ( seq -- seq' )
-    dup length 1 = [ (fft) ] unless ;
-
diff --git a/unmaintained/math/transforms/fft/summary.txt b/unmaintained/math/transforms/fft/summary.txt
deleted file mode 100644
index 3d71dfa49a..0000000000
--- a/unmaintained/math/transforms/fft/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Fast fourier transform