Create Sound Plug-in - GameCreators Forum

Author

Message

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 1st Aug 2011 09:25

Link

When I began my journey with TGC forum. I found this thread on the Dark GDK board by Mista Wilson. Sound Generation with Memblocks. At that time I had a very basic understanding of C++ programming. I wrote a few worthless plug-ins purely through trial and error. I thought to myself this is cool, someone should make a plug-in with this function. Well I just got back to this idea and put myself through a one day crash course in C++ programming. By George I think I’ve got it!

Thank go to:
Ric: Original DB Code
Mista Wilson: DarkGDK Port
Tommy S: Original waveform code
Green Gandalf: Memblock format

Here is Ric's DBPro code modified and minus the function. Attached is the zipped Dll.

` DarkBASIC Pro create sound plug-in function - sounds without media!
` Based on Ric's original code, modified to use memblocks by Green Gandalf
` and Mista Wilson's DarkGDK Port
` This plug-in uses Memblock 1 and sound 999 internally

create sound 1,2995,2000,8000,0.02,0.1,0.60,3,0.64,5,10
create sound 2,6200,200,2000,20,0.2,0,0,0,0,10
create sound 3,1200,600,3000,10,0.1,0,0,0,0,10
create sound 4,800,700,8000,-0.02,0.2,0,0,0,0,10
create sound 5,800,1000,6000,0.5,0.1,0,0,0,0,5
create sound 6,500,2000,8000,0,0.1,0.05,0.2,0,0,1
create sound 7,400,2000,8000,0,0.1,0.05,0.2,0,0,1
create sound 8,600,2000,8000,0,0.1,0.05,0.2,0,0,1
create sound 9,30,50,16000,0.00,1.5,.0,0,0,0,100
create sound 10,800,40,5000,60.06,2.2,.1,0,0,0,10
create sound 11,200,20,8000,.1,4.0,2.1,10,9.2,9.2,10
create sound 12,500,80,8000,0.06,0.2,.1,0,0,0,10
create sound 13,250,50,2500,0.00001,0.1,4.0,0.4,0,0,10
create sound 14,500,50,2500,0.00001,0.1,4.0,0.4,0,0,10
create sound 15,437.5,150,1500,0.0001,0.1,0.0,4.0,0.4,0,10
create sound 16,573.75,150,1500,0.0,0.1,4.0,0.4,0,0,10
create sound 17,50,80,6000,-.4,2.0,0.1,10,1.2,0.2,10

set text font "arial"
set text size 16
do
text 0,0,"Press keys 1 upwards:"
text 0,20,"1: sound effect"
text 0,40,"2: explosion1"
text 0,60,"3: explosion2"
text 0,80,"4: powerup"
text 0,100,"5: warning"
text 0,120,"6: vibrato"
text 0,140,"7: bass hit"
text 0,160,"8: hihat"
text 0,180,"9: door knock"
text 0,200,"0: vinyl scratch"
text 0,220,"-: cowbell"
text 0,240,"+: bubble burst"

if keystate(2)=1  then play sound 1:wait 300
if keystate(3)=1  then play sound 2:wait 300
if keystate(4)=1  then play sound 3:wait 300
if keystate(5)=1  then play sound 4:wait 300
if keystate(6)=1  then play sound 5:wait 300
if keystate(7)=1  then play sound 6:play sound 7:play sound 8:wait 300
if keystate(8)=1  then play sound 9:wait 300
if keystate(9)=1  then play sound 10:wait 300
if keystate(10)=1  then play sound 11:wait 300
if keystate(11)=1  then play sound 12:wait 300
if keystate(12)=1  then play sound 13:play sound 14:play sound 15:play sound 16:wait 300
if keystate(13)=1  then play sound 17:wait 300
loop

end

