2
0
mirror of https://github.com/FWGS/xash3d-fwgs synced 2024-12-10 11:00:18 +01:00
xash3d-fwgs/engine/common/soundlib/libmpg/dct64.c
Gleb Mazovetskiy 5e0a0765ce Trim all trailing whitespace
The `.editorconfig` file in this repo is configured to trim all trailing
whitespace regardless of whether the line is modified.

Trims all trailing whitespace in the repository to make the codebase easier
to work with in editors that respect `.editorconfig`.

`git blame` becomes less useful on these lines but it already isn't very useful.

Commands:

```
find . -type f -name '*.h' -exec sed --in-place 's/[[:space:]]\+$//' {} \+
find . -type f -name '*.c' -exec sed --in-place 's/[[:space:]]\+$//' {} \+
```
2021-01-04 20:55:10 +03:00

176 lines
4.4 KiB
C

/*
dct64.c: DCT64, the plain C version
copyright ?-2006 by the mpg123 project - free software under the terms of the LGPL 2.1
see COPYING and AUTHORS files in distribution or http://mpg123.org
initially written by Michael Hipp
*/
/*
* Discrete Cosine Transform (DCT) for subband synthesis
*
* -funroll-loops (for gcc) will remove the loops for better performance
* using loops in the source-code enhances readabillity
*
*/
#include "mpg123.h"
void dct64( float *out0, float *out1, float *samples )
{
float bufs[64];
{
register float *b1, *b2, *bs;
register float *costab;
register int i, j;
b1 = samples;
bs = bufs;
costab = pnts[0]+16;
b2 = b1 + 32;
for( i = 15; i >= 0; i-- )
*bs++ = (*b1++ + *--b2);
for( i = 15; i >= 0; i-- )
*bs++ = REAL_MUL((*--b2 - *b1++), *--costab);
b1 = bufs;
costab = pnts[1] + 8;
b2 = b1 + 16;
{
for( i = 7; i >= 0; i-- )
*bs++ = (*b1++ + *--b2);
for( i = 7; i >= 0; i-- )
*bs++ = REAL_MUL((*--b2 - *b1++), *--costab);
b2 += 32;
costab += 8;
for( i = 7; i >= 0; i-- )
*bs++ = (*b1++ + *--b2);
for( i = 7; i >= 0; i-- )
*bs++ = REAL_MUL((*b1++ - *--b2), *--costab);
b2 += 32;
}
bs = bufs;
costab = pnts[2];
b2 = b1 + 8;
for( j = 2; j; j-- )
{
for( i = 3; i >= 0; i-- )
*bs++ = (*b1++ + *--b2);
for( i = 3;i >= 0; i-- )
*bs++ = REAL_MUL((*--b2 - *b1++), costab[i]);
b2 += 16;
for( i = 3; i >= 0; i-- )
*bs++ = (*b1++ + *--b2);
for( i = 3;i >= 0; i-- )
*bs++ = REAL_MUL((*b1++ - *--b2), costab[i]);
b2 += 16;
}
b1 = bufs;
costab = pnts[3];
b2 = b1 + 4;
for( j = 4; j; j-- )
{
*bs++ = (*b1++ + *--b2);
*bs++ = (*b1++ + *--b2);
*bs++ = REAL_MUL((*--b2 - *b1++), costab[1]);
*bs++ = REAL_MUL((*--b2 - *b1++), costab[0]);
b2 += 8;
*bs++ = (*b1++ + *--b2);
*bs++ = (*b1++ + *--b2);
*bs++ = REAL_MUL((*b1++ - *--b2), costab[1]);
*bs++ = REAL_MUL((*b1++ - *--b2), costab[0]);
b2 += 8;
}
bs = bufs;
costab = pnts[4];
for( j = 8; j; j-- )
{
float v0, v1;
v0 = *b1++;
v1 = *b1++;
*bs++ = (v0 + v1);
*bs++ = REAL_MUL((v0 - v1), (*costab));
v0 = *b1++;
v1 = *b1++;
*bs++ = (v0 + v1);
*bs++ = REAL_MUL((v1 - v0), (*costab));
}
}
{
register float *b1;
register int i;
for( b1 =bufs, i = 8; i; i--, b1 += 4 )
b1[2] += b1[3];
for( b1 = bufs, i = 4; i; i--, b1 += 8 )
{
b1[4] += b1[6];
b1[6] += b1[5];
b1[5] += b1[7];
}
for( b1 = bufs, i = 2; i; i--, b1 += 16 )
{
b1[8] += b1[12];
b1[12] += b1[10];
b1[10] += b1[14];
b1[14] += b1[9];
b1[9] += b1[13];
b1[13] += b1[11];
b1[11] += b1[15];
}
}
out0[0x10*16] = REAL_SCALE_DCT64( bufs[0] );
out0[0x10*15] = REAL_SCALE_DCT64( bufs[16+0] + bufs[16+8] );
out0[0x10*14] = REAL_SCALE_DCT64( bufs[8] );
out0[0x10*13] = REAL_SCALE_DCT64( bufs[16+8] + bufs[16+4] );
out0[0x10*12] = REAL_SCALE_DCT64( bufs[4] );
out0[0x10*11] = REAL_SCALE_DCT64( bufs[16+4] + bufs[16+12] );
out0[0x10*10] = REAL_SCALE_DCT64( bufs[12] );
out0[0x10* 9] = REAL_SCALE_DCT64( bufs[16+12] + bufs[16+2] );
out0[0x10* 8] = REAL_SCALE_DCT64( bufs[2] );
out0[0x10* 7] = REAL_SCALE_DCT64( bufs[16+2] + bufs[16+10] );
out0[0x10* 6] = REAL_SCALE_DCT64( bufs[10] );
out0[0x10* 5] = REAL_SCALE_DCT64( bufs[16+10] + bufs[16+6] );
out0[0x10* 4] = REAL_SCALE_DCT64( bufs[6] );
out0[0x10* 3] = REAL_SCALE_DCT64( bufs[16+6] + bufs[16+14] );
out0[0x10* 2] = REAL_SCALE_DCT64( bufs[14] );
out0[0x10* 1] = REAL_SCALE_DCT64( bufs[16+14] + bufs[16+1] );
out0[0x10* 0] = REAL_SCALE_DCT64( bufs[1] );
out1[0x10* 0] = REAL_SCALE_DCT64( bufs[1] );
out1[0x10* 1] = REAL_SCALE_DCT64( bufs[16+1] + bufs[16+9] );
out1[0x10* 2] = REAL_SCALE_DCT64( bufs[9] );
out1[0x10* 3] = REAL_SCALE_DCT64( bufs[16+9] + bufs[16+5] );
out1[0x10* 4] = REAL_SCALE_DCT64( bufs[5] );
out1[0x10* 5] = REAL_SCALE_DCT64( bufs[16+5] + bufs[16+13] );
out1[0x10* 6] = REAL_SCALE_DCT64( bufs[13] );
out1[0x10* 7] = REAL_SCALE_DCT64( bufs[16+13] + bufs[16+3] );
out1[0x10* 8] = REAL_SCALE_DCT64( bufs[3] );
out1[0x10* 9] = REAL_SCALE_DCT64( bufs[16+3] + bufs[16+11] );
out1[0x10*10] = REAL_SCALE_DCT64( bufs[11] );
out1[0x10*11] = REAL_SCALE_DCT64( bufs[16+11] + bufs[16+7] );
out1[0x10*12] = REAL_SCALE_DCT64( bufs[7] );
out1[0x10*13] = REAL_SCALE_DCT64( bufs[16+7] + bufs[16+15] );
out1[0x10*14] = REAL_SCALE_DCT64( bufs[15] );
out1[0x10*15] = REAL_SCALE_DCT64( bufs[16+15] );
}