/*---------------------------------------------------------------------------*
  Project:  NintendoWare
  File:     main.cpp
  
  Copyright (C)2009-2011 Nintendo/HAL Laboratory, Inc.  All rights reserved.
  
  These coded instructions, statements, and computer programs contain proprietary
  information of Nintendo and/or its licensed developers and are protected by
  national and international copyright laws. They may not be disclosed to third
  parties or copied or duplicated in any form, in whole or in part, without the
  prior written consent of Nintendo.
  
  The content herein is highly confidential and should be handled accordingly.
  
  $Revision: $
 *---------------------------------------------------------------------------*/

#include "precompiled.h"

#include <nw/snd.h>
#include "demolib.h"
#include "simple.csid"


/*---------------------------------------------------------------------------*

 *---------------------------------------------------------------------------*/
namespace
{

const s32 SOUND_THREAD_PRIORITY = 4;
const s32 LOAD_THREAD_PRIORITY = 3;
const s32 SOUND_HEAP_SIZE = 1 * 1024 * 1024;
const char SOUND_ARC_PATH[] = NW_SND_DEMO_PATH_PREFIX "simple.bcsar";
const char DEMO_TITLE[] = "Filter";

const f32 BIQUAD_FILTER_VALUE_MIN = 0.0f;
const f32 BIQUAD_FILTER_VALUE_MAX = 1.0f;
const f32 BIQUAD_FILTER_VALUE_DELTA = 0.05f;
const f32 LPF_VALUE_MIN = -1.0f;
const f32 LPF_VALUE_MAX = 0.0f;
const f32 LPF_VALUE_DELTA = 0.05f;

enum FilterType
{
    FILTER_TYPE_NONE,
    FILTER_TYPE_LPF,            // 単極フィルタ
    FILTER_TYPE_BIQUAD_LPF,     // 以下、双極フィルタ
    FILTER_TYPE_BIQUAD_HPF,
    FILTER_TYPE_BIQUAD_BPF_512,
    FILTER_TYPE_BIQUAD_BPF_1024,
    FILTER_TYPE_BIQUAD_BPF_2048
};

const char* GetFilterTypeString( int type )
{
    const char* FILTER_TYPE_STRING[] =
    {
        "NONE",
        "LPF",
        "BIQUAD_LPF",
        "BIQUAD_HPF",
        "BIQUAD_BPF_512",
        "BIQUAD_BPF_1024",
        "BIQUAD_BPF_2048"
    };
    if ( type > FILTER_TYPE_BIQUAD_BPF_2048 || type < 0 )
    {
        return "INVALID";
    }
    return FILTER_TYPE_STRING[ type ];
}

} // anonymous namespace



/*---------------------------------------------------------------------------*

    アプリケーションクラス

 *---------------------------------------------------------------------------*/
class FilterApp : public nw::snd::demolib::AppBase
{
protected:
    virtual void OnInitialize();
    virtual void OnFinalize();
    virtual void OnDrawUpLCD( nw::font::TextWriter& );
    virtual void OnDrawDownLCD( nw::font::TextWriter& );
    virtual void OnUpdatePad( nw::demo::Pad& );
    virtual void OnUpdate();

    void SetFilter();

private:
    void InitializeSoundSystem();

    nw::snd::RomSoundArchive    m_Archive;
    nw::snd::SoundArchivePlayer m_ArchivePlayer;
    nw::snd::SoundDataManager   m_DataManager;
    nw::snd::SoundHeap          m_Heap;
    nw::snd::SoundHandle        m_Handle;

    void* m_pMemoryForSoundSystem;
    void* m_pMemoryForInfoBlock;
    void* m_pMemoryForSoundDataManager;
    void* m_pMemoryForSoundArchivePlayer;
    void* m_pMemoryForSoundHeap;
    void* m_pMemoryForStreamBuffer;

    int m_FilterType;
    f32 m_LpfValue;
    f32 m_BiquadFilterValue;
};



/*---------------------------------------------------------------------------*

    アプリケーションクラス実装

 *---------------------------------------------------------------------------*/
void FilterApp::OnInitialize()
{
    InitializeSoundSystem();

    // サウンドデータのロード
    if ( ! m_DataManager.LoadData( SEQ_MARIOKART, &m_Heap ) )
    {
        NW_ASSERTMSG( false, "LoadData(SEQ_MARIOKART) failed." );
    }
    if ( ! m_DataManager.LoadData( SE_YOSHI, &m_Heap ) )
    {
        NW_ASSERTMSG( false, "LoadData(SE_YOSHI) failed." );
    }

    m_FilterType = 0;
    m_BiquadFilterValue = 0.8f; // 初期値
    m_LpfValue = -0.4f;         // 初期値
}