` Needed for DBPro compiler to include memblock functionality
make memblock 1, 1

+ Code Snippet

` DarkBASIC Pro create sound plug-in function - sounds without media!
` Based on Ric's original code, modified to use memblocks by Green Gandalf
` and Mista Wilson's DarkGDK Port
` This plug-in uses Memblock 1 and sound 999 internally

create sound 1,2995,2000,8000,0.02,0.1,0.60,3,0.64,5,10
create sound 2,6200,200,2000,20,0.2,0,0,0,0,10
create sound 3,1200,600,3000,10,0.1,0,0,0,0,10
create sound 4,800,700,8000,-0.02,0.2,0,0,0,0,10
create sound 5,800,1000,6000,0.5,0.1,0,0,0,0,5
create sound 6,500,2000,8000,0,0.1,0.05,0.2,0,0,1
create sound 7,400,2000,8000,0,0.1,0.05,0.2,0,0,1
create sound 8,600,2000,8000,0,0.1,0.05,0.2,0,0,1
create sound 9,30,50,16000,0.00,1.5,.0,0,0,0,100
create sound 10,800,40,5000,60.06,2.2,.1,0,0,0,10
create sound 11,200,20,8000,.1,4.0,2.1,10,9.2,9.2,10
create sound 12,500,80,8000,0.06,0.2,.1,0,0,0,10
create sound 13,250,50,2500,0.00001,0.1,4.0,0.4,0,0,10
create sound 14,500,50,2500,0.00001,0.1,4.0,0.4,0,0,10
create sound 15,437.5,150,1500,0.0001,0.1,0.0,4.0,0.4,0,10
create sound 16,573.75,150,1500,0.0,0.1,4.0,0.4,0,0,10
create sound 17,50,80,6000,-.4,2.0,0.1,10,1.2,0.2,10

set text font "arial"
set text size 16
do
text 0,0,"Press keys 1 upwards:"
text 0,20,"1: sound effect"
text 0,40,"2: explosion1"
text 0,60,"3: explosion2"
text 0,80,"4: powerup"
text 0,100,"5: warning"
text 0,120,"6: vibrato"
text 0,140,"7: bass hit"
text 0,160,"8: hihat"
text 0,180,"9: door knock"
text 0,200,"0: vinyl scratch"
text 0,220,"-: cowbell"
text 0,240,"+: bubble burst"

if keystate(2)=1  then play sound 1:wait 300
if keystate(3)=1  then play sound 2:wait 300
if keystate(4)=1  then play sound 3:wait 300
if keystate(5)=1  then play sound 4:wait 300
if keystate(6)=1  then play sound 5:wait 300
if keystate(7)=1  then play sound 6:play sound 7:play sound 8:wait 300
if keystate(8)=1  then play sound 9:wait 300
if keystate(9)=1  then play sound 10:wait 300
if keystate(10)=1  then play sound 11:wait 300
if keystate(11)=1  then play sound 12:wait 300
if keystate(12)=1  then play sound 13:play sound 14:play sound 15:play sound 16:wait 300
if keystate(13)=1  then play sound 17:wait 300
loop

end

` Needed for DBPro compiler to include memblock functionality
make memblock 1, 1

Wicked.

Attachments

Login to view attachments

Back to top

Profile PM Email

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 21st Aug 2011 22:11 Edited at: 21st Aug 2011 22:15

Link

Instead of starting a new thread, I thought I would post this here. Hopefully someone will happen along this thread that can assist me with a couple of issues I’m having. In the last few weeks I’ve been trying to learn C++. I have learned more in this time then in 30 years. For the above download I used Codeblocks, mingw compiler and Aaron Miller’s Dev-C++ DarkBASIC Professional Plugin Template. Now I’m trying to duplicate this function without depending on Aaron’s headers. For some reason Dbpro’s compiler is not loading the dependencies. I have added the messagebox into the GetDependencyID function, I get no message. Also in the above DLL I’m using DPBro’s Sin function, for some reason when using the C++ math library the sound is not the same. I have tried the sin and sinf functions with no difference. Other then these two issues the function performs as expected. Please help?

// DB Sound Creator by Ric, and:

// Tommy S            - Original waveform code
// Green Gandalf      - Memblock format
// Lampton Worm       - Load/Save format
// Lampton Worm/Raven - Real time parameter editor
// Xtom               - GUI/parameter editor
// Mista Wilson's     - DarkGDK Port
// enderleit          - Fixed the header code with proper names and descriptions. No more guesswork. ;)

