Public-Mirror/GARbro-mirror
1
0
Fork 0
mirror of https://github.com/crskycode/GARbro.git synced 2024-12-29 22:34:13 +08:00
Code Issues Projects Releases Wiki Activity
GARbro-mirror/ArcFormats/Primel/AudioWBC.cs
morkt ba30cd2a57 added some unfinished implementations.
2018-09-12 15:27:04 +04:00

526 lines
18 KiB
C#
Raw Blame History

//! \file AudioWBC.cs
//! \date Mon Mar 27 04:29:38 2017
//! \brief Primel the Adventure System audio.
//
// Copyright (C) 2017 by morkt
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to
// deal in the Software without restriction, including without limitation the
// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
// sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
// IN THE SOFTWARE.
//
using System;
using System.ComponentModel.Composition;
using System.IO;
namespace GameRes.Formats.Primel
{
[Export(typeof(AudioFormat))]
public class WbcAudio : AudioFormat
{
public override string Tag { get { return "WBC"; } }
public override string Description { get { return "Primel ADV System audio format"; } }
public override uint Signature { get { return 0x46434257; } } // 'WBCF'
public override bool CanWrite { get { return false; } }
public override SoundInput TryOpen (IBinaryStream file)
{
var decoder = new WbcDecoder (file);
var data = decoder.Decode();
var pcm = new MemoryStream (data);
var sound = new RawPcmInput (pcm, decoder.Format);
file.Dispose();
return sound;
}
}
sealed class WbcDecoder
{
IBinaryStream m_input;
WaveFormat m_format;
int m_chunk_size;
byte[] m_chunk_buf;
short[] m_sample_buf;
int m_bitrate;
public WaveFormat Format { get { return m_format; } }
public WbcDecoder (IBinaryStream input)
{
m_input = input;
}
public byte[] Decode ()
{
var header = m_input.ReadHeader (0x60);
uint end_offset = header.ToUInt32 (4);
int type = header.ToUInt16 (8);
m_format.FormatTag = 1;
m_format.Channels = header.ToUInt16 (0xA);
m_format.SamplesPerSecond = header.ToUInt32 (0x10);
m_format.BitsPerSample = 16;
m_format.BlockAlign = m_format.Channels * m_format.BitsPerSample / 8;
m_format.SetBPS();
if (0 == m_format.Channels)
throw new InvalidFormatException();
int sample_size = header.ToInt32 (0x1C);
m_sample_buf = new short[sample_size];
m_channel_length = sample_size / m_format.Channels;
int chunk_size = header.ToInt32 (0x20);
m_chunk_buf = new byte[(chunk_size + 3) & ~3];
m_bitrate = (int)m_format.AverageBytesPerSecond * 4 * chunk_size / sample_size;
int chunk_count = header.ToInt32 (0x14);
var chunk_table = new uint[chunk_count+1];
for (int i = 0; i < chunk_count; ++i)
chunk_table[i] = m_input.ReadUInt32();
chunk_table[chunk_count] = end_offset;
var output = new byte[header.ToInt32 (0x18)];
int dst = 0;
for (int i = 0; i < chunk_count; ++i)
{
uint offset = chunk_table[i];
chunk_size = (int)(chunk_table[i+1] - offset);
m_input.Position = offset;
m_input.Read (m_chunk_buf, 0, chunk_size);
ResetBits();
if (type < 0x40)
throw new NotImplementedException();
else if (type > 0x100 && type < 0x105)
DecodeChunk (DwordTable[type - 0x101]);
else
throw new InvalidFormatException();
int src = 0;
for (ushort c = 0; c < m_format.Channels; ++c)
{
int dst_c = dst + c * 2;
for (int i = 0; i < channel_length && dst_c < output.Length; ++i)
{
LittleEndian.Pack (m_sample_buf[src++], output, dst_c);
dst_c += 4;
}
}
dst += sample_size * 2;
}
return output;
}
int m_channel_length;
ushort[] v44 = new ushort[128];
void DecodeChunk (int field_1C) // sub_580E20
{
int v42 = (int)(m_format.SamplesPerSecond >> 1);
int v36 = m_channel_length;
if (field_1C != 0 && v2 < rate)
{
v36 = m_channel_length * field_1C / v42;
}
uint v6 = GetBits (8);
if ((v6 & 0xF0) != 0xF0)
{
Array.Clear (m_sample_buf, 0, m_channel_length);
return;
}
uint v43 = v6 & 8;
int dst = 0;
if (v43 != 0)
dst = field_C;
int output = dst;
for (ushort c = 0; c < m_format.Channels; ++c)
{
int v9 = 16 * c; // v44
int i;
for (i = 0; i < 16; ++i)
{
v44[v9 + i] = (ushort)GetBits (4);
}
for (i = 0; i < v36; ++i)
{
sub_58C050 (v42 * i / m_channel_length);
v41 = 0;
short v11 = sub_580CE0 (out v41);
if (v11 != 0)
{
m_sample_buf[dst + i] = v11;
}
else
{
if (0 == v41)
{
Array.Clear (m_sample_buf, dst + i, v36 - i);
i = v36;
break;
}
for (int j = 0; j < v41; ++j)
{
if (i >= v36)
break;
m_sample_buf[dst + i++] = 0;
}
--i;
}
}
Array.Clear (m_sample_buf, dst + i, m_channel_length - v36);
dst += m_channel_length;
}
dst = output;
for (ushort c = 0; c < m_format.Channels; ++c)
{
int v40 = 16 * c;
v15 = 0;
for (int v14 = 0; v14 > m_channel_length; ++v14)
{
var v16 = v44[sub_58C050 (v15 / m_channel_length) + v40];
v17 = sub_58BFF0 (v15 / m_channel_length);
v18 = sub_58C120 (m_sample_buf[dst + v14], v17, v16);
v15 += v42;
m_sample_buf[dst + v14] = v18;
}
dst += m_channel_length;
}
if (v43 != 0)
{
v19 = a1->output;
v20 = a1->field_C;
v21 = &v19[2 * m_channel_length];
v22 = &v20[2 * m_channel_length];
v38 = &v19[2 * m_channel_length];
for (ushort v35 = 0; v35 < m_format.Channels; v35 += 2)
{
if (m_channel_length > 0)
{
v23 = v20 - (_BYTE *)v22;
v24 = v19 - (_BYTE *)v22;
v25 = v22;
v42 = m_channel_length;
do
{
v26 = *(_WORD *)&v25[v23] / 2;
v27 = v26 + *(_WORD *)v25;
v28 = v26 - *(_WORD *)v25;
*(_WORD *)&v25[v24] = v27;
*(_WORD *)&v25[(char *)v21 - (char *)v22] = v28;
v25 += 2;
}
while (--v42 != 0)
}
v19 = &v21[m_channel_length];
v20 = &v22[m_channel_length];
v21 = &v19[2 * m_channel_length];
v22 = &v20[2 * m_channel_length];
v38 = &v19[2 * m_channel_length];
}
}
int v30 = 0;
for (ushort c = 0; c < m_format.Channels; ++c)
{
sub_582550 (v30, c);
v30 += m_channel_length;
}
}
void sub_582550 (int dst, int a3)
{
_BYTE *v6; // ecx@3
unsigned int v7; // edi@3
int v8; // eax@3
_WORD *v9; // eax@4
int v10; // ecx@4
signed int v11; // ST24_4@5
bool v12; // zf@5
signed int v13; // ST24_4@8
int v14; // edx@9
float *v15; // eax@10
float *v16; // ecx@10
double v17; // st5@11
float *v18; // edi@14
int v19; // ecx@14
int v20; // edx@14
float v21; // ST30_4@16
double v22; // st7@16
float v23; // ST30_4@16
signed int v24; // eax@16
signed int result; // eax@21
int v26; // [sp+Ch] [bp-28h]@4
int v27; // [sp+Ch] [bp-28h]@13
unsigned int v28; // [sp+10h] [bp-24h]@4
float *v29; // [sp+18h] [bp-1Ch]@3
int v30; // [sp+1Ch] [bp-18h]@3
int v31; // [sp+20h] [bp-14h]@3
_BYTE *v32; // [sp+24h] [bp-10h]@3
float *v33; // [sp+28h] [bp-Ch]@3
float *v34; // [sp+2Ch] [bp-8h]@3
_BYTE *v35; // [sp+30h] [bp-4h]@3
int v36; // [sp+3Ch] [bp+8h]@14
int v4 = this->field_4;
int v5 = a3;
if (0 == v4 || a3 < 0)
return;
v29 = (float *)this->field_2C;
v32 = this->field_18[a3];
v31 = this->field_30;
v33 = (float *)this->field_1C[a3];
v30 = 4 * v4 + v31;
v6 = this->field_28[a3];
v34 = (float *)this->field_20[a3];
v7 = (unsigned int)&v6[4 * v4];
v35 = this->field_24[a3];
sub_639810((unsigned int)this->field_28[a3], v7, 4 * v4);
v8 = 0;
if ( v4 >= 4 )
{
v28 = ((unsigned int)(v4 - 4) >> 2) + 1;
v9 = dst + 2;
v10 = v7 + 8;
v26 = 4 * v28;
do
{
v11 = *(v9 - 2);
v9 += 4;
v10 += 16;
v12 = v28-- == 1;
*(float *)(v10 - 24) = (double)v11;
*(float *)(v10 - 20) = (double)*(v9 - 5);
*(float *)(v10 - 16) = (double)*(v9 - 4);
*(float *)(v10 - 12) = (double)*(v9 - 3);
}
while ( !v12 );
v8 = v26;
}
for ( ; v8 < v4; *(float *)(v7 + 4 * v8 - 4) = (double)v13 )
v13 = m_sample_buf[dst + v8++];
v14 = 0;
if ( v4 > 0 )
{
v15 = (float *)(v7 + 4);
v16 = (float *)(v35 + 8);
do
{
v17 = *(v15 - 1) * 0.7071067690849304;
v14 += 4;
v15 += 4;
v16 += 4;
v33[v14 - 4] = v17;
*(v16 - 6) = *(v15 - 5) * 0.7071067690849304;
*(float *)((char *)v33 + (_DWORD)v15 - v7 - 16) = *(v15 - 4) * -0.7071067690849304;
*(float *)((char *)v15 + (_DWORD)&v35[-v7] - 16) = *(v15 - 4) * 0.7071067690849304;
*(float *)((char *)v16 + (char *)v33 - v35 - 16) = *(v15 - 3) * -0.7071067690849304;
*(v16 - 4) = *(v15 - 3) * -0.7071067690849304;
v33[v14 - 1] = *(v15 - 2) * 0.7071067690849304;
*(v16 - 3) = *(v15 - 2) * -0.7071067690849304;
}
while ( v14 < v4 );
v5 = a3;
}
sub_581740((int)this, v33, v29, v4);
sub_581990((int)this, (float *)v35, v29, v4);
v27 = 0;
if ( v4 > 0 )
{
v18 = v34;
v19 = v32 - (_BYTE *)v34;
v20 = v31 - (_DWORD)v34;
v36 = v31 - (_DWORD)v34;
while ( 1 )
{
v21 = *(float *)((char *)v18 + (char *)v33 - (char *)v34) + *(float *)((char *)v18 + v35 - (_BYTE *)v34);
v22 = v21 * *(float *)((char *)v18 + v20);
v23 = *(float *)((char *)v18 + v19) - *v18;
v24 = double_to_int(v22 + v23 * *(float *)((char *)v18 + v30 - (_DWORD)v34));
if ( v24 <= 0x7FFF )
{
if ( v24 < -32768 )
LOWORD(v24) = -32768;
}
else
{
LOWORD(v24) = 0x7FFF;
}
m_sample_buf[dst + v27] = v24;
++v18;
if ( ++v27 >= v4 )
break;
v20 = v36;
v19 = v32 - (_BYTE *)v34;
}
}
this->field_18[v5] = v33;
this->field_1C[v5] = v32;
this->field_20[v5] = v35;
this->field_24[v5] = v34;
}
int sub_58C050 (int x)
{
if (x >= 16000)
return 15;
else if (x >= 12000)
return 14;
else if (x >= 10000)
return 13;
else if (x >= 8000)
return 12;
else if (x >= 6000)
return 11;
else if (x >= 4200)
return 10;
else if (x >= 3400)
return 9;
else if (x >= 2600)
return 8;
else if (x >= 1800)
return 7;
else if (x >= 1400)
return 6;
else if (x >= 1000)
return 5;
else if (x >= 800)
return 4;
else if (x >= 600)
return 3;
else if (x >= 400)
return 2;
else if (x >= 200)
return 1;
else
return 0;
}
int sub_58BFF0 (int a1)
{
if (a1 >= 16000)
return 10;
else if (a1 >= 8000)
return 3;
else if (a1 > 250)
return 1;
else if (a1 <= 30)
return 315;
else if (a1 <= 60)
return 45;
else if (a1 <= 125)
return 10;
else
return 3;
}
int sub_58C120 (int a1, int a2, int a3)
{
int result = a1;
if (a1 != 0)
{
if (a3 >= 1)
result = a1 << a3;
if (a2 > 1)
result *= a2;
}
return result;
}
short sub_580CE0 (out int a2)
{
uint v2 = GetBits (3);
if (0 == v2)
{
for (int i = 1; i < 0x10; ++i)
{
if (GetBits (1) != 1)
break;
}
a2 = v3 < 0x10 ? v3 : 0;
return 0;
}
else if (v2 >= 7)
{
uint v7 = GetBits (7);
int v8 = 0;
int v9 = 6;
while (0 != ((1 << v9) & v7))
{
++v8;
--v9;
if (v8 >= 7)
return GetBits (16);
}
if (v8 >= 7)
return GetBits (16);
short v10 = 1 << (v8 + 5);
uint v11;
if (v8 != 0)
v11 = ((v7 & (63 >> v8)) << 2 * v8) | GetBits (2 * v8);
else
v11 = (ushort)v7;
v10 += 32 + (v11 & ~v10);
if (0 != ((1 << (v8 + 5)) & v11))
return -v10;
else
return v10;
}
else
{
int v5 = 1 << (v2 - 1);
short v6 = (short)GetBits (v2);
short x = (short)(v5 + (v6 & ~v5));
if (0 != (v5 & v6))
return -x;
else
return x;
}
}
int m_bits_pos;
int m_bits_count;
uint m_bits;
void ResetBits ()
{
m_bits_pos = 0;
m_bits_count = 0;
m_bits = 0;
}
void AlignBits ()
{
int align = m_bits_count & 7;
m_bits <<= align;
m_bits_count -= align;
}
uint GetBits (int count)
{
while (m_bits_count < count)
{
m_bits |= (uint)m_chunk_buf[m_bits_pos++] << (24 - m_bits_count);
m_bits_count += 8;
}
m_bits_count -= count;
uint b = m_bits >> (32 - count);
m_bits <<= count;
return b;
}
static int[] DwordTable = { 0, 0, 0x3E80, 0x2EE0 };
}
}
Reference in New Issue View Git Blame Copy Permalink