From c261fc4d9a0170ecaa2cabe917fe3b9f4050a32c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Thalheim?= <joerg@higgsboson.tk>
Date: Thu, 5 Mar 2015 14:46:15 +0100
Subject: [PATCH] revert fft scaling

---
 fft.c | 29 +++++++++++++++++------------
 1 file changed, 17 insertions(+), 12 deletions(-)

diff --git a/fft.c b/fft.c
index 63b082f..33e7ce6 100644
--- a/fft.c
+++ b/fft.c
@@ -84,18 +84,23 @@ int fix_fft(fixed fr[], fixed fi[], int m, int inverse)
     {
         if(inverse)
         {
-            /* variable scaling, depending upon data */
-            shift = 0;
-            for(i=0; i<n; ++i)
-            {
-            	xtbool sshift;
-            	FFT_scale(fr[i], fi[i], sshift, scale);
-            	if(sshift)
-            	{
-            		shift = (int) sshift;
-            		break;
-            	}
-            }
+        	/* variable scaling, depending upon data */
+        	shift = 0;
+        	for(i=0; i<n; ++i)
+        	{
+        	    j = fr[i];
+        	    if(j < 0) j = -j;
+
+        	    m = fi[i];
+        	    if(m < 0) m = -m;
+
+        	    if(j > 16383 || m > 16383)
+        	    {
+        	        shift = 1;
+        	        break;
+        	    }
+        	}
+        	if(shift) ++scale;        	
         }
         else
         {