void FilterApp::InitializeSoundSystem()
{
    // サウンドシステムの初期化
    {
        nw::snd::SoundSystem::SoundSystemParam param;
        size_t workMemSize = nw::snd::SoundSystem::GetRequiredMemSize( param );
        m_pMemoryForSoundSystem = MemAlloc( workMemSize );

        nw::snd::SoundSystem::Initialize(
                param,
                reinterpret_cast<uptr>( m_pMemoryForSoundSystem ),
                workMemSize );
    }

    // サウンドアーカイブの初期化
    if ( ! m_Archive.Open( SOUND_ARC_PATH ) )
    {
        NW_ASSERTMSG( 0, "cannot open bcsar(%s)\n", SOUND_ARC_PATH );
    }

    // INFO ブロックのロード
    {
        size_t infoBlockSize = m_Archive.GetHeaderSize();
        m_pMemoryForInfoBlock = MemAlloc( infoBlockSize );
        if ( ! m_Archive.LoadHeader( m_pMemoryForInfoBlock, infoBlockSize ) )
        {
            NW_ASSERTMSG( 0, "cannot load infoBlock(%s)", SOUND_ARC_PATH );
        }
    }

    // サウンドデータマネージャーの初期化
    {
        size_t setupSize = m_DataManager.GetRequiredMemSize( &m_Archive );
        m_pMemoryForSoundDataManager = MemAlloc( setupSize );
        m_DataManager.Initialize( &m_Archive, m_pMemoryForSoundDataManager, setupSize );
    }

    // サウンドアーカイブプレイヤーの初期化
    {
        size_t setupSize = m_ArchivePlayer.GetRequiredMemSize( &m_Archive );
        m_pMemoryForSoundArchivePlayer = MemAlloc( setupSize, 32 );
        size_t setupStrmBufferSize =
            m_ArchivePlayer.GetRequiredStreamBufferSize( &m_Archive );
        m_pMemoryForStreamBuffer = MemAlloc( setupStrmBufferSize, 32 );
        bool result = m_ArchivePlayer.Initialize(
                &m_Archive,
                &m_DataManager,
                m_pMemoryForSoundArchivePlayer, setupSize,
                m_pMemoryForStreamBuffer, setupStrmBufferSize );
        NW_ASSERT( result );
    }

    // サウンドヒープの構築
    {
        m_pMemoryForSoundHeap = MemAlloc( SOUND_HEAP_SIZE );
        bool result = m_Heap.Create( m_pMemoryForSoundHeap, SOUND_HEAP_SIZE );
        NW_ASSERT( result );
    }
}

void FilterApp::OnFinalize()
{
    nw::snd::SoundSystem::Finalize();

    MemFree( m_pMemoryForSoundSystem );
    MemFree( m_pMemoryForInfoBlock );
    MemFree( m_pMemoryForSoundDataManager );
    MemFree( m_pMemoryForSoundArchivePlayer );
    MemFree( m_pMemoryForSoundHeap );
    MemFree( m_pMemoryForStreamBuffer );
}

void FilterApp::OnDrawUpLCD( nw::font::TextWriter& writer )
{
    writer.Printf(" DEMO nw::snd %s\n\n", DEMO_TITLE);

    writer.Print ("    -- usage --\n\n");
    writer.Print ("    [A]          Play Sequence Sound\n");
    writer.Print ("    [X]          Play Wave Sound\n");
    writer.Print ("    [Y]          Play Stream Sound\n");
    writer.Print ("    [B]          Stop Sound\n");
    writer.Print ("    [LEFT/RIGHT] Change FilterType\n");
    writer.Print ("    [UP/DOWN]    Change FilterValue\n\n");

    writer.Print ("    -- parameter --\n\n");
    writer.Printf("    FilterType       : %s\n", GetFilterTypeString(m_FilterType));
    if ( m_FilterType == FILTER_TYPE_LPF )
    {
        writer.Printf("    LpfValue         : %1.2f\n", m_LpfValue);
    }
    else if ( m_FilterType >= FILTER_TYPE_BIQUAD_LPF
           && m_FilterType <= FILTER_TYPE_BIQUAD_BPF_2048 )
    {
        writer.Printf("    BiquadFilterValue: %1.2f\n", m_BiquadFilterValue);
    }
}

void FilterApp::OnDrawDownLCD( nw::font::TextWriter& writer )
{
    (void)writer;
}