#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <math.h>
#include "globstruct.h"

#define EXPORT __declspec(dllexport)
#define EXPORTC extern "C" __declspec(dllexport)

// Function pointer typedefs
typedef int   (* MemblockExist_f)(int);
typedef void  (* DeleteMemblock_f)(int);
typedef void  (* MakeMemblock_f)(int, int);
typedef void  (* WriteMemblockDword_f)(int, int, DWORD);
typedef void  (* WriteMemblockWord_f)(int, int, int);
typedef void  (* MakeSoundFromMemblock_f)(int, int);
typedef int   (* SoundExist_f)(int);
typedef void  (* DeleteSound_f)(int);
typedef void  (* CloneSound_f)(int, int);

// Function pointers themselves
MemblockExist_f         dbMemblockExist = 0;
DeleteMemblock_f        dbDeleteMemblock = 0;
MakeMemblock_f          dbMakeMemblock = 0;
WriteMemblockDword_f    dbWriteMemblockDword = 0;
WriteMemblockWord_f     dbWriteMemblockWord = 0;
MakeSoundFromMemblock_f dbMakeSoundFromMemblock = 0;
SoundExist_f            dbSoundExist =0;
DeleteSound_f           dbDeleteSound = 0;
CloneSound_f            dbCloneSound = 0;

GlobStruct* g_pGlob = NULL;

const char* Dependencies[] =
{
    "DBProMemblocksDebug.dll",
    "DBProSoundDebug.dll"
};

EXPORT int GetNumDependencies (void)
{
    return sizeof(Dependencies) / sizeof(const char*);
}

EXPORT char const* GetDependencyID (int ID)
{
    MessageBox(0, Dependencies[ID], "CSPlugin", MB_OK);
    return Dependencies[ID];
}

EXPORT void ReceiveCoreDataPtr (LPVOID pCore)
{
    // Store the core pointer
	g_pGlob = (GlobStruct*)pCore;

// Further initialisation can be carried out here if necessary
    dbMemblockExist         = (MemblockExist_f)         GetProcAddress(g_pGlob->g_Memblocks, "?MemblockExist@@YAHH@Z");
    dbDeleteMemblock        = (DeleteMemblock_f)        GetProcAddress(g_pGlob->g_Memblocks, "?DeleteMemblock@@YAXH@Z");
    dbMakeMemblock          = (MakeMemblock_f)          GetProcAddress(g_pGlob->g_Memblocks, "?MakeMemblock@@YAXHH@Z");
    dbWriteMemblockDword    = (WriteMemblockDword_f)    GetProcAddress(g_pGlob->g_Memblocks, "?WriteMemblockDWord@@YAXHHK@Z");
    dbWriteMemblockWord     = (WriteMemblockWord_f)     GetProcAddress(g_pGlob->g_Memblocks, "?WriteMemblockWord@@YAXHHH@Z");
    dbMakeSoundFromMemblock = (MakeSoundFromMemblock_f) GetProcAddress(g_pGlob->g_Memblocks, "?CreateSoundFromMemblock@@YAXHH@Z");
    dbSoundExist            = (SoundExist_f)            GetProcAddress(g_pGlob->g_Sound, "?GetSoundExist@@YAHH@Z");
    dbDeleteSound           = (DeleteSound_f)           GetProcAddress(g_pGlob->g_Sound, "?DeleteSound@@YAXH@Z");
    dbCloneSound            = (CloneSound_f)            GetProcAddress(g_pGlob->g_Sound, "?CloneSound@@YAXHH@Z");
}

