Does anyone know how to make a reverb with memblock sound?

Author

Message

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 13th Sep 2011 04:06

Link

Hi guys,

I'm trying to load sound wave up of foot steps to make a reverb with memblocks with it. However I change the values and nothing really happens. Anyone got a idea how to do it?

darkvee

Back to top

Profile PM Email

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 13th Sep 2011 05:55 Edited at: 13th Sep 2011 07:24

Link

Sorry about that guys not posting any code.
LOL!

sync on

samples as word
getData as word
sampleRate as word
delayMilliSeconds as word
delayMilliSeconds = 50

type SoundType
   ValueData as float
endtype

global oldTimer as integer
oldTimer = timer()

load sound "background with footsteps no fade on anything all dry.wav",1
make memblock from sound 1,1
make sound from memblock 1,1

samples = get memblock size(1)
sampleRate = memblock word(1,8)
decay as float
decay = 10.5

global dim sound(samples) as SoundType
play sound 1

do

if timer()>oldTimer + 10000

for i = 25 to samples

getData = memblock float(1,i)
         sound(i).ValueData = getData +(delayMilliSeconds * sampleRate)

if i+sound(i).ValueData < samples
            sound(i).ValueData = sound(i).ValueData + (sound(i).ValueData*decay)
            write memblock float 1, i, sound(i).ValueData
         endif

next i

make sound from memblock 1,1
      play sound 1
      oldTimer = timer()

endif

if spacekey()=1
      if memblock exist(1) then delete memblock 1
      end
   endif

sync
loop

+ Code Snippet

sync on

samples as word
getData as word
sampleRate as word
delayMilliSeconds as word
delayMilliSeconds = 50

type SoundType
   ValueData as float
endtype

global oldTimer as integer
oldTimer = timer()

load sound "background with footsteps no fade on anything all dry.wav",1
make memblock from sound 1,1
make sound from memblock 1,1

samples = get memblock size(1)
sampleRate = memblock word(1,8)
decay as float
decay = 10.5

global dim sound(samples) as SoundType
play sound 1

do

   if timer()>oldTimer + 10000

      for i = 25 to samples

         getData = memblock float(1,i)
         sound(i).ValueData = getData +(delayMilliSeconds * sampleRate)

         if i+sound(i).ValueData < samples
            sound(i).ValueData = sound(i).ValueData + (sound(i).ValueData*decay)
            write memblock float 1, i, sound(i).ValueData
         endif

      next i

      make sound from memblock 1,1
      play sound 1
      oldTimer = timer()

   endif

   if spacekey()=1
      if memblock exist(1) then delete memblock 1
      end
   endif

sync
loop

darkvee

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 13th Sep 2011 12:18 Edited at: 13th Sep 2011 12:30

Link

What is this line supposed to be doing?

+ Code Snippet

sound(i).ValueData = sound(i).ValueData + (sound(i).ValueData*decay)

If it works at all (which I doubt

) it is simply amplifying the old value like this:

+ Code Snippet

sound(i).ValueData = sound(i).ValueData * (1 + decay)

I doubt that was your intention though.

There was a code snippet posted ages ago which showed how to manipulate sounds - and someone recently (within last month?) posted a corrected version of it. I'd check that out first.

Edit Here's the recent link:

Ric's sound creator program revisited

Back to top

Profile PM Email

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 13th Sep 2011 16:02 Edited at: 13th Sep 2011 16:04

Link

Hi Green Gandalf
Thanks for posting. Your always a great help.

I'm trying to do this Green Gandalf.

This is what it says:

Here is a very simple implementation of a "delay line" which will produce a reverb effect in an existing array (C#, buffer is short[]):

+ Code Snippet

int delayMilliseconds = 500; // half a second
int delaySamples = 
    (int)((float)delayMilliseconds * 44.1f); // assumes 44100 Hz sample rate
float decay = 0.5f;
for (int i = 0; i < buffer.length - delaySamples; i++)
{
    // WARNING: overflow potential
    buffer[i + delaySamples] += (short)((float)buffer[i] * decay);
}

Do you know how to convert that code to darkbasic pro? The reason is I can't find a plugin that uses reverb besides fmod. However i'm planning on selling the game so I can't afford $3000 so I can't use it. So that's why i'm trying to figure this out. So any help from you trying to figure this would really be a big help

darkvee

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 13th Sep 2011 16:08 Edited at: 13th Sep 2011 16:15

Link

You could have made reverb without memblocks just by using the play sound command, and changing its volume. This seems like the hard way to do it.

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th Sep 2011 00:23

Link

darkvee

Can you see the big difference between this:

+ Code Snippet

    buffer[i + delaySamples] += (short)((float)buffer[i] * decay);

and this

+ Code Snippet

sound(i).ValueData = sound(i).ValueData + (sound(i).ValueData*decay)

?

Anyway, if all you want to do is add an echo or reverberation to an existing sound I suggest you download Audacity which is an excellent FREE sound editor. I use it a lot. I've attached an example of a standard windows sound plus a second copy with an echo added to it. Took just a few moments to create the echo version.

Back to top

Profile PM Email

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 14th Sep 2011 04:32 Edited at: 14th Sep 2011 04:53

Link

Hi Pincho Paxton,
thanks for helping

I can't get it to echo with that?

Hi Green Gandalf,
Thanks for getting back with me

Yes the code is different I changed it around to be more like it in this post. I tried your files out. It sounds great! however I need to use dynamic reverbs. So it can switch from a big room vs a small room etc. So I can't use like Audacity.

Here is my code with lots of comments so far it seems kind of right but still it's not giving me a echo.

sync on

samples as word
getData as word
sampleRate as word
delayMilliSeconds as word
delayMilliSeconds = 500

type SoundType
   ValueData as float
endtype

global oldTimer as integer
oldTimer = timer()

load sound "background with footsteps no fade on anything all dry.wav",1
make memblock from sound 1,1
make sound from memblock 1,1

samples = get memblock size(1)
sampleRate = memblock word(1,8)
decay as float
decay = 0.5
delaySamples as word

global dim sound(samples) as SoundType

delaySamples = (delayMilliSeconds * sampleRate)
play sound 1

do

rem only wait 10 seconds before reading/writing to the memblock. Then playing it
   if timer()>oldTimer + 10000

rem use this loop for memblock word the step 2 is to make sure where grabbing a word and not a float in the memblock
      for i = 25 to samples step 2

rem read the data
         getData = memblock word(1,i)

rem put in array
         sound(i).ValueData = getData

rem if the first loop has reached the end then proceed
         if i = samples

rem use this loop for memblock float the step 4 is to make sure were writing float in right and not word
            rem subtract samples from  delaySamples which holds (500 * sampleRate)
            for j = 25 to samples - delaySamples step 4

rem so add j to (500 * sampleRate) each time so it giving a (500 * sampleRate) delay plus the position j and putting in decay in sound(j + delaySamples).ValueData array  by it's self
               sound(j + delaySamples).ValueData =  sound(j + delaySamples).ValueData * decay

rem last we write the data to the memblock
               write memblock float 1,j + delaySamples, sound(j + delaySamples).ValueData

next j

endif

next i

rem update the change we wrote in the memblock
      make sound from memblock 1,1

rem play sound now
      play sound 1

oldTimer = timer()

endif

if spacekey()=1
      if memblock exist(1) then delete memblock 1
      end
   endif

sync
loop

+ Code Snippet

sync on

samples as word
getData as word
sampleRate as word
delayMilliSeconds as word
delayMilliSeconds = 500

type SoundType
   ValueData as float
endtype

global oldTimer as integer
oldTimer = timer()

load sound "background with footsteps no fade on anything all dry.wav",1
make memblock from sound 1,1
make sound from memblock 1,1

samples = get memblock size(1)
sampleRate = memblock word(1,8)
decay as float
decay = 0.5
delaySamples as word

global dim sound(samples) as SoundType

delaySamples = (delayMilliSeconds * sampleRate)
play sound 1

do

   rem only wait 10 seconds before reading/writing to the memblock. Then playing it
   if timer()>oldTimer + 10000

      rem use this loop for memblock word the step 2 is to make sure where grabbing a word and not a float in the memblock
      for i = 25 to samples step 2

         rem read the data
         getData = memblock word(1,i)

         rem put in array
         sound(i).ValueData = getData

         rem if the first loop has reached the end then proceed
         if i = samples

            rem use this loop for memblock float the step 4 is to make sure were writing float in right and not word
            rem subtract samples from  delaySamples which holds (500 * sampleRate)
            for j = 25 to samples - delaySamples step 4

               rem so add j to (500 * sampleRate) each time so it giving a (500 * sampleRate) delay plus the position j and putting in decay in sound(j + delaySamples).ValueData array  by it's self
               sound(j + delaySamples).ValueData =  sound(j + delaySamples).ValueData * decay

               rem last we write the data to the memblock
               write memblock float 1,j + delaySamples, sound(j + delaySamples).ValueData

            next j

         endif

      next i

      rem update the change we wrote in the memblock
      make sound from memblock 1,1

      rem play sound now
      play sound 1

      oldTimer = timer()

   endif

   if spacekey()=1
      if memblock exist(1) then delete memblock 1
      end
   endif

sync
loop

darkvee

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 14th Sep 2011 18:12 Edited at: 14th Sep 2011 18:13

Link

Well the problem is that you have to load a sound more than once, but that might be the part that you can fix with a memblock. But here's a very simple way to do it... DOWNLOAD

You would use a timer() check rather than a wait command.

Back to top

Profile PM Email Website

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 14th Sep 2011 19:04

Link

Hi Pincho Paxton

I did some tweaking and it sounds really good thanks.

Now I just need to make a volume control to turn all 3 down or up at the same time so it will work with the dynamic audio system i'm building. Which won't be hard at all. thank you.

darkvee

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Does anyone know how to make a reverb with memblock sound?