void FilterApp::OnUpdatePad( nw::demo::Pad& pad )
{
    if ( pad.IsButtonDown( nw::demo::Pad::BUTTON_A ) )
    {
        m_Handle.Stop( 0 );
        bool result = m_ArchivePlayer.StartSound( &m_Handle, SEQ_MARIOKART ).IsSuccess();
        SetFilter();
        NN_LOG("[SEQ] SEQ_MARIOKART ... (%d)\n", result);
    }

    if ( pad.IsButtonDown( nw::demo::Pad::BUTTON_X ) )
    {
        m_Handle.Stop( 0 );
        bool result = m_ArchivePlayer.StartSound( &m_Handle, SE_YOSHI ).IsSuccess();
        SetFilter();
        NN_LOG("[WSD] SE_YOSHI ... (%d)\n", result);
    }

    if ( pad.IsButtonDown( nw::demo::Pad::BUTTON_Y ) )
    {
        m_Handle.Stop( 0 );
        bool result = m_ArchivePlayer.StartSound( &m_Handle, STRM_MARIOKART ).IsSuccess();
        SetFilter();
        NN_LOG("[STRM] STRM_MARIOKART ... (%d)\n", result );
    }

    if ( pad.IsButtonDown( nw::demo::Pad::BUTTON_LEFT ) )
    {
        m_FilterType -= 1;
        if ( m_FilterType < 0 )
        {
            m_FilterType = FILTER_TYPE_BIQUAD_BPF_2048;
        }
        SetFilter();
    }
    if ( pad.IsButtonDown( nw::demo::Pad::BUTTON_RIGHT ) )
    {
        m_FilterType += 1;
        if ( m_FilterType > FILTER_TYPE_BIQUAD_BPF_2048 )
        {
            m_FilterType = 0;
        }
        SetFilter();
    }

    if ( m_FilterType == FILTER_TYPE_LPF )
    {
        if ( pad.IsButtonRepeatFast( nw::demo::Pad::BUTTON_UP ) )
        {
            m_LpfValue += LPF_VALUE_DELTA;
            if ( m_LpfValue > LPF_VALUE_MAX )
            {
                m_LpfValue = LPF_VALUE_MAX;
            }
            SetFilter();
        }
        if ( pad.IsButtonRepeatFast( nw::demo::Pad::BUTTON_DOWN ) )
        {
            m_LpfValue -= LPF_VALUE_DELTA;
            if ( m_LpfValue < LPF_VALUE_MIN )
            {
                m_LpfValue = LPF_VALUE_MIN;
            }
            SetFilter();
        }
    }
    else if ( m_FilterType >= FILTER_TYPE_BIQUAD_LPF
           && m_FilterType <= FILTER_TYPE_BIQUAD_BPF_2048 )
    {
        if ( pad.IsButtonRepeatFast( nw::demo::Pad::BUTTON_UP ) )
        {
            m_BiquadFilterValue += BIQUAD_FILTER_VALUE_DELTA;
            if ( m_BiquadFilterValue > BIQUAD_FILTER_VALUE_MAX )
            {
                m_BiquadFilterValue = BIQUAD_FILTER_VALUE_MAX;
            }
            SetFilter();
        }
        if ( pad.IsButtonRepeatFast( nw::demo::Pad::BUTTON_DOWN ) )
        {
            m_BiquadFilterValue -= BIQUAD_FILTER_VALUE_DELTA;
            if ( m_BiquadFilterValue < BIQUAD_FILTER_VALUE_MIN )
            {
                m_BiquadFilterValue = BIQUAD_FILTER_VALUE_MIN;
            }
            SetFilter();
        }
    }

    if ( pad.IsButtonDown( nw::demo::Pad::BUTTON_B ) )
    {
        m_Handle.Stop( 3 );
    }
}

void FilterApp::OnUpdate()
{
    m_ArchivePlayer.Update();
}

void FilterApp::SetFilter()
{
    switch ( m_FilterType )
    {
    case FILTER_TYPE_NONE:
        m_Handle.SetLpfFreq( 0.0f );
        m_Handle.SetBiquadFilter( 0, 0.0f );
        break;
    case FILTER_TYPE_LPF:
        m_Handle.SetLpfFreq( m_LpfValue );
        m_Handle.SetBiquadFilter( 0, 0.0f );
        break;
    case FILTER_TYPE_BIQUAD_LPF:
    case FILTER_TYPE_BIQUAD_HPF:
    case FILTER_TYPE_BIQUAD_BPF_512:
    case FILTER_TYPE_BIQUAD_BPF_1024:
    case FILTER_TYPE_BIQUAD_BPF_2048:
        m_Handle.SetLpfFreq( 0.0f );
        m_Handle.SetBiquadFilter( m_FilterType - 1, m_BiquadFilterValue );
        break;
    }
}



/*---------------------------------------------------------------------------*

    メイン処理

 *---------------------------------------------------------------------------*/
void nnMain()
{
    FilterApp app;

    app.Initialize();
    app.Run();
    app.Finalize();
}