Club Amiga de Montreal - CAM/CAM_CD_1.iso/files/545b.lha/SRFFT/fft256c.c

C/C++ Source or Header | 1991-09-07 | 13.2 KB | 440 lines

#include "fftsubs.h"
void fft(){
init
_fft2(0,128)
_fft2(32,160)
_fft2(16,144)
_fft2(48,176)
_fft2(8,136)
_fft2(40,168)
_fft2(24,152)
_fft2(56,184)
_fft2(4,132)
_fft2(36,164)
_fft2(20,148)
_fft2(52,180)
_fft2(12,140)
_fft2(44,172)
_fft2(28,156)
_fft2(60,188)
_fft2(2,130)
_fft2(34,162)
_fft2(18,146)
_fft2(50,178)
_fft2(10,138)
_fft2(42,170)
_fft2(26,154)
_fft2(58,186)
_fft2(6,134)
_fft2(38,166)
_fft2(22,150)
_fft2(54,182)
_fft2(14,142)
_fft2(46,174)
_fft2(30,158)
_fft2(62,190)
_fft2(1,129)
_fft2(33,161)
_fft2(17,145)
_fft2(49,177)
_fft2(9,137)
_fft2(41,169)
_fft2(25,153)
_fft2(57,185)
_fft2(5,133)
_fft2(37,165)
_fft2(21,149)
_fft2(53,181)
_fft2(13,141)
_fft2(45,173)
_fft2(29,157)
_fft2(61,189)
_fft2(3,131)
_fft2(35,163)
_fft2(19,147)
_fft2(51,179)
_fft2(11,139)
_fft2(43,171)
_fft2(27,155)
_fft2(59,187)
_fft2(7,135)
_fft2(39,167)
_fft2(23,151)
_fft2(55,183)
_fft2(15,143)
_fft2(47,175)
_fft2(31,159)
_fft2(63,191)
_fft2(96,224)
_fft2(104,232)
_fft2(100,228)
_fft2(108,236)
_fft2(98,226)
_fft2(106,234)
_fft2(102,230)
_fft2(110,238)
_fft2(97,225)
_fft2(105,233)
_fft2(101,229)
_fft2(109,237)
_fft2(99,227)
_fft2(107,235)
_fft2(103,231)
_fft2(111,239)
_fft2(120,248)
_fft2(122,250)
_fft2(121,249)
_fft2(123,251)
_fft2(126,254)
_fft3(0,64,192)
_fft3(16,80,208)
_fft3(8,72,200)
_fft3(24,88,216)
_fft3(4,68,196)
_fft3(20,84,212)
_fft3(12,76,204)
_fft3(28,92,220)
_fft3(2,66,194)
_fft3(18,82,210)
_fft3(10,74,202)
_fft3(26,90,218)
_fft3(6,70,198)
_fft3(22,86,214)
_fft3(14,78,206)
_fft3(30,94,222)
_fft3(1,65,193)
_fft3(17,81,209)
_fft3(9,73,201)
_fft3(25,89,217)
_fft3(5,69,197)
_fft3(21,85,213)
_fft3(13,77,205)
_fft3(29,93,221)
_fft3(3,67,195)
_fft3(19,83,211)
_fft3(11,75,203)
_fft3(27,91,219)
_fft3(7,71,199)
_fft3(23,87,215)
_fft3(15,79,207)
_fft3(31,95,223)
_fft3(48,112,240)
_fft3(52,116,244)
_fft3(50,114,242)
_fft3(54,118,246)
_fft3(49,113,241)
_fft3(53,117,245)
_fft3(51,115,243)
_fft3(55,119,247)
_fft3(60,124,252)
_fft3(61,125,253)
_fft3(63,127,255)
_fft3(0,32,96)
_fft4(128,192,160,224,0x2d41)
_fft3(8,40,104)
_fft4(136,200,168,232,0x2d41)
_fft3(4,36,100)
_fft4(132,196,164,228,0x2d41)
_fft3(12,44,108)
_fft4(140,204,172,236,0x2d41)
_fft3(2,34,98)
_fft4(130,194,162,226,0x2d41)
_fft3(10,42,106)
_fft4(138,202,170,234,0x2d41)
_fft3(6,38,102)
_fft4(134,198,166,230,0x2d41)
_fft3(14,46,110)
_fft4(142,206,174,238,0x2d41)
_fft3(1,33,97)
_fft4(129,193,161,225,0x2d41)
_fft3(9,41,105)
_fft4(137,201,169,233,0x2d41)
_fft3(5,37,101)
_fft4(133,197,165,229,0x2d41)
_fft3(13,45,109)
_fft4(141,205,173,237,0x2d41)
_fft3(3,35,99)
_fft4(131,195,163,227,0x2d41)
_fft3(11,43,107)
_fft4(139,203,171,235,0x2d41)
_fft3(7,39,103)
_fft4(135,199,167,231,0x2d41)
_fft3(15,47,111)
_fft4(143,207,175,239,0x2d41)
_fft3(24,56,120)
_fft4(152,216,184,248,0x2d41)
_fft3(26,58,122)
_fft4(154,218,186,250,0x2d41)
_fft3(25,57,121)
_fft4(153,217,185,249,0x2d41)
_fft3(27,59,123)
_fft4(155,219,187,251,0x2d41)
_fft3(30,62,126)
_fft4(158,222,190,254,0x2d41)
_fft3(0,16,48)
_fft4(64,96,80,112,0x2d41)
_fft3(4,20,52)
_fft4(68,100,84,116,0x2d41)
_fft3(2,18,50)
_fft4(66,98,82,114,0x2d41)
_fft3(6,22,54)
_fft4(70,102,86,118,0x2d41)
_fft3(1,17,49)
_fft4(65,97,81,113,0x2d41)
_fft3(5,21,53)
_fft4(69,101,85,117,0x2d41)
_fft3(3,19,51)
_fft4(67,99,83,115,0x2d41)
_fft3(7,23,55)
_fft4(71,103,87,119,0x2d41)
_fft3(12,28,60)
_fft4(76,108,92,124,0x2d41)
_fft3(13,29,61)
_fft4(77,109,93,125,0x2d41)
_fft3(15,31,63)
_fft4(79,111,95,127,0x2d41)
_fft5(128,160,144,176,192,224,208,240,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(132,164,148,180,196,228,212,244,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(130,162,146,178,194,226,210,242,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(134,166,150,182,198,230,214,246,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(129,161,145,177,193,225,209,241,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(133,165,149,181,197,229,213,245,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(131,163,147,179,195,227,211,243,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(135,167,151,183,199,231,215,247,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(140,172,156,188,204,236,220,252,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(141,173,157,189,205,237,221,253,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(143,175,159,191,207,239,223,255,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft3(0,8,24)
_fft4(32,48,40,56,0x2d41)
_fft3(2,10,26)
_fft4(34,50,42,58,0x2d41)
_fft3(1,9,25)
_fft4(33,49,41,57,0x2d41)
_fft3(3,11,27)
_fft4(35,51,43,59,0x2d41)
_fft3(6,14,30)
_fft4(38,54,46,62,0x2d41)
_fft5(128,144,136,152,224,240,232,248,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(130,146,138,154,226,242,234,250,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(129,145,137,153,225,241,233,249,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(131,147,139,155,227,243,235,251,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(134,150,142,158,230,246,238,254,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(64,80,72,88,96,112,104,120,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(66,82,74,90,98,114,106,122,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(65,81,73,89,97,113,105,121,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(67,83,75,91,99,115,107,123,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(70,86,78,94,102,118,110,126,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(192,208,200,216,160,176,168,184,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(194,210,202,218,162,178,170,186,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(193,209,201,217,161,177,169,185,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(195,211,203,219,163,179,171,187,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(198,214,206,222,166,182,174,190,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft3(0,4,12)
_fft4(16,24,20,28,0x2d41)
_fft3(1,5,13)
_fft4(17,25,21,29,0x2d41)
_fft3(3,7,15)
_fft4(19,27,23,31,0x2d41)
_fft5(128,136,132,140,240,248,244,252,0xc694,0xba0a,0x3fb1,0xd556,0xb02e,0x3d3e,0)
_fft5(129,137,133,141,241,249,245,253,0xc694,0xba0a,0x3fb1,0xd556,0xb02e,0x3d3e,0)
_fft5(131,139,135,143,243,251,247,255,0xc694,0xba0a,0x3fb1,0xd556,0xb02e,0x3d3e,0)
_fft5(64,72,68,76,112,120,116,124,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(65,73,69,77,113,121,117,125,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(67,75,71,79,115,123,119,127,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(192,200,196,204,176,184,180,188,0xd556,0xb02e,0x3d3e,0x08e0,0xa5ee,0x2899,0)
_fft5(193,201,197,205,177,185,181,189,0xd556,0xb02e,0x3d3e,0x08e0,0xa5ee,0x2899,0)
_fft5(195,203,199,207,179,187,183,191,0xd556,0xb02e,0x3d3e,0x08e0,0xa5ee,0x2899,0)
_fft5(32,40,36,44,48,56,52,60,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(33,41,37,45,49,57,53,61,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(35,43,39,47,51,59,55,63,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(160,168,164,172,208,216,212,220,0xe5ba,0xa964,0x3871,0x396c,0xba0a,0x0645,0)
_fft5(161,169,165,173,209,217,213,221,0xe5ba,0xa964,0x3871,0x396c,0xba0a,0x0645,0)
_fft5(163,171,167,175,211,219,215,223,0xe5ba,0xa964,0x3871,0x396c,0xba0a,0x0645,0)
_fft5(96,104,100,108,80,88,84,92,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(97,105,101,109,81,89,85,93,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(99,107,103,111,83,91,87,95,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(224,232,228,236,144,152,148,156,0xf720,0xa5ee,0x3179,0x569c,0xe5ba,0xe1d5,0)
_fft5(225,233,229,237,145,153,149,157,0xf720,0xa5ee,0x3179,0x569c,0xe5ba,0xe1d5,0)
_fft5(227,235,231,239,147,155,151,159,0xf720,0xa5ee,0x3179,0x569c,0xe5ba,0xe1d5,0)
_fft3(0,2,6)
_fft4(8,12,10,14,0x2d41)
_fft5(128,132,130,134,248,252,250,254,0xc337,0xbcf1,0x3fec,0xca16,0xb74e,0x3f4e,0)
_fft5(64,68,66,70,120,124,122,126,0xc694,0xba0a,0x3fb1,0xd556,0xb02e,0x3d3e,0)
_fft5(192,196,194,198,184,188,186,190,0xca16,0xb74e,0x3f4e,0xe183,0xaac9,0x39da,0)
_fft5(32,36,34,38,56,60,58,62,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(160,164,162,166,216,220,218,222,0xd178,0xb260,0x3e14,0xfb8f,0xa59b,0x2f6b,0)
_fft5(96,100,98,102,88,92,90,94,0xd556,0xb02e,0x3d3e,0x08e0,0xa5ee,0x2899,0)
_fft5(224,228,226,230,152,156,154,158,0xd94d,0xae2f,0x3c42,0x15fe,0xa834,0x20e7,0)
_fft5(16,20,18,22,24,28,26,30,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(144,148,146,150,232,236,234,238,0xe183,0xaac9,0x39da,0x2e88,0xb260,0x0f8c,0)
_fft5(80,84,82,86,104,108,106,110,0xe5ba,0xa964,0x3871,0x396c,0xba0a,0x0645,0)
_fft5(208,212,210,214,168,172,170,174,0xea02,0xa834,0x36e5,0x430f,0xc337,0xfcdd,0)
_fft5(48,52,50,54,40,44,42,46,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(176,180,178,182,200,204,202,206,0xf2b8,0xa67a,0x3367,0x51d1,0xd94d,0xea71,0)
_fft5(112,116,114,118,72,76,74,78,0xf720,0xa5ee,0x3179,0x569c,0xe5ba,0xe1d5,0)
_fft5(240,244,242,246,136,140,138,142,0xfb8f,0xa59b,0x2f6b,0x5986,0xf2b8,0xd9e1,0)
_fft3(0,1,3)
_fft4(4,6,5,7,0x2d41)
_fft5(128,130,129,131,252,254,253,255,0xc197,0xbe73,0x3ffb,0xc4e2,0xbb78,0x3fd3,0)
_fft5(64,66,65,67,124,126,125,127,0xc337,0xbcf1,0x3fec,0xca16,0xb74e,0x3f4e,0)
_fft5(192,194,193,195,188,190,189,191,0xc4e2,0xbb78,0x3fd3,0xcf94,0xb38a,0x3e71,0)
_fft5(32,34,33,35,60,62,61,63,0xc694,0xba0a,0x3fb1,0xd556,0xb02e,0x3d3e,0)
_fft5(160,162,161,163,220,222,221,223,0xc851,0xb8a7,0x3f84,0xdb52,0xad42,0x3bb6,0)
_fft5(96,98,97,99,92,94,93,95,0xca16,0xb74e,0x3f4e,0xe183,0xaac9,0x39da,0)
_fft5(224,226,225,227,156,158,157,159,0xcbe3,0xb601,0x3f0e,0xe7dc,0xa8c6,0x37af,0)
_fft5(16,18,17,19,28,30,29,31,0xcdb7,0xb4bf,0x3ec5,0xee58,0xa73c,0x3536,0)
_fft5(144,146,145,147,236,238,237,239,0xcf94,0xb38a,0x3e71,0xf4eb,0xa62d,0x3274,0)
_fft5(80,82,81,83,108,110,109,111,0xd178,0xb260,0x3e14,0xfb8f,0xa59b,0x2f6b,0)
_fft5(208,210,209,211,172,174,173,175,0xd363,0xb141,0x3dae,0x0239,0xa585,0x2c21,0)
_fft5(48,50,49,51,44,46,45,47,0xd556,0xb02e,0x3d3e,0x08e0,0xa5ee,0x2899,0)
_fft5(176,178,177,179,204,206,205,207,0xd74e,0xaf28,0x3cc5,0x0f79,0xa6d3,0x24da,0)
_fft5(112,114,113,115,76,78,77,79,0xd94d,0xae2f,0x3c42,0x15fe,0xa834,0x20e7,0)
_fft5(240,242,241,243,140,142,141,143,0xdb52,0xad42,0x3bb6,0x1c64,0xaa10,0x1cc6,0)
_fft5(8,10,9,11,12,14,13,15,0xdd5d,0xac63,0x3b20,0x22a3,0xac63,0x187d,1)
_fft5(136,138,137,139,244,246,245,247,0xdf6d,0xab8f,0x3a82,0x28b2,0xaf28,0x1413,0)
_fft5(72,74,73,75,116,118,117,119,0xe183,0xaac9,0x39da,0x2e88,0xb260,0x0f8c,0)
_fft5(200,202,201,203,180,182,181,183,0xe39c,0xaa10,0x392a,0x341d,0xb601,0x0af1,0)
_fft5(40,42,41,43,52,54,53,55,0xe5ba,0xa964,0x3871,0x396c,0xba0a,0x0645,0)
_fft5(168,170,169,171,212,214,213,215,0xe7dc,0xa8c6,0x37af,0x3e69,0xbe73,0x0192,0)
_fft5(104,106,105,107,84,86,85,87,0xea02,0xa834,0x36e5,0x430f,0xc337,0xfcdd,0)
_fft5(232,234,233,235,148,150,149,151,0xec2b,0xa7b1,0x3612,0x4759,0xc851,0xf82b,0)
_fft5(24,26,25,27,20,22,21,23,0xee58,0xa73c,0x3536,0x4b41,0xcdb7,0xf384,0)
_fft5(152,154,153,155,228,230,229,231,0xf087,0xa6d3,0x3453,0x4ebf,0xd363,0xeeef,0)
_fft5(88,90,89,91,100,102,101,103,0xf2b8,0xa67a,0x3367,0x51d1,0xd94d,0xea71,0)
_fft5(216,218,217,219,164,166,165,167,0xf4eb,0xa62d,0x3274,0x5471,0xdf6d,0xe611,0)
_fft5(56,58,57,59,36,38,37,39,0xf720,0xa5ee,0x3179,0x569c,0xe5ba,0xe1d5,0)
_fft5(184,186,185,187,196,198,197,199,0xf957,0xa5bd,0x3076,0x584f,0xec2b,0xddc3,0)
_fft5(120,122,121,123,68,70,69,71,0xfb8f,0xa59b,0x2f6b,0x5986,0xf2b8,0xd9e1,0)
_fft5(248,250,249,251,132,134,133,135,0xfdc7,0xa585,0x2e5a,0x5a43,0xf957,0xd633,0)
_fft1(2)
_fft7(0,0)
_fft8(1,128,255)
_fft8(2,64,127)
_fft8(3,192,191)
_fft8(4,32,63)
_fft8(5,160,223)
_fft8(6,96,95)
_fft8(7,224,159)
_fft8(8,16,31)
_fft8(9,144,239)
_fft8(10,80,111)
_fft8(11,208,175)
_fft8(12,48,47)
_fft8(13,176,207)
_fft8(14,112,79)
_fft8(15,240,143)
_fft8(16,8,15)
_fft8(17,136,247)
_fft8(18,72,119)
_fft8(19,200,183)
_fft8(20,40,55)
_fft8(21,168,215)
_fft8(22,104,87)
_fft8(23,232,151)
_fft8(24,24,23)
_fft8(25,152,231)
_fft8(26,88,103)
_fft8(27,216,167)
_fft8(28,56,39)
_fft8(29,184,199)
_fft8(30,120,71)
_fft8(31,248,135)
_fft8(32,4,7)
_fft8(33,132,251)
_fft8(34,68,123)
_fft8(35,196,187)
_fft8(36,36,59)
_fft8(37,164,219)
_fft8(38,100,91)
_fft8(39,228,155)
_fft8(40,20,27)
_fft8(41,148,235)
_fft8(42,84,107)
_fft8(43,212,171)
_fft8(44,52,43)
_fft8(45,180,203)
_fft8(46,116,75)
_fft8(47,244,139)
_fft8(48,12,11)
_fft8(49,140,243)
_fft8(50,76,115)
_fft8(51,204,179)
_fft8(52,44,51)
_fft8(53,172,211)
_fft8(54,108,83)
_fft8(55,236,147)
_fft8(56,28,19)
_fft8(57,156,227)
_fft8(58,92,99)
_fft8(59,220,163)
_fft8(60,60,35)
_fft8(61,188,195)
_fft8(62,124,67)
_fft8(63,252,131)
_fft8(64,2,3)
_fft8(65,130,253)
_fft8(66,66,125)
_fft8(67,194,189)
_fft8(68,34,61)
_fft8(69,162,221)
_fft8(70,98,93)
_fft8(71,226,157)
_fft8(72,18,29)
_fft8(73,146,237)
_fft8(74,82,109)
_fft8(75,210,173)
_fft8(76,50,45)
_fft8(77,178,205)
_fft8(78,114,77)
_fft8(79,242,141)
_fft8(80,10,13)
_fft8(81,138,245)
_fft8(82,74,117)
_fft8(83,202,181)
_fft8(84,42,53)
_fft8(85,170,213)
_fft8(86,106,85)
_fft8(87,234,149)
_fft8(88,26,21)
_fft8(89,154,229)
_fft8(90,90,101)
_fft8(91,218,165)
_fft8(92,58,37)
_fft8(93,186,197)
_fft8(94,122,69)
_fft8(95,250,133)
_fft8(96,6,5)
_fft8(97,134,249)
_fft8(98,70,121)
_fft8(99,198,185)
_fft8(100,38,57)
_fft8(101,166,217)
_fft8(102,102,89)
_fft8(103,230,153)
_fft8(104,22,25)
_fft8(105,150,233)
_fft8(106,86,105)
_fft8(107,214,169)
_fft8(108,54,41)
_fft8(109,182,201)
_fft8(110,118,73)
_fft8(111,246,137)
_fft8(112,14,9)
_fft8(113,142,241)
_fft8(114,78,113)
_fft8(115,206,177)
_fft8(116,46,49)
_fft8(117,174,209)
_fft8(118,110,81)
_fft8(119,238,145)
_fft8(120,30,17)
_fft8(121,158,225)
_fft8(122,94,97)
_fft8(123,222,161)
_fft8(124,62,33)
_fft8(125,190,193)
_fft8(126,126,65)
_fft8(127,254,129)
_fft7(128,1)
}