GLScene/Examples/Demos/sound/SoundAround/fSoundAroundC.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "fSoundAroundC.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Cadencer"
#pragma link "GLS.Coordinates"

#pragma link "GLS.GeomObjects"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SoundManager"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.FileWAV"
#pragma link "GLS.FileMP3"

#pragma link "GLS.Sounds.BASS"
#pragma link "GLS.Sounds.FMOD"
#pragma link "GLS.Sounds.OpenAL"
#pragma resource "*.dfm"
TForm1* Form1;
int mx, my;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject* Sender)
{
    TFileName Path = GetCurrentAssetPath() + "\\audio";
    SetCurrentDir(Path);

    // Load our sound samples
    GLSoundLibrary->Samples->AddFile("drumloop.wav", "drumloop.wav");
    GLSoundLibrary->Samples->AddFile("chimes.wav", "chimes.wav");
    GLSoundLibrary->Samples->AddFile("howl.mp3", "howl.mp3");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SphereProgress(
    TObject* Sender, const double deltaTime, const double newTime)

{
    Single alpha;
    // Move the red sphere (sound source) along an elliptic path
    alpha = 60 * DegToRad(newTime);
    ((TGLSphere*)Sender)
        ->Position->SetPoint(sin(alpha) * 2, 0.5, cos(alpha) * 5);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject* Sender)
{
    // Move the listener forward/back
    Mickey->Position->Z = TrackBar1->Position / 10;
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBarChange(TObject* Sender)
{
    // Rotate the listener around the vertical axis
    DummyCube->TurnAngle = TrackBar->Position;
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject* Sender)
{
    TGLBSoundEmitter* se = new TGLBSoundEmitter(Sphere->Behaviours);
    se->Source->SoundLibrary = GLSoundLibrary;
    se->Source->SoundName = "chimes.wav";
    se->Playing = True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnHowlClick(TObject* Sender)
{
    TGLBSoundEmitter* se = new TGLBSoundEmitter(Sphere->Behaviours);
    se->Source->SoundLibrary = GLSoundLibrary;
    se->Source->SoundName = "howl.mp3";
    se->Playing = True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TimerTimer(TObject* Sender)
{
    String mngName;
	TGLSoundManager* sm;
    sm = ActiveSoundManager();

    // some stats
    if (dynamic_cast<TGLSMBASS*>(sm))
        mngName = "BASS";
    else if (dynamic_cast<TGLSMFMOD*>(sm))
        mngName = "FMOD";
    else if (dynamic_cast<TGLSMOpenAL*>(sm))
        mngName = "OpenAL";
    else
        mngName = "";
    if (sm)
        LabelFPS->Caption = Format("%.2f FPS, %s CPU use : %.2f%%",
            ARRAYOFCONST((GLSceneViewer->FramesPerSecond(), mngName,
                ActiveSoundManager()->CPUUsagePercent())));
    else
        LabelFPS->Caption = "No active sound manager.";
    GLSceneViewer->ResetPerformanceMonitor();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RBFMODClick(TObject* Sender)
{
    TGLSoundManager *newManager, *sm;

    // This method switches managers. On a real world project, this would never
    // happen: you would choose and API and then cling to it, but the GLSS
    // completely wraps the underlying complexity and makes it a snap
    if (RBFMOD->Checked)
        newManager = GLSMFMOD;
    else
        newManager = GLSMBASS;

    sm = ActiveSoundManager();
    if (newManager != sm) {
        // shut down current one, and activate the new one
        if (sm) {
            sm->Active = False;
            newManager->Active = True;
            // restart sound
            GetOrCreateSoundEmitter(Sphere)->Playing = True;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GLSceneViewerMouseMove(
    TObject* Sender, TShiftState Shift, int X, int Y)
{
    if (Shift.Contains(ssLeft))
        GLCamera1->MoveAroundTarget(my - Y, mx - X);
    else if (Shift.Contains(ssRight))
        GLCamera1->AdjustDistanceToTarget(1 + (my - Y) * 0.01);
    mx = X;
    my = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GLSceneViewerMouseDown(
    TObject* Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
    mx = X;
    my = Y;
}
//---------------------------------------------------------------------------