EXPORTC void CreateSound(int soundnumber, float frequency, float length, float loudness, float bend, float decay, float vibratospeed, float vibratodepth, float tremelospeed, float tremelodepth, float attack)
{

WORD  outWord = 0;
    INT   outInteger = 0;
    DWORD FormatTag;
    DWORD Channels;
    DWORD SamplesPerSec;
    DWORD AvgBytesPerSec;
    DWORD BlockAlign;
    DWORD BitsPerSample;
    DWORD cbSize;

int samples = (int)((length / 1000) * 44100);

if (dbMemblockExist(1))
    {
        dbDeleteMemblock(1);
    }

dbMakeMemblock(1, samples * 2 + 28);

// Setup the 28 bytes of the header.
    // Info: http://msdn.microsoft.com/en-us/library/dd757720(VS.85).aspx
    // (incorrect order here due to calculation dependencies.)
    FormatTag = 1;                              // Waveform audio format. WAVE_FORMAT_PCM = 0x0001 = 1
    Channels  = 2;                              // 1 = Mono, 2 = Stereo
    SamplesPerSec = 22050;                      // 22050 = 22.05kHz. (44100 = 44.1kHz)
    BitsPerSample = 16;                         // 8bit sample, or 16bit sample.
    BlockAlign = Channels * (BitsPerSample / 8);// Block alignment, in bytes. Calculated as: Channels * (BitsPerSample/8)
    AvgBytesPerSec = SamplesPerSec * BlockAlign;// Calculated as: SamplesPerSec * BlockAlign
    cbSize = 0;                                 // Additional header info size. Set it to 0.

int position = 0;
    dbWriteMemblockDword(1, position, FormatTag);       position += 4;
    dbWriteMemblockDword(1, position, Channels);        position += 4;
    dbWriteMemblockDword(1, position, SamplesPerSec);   position += 4;
    dbWriteMemblockDword(1, position, AvgBytesPerSec);  position += 4;
    dbWriteMemblockDword(1, position, BlockAlign);      position += 4;
    dbWriteMemblockDword(1, position, BitsPerSample);   position += 4;
    dbWriteMemblockDword(1, position, cbSize);          position += 4;

//rem generate and write wave
    float theta = 0;
    float phi = 0;
    float fallinloudness = 0;
    float riseinloudness = loudness;
    for(int x = 1; x <= samples; ++x)
    {
        outInteger = (int)((sin(( x / 122.5) * (frequency + vibratodepth * sin(theta))) * (loudness - fallinloudness - riseinloudness + tremelodepth * sin(phi))) * 3.0);
        if(outInteger < -32768) outInteger = -32768;
        if(outInteger > 32767) outInteger = 32767;
        outWord = outInteger;
        theta += vibratospeed;
        phi += tremelospeed;
        frequency -= bend;

if(fallinloudness < loudness)
        {
            fallinloudness += decay;
        }

if(riseinloudness > 0)
        {
            riseinloudness -= attack;
        }

dbWriteMemblockWord(1, position, outWord);
        position += 2;
    }

if(dbSoundExist(soundnumber) == 1) dbDeleteSound(soundnumber);

dbMakeSoundFromMemblock(999, 1); // assumes you won't need sound number 999!
    dbCloneSound(soundnumber, 999);
    dbDeleteSound(999);

//memblock no longer required
    dbDeleteMemblock(1);
}

+ Code Snippet

// DB Sound Creator by Ric, and:

// Tommy S            - Original waveform code
// Green Gandalf      - Memblock format
// Lampton Worm       - Load/Save format
// Lampton Worm/Raven - Real time parameter editor
// Xtom               - GUI/parameter editor
// Mista Wilson's     - DarkGDK Port
// enderleit          - Fixed the header code with proper names and descriptions. No more guesswork. ;)

#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <math.h>
#include "globstruct.h"

#define EXPORT __declspec(dllexport)
#define EXPORTC extern "C" __declspec(dllexport)

// Function pointer typedefs
typedef int   (* MemblockExist_f)(int);
typedef void  (* DeleteMemblock_f)(int);
typedef void  (* MakeMemblock_f)(int, int);
typedef void  (* WriteMemblockDword_f)(int, int, DWORD);
typedef void  (* WriteMemblockWord_f)(int, int, int);
typedef void  (* MakeSoundFromMemblock_f)(int, int);
typedef int   (* SoundExist_f)(int);
typedef void  (* DeleteSound_f)(int);
typedef void  (* CloneSound_f)(int, int);

// Function pointers themselves
MemblockExist_f         dbMemblockExist = 0;
DeleteMemblock_f        dbDeleteMemblock = 0;
MakeMemblock_f          dbMakeMemblock = 0;
WriteMemblockDword_f    dbWriteMemblockDword = 0;
WriteMemblockWord_f     dbWriteMemblockWord = 0;
MakeSoundFromMemblock_f dbMakeSoundFromMemblock = 0;
SoundExist_f            dbSoundExist =0;
DeleteSound_f           dbDeleteSound = 0;
CloneSound_f            dbCloneSound = 0;

GlobStruct* g_pGlob = NULL;

const char* Dependencies[] =
{
    "DBProMemblocksDebug.dll",
    "DBProSoundDebug.dll"
};

EXPORT int GetNumDependencies (void)
{
    return sizeof(Dependencies) / sizeof(const char*);
}

EXPORT char const* GetDependencyID (int ID)
{
    MessageBox(0, Dependencies[ID], "CSPlugin", MB_OK);
    return Dependencies[ID];
}

EXPORT void ReceiveCoreDataPtr (LPVOID pCore)
{
    // Store the core pointer
	g_pGlob = (GlobStruct*)pCore;

    // Further initialisation can be carried out here if necessary
    dbMemblockExist         = (MemblockExist_f)         GetProcAddress(g_pGlob->g_Memblocks, "?MemblockExist@@YAHH@Z");
    dbDeleteMemblock        = (DeleteMemblock_f)        GetProcAddress(g_pGlob->g_Memblocks, "?DeleteMemblock@@YAXH@Z");
    dbMakeMemblock          = (MakeMemblock_f)          GetProcAddress(g_pGlob->g_Memblocks, "?MakeMemblock@@YAXHH@Z");
    dbWriteMemblockDword    = (WriteMemblockDword_f)    GetProcAddress(g_pGlob->g_Memblocks, "?WriteMemblockDWord@@YAXHHK@Z");
    dbWriteMemblockWord     = (WriteMemblockWord_f)     GetProcAddress(g_pGlob->g_Memblocks, "?WriteMemblockWord@@YAXHHH@Z");
    dbMakeSoundFromMemblock = (MakeSoundFromMemblock_f) GetProcAddress(g_pGlob->g_Memblocks, "?CreateSoundFromMemblock@@YAXHH@Z");
    dbSoundExist            = (SoundExist_f)            GetProcAddress(g_pGlob->g_Sound, "?GetSoundExist@@YAHH@Z");
    dbDeleteSound           = (DeleteSound_f)           GetProcAddress(g_pGlob->g_Sound, "?DeleteSound@@YAXH@Z");
    dbCloneSound            = (CloneSound_f)            GetProcAddress(g_pGlob->g_Sound, "?CloneSound@@YAXHH@Z");
}

EXPORTC void CreateSound(int soundnumber, float frequency, float length, float loudness, float bend, float decay, float vibratospeed, float vibratodepth, float tremelospeed, float tremelodepth, float attack)
{

    WORD  outWord = 0;
    INT   outInteger = 0;
    DWORD FormatTag;
    DWORD Channels;
    DWORD SamplesPerSec;
    DWORD AvgBytesPerSec;
    DWORD BlockAlign;
    DWORD BitsPerSample;
    DWORD cbSize;

    int samples = (int)((length / 1000) * 44100);

    if (dbMemblockExist(1))
    {
        dbDeleteMemblock(1);
    }

    dbMakeMemblock(1, samples * 2 + 28);

    // Setup the 28 bytes of the header.
    // Info: http://msdn.microsoft.com/en-us/library/dd757720(VS.85).aspx
    // (incorrect order here due to calculation dependencies.)
    FormatTag = 1;                              // Waveform audio format. WAVE_FORMAT_PCM = 0x0001 = 1
    Channels  = 2;                              // 1 = Mono, 2 = Stereo
    SamplesPerSec = 22050;                      // 22050 = 22.05kHz. (44100 = 44.1kHz)
    BitsPerSample = 16;                         // 8bit sample, or 16bit sample.
    BlockAlign = Channels * (BitsPerSample / 8);// Block alignment, in bytes. Calculated as: Channels * (BitsPerSample/8)
    AvgBytesPerSec = SamplesPerSec * BlockAlign;// Calculated as: SamplesPerSec * BlockAlign
    cbSize = 0;                                 // Additional header info size. Set it to 0.

    int position = 0;
    dbWriteMemblockDword(1, position, FormatTag);       position += 4;
    dbWriteMemblockDword(1, position, Channels);        position += 4;
    dbWriteMemblockDword(1, position, SamplesPerSec);   position += 4;
    dbWriteMemblockDword(1, position, AvgBytesPerSec);  position += 4;
    dbWriteMemblockDword(1, position, BlockAlign);      position += 4;
    dbWriteMemblockDword(1, position, BitsPerSample);   position += 4;
    dbWriteMemblockDword(1, position, cbSize);          position += 4;

    //rem generate and write wave
    float theta = 0;
    float phi = 0;
    float fallinloudness = 0;
    float riseinloudness = loudness;
    for(int x = 1; x <= samples; ++x)
    {
        outInteger = (int)((sin(( x / 122.5) * (frequency + vibratodepth * sin(theta))) * (loudness - fallinloudness - riseinloudness + tremelodepth * sin(phi))) * 3.0);
        if(outInteger < -32768) outInteger = -32768;
        if(outInteger > 32767) outInteger = 32767;
        outWord = outInteger;
        theta += vibratospeed;
        phi += tremelospeed;
        frequency -= bend;

        if(fallinloudness < loudness)
        {
            fallinloudness += decay;
        }

        if(riseinloudness > 0)
        {
            riseinloudness -= attack;
        }

        dbWriteMemblockWord(1, position, outWord);
        position += 2;
    }

    if(dbSoundExist(soundnumber) == 1) dbDeleteSound(soundnumber);

    dbMakeSoundFromMemblock(999, 1); // assumes you won't need sound number 999!
    dbCloneSound(soundnumber, 999);
    dbDeleteSound(999);

    //memblock no longer required
    dbDeleteMemblock(1);
}

Cheers.
WickedX.

Back to top

Profile PM Email

IanM

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 21st Aug 2011 22:57

Link

Quote: "For some reason Dbpro’s compiler is not loading the dependencies."

The problem isn't that the DBPro compiler is doing something wrong, but that the g++ compiler doesn't export names in the way expected by DBPro.

There is a way to change the names to the correct format using a .DEF file, but you'll have to investigate as I've never used it myself (See http://stackoverflow.com/questions/2810118/how-to-tell-the-mingw-linker-not-to-export-all-symbols - the first answer lightly covers how to do this, and the third answer may be useful to you too).

Even then, the function is a C++ function, so you may have problems with the linkage - DBPro expects a windows C++ function and you're providing a g++ C++ function and they may or may not be compatible - I know that the class structures are quite different, but not about the functions. More investigation for you.

Alternatively, you could use VC++Express with an additional resource editor to do the job.

Quote: "Also in the above DLL I’m using DPBro’s Sin function, for some reason when using the C++ math library the sound is not the same"

The C++ library uses radians, not degrees - convert your degree values to radians before passing your value to the sin function.

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Aug 2011 01:25 Edited at: 22nd Aug 2011 01:29

Link

IanM, thank you so much. Your helped has been tremendous.

I decided to go with your alternate method and compile this using Visual C++ Express and converted degrees to radians. The function is now working flawlessly. Thanks again.

WickedX

Back to top

Profile PM Email

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 22nd Aug 2011 02:46

Link

I do have one last question. I just realized I didn’t update the resource file for the mangled function. DLL Export Viewer shows the function is not mangled. Why?

Attached is the complete Visual C++ Express project.

WickedX

Attachments

Login to view attachments

Back to top

Profile PM Email

Sorry your browser is not supported!

DLL Talk / Create Sound Plug-in

Attachments

Attachments