Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: FellippeHeitor on December 31, 2020, 10:42:44 am

Title: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 10:42:44 am
Hello @Petr and everyone else. Look at this:

Code: QB64: [Select]
  2. SCREEN _NEWIMAGE(600, 200, 32)
  3. DIM bonus AS LONG, x AS LONG, x0 AS LONG, i AS _OFFSET, a%, c~&
  4. bonus = _SNDOPEN("sine.ogg")
  5. PRINT bonus
  7.  
  8. IF bonus THEN _SNDPLAY bonus
  10.  
  12. s = _MEMSOUND(bonus, 1)
  14.  
  15. i = s.OFFSET
  17.     _MEMGET s, i, a%
  18.     IF x MOD 2 = 0 THEN
  19.         x0 = x0 + 1
  20.         c~& = _RGB32(map(a%, -32768, 32767, 0, 255), 0, 255)
  21.         LINE (x0, _HEIGHT / 2)-STEP(0, map(a%, -32768, 32767, -_HEIGHT / 2, _HEIGHT / 2)), c~&, BF
  22.         IF x0 >= _WIDTH THEN x0 = 0: _DISPLAY: CLS
  23.     END IF
  24.     x = x + 1
  25.  
  26.     i = i + 3
  27.     LOCATE 1, 1: PRINT i, s.OFFSET + s.SIZE
  28.     IF i + 2 >= s.OFFSET + s.SIZE THEN EXIT DO
  30.  
  31. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  32.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  34.  

_MEMSOUND is supposed to give you access to raw sound data after a file is decoded by using _SNDOPEN - in the same fashion as _MEMIMAGE gives you raw access to an image's data after you use _LOADIMAGE.

The code above won't work with v1.4 and not even with the latest dev build, as it's still in a separate branch for development. But it will yield the following results:



Is that what you had in mind, @Petr?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 01:05:24 pm
Hi Fellippe,

That's absolutely great. Perfect. That's exactly what I've wanted for so long. If this feature really will be in the next version of QB64, I will be absolutely happy. It will greatly expand the possibilities for everyone. We will no longer be limited to graphics, in which we have really huge possibilities, but will be able to combine it.

 
MEMSOUND is a fullfiled wish for me!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 01:18:25 pm
I think quickly and find that the following is needed:
- Function that returns the number of channels in the audio track:

 - if the data format is RAW, then all audio data will probably be in INTEGER format (if the output RAW format is 16 bits) and the number of channels will determine whether every other INTEGER should be read for the left channel (ie bytes 1.2 for the left track, bytes 3.4 for the right track, bytes 5.6 for the left track .... and so on, or in the case of mono all bytes will belong to the left audio channel), or if this will be handled differently and the left audio channel will be read separately into its own MEM block and right audio channel also in own separated memory block?

That's actually all, because with information about the number of channels in the audio track and RAW audio data, we can add everything else, if the stored RAW format in memory will always be the same type (16 bit). There are also WAV files that contain audio data in the format _UNSIGNED _BYTE (8 bit) or 32 bit, these contain audio data in the SINGLE format. Of course, it can be converted between each other, so one uniform format is enough in memory.

One thing is also needed. Audio sampling frequency. Will it always be the same, or will a new function be needed to return the current state of the sampling frequency? (in RAW MEM block)?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 01:29:49 pm
Notice in the sample code above that I'm getting the memory block with _MEMSOUND(handle, channel) - if it's mono, I'm getting channel 1, if it's stereo, I can get channel 2. It'll return a memblock of size 0 if you try to read the right channel (channel 2) and it's a mono sound.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 01:36:30 pm
I see! It never occurred to me what the number one meant there! In that case, it is already solved! And even it can be loaded separately. This is absolutely perfect! Looks really very, very nice!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 01:38:06 pm
Quote from: Petr on December 31, 2020, 01:18:25 pm
One thing is also needed. Audio sampling frequency. Will it always be the same, or will a new function be needed to return the current state of the sampling frequency? (in RAW MEM block)?

The data available after _SNDOPEN is used is the result of the decoding and resampling that OpenAL does automatically, which means the output will (i believe) always be in accordance with _SNDRATE (usually returns 44100) and 16 bits per sample.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 01:46:52 pm
Quote
The data available after _SNDOPEN is used is the result of the decoding and resampling that OpenAL does automatically, which means the output will (i believe) always be in accordance with _SNDRATE (usually returns 44100) and 16 bits per sample.

So in that case, I think it's on the right track! I look forward to it. This feature function is a big amazing news!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 04:17:24 pm
I can't wait for you to test it, @Petr. I don't know how comfortable you are with cloning the repository (or maybe you already have it cloned) - either way, let me know and I can provide instructions for you to get started with it, even though it still requires more thought before it goes live, even for the dev build.



Code: QB64: [Select]
  2. CONST true = -1, false = 0
  3.  
  4. DIM theSound AS LONG, x0 AS LONG, i AS _OFFSET, j AS _OFFSET
  5. DIM a%, c~&, k&, trackerHeight AS INTEGER
  6. DIM y0 AS LONG, y1 AS LONG
  7. DIM mouseDown AS _BYTE, f$, mouseDownOn AS INTEGER
  8. DIM sleft AS _MEM, sright AS _MEM
  9. DIM stereo AS _BYTE
  10. DIM stereoScreen AS LONG, monoScreen AS LONG
  11.  
  12. stereoScreen = _NEWIMAGE(882, 400, 32)
  13. monoScreen = _NEWIMAGE(882, 200, 32)
  14. SCREEN monoScreen
  15.  
  16. _TITLE "QB64 Sound Player"
  18.  
  20.     f$ = COMMAND$
  22.     start:
  23.     INPUT "File to load: ", f$
  25.  
  26. PRINT "Loading '"; f$; "'..."
  27. theSound = _SNDOPEN(f$)
  28. IF theSound = 0 THEN PRINT "Load failed.": END
  29.  
  30. loaded:
  31. sleft = _MEMSOUND(theSound, 1)
  32. sright = _MEMSOUND(theSound, 2)
  33.  
  34. IF sright.SIZE > 0 THEN
  35.     SCREEN stereoScreen
  36.     stereo = true
  37.     y0 = _HEIGHT / 4
  38.     y1 = _HEIGHT - _HEIGHT / 4
  40.     SCREEN monoScreen
  41.     stereo = false
  42.     y0 = _HEIGHT / 2
  45.  
  46. trackerHeight = 50
  47. _SNDPLAY theSound
  48. _SNDPAUSE theSound
  49.  
  53.         IF mouseDown = false THEN
  54.             mouseDown = true
  55.             IF _MOUSEY < _HEIGHT - trackerHeight THEN
  56.                 mouseDownOn = 1 'plot area
  57.             ELSE
  58.                 mouseDownOn = 2 'track area
  59.             END IF
  60.         ELSE
  61.             IF mouseDownOn = 2 AND _SNDPLAYING(theSound) = 0 THEN
  62.                 _SNDSETPOS theSound, map(_MOUSEX, 0, _WIDTH, 0, _SNDLEN(theSound))
  63.             END IF
  64.         END IF
  65.     ELSE
  66.         IF mouseDown THEN
  67.             'toggle play
  68.             IF mouseDownOn = 1 THEN
  69.                 toggleSoundState theSound
  70.             ELSEIF mouseDownOn = 2 THEN
  71.                 _SNDSETPOS theSound, map(_MOUSEX, 0, _WIDTH, 0, _SNDLEN(theSound))
  72.             END IF
  73.             mouseDown = false
  74.             mouseDownOn = 0
  75.         END IF
  76.     END IF
  77.  
  78.     k& = _KEYHIT
  79.     IF k& = 32 THEN toggleSoundState theSound
  80.  
  83.             _SNDSTOP theSound
  84.             _SNDCLOSE theSound
  85.             theSound = 0
  86.             f$ = _DROPPEDFILE$(1)
  87.             _PRINTSTRING (_WIDTH / 2 - _PRINTWIDTH("Loading...") / 2, _HEIGHT / 2 - _FONTHEIGHT), "Loading..."
  88.             _DISPLAY
  89.             theSound = _SNDOPEN(f$)
  90.             IF theSound THEN
  91.                 _FINISHDROP
  92.                 GOTO loaded
  93.             ELSE
  94.                 PRINT "Load failed."
  95.                 END
  96.             END IF
  97.         END IF
  98.         _FINISHDROP
  99.     END IF
  100.  
  101.     DIM alpha AS INTEGER
  102.     alpha = 50 'IF _SNDPLAYING(theSound) THEN alpha = 40 ELSE alpha = 20
  103.     LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(0, alpha), BF
  104.     GOSUB render
  105.     IF _SNDPLAYING(theSound) = 0 THEN _PRINTSTRING (_WIDTH / 2 - 16, _HEIGHT / 2 - _FONTHEIGHT), CHR$(221) + CHR$(222)
  106.  
  107.     _DISPLAY
  108.     _LIMIT 60
  110.  
  111. render:
  113. o = INT((_SNDGETPOS(theSound)) * _SNDRATE)
  114. WHILE o MOD 2 <> 0: o = o + 1: WEND
  115. i = sleft.OFFSET + o
  116. IF stereo THEN j = sright.OFFSET + o
  117. FOR x0 = 0 TO _WIDTH
  118.     _MEMGET sleft, i, a%
  119.     IF a% < 0 THEN
  120.         c~& = _RGB32(67, 150, 33, map(a%, 0, -32767, 80, 255))
  121.     ELSE
  122.         c~& = _RGB32(67, 150, 33, map(a%, 0, 32767, 80, 255))
  123.     END IF
  124.     LINE (x0, y0)-STEP(0, map(a%, -32768, 32767, -_HEIGHT / 4, _HEIGHT / 4)), c~&, BF
  125.  
  126.     IF stereo THEN
  127.         _MEMGET sright, j, a%
  128.         IF a% < 0 THEN
  129.             c~& = _RGB32(67, 150, 33, map(a%, 0, -32767, 80, 255))
  130.         ELSE
  131.             c~& = _RGB32(67, 150, 33, map(a%, 0, 32767, 80, 255))
  132.         END IF
  133.         LINE (x0, y1)-STEP(0, map(a%, -32768, 32767, -_HEIGHT / 4, _HEIGHT / 4)), c~&, BF
  134.     END IF
  135.  
  136.     i = i + 2
  137.     IF stereo THEN j = j + 2
  138.     IF i + 2 >= sleft.OFFSET + sleft.SIZE THEN EXIT FOR
  140.  
  141. 'tracker:
  142. LINE (0, _HEIGHT - trackerHeight / 3)-STEP(map(_SNDGETPOS(theSound), 0, _SNDLEN(theSound), 0, _WIDTH), -trackerHeight / 3), _RGB32(255, 180), BF
  143. IF _MOUSEY > _HEIGHT - trackerHeight THEN
  144.     LINE (0, _HEIGHT - trackerHeight)-STEP(_WIDTH, trackerHeight), _RGB32(255, 30), BF
  146.  
  148.  
  149. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  150.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  152.  
  153. SUB toggleSoundState (theSound AS LONG)
  154.     IF _SNDPLAYING(theSound) THEN
  155.         _SNDPAUSE theSound
  156.     ELSE
  157.         DIM i AS INTEGER
  158.         FOR i = -20 TO 20
  159.             LINE (_WIDTH / 2 + 20, _HEIGHT / 2 - 5)-STEP(-40, i)
  160.         NEXT
  161.         _SNDLOOP theSound
  162.     END IF
  164.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 05:24:41 pm
I didn't know it was possible to download it from GitHub. I downloaded a version with the last update eight hours ago, now it's unpacking. The computer says it will unpack for an hour because the ZIP contains 31067 files. That means it will end sometime around midnight of my time. Then I run setup-win.bat and after finishing I will try it :)
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 05:26:05 pm
Hm, that might not be enough, unfortunately. Can you confirm you downloaded the memsound branch?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: SMcNeill on December 31, 2020, 05:29:03 pm
Quote from: FellippeHeitor on December 31, 2020, 05:26:05 pm
Hm, that might not be enough, unfortunately. Can you confirm you downloaded the memsound branch?

If it’s the development branch, you should be able to test out the quick insert feature I just ended up pushing.  I’m thinking it should be working as intended now, without any issues, but it’d be nice to hear how it performs for others as well. ;)
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 05:31:32 pm
Oops... An error has occurred ... I'm already downloading the correct version! Where did I look?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 05:34:25 pm
Quote from: Petr on December 31, 2020, 05:31:32 pm
Oops... An error has occurred ... I'm already downloading the correct version! Where did I look?

Assuming you're using Windows:

Let me know how it goes.

PS: The 7Zip version will likely unpack faster, but I don't know if you have 7Zip.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 05:37:39 pm
I use internal decompressors in Total Commander to unpack, 7zip can also. I'm already unpacking it to disk.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: SMcNeill on December 31, 2020, 05:41:32 pm
Quick question:  Are you looking to implement a _NEWSOUND type command so we can _MEMPUT information to it directly?

For example:

I =  _NEWIMAGE(640,480,32)
M = _MEMIMAGE(I)
_MEMPUT M, M.OFFSET, image_data()

The above can take a memblock that we saved to disk, and upload it up into a new image handle, so we can then _PUTIMAGE it, or work with it the same as any other image.

Will we be able to do something like:

S = _NEWSOUND(123, 441000, 1) 123 seconds at 44100 sndrate, with 1 channel
DIM M AS _MEM
M = _MEMSOUND(S, 1)
CALL Load_Routine ‘Load sound data from disk
_MEMPUT M, M.OFFSET, Sound_Data()
SNDPLAY S
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 05:42:10 pm
Not in the works as of yet. Bear in mind we have _SNDRAW for sound generation.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 06:03:54 pm
WORKS AS EXPECTED!

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

HAPPY NEW YEAR! NOW MIDNIGHT HERE!

Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 06:04:38 pm
Happy New Year! Can't wait to see what you'll come up with this ❤️
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 06:14:28 pm
I'll start with that in the morning. I will experiment a lot, the end of the restriction is amazing. A wonderful beginning of the new year. I like the way you made a option for shift in the music track in the window at the bottom. Even the pause mark is nice. Now testing, all pass.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 06:15:05 pm
I just updated the code in the box above to make the tracker more visible when you move down the mouse.

Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on December 31, 2020, 06:38:56 pm
Yes, now it's better see now. This music is a bit familiar to me :)  Thank you again!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on December 31, 2020, 06:40:49 pm
Quote from: Petr on December 31, 2020, 06:38:56 pm
This music is a bit familiar to me :) 

😉
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 01, 2021, 06:11:41 am
It's just an absolutely amazing thing. It's just something perfect. I made such an attempt. Take two different songs and create a one new from them - place the left channel of the first song in the left channel and place the left channel of the second song in the second channel. Previously? It was only possible with the WAV format and required a really large program. Now? It's really very simple! In addition, the program solves what QB64 cannot solve on its own yet, even though it is so easy! You can use the function in this program and you will never have a problem converting an OFFSET type to another numeric type.

Try it. Take two different songs (in order for the resulting mix to be heard well, you need to make sure that both have about the same volume) and go through it with this program. The result is a WAV file with mixed sound.

Of course, what can be done next? Sound effects, blending the left track to the right and vice versa, muting in the recording, inserting speech - and then saving it all. Of course, this is my first experiment of my own and it works great.

Code: QB64: [Select]
  1. 'Program create new WAV soundtrack, which mix left channel from audio 1 and right channel from audio 2
  2. INPUT "Insert audio file name nr. 1:"; a1$
  3. INPUT "Insert audio file name nr. 2:"; a2$
  4. a = _SNDOPEN(a1$)
  5. IF a THEN PRINT "Audio file 1 opened" ELSE PRINT "Audio file 1 opening error.": END
  6. b = _SNDOPEN(a2$)
  7. IF b THEN PRINT "Audio file 2 opened" ELSE PRINT "Audio file 2 opening error.": END
  8. LENa = _CEIL(_SNDLEN(a))
  9. LENb = _CEIL(_SNDLEN(b))
  10.  
  11. PRINT "Track 1 (Audio file 1) lenght:"; LENa
  12. PRINT "Track 2 (Audio file 2) lenght:"; LENb
  13.  
  14. IF LENa > LENb THEN NewTrackTime = LENb ELSE NewTrackTime = LENa
  15. PRINT "Mixed audio track lenght: "; NewTrackTime
  16.  
  17. DIM Left AS _MEM, Right AS _MEM, NewSound AS _MEM, Audio AS INTEGER, Driver AS _OFFSET
  18. Left = _MEMSOUND(a, 1)
  19. Right = _MEMSOUND(b, 2)
  20. IF Right.SIZE = 0 THEN Right = _MEMSOUND(b, 1) 'if track 2 is mono, use left channel from track 2
  21.  
  22. NewSoundSize& = _SNDRATE * NewTrackTime * 2 * 2 'use stereo  + use INTEGER
  23. NewSound = _MEMNEW(NewSoundSize&)
  24.  
  25. PRINT "SndRate:"; _SNDRATE
  26. PRINT "Track 1 memory len:"; Left.SIZE
  27. PRINT "Track 2 memory len:"; Right.SIZE
  28. PRINT "New audio memory len:"; NewSound.SIZE
  29.  
  30. IF Left.SIZE < Right.SIZE THEN Driver = Left.SIZE ELSE Driver = Right.SIZE
  31.  
  32. DO UNTIL Create& = Driver
  33.     _MEMGET Left, Left.OFFSET + Create&, Audio
  34.     _MEMPUT NewSound, NewSound.OFFSET + NewAudio&, Audio
  35.     NewAudio& = NewAudio& + 2 'because record lenght is 2 byte, use INTEGER
  36.     _MEMGET Right, Right.OFFSET + Create&, Audio
  37.     _MEMPUT NewSound, NewSound.OFFSET + NewAudio&, Audio
  38.     NewAudio& = NewAudio& + 2 'because record lenght is 2 byte, use INTEGER
  39.     Create& = Create& + 2
  41.  
  42. PRINT "New sound created. Saving as Tracks-mix.wav..."
  43. SAVESOUND16S NewSound, "Tracks-mix.wav"
  44. PRINT "Playing mixed sound"
  45. _SNDPLAYFILE ("tracks-mix.wav")
  47.  
  48.  
  49. FUNCTION OFFSETasI64&& (OffsetVal AS _OFFSET) 'convert OFFSET value to _INTEGER64 value -> 8 byte lenght to 8 byte lenght
  50.     DIM o AS _INTEGER64, mo AS _MEM
  51.     mo = _MEM(o)
  52.     _MEMPUT mo, mo.OFFSET, OffsetVal
  53.     _MEMFREE mo
  54.     OFFSETasI64&& = o
  56.  
  57.  
  58. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  59.  
  60.     TYPE head16
  61.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  62.         size AS LONG '              4 bytes  (file size)
  63.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  64.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  65.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  66.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  67.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  68.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  69.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  70.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  71.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  72.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  73.         lenght AS LONG '            4 bytes  Data block size
  74.     END TYPE '                     44 bytes  total
  75.     DIM H16 AS head16
  76.     ch = FREEFILE
  77.  
  78.     H16.chunk = "RIFF"
  79.     H16.size = 44 + OFFSETasI64(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  80.  
  81.     H16.fomat = "WAVE"
  82.     H16.sub1 = "fmt "
  83.     H16.subchunksize = 16
  84.     H16.format = 1
  85.     H16.channels = 2
  86.     H16.rate = 44100
  87.     H16.ByteRate = 44100 * 2 * 16 / 8
  88.     H16.Block = 4
  89.     H16.Bits = 16
  90.     H16.subchunk2 = "data"
  91.     H16.lenght = OFFSETasI64(arr.SIZE)
  92.     IF _FILEEXISTS(file$) THEN KILL file$
  93.  
  94.     Audio$ = SPACE$(OFFSETasI64(arr.SIZE))
  95.     _MEMGET arr, arr.OFFSET, Audio$
  96.  
  97.     OPEN file$ FOR BINARY AS #ch
  98.     PUT #ch, , H16
  99.     PUT #ch, , Audio$
  100.     Audio$ = ""
  101.  
  102.     CLOSE ch
  104.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 01, 2021, 08:15:57 am
Hi @Fellippe, try listening your songs with echo effect:

Code: QB64: [Select]
  1. 'Program create new WAV soundtrack + add echo
  2.  
  3. EchoLenght = 0.25 '0.25 seconds is echo duration
  4. Echo& = _SNDRATE * EchoLenght
  5.  
  6. DO UNTIL Echo& MOD 2 = 0
  7.     Echo& = Echo& + 1
  9.  
  10.  
  11. INPUT "Insert audio file name:"; a1$
  12. a = _SNDOPEN(a1$)
  13. IF a THEN PRINT "Audio file 1 opened" ELSE PRINT "Audio file 1 opening error.": END
  14. LENa = _CEIL(_SNDLEN(a)) + EchoLenght
  15. PRINT "Audio file lenght:"; LENa
  16. NewTrackTime = LENa
  17.  
  18.  
  19.  
  20. DIM Left AS _MEM, Right AS _MEM, NewSound AS _MEM, Audio AS INTEGER, Audio2 AS INTEGER, Audio3 AS INTEGER, Audio4 AS INTEGER
  21. Left = _MEMSOUND(a, 1)
  22. Right = _MEMSOUND(a, 2)
  23.  
  24. NewSoundSize& = _SNDRATE * NewTrackTime * 2 * 2 'use stereo  + use INTEGER
  25. NewSound = _MEMNEW(NewSoundSize&)
  26.  
  27. PRINT "SndRate:"; _SNDRATE
  28. PRINT "Track memory len:"; Left.SIZE
  29.  
  30.  
  31. DO UNTIL Create& = Left.SIZE
  32.     _MEMGET Left, Left.OFFSET + Create&, Audio
  33.     _MEMGET Right, Right.OFFSET + Create&, Audio2
  34.  
  35.     IF Create& > Echo& THEN
  36.         _MEMGET Left, Left.OFFSET + Create& - Echo&, Audio3
  37.         Audio = (Audio + Audio3 * .75) \ 2
  38.  
  39.         _MEMGET Right, Right.OFFSET + Create& - Echo&, Audio3
  40.         Audio2 = (Audio2 + Audio3 * .75) \ 2
  41.     END IF
  42.  
  43.     _MEMPUT NewSound, NewSound.OFFSET + NewAudio&, Audio 'left channel
  44.     _MEMPUT NewSound, NewSound.OFFSET + NewAudio& + 2, Audio2 'right channel
  45.     NewAudio& = NewAudio& + 4
  46.     Create& = Create& + 2
  48.  
  49. PRINT "New sound created. Saving as Tracks-mix.wav..."
  50. SAVESOUND16S NewSound, "Tracks-mix.wav"
  51. PRINT "Sound saved, erasing RAM..."
  53. _MEMFREE Right
  54. _MEMFREE NewSound
  55.  
  56. PRINT "Playing mixed sound"
  57. _SNDPLAYFILE ("tracks-mix.wav")
  59.  
  60.  
  61. FUNCTION OFFSETasI64&& (OffsetVal AS _OFFSET) 'convert OFFSET value to _INTEGER64 value -> 8 byte lenght to 8 byte lenght
  62.     DIM o AS _INTEGER64, mo AS _MEM
  63.     mo = _MEM(o)
  64.     _MEMPUT mo, mo.OFFSET, OffsetVal
  65.     _MEMFREE mo
  66.     OFFSETasI64&& = o
  68.  
  69.  
  70. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  71.  
  72.     TYPE head16
  73.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  74.         size AS LONG '              4 bytes  (file size)
  75.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  76.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  77.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  78.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  79.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  80.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  81.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  82.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  83.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  84.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  85.         lenght AS LONG '            4 bytes  Data block size
  86.     END TYPE '                     44 bytes  total
  87.     DIM H16 AS head16
  88.     ch = FREEFILE
  89.  
  90.     H16.chunk = "RIFF"
  91.     H16.size = 44 + OFFSETasI64(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  92.  
  93.     H16.fomat = "WAVE"
  94.     H16.sub1 = "fmt "
  95.     H16.subchunksize = 16
  96.     H16.format = 1
  97.     H16.channels = 2
  98.     H16.rate = 44100
  99.     H16.ByteRate = 44100 * 2 * 16 / 8
  100.     H16.Block = 4
  101.     H16.Bits = 16
  102.     H16.subchunk2 = "data"
  103.     H16.lenght = OFFSETasI64(arr.SIZE)
  104.     IF _FILEEXISTS(file$) THEN KILL file$
  105.  
  106.     Audio$ = SPACE$(OFFSETasI64(arr.SIZE))
  107.     _MEMGET arr, arr.OFFSET, Audio$
  108.  
  109.     OPEN file$ FOR BINARY AS #ch
  110.     PUT #ch, , H16
  111.     PUT #ch, , Audio$
  112.     Audio$ = ""
  113.  
  114.     CLOSE ch
  116.  

Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 01, 2021, 09:39:35 am
This return better echo output:

Code: QB64: [Select]
  1. 'Program create new WAV soundtrack + add echo
  2.  
  3. EchoLenght = 0.06 '0.06 seconds is echo duration
  4. OverSampling = 10 'number of echoes sample passes
  5.  
  6. Echo& = _SNDRATE * EchoLenght
  7.  
  8. DO UNTIL Echo& MOD 2 = 0
  9.     Echo& = Echo& + 1
  11.  
  12. INPUT "Insert audio file name:"; a1$
  13. a = _SNDOPEN(a1$)
  14. IF a THEN PRINT "Audio file 1 opened" ELSE PRINT "Audio file 1 opening error.": END
  15. LENa = _CEIL(_SNDLEN(a)) + EchoLenght
  16. PRINT "Audio file lenght:"; LENa
  17. NewTrackTime = LENa
  18.  
  19.  
  20.  
  21. DIM Left AS _MEM, Right AS _MEM, NewSound AS _MEM, Audio AS INTEGER, Audio2 AS INTEGER, Audio3 AS INTEGER, Audio4 AS INTEGER
  22. Left = _MEMSOUND(a, 1)
  23. Right = _MEMSOUND(a, 2)
  24.  
  25. NewSoundSize& = _SNDRATE * NewTrackTime * 2 * 2 'use stereo  + use INTEGER
  26. NewSound = _MEMNEW(NewSoundSize&)
  27.  
  28. PRINT "SndRate:"; _SNDRATE
  29. PRINT "Track memory len:"; Left.SIZE
  30. PRINT "Creating audio..."
  31.  
  32. VolDown = 1 / OverSampling
  33.  
  34. DO UNTIL Create& >= Left.SIZE - 2
  35.     _MEMGET Left, Left.OFFSET + Create&, Audio
  36.     _MEMGET Right, Right.OFFSET + Create&, Audio2
  37.  
  38.     IF Create& > Echo& THEN
  39.  
  40.         E& = Create&
  41.         Vol = 1
  42.         DO UNTIL E& <= Create& - OverSampling
  43.             Vol = Vol - VolDown
  44.             _MEMGET Left, Left.OFFSET + Create& - Echo&, Audio3
  45.             _MEMGET Left, Left.OFFSET + Create& - 2, Audio4
  46.             Audio = (Audio + Audio3 * (Vol + .01) + Audio4 * Vol) \ 3
  47.             E& = E& - 2
  48.         LOOP
  49.  
  50.         E& = Create&
  51.         Vol = 1
  52.         DO UNTIL E& <= Create& - OverSampling
  53.             Vol = Vol - VolDown
  54.             _MEMGET Right, Right.OFFSET + Create& - Echo&, Audio3
  55.             _MEMGET Right, Right.OFFSET + Create& - 2, Audio4
  56.             Audio2 = (Audio2 + Audio3 * (Vol + .01) + Audio4 * Vol) \ 3
  57.             E& = E& - 2
  58.         LOOP
  59.     END IF
  60.  
  61.     _MEMPUT NewSound, NewSound.OFFSET + NewAudio&, Audio 'left channel
  62.     _MEMPUT NewSound, NewSound.OFFSET + NewAudio& + 2, Audio2 'right channel
  63.     NewAudio& = NewAudio& + 4
  64.     Create& = Create& + 2
  66.  
  67. PRINT "New sound created. Saving as Tracks-mix4.wav..."
  68. SAVESOUND16S NewSound, "Tracks-mix4.wav"
  69. PRINT "Sound saved, erasing RAM..."
  71. _MEMFREE Right
  72. _MEMFREE NewSound
  73.  
  74. PRINT "Playing mixed sound"
  75. _SNDPLAYFILE ("tracks-mix4.wav")
  77.  
  78.  
  79. FUNCTION OFFSETasI64&& (OffsetVal AS _OFFSET) 'convert OFFSET value to _INTEGER64 value -> 8 byte lenght to 8 byte lenght
  80.     DIM o AS _INTEGER64, mo AS _MEM
  81.     mo = _MEM(o)
  82.     _MEMPUT mo, mo.OFFSET, OffsetVal
  83.     _MEMFREE mo
  84.     OFFSETasI64&& = o
  86.  
  87.  
  88. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  89.  
  90.     TYPE head16
  91.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  92.         size AS LONG '              4 bytes  (file size)
  93.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  94.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  95.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  96.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  97.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  98.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  99.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  100.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  101.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  102.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  103.         lenght AS LONG '            4 bytes  Data block size
  104.     END TYPE '                     44 bytes  total
  105.     DIM H16 AS head16
  106.     ch = FREEFILE
  107.  
  108.     H16.chunk = "RIFF"
  109.     H16.size = 44 + OFFSETasI64(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  110.  
  111.     H16.fomat = "WAVE"
  112.     H16.sub1 = "fmt "
  113.     H16.subchunksize = 16
  114.     H16.format = 1
  115.     H16.channels = 2
  116.     H16.rate = 44100
  117.     H16.ByteRate = 44100 * 2 * 16 / 8
  118.     H16.Block = 4
  119.     H16.Bits = 16
  120.     H16.subchunk2 = "data"
  121.     H16.lenght = OFFSETasI64(arr.SIZE)
  122.     IF _FILEEXISTS(file$) THEN KILL file$
  123.  
  124.     Audio$ = SPACE$(OFFSETasI64(arr.SIZE))
  125.     _MEMGET arr, arr.OFFSET, Audio$
  126.  
  127.     OPEN file$ FOR BINARY AS #ch
  128.     PUT #ch, , H16
  129.     PUT #ch, , Audio$
  130.     Audio$ = ""
  131.  
  132.     CLOSE ch
  134.  


Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 01, 2021, 09:57:43 am
Wow! One morning in your hands and we got sound processing! That's awesome, I'll be testing it right now!!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 01, 2021, 10:42:39 am
Great job, @Petr! On a side note, thanks for FUNCTION OFFSETasI64&& - that's really useful too.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 01, 2021, 10:56:32 am
Thank you, Fellippe. There are already many new possibilities. And do you know what's funny? Remember the beginnings of QB64 with graphics? When was the first save format BMP? Now it's just WAV... the resemblance, isn't it wonderful? I'm going to keep experimenting because I really very enjoy it! Really nice function, this _MEMSOUND!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: STxAxTIC on January 01, 2021, 11:38:32 pm
Here comes the first QB64 oscilloscope. Here I am "measuring" the frequency of a 500-hz sine wave:

Code: QB64: [Select]
  2. CONST true = -1, false = 0
  3.  
  4. DIM theSound AS LONG, x0 AS LONG, i AS _OFFSET, j AS _OFFSET
  5. DIM a%, c~&, k&, trackerHeight AS INTEGER
  6. DIM y0 AS LONG, y1 AS LONG
  7. DIM mouseDown AS _BYTE, f$, mouseDownOn AS INTEGER
  8. DIM sleft AS _MEM, sright AS _MEM
  9. DIM stereo AS _BYTE
  10. DIM stereoScreen AS LONG, monoScreen AS LONG
  11.  
  12. DIM BarFrequency AS INTEGER
  13. DIM BarWavelength AS INTEGER
  14. DIM BarPhase AS INTEGER
  15. DIM SomeText AS STRING
  16. BarFrequency = 441
  17. BarPhase = 0
  18. BarWavelength = INT(44100 / BarFrequency)
  19.  
  20. stereoScreen = _NEWIMAGE(882, 400, 32)
  21. monoScreen = _NEWIMAGE(882, 200, 32)
  22. SCREEN monoScreen
  23.  
  24. _TITLE "QB64 Sound Player + Oscilloscope"
  25.  
  27.     f$ = COMMAND$
  29.     start:
  30.     INPUT "File to load: ", f$
  32.  
  33. PRINT "Loading '"; f$; "'..."
  34. theSound = _SNDOPEN(f$)
  35. IF theSound = 0 THEN PRINT "Load failed.": END
  36.  
  37. loaded:
  38. sleft = _MEMSOUND(theSound, 1)
  39. sright = _MEMSOUND(theSound, 2)
  40.  
  41. IF sright.SIZE > 0 THEN
  42.     SCREEN stereoScreen
  43.     stereo = true
  44.     y0 = _HEIGHT / 4
  45.     y1 = _HEIGHT - _HEIGHT / 4
  47.     SCREEN monoScreen
  48.     y0 = _HEIGHT / 2
  51.  
  52. trackerHeight = 50
  53. _SNDPLAY theSound
  54. _SNDPAUSE theSound
  55.  
  58.         IF (_KEYDOWN(100305) OR _KEYDOWN(100306)) THEN
  59.             'BarPhase = BarPhase + SGN(_MOUSEWHEEL)
  60.             BarFrequency = BarFrequency + SGN(_MOUSEWHEEL)
  61.             BarWavelength = INT(44100 / BarFrequency)
  62.         ELSE
  63.             BarFrequency = BarFrequency + 20 * SGN(_MOUSEWHEEL)
  64.             BarWavelength = INT(44100 / BarFrequency)
  65.         END IF
  66.     WEND
  67.  
  69.         IF mouseDown = false THEN
  70.             mouseDown = true
  71.             IF _MOUSEY < _HEIGHT - trackerHeight THEN
  72.                 mouseDownOn = 1 'plot area
  73.             ELSE
  74.                 mouseDownOn = 2 'track area
  75.             END IF
  76.         ELSE
  77.             IF mouseDownOn = 2 AND _SNDPLAYING(theSound) = 0 THEN
  78.                 _SNDSETPOS theSound, map(_MOUSEX, 0, _WIDTH, 0, _SNDLEN(theSound))
  79.             END IF
  80.         END IF
  82.         IF mouseDown = false THEN
  83.             mouseDown = true
  84.             BarPhase = _MOUSEX
  85.         ELSE
  86.         END IF
  87.     ELSE
  88.         IF mouseDown THEN
  89.             'toggle play
  90.             IF mouseDownOn = 1 THEN
  91.                 toggleSoundState theSound
  92.             ELSEIF mouseDownOn = 2 THEN
  93.                 _SNDSETPOS theSound, map(_MOUSEX, 0, _WIDTH, 0, _SNDLEN(theSound))
  94.             END IF
  95.             mouseDown = false
  96.             mouseDownOn = 0
  97.         END IF
  98.     END IF
  99.  
  100.     k& = _KEYHIT
  101.     IF k& = 32 THEN toggleSoundState theSound
  102.  
  103.     DIM alpha AS INTEGER
  104.     alpha = 50 'IF _SNDPLAYING(theSound) THEN alpha = 40 ELSE alpha = 20
  105.     LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(0, alpha), BF
  106.     GOSUB render
  107.     IF _SNDPLAYING(theSound) = 0 THEN _PRINTSTRING (_WIDTH / 2 - 16, _HEIGHT / 2 - _FONTHEIGHT), CHR$(221) + CHR$(222)
  108.  
  109.     _DISPLAY
  110.     _LIMIT 60
  112.  
  113. render:
  115. o = INT((_SNDGETPOS(theSound)) * _SNDRATE)
  116. WHILE o MOD 2 <> 0: o = o + 1: WEND
  117. i = sleft.OFFSET + o
  118. IF stereo THEN j = sright.OFFSET + o
  119. FOR x0 = 0 TO _WIDTH
  120.     _MEMGET sleft, i, a%
  121.     IF a% < 0 THEN
  122.         c~& = _RGB32(67, 150, 33, map(a%, 0, -32767, 80, 255))
  123.     ELSE
  124.         c~& = _RGB32(67, 150, 33, map(a%, 0, 32767, 80, 255))
  125.     END IF
  126.     LINE (x0, y0)-STEP(0, map(a%, -32768, 32767, -_HEIGHT / 4, _HEIGHT / 4)), c~&, B 'F
  127.  
  128.     IF stereo THEN
  129.         _MEMGET sright, j, a%
  130.         IF a% < 0 THEN
  131.             c~& = _RGB32(67, 150, 33, map(a%, 0, -32767, 80, 255))
  132.         ELSE
  133.             c~& = _RGB32(67, 150, 33, map(a%, 0, 32767, 80, 255))
  134.         END IF
  135.         LINE (x0, y1)-STEP(0, map(a%, -32768, 32767, -_HEIGHT / 4, _HEIGHT / 4)), c~&, B 'F
  136.     END IF
  137.  
  138.     IF (x0 MOD BarWavelength) = 0 THEN
  139.         LINE (x0 + BarPhase, 0)-(x0 + BarPhase, _HEIGHT), _RGB32(0, 100, 100, 100)
  140.     END IF
  141.  
  142.     i = i + 2
  143.     IF stereo THEN j = j + 2
  144.     IF i + 2 >= sleft.OFFSET + sleft.SIZE THEN EXIT FOR
  146.  
  147. 'tracker:
  148. LINE (0, _HEIGHT - trackerHeight / 3)-STEP(map(_SNDGETPOS(theSound), 0, _SNDLEN(theSound), 0, _WIDTH), -trackerHeight / 3), _RGB32(255, 180), BF
  149. IF _MOUSEY > _HEIGHT - trackerHeight THEN
  150.     LINE (0, _HEIGHT - trackerHeight)-STEP(_WIDTH, trackerHeight), _RGB32(255, 30), BF
  152.  
  153. COLOR _RGB32(200, 200, 200, 255)
  154. LOCATE 1, 1: PRINT "Measured frequency:"; BarFrequency
  155. SomeText = "       MWheel = Coarse Freq.": LOCATE 1, _WIDTH / 8 - LEN(SomeText): PRINT SomeText
  156. SomeText = "CTRL + MWheel = Fine Freq.  ": LOCATE 2, _WIDTH / 8 - LEN(SomeText): PRINT SomeText
  157. SomeText = "  Right-Click = Phase       ": LOCATE 3, _WIDTH / 8 - LEN(SomeText): PRINT SomeText
  159.  
  160. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  161.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  163.  
  164. SUB toggleSoundState (theSound AS LONG)
  165.     IF _SNDPLAYING(theSound) THEN
  166.         _SNDPAUSE theSound
  167.     ELSE
  168.         DIM i AS INTEGER
  169.         FOR i = -20 TO 20
  170.             LINE (_WIDTH / 2 + 20, _HEIGHT / 2 - 5)-STEP(-40, i)
  171.         NEXT
  172.         _SNDLOOP theSound
  173.     END IF
  175.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 02, 2021, 04:48:28 am
Hi  @STxAxTIC I have a question about this. Let's say I want to measure the frequency of sound.

My theory is this: Suppose I choose the number of samples 441 to analyze. I count the number of zero crossings (or just decreasing and increasing in amplitude?) In these 441 samples. Because the sampling frequency for 1 second is 44100, this is a time interval of 100 milliseconds (in 441 samples). For example, if I count 12 changes in the amplitude direction, the resulting frequency is f = 12 / 0.01 = 1200 Hz. I will perform another frequency analysis on samples 442 - 883. Is it correct?

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 02, 2021, 07:31:22 am
Reply which find, must be in inversion to this program, i wrote:

Code: QB64: [Select]
  1. SOUND 300, 18 '18 is 1 second of time
  3. SOUND2 300, 18
  4.  
  5. SUB SOUND2 (frequency AS INTEGER, Nlenght AS SINGLE)
  6.     lenght = Nlenght * 1 / 18
  7.     samples = _SNDRATE * lenght
  8.     s = _PI / (_SNDRATE / frequency) * 2
  9.  
  10.     DO UNTIL plsam >= samples
  11.         _SNDRAW SIN(u), COS(u)
  12.         u = u + s
  13.         IF ABS(s) = _SNDRATE / frequency THEN s = s * -1
  14.         plsam = plsam + 1
  15.     LOOP
  17.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 02, 2021, 07:58:02 am
Damn, it's different. The frequency is determined by the zero crossing density - not how many times the wave passes through zero, but how far apart in time. The amplitude height determines the volume. I think. I have to verify this theory. Either it will be the density of the zero crossing, or the density of the change in the direction of the amplitude (how far apart the individual peaks are).
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: STxAxTIC on January 02, 2021, 12:16:57 pm
Good morning Petr,

An excellent question. It took me a few minutes to figure out how to get this working, but now I couldn't be happier. Hopefully this answers all of your questions...

Starting with what's given by Fellippe, we have a "sample rate" of 44100 samples per second. That is: every 1/44100 seconds, we are handed the instantaneous volume of the sound being played. By plotting the sound data horizontally, there is precisely one "piece of data" per pixel. This means that the so-called "speed of sound" is exactly 44100 pixels per second in this scheme.

Let me label the speed of sound on screen as C = 44100 pixels/sec.

Now for some terms. Suppose we are handed a very simple sine curve. No weird squiggles, no squares or sawtooth waves yet, just a sine.

The "period" ( T ) of the wave is the TIME taken, like in seconds, for the entire wave to repeat itself.
The "frequency" ( F ) of the wave, is one divided by the period. This is why we measure frequency in Hz, which are just inverse seconds.
The "wavelength" ( L ) of the wave, is the peak-to-peak span, measured in pixels.

Now the cool part: What ties the variables all together, is the following wave equation:

C = L * F

So that means we can measure L and calculate F.

Here is a full-blown example measurement of a 200-hz sine wave:

 [ This attachment cannot be displayed inline in 'Print Page' view ]  


Alright, so what about more complicated patterns?

Well, any complicated wave is actually the sum of simple waves, and each of those simple waves obeys the equation above. However, it's a little harder to discern what's happening by just looking at the sum of two of more waves. For an example, I chose to overlay a 400hz sine wave onto a 500hz sine wave, both having equal volumes. This gives rise to a "binaural beat" which you can actually hear at not 500hz or 400hz, but the difference of the two, aka. 100hz. I have measured the 100hz beat frequency in the image below.

 [ This attachment cannot be displayed inline in 'Print Page' view ]  


In conclusion: frequency can only be reliably understood using the construction(s) above. It's misguiding to try counting it from the number of times the graph crosses the the x-axis, or anything like that. It will only turn out correct by accident, and only for pure sine curves.

tldr:
(i) know what the speed of sound on screen is
(ii) measure the wavelength of the thing you're measuring
(iii) let the equation tell you the frequency



Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 02, 2021, 03:30:30 pm
Thanks for reply, STxAxTIC.

You don't even know (actually, you know, but I didn't know) how big you're right. Carve your words in stone. If I do it the way I intended, my bass frequency - the deep tones will completely overlap the tones of the higher frequencies. So the question is, but don't even bother to explain it to me, he's already tried it _Vince - but it came across my stupidity - how the hell to filter out the individual frequencies from each other. Each of the frequencies can start anywhere in time ... yeah, I know and some Furrier transforms, but as I wrote, I'm too stupid for that.

So here I add a program - a demonstration of how not to do it. How my bad program works:

You are somewhere in the audio position during playback, you get the position as INT (_SNGETPOS * _SNDRATE). From this point you go back in the _MEM field to the sample, which has the opposite polarity than the sample in the place where you started. You count the number of samples from your starting point. Then you do the same thing in opposite - again from the place in the field where the same starting position is, you go to the sample, which has the opposite polarity. During this, you also add the volumes (sizes) of these samples.
When you encounter a sample with the opposite polarity, you calculate the total volume of that sample as the sum of the volumes / number of all samples.
The numbers of samples are added (this will give you the duration of this sample - by calculating 1 / _SNDRATE * number of these samples)
Finally, a modified formula is used to calculate the frequency, because the described process actually detects only one half-period of the frequency.

Now I will deviate from frequency detection again and do something else again. :)

Code: QB64: [Select]
  1. 'Example how it not works and how not writing this...
  2.  
  4. INPUT "Insert sound file name:"; s$
  5. PRINT "Opening file..."
  6.  
  7. s = _SNDOPEN(s$)
  8. IF s = 0 THEN PRINT "Invalid sound file.": END
  9. DIM left AS _MEM, right AS _MEM, SampleL AS _UNSIGNED INTEGER, SampleR AS _UNSIGNED INTEGER
  10. DIM VolL AS SINGLE, VolR AS SINGLE, BytePos AS LONG
  11. left = _MEMSOUND(s, 1)
  12. right = _MEMSOUND(s, 2)
  13.  
  14. SCREEN _NEWIMAGE(800, 600, 32)
  15. DIM LeftBox(7) AS INTEGER
  16. DIM RightBox(7) AS INTEGER
  17. DIM LeftVol(7) AS SINGLE
  18. DIM RightVol(7) AS SINGLE
  19. LeftVol(0) = 0
  20.  
  21. FOR an = 20 TO 244 STEP 32
  22.     LeftBox(i) = an + 1
  23.     LINE (an, 300)-(an + 29, 550), , B
  24.     RightBox(i) = an + 497
  25.     LINE (an + 496, 300)-(an + 525, 550), , B
  26.     i = i + 1
  29. i = 0
  32.     IF _SNDGETPOS(s) > .2 THEN
  33.         BytePos = INT(_SNDGETPOS(s) * _SNDRATE)
  34.         _MEMGET left, left.OFFSET + BytePos, SampleL
  35.         L = SGN(SampleL)
  36.         _MEMGET right, right.OFFSET + BytePos, SampleR
  37.         R = SGN(SampleR)
  38.  
  39.         i = 0
  40.         DO UNTIL SGN(SampleL) <> L
  41.             i = i - 2
  42.             IF i < left.OFFSET THEN EXIT DO
  43.             _MEMGET left, left.OFFSET + BytePos + i, SampleL
  44.             LeftVol = LeftVol + SampleL
  45.         LOOP
  46.         j = 0
  47.         _MEMGET left, left.OFFSET + BytePos, SampleL
  48.  
  49.         DO UNTIL SGN(SampleL) <> L
  50.             j = j + 2
  51.             IF j > left.SIZE THEN EXIT DO
  52.             _MEMGET left, left.OFFSET + BytePos + j, SampleL
  53.             LeftVol = LeftVol + SampleL
  54.         LOOP
  55.         DeltaL = ABS(i / 2) + j / 2
  56.  
  57.         i = 0
  58.         DO UNTIL SGN(SampleR) <> R
  59.             i = i - 2
  60.             IF i < right.OFFSET THEN EXIT DO
  61.             _MEMGET right, right.OFFSET + BytePos + i, SampleR
  62.             RightVol = RightVol + SampleR
  63.         LOOP
  64.         j = 0
  65.         _MEMGET right, right.OFFSET + BytePos, SampleR
  66.         DO UNTIL SGN(SampleR) <> R
  67.             IF j > right.SIZE THEN EXIT DO
  68.             j = j + 2
  69.             _MEMGET right, right.OFFSET + BytePos + j, SampleR
  70.             RightVol = RightVol + SampleR
  71.         LOOP
  72.         DeltaR = ABS(i / 2) + j / 2
  73.     END IF
  74.  
  75.  
  76.     FrequencyL = 1 / 44100 * DeltaL ' Time - amplitude duration between 2 samples - Left channel
  77.     FrequencyR = 1 / 44100 * DeltaR ' Time - amplitude duration between 2 samples - Right channel
  78.  
  79.     FL = FrequencyL * _SNDRATE / 2 / _PI(2) 'Frequency Left
  80.     FR = FrequencyR * _SNDRATE / 2 / _PI(2) 'Frequency Right
  81.  
  82.  
  83.     IF LeftVol THEN VolL = LeftVol / DeltaL / 32767: LeftVol = 0 ' This, current amplitude size (volume level) - Left
  84.     IF RightVol THEN VolR = RightVol / DeltaR / 32767: RightVol = 0 '                                             Right
  85.     '   PRINT FL; VolL; FR; VolR, FrequencyL; FrequencyR
  86.  
  87.     SELECT CASE FL
  88.         CASE 0 TO 150: BoxL = 0
  89.         CASE 151 TO 350: BoxL = 1
  90.         CASE 300 TO 500: BoxL = 2
  91.         CASE 501 TO 1000: BoxL = 3
  92.         CASE 1001 TO 2200: BoxL = 4
  93.         CASE 2201 TO 5000: BoxL = 5
  94.         CASE 5001 TO 6000: BoxL = 6
  95.         CASE IS > 6001: BoxL = 7
  96.  
  97.  
  98.     END SELECT
  99.  
  100.     SELECT CASE FR
  101.         CASE 0 TO 150: BoxR = 0
  102.         CASE 151 TO 350: BoxR = 1
  103.         CASE 300 TO 500: BoxR = 2
  104.         CASE 501 TO 1000: BoxR = 3
  105.         CASE 1001 TO 2200: BoxR = 4
  106.         CASE 2201 TO 5000: BoxR = 5
  107.         CASE 5001 TO 6000: BoxR = 6
  108.         CASE IS > 6001: BoxR = 7
  109.  
  110.     END SELECT
  111.  
  112.     PCOPY 1, _DISPLAY
  113.     LeftVol(BoxL) = LeftVol(BoxL) + VolL
  114.     IF LeftVol(BoxL) > 1 THEN LeftVol(BoxL) = 1
  115.  
  116.     RightVol(BoxR) = RightVol(BoxR) + VolR
  117.     IF RightVol(BoxR) > 1 THEN RightVol(BoxR) = 1
  118.  
  119.     FOR d = 0 TO 7
  120.         LINE (LeftBox(d), 549)-(LeftBox(d) + 27, 550 - (149 * LeftVol(d))), Red, BF
  121.         IF RightVol(d) <= 1 THEN LINE (RightBox(d), 549)-(RightBox(d) + 27, 550 - (149 * RightVol(d))), Red, BF
  122.         LeftVol(d) = LeftVol(d) - .003
  123.         IF LeftVol(d) < 0 THEN LeftVol(d) = 0
  124.         RightVol(d) = RightVol(d) - .003
  125.         IF RightVol(d) < 0 THEN RightVol(d) = 0
  126.     NEXT d
  127.     _DISPLAY
  129.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: STxAxTIC on January 02, 2021, 05:51:36 pm
Hello again Petr,

I was successful in implementing a very crude, non-optimized, but correct discrete Fourier transform. It's very crude for now, as expected - but rather than deliver a highly polished result, I thought I would share the early stage of the whole thing working. Below are are few screenshots. The "measured" frequencies are plotted in red. For pure tones, we should expect to see only one bar at a time, which is indeed evident. For the last picture, I used the 400hz + 500hz binaural beat, which predicts TWO red bars. Luckily, they show up! So, the whole thing now works - it just needs optimization to look nice.

Code: QB64: [Select]
  2. CONST true = -1, false = 0
  3.  
  5. pi = 4 * ATN(1)
  6.  
  7. DIM theSound AS LONG, x0 AS LONG, i AS _OFFSET, j AS _OFFSET
  8. DIM a%, c~&, k&, trackerHeight AS INTEGER
  9. DIM y0 AS LONG, y1 AS LONG
  10. DIM mouseDown AS _BYTE, f$, mouseDownOn AS INTEGER
  11. DIM sleft AS _MEM, sright AS _MEM
  12. DIM stereo AS _BYTE
  13. DIM stereoScreen AS LONG, monoScreen AS LONG
  14.  
  15. '''
  16. DIM BarFrequency AS INTEGER
  17. DIM BarWavelength AS INTEGER
  18. DIM BarPhase AS INTEGER
  19. DIM SomeText AS STRING
  20. BarFrequency = 441
  21. BarPhase = 0
  22. BarWavelength = INT(44100 / BarFrequency)
  23.  
  24.  
  25. stereoScreen = _NEWIMAGE(882, 400, 32)
  26. monoScreen = _NEWIMAGE(882, 200, 32)
  27. SCREEN monoScreen
  28.  
  29. '''
  30. DIM SHARED Amplitudes(_WIDTH) AS DOUBLE
  31. DIM SHARED Frequencies(_WIDTH) AS DOUBLE
  32. '''
  33.  
  34.  
  35. _TITLE "QB64 Sound Player + Analyzer"
  36.  
  38.     f$ = COMMAND$
  40.     start:
  41.     INPUT "File to load: ", f$
  43.  
  44. PRINT "Loading '"; f$; "'..."
  45. theSound = _SNDOPEN(f$)
  46. IF theSound = 0 THEN PRINT "Load failed.": END
  47.  
  48. loaded:
  49. sleft = _MEMSOUND(theSound, 1)
  50. sright = _MEMSOUND(theSound, 2)
  51.  
  52. IF sright.SIZE > 0 THEN
  53.     SCREEN stereoScreen
  54.     stereo = true
  55.     y0 = _HEIGHT / 4
  56.     y1 = _HEIGHT - _HEIGHT / 4
  58.     SCREEN monoScreen
  59.     y0 = _HEIGHT / 2
  62.  
  63. trackerHeight = 50
  64. _SNDPLAY theSound
  65. _SNDPAUSE theSound
  66.  
  69.         IF (_KEYDOWN(100305) OR _KEYDOWN(100306)) THEN
  70.             'BarPhase = BarPhase + SGN(_MOUSEWHEEL)
  71.             BarFrequency = BarFrequency + SGN(_MOUSEWHEEL)
  72.             BarWavelength = INT(44100 / BarFrequency)
  73.         ELSE
  74.             BarFrequency = BarFrequency + 20 * SGN(_MOUSEWHEEL)
  75.             BarWavelength = INT(44100 / BarFrequency)
  76.         END IF
  77.     WEND
  78.  
  80.         IF mouseDown = false THEN
  81.             mouseDown = true
  82.             IF _MOUSEY < _HEIGHT - trackerHeight THEN
  83.                 mouseDownOn = 1 'plot area
  84.             ELSE
  85.                 mouseDownOn = 2 'track area
  86.             END IF
  87.         ELSE
  88.             IF mouseDownOn = 2 AND _SNDPLAYING(theSound) = 0 THEN
  89.                 _SNDSETPOS theSound, map(_MOUSEX, 0, _WIDTH, 0, _SNDLEN(theSound))
  90.             END IF
  91.         END IF
  93.         IF mouseDown = false THEN
  94.             mouseDown = true
  95.             BarPhase = _MOUSEX
  96.         END IF
  97.     ELSE
  98.         IF mouseDown THEN
  99.             'toggle play
  100.             IF mouseDownOn = 1 THEN
  101.                 toggleSoundState theSound
  102.             ELSEIF mouseDownOn = 2 THEN
  103.                 _SNDSETPOS theSound, map(_MOUSEX, 0, _WIDTH, 0, _SNDLEN(theSound))
  104.             END IF
  105.             mouseDown = false
  106.             mouseDownOn = 0
  107.         END IF
  108.     END IF
  109.  
  110.     k& = _KEYHIT
  111.     IF k& = 32 THEN toggleSoundState theSound
  112.  
  113.     DIM alpha AS INTEGER
  114.     alpha = 50 'IF _SNDPLAYING(theSound) THEN alpha = 40 ELSE alpha = 20
  115.     LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(0, alpha), BF
  116.     GOSUB render
  117.     IF _SNDPLAYING(theSound) = 0 THEN _PRINTSTRING (_WIDTH / 2 - 16, _HEIGHT / 2 - _FONTHEIGHT), CHR$(221) + CHR$(222)
  118.  
  119.     _DISPLAY
  120.     _LIMIT 60
  122.  
  123. render:
  124.  
  126. o = INT((_SNDGETPOS(theSound)) * _SNDRATE)
  127. WHILE o MOD 2 <> 0: o = o + 1: WEND
  128. i = sleft.OFFSET + o
  129. IF stereo THEN j = sright.OFFSET + o
  130. FOR x0 = 0 TO _WIDTH - 1
  131.     _MEMGET sleft, i, a%
  132.     IF a% < 0 THEN
  133.         c~& = _RGB32(67, 150, 33, map(a%, 0, -32767, 80, 255))
  134.     ELSE
  135.         c~& = _RGB32(67, 150, 33, map(a%, 0, 32767, 80, 255))
  136.     END IF
  137.     LINE (x0, y0)-STEP(0, map(a%, -32768, 32767, -_HEIGHT / 4, _HEIGHT / 4)), c~&, B 'F
  138.  
  139.     '''
  140.     Amplitudes(x0 + 1) = 100 * a% / 32767
  141.     '''
  142.  
  143.     IF stereo THEN
  144.         _MEMGET sright, j, a%
  145.         IF a% < 0 THEN
  146.             c~& = _RGB32(67, 150, 33, map(a%, 0, -32767, 80, 255))
  147.         ELSE
  148.             c~& = _RGB32(67, 150, 33, map(a%, 0, 32767, 80, 255))
  149.         END IF
  150.         LINE (x0, y1)-STEP(0, map(a%, -32768, 32767, -_HEIGHT / 4, _HEIGHT / 4)), c~&, B 'F
  151.     END IF
  152.  
  153.     IF (x0 MOD BarWavelength) = 0 THEN
  154.         LINE (x0 + BarPhase, 0)-(x0 + BarPhase, _HEIGHT), _RGB32(0, 100, 100, 100)
  155.     END IF
  156.  
  157.     i = i + 2
  158.     IF stereo THEN j = j + 2
  159.     IF i + 2 >= sleft.OFFSET + sleft.SIZE THEN EXIT FOR
  161.  
  162. '''
  165. FOR ii = 0 TO _WIDTH - 1
  166.     Frequencies(ii + 1) = 0
  167.     FOR jj = 0 TO _WIDTH - 1
  168.         Frequencies(ii + 1) = Frequencies(ii + 1) + Amplitudes(jj + 1) * COS(2 * pi * (ii + 1) * (jj + 1) / _WIDTH)
  169.     NEXT
  171. FOR ii = 0 TO _WIDTH / 2 - 1
  172.     LINE (2 * ii, _HEIGHT)-(2 * ii, _HEIGHT - ABS(Frequencies(ii))), _RGB32(200, 0, 0, 100)
  174. '''
  175.  
  176. 'tracker:
  177. LINE (0, _HEIGHT - trackerHeight / 3)-STEP(map(_SNDGETPOS(theSound), 0, _SNDLEN(theSound), 0, _WIDTH), -trackerHeight / 3), _RGB32(255, 180), BF
  178. IF _MOUSEY > _HEIGHT - trackerHeight THEN
  179.     LINE (0, _HEIGHT - trackerHeight)-STEP(_WIDTH, trackerHeight), _RGB32(255, 30), BF
  181.  
  182. COLOR _RGB32(200, 200, 200, 255)
  183. LOCATE 1, 1: PRINT "Measured frequency:"; BarFrequency; "Hz"
  184. SomeText = "       MWheel = Coarse Freq.": LOCATE 1, _WIDTH / 8 - LEN(SomeText): PRINT SomeText
  185. SomeText = "CTRL + MWheel = Fine Freq.  ": LOCATE 2, _WIDTH / 8 - LEN(SomeText): PRINT SomeText
  186. SomeText = "  Right-Click = Phase       ": LOCATE 3, _WIDTH / 8 - LEN(SomeText): PRINT SomeText
  188.  
  189. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  190.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  192.  
  193. SUB toggleSoundState (theSound AS LONG)
  194.     IF _SNDPLAYING(theSound) THEN
  195.         _SNDPAUSE theSound
  196.     ELSE
  197.         DIM i AS INTEGER
  198.         FOR i = -20 TO 20
  199.             LINE (_WIDTH / 2 + 20, _HEIGHT / 2 - 5)-STEP(-40, i)
  200.         NEXT
  201.         _SNDLOOP theSound
  202.     END IF
  204.  
  205.  
  206.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Craz1000 on January 02, 2021, 09:39:47 pm
I have a game project that has been on hold for over 2 years because I needed a way to get an oscilloscope working. Yes!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Dav on January 02, 2021, 10:34:19 pm
This all sounds very interesting!   Could something like this be used to analyze a played pitch and see if it's in tune?  Like frequency 440 Hz is the note A.    I tune pianos on the side, wonder if it would be possible to make a piano tuning app in QB64?

- Dav 
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 03, 2021, 03:57:14 am
Hi everyone.

@STxAxTIC: I had to leave the forum yesterday, it was half past one in the morning when I finished and I don't think much of it at that time.
Thanks for the new example, I'll take a look right away.

@Dav : I think this option is already here, but you have to use the 32-bit version of the IDE in version 0.954 and the SFML library. I have verified that in this version it is really possible to use a microphone with the SFML library with the QB64. Of course, is there a possibility (and I haven't looked so far) that maybe @SpriggsySpriggs has developed a library that allows it in newer versions?

Before adding post to this thread by @STxAxTIC, I wrote a simple - and sometimes I think practical - thing - when someone does a music editor, so here's a simple example of how to mute the sound at the end of an audio track. Of course, this can be done anywhere with a easy modification.

Code: QB64: [Select]
  1. INPUT "Insert music file name:"; m$
  2. INPUT "How long retreat at the end of the track do you want to create? [sec]"; delay
  3.  
  5.     PRINT "Opening file..."
  6.     music = _SNDOPEN(m$)
  7.     DIM left AS _MEM
  8.     DIM right AS _MEM
  9.     DIM NewSound AS _MEM
  10.     DIM position AS _OFFSET, D AS DOUBLE
  11.     DIM Size AS _OFFSET, DT AS _OFFSET, audio AS INTEGER
  12.  
  13.     left = _MEMSOUND(music, 1)
  14.     right = _MEMSOUND(music, 2)
  15.  
  16.     position = left.SIZE - _SNDRATE * delay * 2 'INTEGER, so * 2
  17.     downturn = 1 / (_SNDRATE * delay)
  18.  
  19.     IF right.SIZE > 0 THEN Size = left.SIZE * 2 ELSE Size = left.SIZE
  20.     NewSound = _MEMNEW(Size)
  21.  
  22.     'create downturn on both tracks...
  23.     PRINT "Building downturn..."
  24.  
  25.     DT = left.SIZE - 2
  26.  
  27.     DO UNTIL DT <= position
  28.         _MEMGET left, left.OFFSET + DT, audio
  29.         audio = audio * D
  30.         _MEMPUT left, left.OFFSET + DT, audio
  31.         IF right.SIZE > 0 THEN
  32.             _MEMGET right, right.OFFSET + DT, audio
  33.             audio = audio * D
  34.             _MEMPUT right, right.OFFSET + DT, audio
  35.         END IF
  36.         D = D + downturn
  37.         DT = DT - 2
  38.     LOOP
  39.     PRINT "Creating new track..."
  40.     'create one stereo track
  41.     DT = 0
  42.     i = 0
  43.     DO UNTIL i = left.SIZE
  44.         _MEMGET left, left.OFFSET + i, audio
  45.         _MEMPUT NewSound, NewSound.OFFSET + DT, audio
  46.         IF right.SIZE > 0 THEN
  47.             DT = DT + 2
  48.             _MEMGET right, right.OFFSET + i, audio
  49.             _MEMPUT NewSound, NewSound.OFFSET + DT, audio
  50.         END IF
  51.         DT = DT + 2
  52.         i = i + 2
  53.     LOOP
  54.  
  55.     'save work
  56.     f$ = "downturn_test.wav"
  57.     SAVESOUND16S NewSound, f$
  58.     PRINT "New audio file saved as "; f$
  59.     PRINT "Skipping 5 seconds before applyed downturn and playing..."
  60.     _SNDCLOSE music
  61.     music = _SNDOPEN(f$)
  62.     _SNDSETPOS music, _SNDLEN(music) - delay - 5
  63.     _SNDPLAY music
  65.     PRINT "File "; m$; "not exist."
  66.     END
  68.  
  69. DO UNTIL _SNDPLAYING(music) = 0
  71. PRINT "Done"
  72. _SNDCLOSE music
  74. _MEMFREE right
  75. _MEMFREE NewSound
  77.  
  78.  
  79. FUNCTION OFFSETasI64&& (OffsetVal AS _OFFSET) 'convert OFFSET value to _INTEGER64 value -> 8 byte lenght to 8 byte lenght
  80.     DIM o AS _INTEGER64, mo AS _MEM
  81.     mo = _MEM(o)
  82.     _MEMPUT mo, mo.OFFSET, OffsetVal
  83.     _MEMFREE mo
  84.     OFFSETasI64&& = o
  86.  
  87.  
  88. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  89.  
  90.     TYPE head16
  91.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  92.         size AS LONG '              4 bytes  (file size)
  93.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  94.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  95.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  96.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  97.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  98.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  99.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  100.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  101.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  102.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  103.         lenght AS LONG '            4 bytes  Data block size
  104.     END TYPE '                     44 bytes  total
  105.     DIM H16 AS head16
  106.     ch = FREEFILE
  107.  
  108.     H16.chunk = "RIFF"
  109.     H16.size = 44 + OFFSETasI64(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  110.  
  111.     H16.fomat = "WAVE"
  112.     H16.sub1 = "fmt "
  113.     H16.subchunksize = 16
  114.     H16.format = 1
  115.     H16.channels = 2
  116.     H16.rate = 44100
  117.     H16.ByteRate = 44100 * 2 * 16 / 8
  118.     H16.Block = 4
  119.     H16.Bits = 16
  120.     H16.subchunk2 = "data"
  121.     H16.lenght = OFFSETasI64(arr.SIZE)
  122.     IF _FILEEXISTS(file$) THEN KILL file$
  123.  
  124.     Audio$ = SPACE$(OFFSETasI64(arr.SIZE))
  125.     _MEMGET arr, arr.OFFSET, Audio$
  126.  
  127.     OPEN file$ FOR BINARY AS #ch
  128.     PUT #ch, , H16
  129.     PUT #ch, , Audio$
  130.     Audio$ = ""
  131.  
  132.     CLOSE ch
  134.  
  135.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 03, 2021, 06:11:35 am
@STxAxTIC  Thank you again for your example. Extra thanks for ''' separators, its very useful for me for better orientation in source code.

I have a few questions. In the source code, line 140. Why is the Amplitudes (x0 + 1) = 100 * a% / 32767 sample a% multiplied by one hundred? I have found that this affects the height of the amplitude. Is it an increase in sensitivity because the Amplitudes field is of type DOUBLE?

On line 168, do I understand that correctly? Do you calculate the frequency for each amplitude on the screen? Definitely yes, well yeah!

Oh yeah! And because in line 140 you calculate the amplitude depending on the width of the screen, the width of the screen is used everywhere for the calculation. So if I determine from how many samples in the _MEM field I want to count, I will do the same, but I will use the number of samples instead of the screen width.

This rendering on line 171 - 173 is  always draw by one column, that's probably just for graphic effect, right?

The BarFrequency, BarWaveLenght are not used for calculation, they are just for visualization, as It look.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 03, 2021, 08:18:00 pm
_MEMSOUND has now made it to the development build, and there have been a few fixes since the alpha testing you guys started. @Petr make sure you get the latest update (_SNDCLOSE has been fixed, also reading the new .SOUND element of the _MEM udt has been fixed).

Anyone willing to test the cool samples above in this thread can now get the development build from https://www.qb64.org/portal/development-build/ and just compile them - keep us updated if all goes as expected.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 10:09:06 am
@FellippeHeitor   Hi, I came home from work a while ago, I'll get to it right away!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 10:33:21 am
First test and problem occur: Downloaded version is 32 bit, 488c4a1. Try this source code in attachment. In previous version, in which i test it, it do new audio track and then play it. BUT NOW, in this version it do new audio track as expected, return valid handle for sound (it open created wav audio file and handle for it is 2) but nothing is playing. If i try play this file with windows media player, it plays correctly. Because valid handle is returned, i try _SNDLEN, if track time is writed correctly and - it is. But play not.

eee :) source code...

Code: QB64: [Select]
  1. 'Program create new WAV soundtrack + add echo
  2.  
  3. EchoLenght = 0.12 '0.06 seconds is echo duration
  4. OverSampling = 10 'number of echoes sample passes
  5.  
  6. Echo& = _SNDRATE * EchoLenght
  7.  
  8. DO UNTIL Echo& MOD 2 = 0
  9.     Echo& = Echo& + 1
  11. DIM Left AS _MEM, Right AS _MEM, NewSound AS _MEM, Audio AS INTEGER, Audio2 AS INTEGER, Audio3 AS INTEGER, Audio4 AS INTEGER
  12. REDIM PlayableFiles(0) AS STRING
  13.  
  14.  
  15. 'INPUT "Insert audio file name:"; a1$
  16.  
  18.     FUNCTION load_dir& (s AS STRING)
  19.     FUNCTION has_next_entry& ()
  20.     SUB close_dir ()
  21.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
  23.  
  24. REDIM Dir(0) AS STRING, File(0) AS STRING
  25. GetFileList _CWD$, Dir(), File()
  26.  
  27.  
  28. FOR s = LBOUND(file) TO UBOUND(file)
  29.     SELECT CASE UCASE$(RIGHT$(File(s), 3))
  30.         CASE "MP3", "OGG", "WAV"
  31.             PlayableFiles(i) = File(s)
  32.             i = i + 1
  33.             REDIM _PRESERVE PlayableFiles(i) AS STRING
  34.     END SELECT
  36.  
  37. PRINT "Files to play: "; i - 1
  38.  
  39.  
  40. FOR playit = 0 TO i - 1
  41.     a1$ = PlayableFiles(playit)
  42.     PRINT "Opening file "; playit + 1; "/"; i - 1; " - "; PlayableFiles(playit)
  43.     IF a THEN _SNDCLOSE a
  44.     a = _SNDOPEN(a1$)
  45.     IF a THEN PRINT "Audio file opened" ELSE PRINT "Audio file 1 opening error.": END
  46.     LENa = _CEIL(_SNDLEN(a)) + EchoLenght
  47.     PRINT "Audio file lenght:"; LENa
  48.     NewTrackTime = LENa
  49.  
  50.  
  51.  
  52.  
  53.     Left = _MEMSOUND(a, 1)
  54.     Right = _MEMSOUND(a, 2)
  55.  
  56.     NewSoundSize& = _SNDRATE * NewTrackTime * 2 * 2 'use stereo  + use INTEGER
  57.     NewSound = _MEMNEW(NewSoundSize&)
  58.  
  59.     PRINT "SndRate:"; _SNDRATE
  60.     PRINT "Track memory len:"; Left.SIZE
  61.     PRINT "Creating audio..."
  62.  
  63.     VolDown = 1 / OverSampling
  64.     Create& = 0
  65.     NewAudio& = 0
  66.     DO UNTIL Create& >= Left.SIZE - 2
  67.         _MEMGET Left, Left.OFFSET + Create&, Audio
  68.         _MEMGET Right, Right.OFFSET + Create&, Audio2
  69.  
  70.         IF Create& > Echo& THEN
  71.  
  72.             E& = Create&
  73.             Vol = 1
  74.             DO UNTIL E& <= Create& - OverSampling
  75.                 Vol = Vol - VolDown
  76.                 _MEMGET Left, Left.OFFSET + Create& - Echo&, Audio3
  77.                 _MEMGET Left, Left.OFFSET + Create& - 2, Audio4
  78.                 Audio = (Audio + Audio3 * (Vol + .01) + Audio4 * Vol) \ 3
  79.                 E& = E& - 2
  80.             LOOP
  81.  
  82.             E& = Create&
  83.             Vol = 1
  84.             DO UNTIL E& <= Create& - OverSampling
  85.                 Vol = Vol - VolDown
  86.                 _MEMGET Right, Right.OFFSET + Create& - Echo&, Audio3
  87.                 _MEMGET Right, Right.OFFSET + Create& - 2, Audio4
  88.                 Audio2 = (Audio2 + Audio3 * (Vol + .01) + Audio4 * Vol) \ 3
  89.                 E& = E& - 2
  90.             LOOP
  91.         END IF
  92.  
  93.         _MEMPUT NewSound, NewSound.OFFSET + NewAudio&, Audio 'left channel
  94.         _MEMPUT NewSound, NewSound.OFFSET + NewAudio& + 2, Audio2 'right channel
  95.         NewAudio& = NewAudio& + 4
  96.         Create& = Create& + 2
  97.     LOOP
  98.  
  99.     PRINT "New sound created. Saving as Tracks-mix4.wav..."
  100.     SAVESOUND16S NewSound, "Tracks-mix4.wav"
  101.     PRINT "Sound saved, erasing RAM..."
  102.     _MEMFREE Left
  103.     _MEMFREE Right
  104.     _MEMFREE NewSound
  105.  
  106.     PRINT "Playing mixed sound"
  107.     snd = _SNDOPEN("tracks-mix4.wav")
  108.     _SNDPLAY snd
  109.     DO UNTIL _SNDPLAYING(snd) = 0
  110.         LOCATE 12
  111.         PRINT _SNDGETPOS(snd)
  112.     LOOP
  113.     CLS
  114.     _SNDCLOSE snd
  115.     KILL "tracks-mix4.wav"
  117.  
  119.  
  120.  
  121. FUNCTION OFFSETasI64&& (OffsetVal AS _OFFSET) 'convert OFFSET value to _INTEGER64 value -> 8 byte lenght to 8 byte lenght
  122.     DIM o AS _INTEGER64, mo AS _MEM
  123.     mo = _MEM(o)
  124.     _MEMPUT mo, mo.OFFSET, OffsetVal
  125.     _MEMFREE mo
  126.     OFFSETasI64&& = o
  128.  
  129.  
  130. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  131.  
  132.     TYPE head16
  133.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  134.         size AS LONG '              4 bytes  (file size)
  135.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  136.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  137.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  138.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  139.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  140.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  141.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  142.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  143.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  144.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  145.         lenght AS LONG '            4 bytes  Data block size
  146.     END TYPE '                     44 bytes  total
  147.     DIM H16 AS head16
  148.     ch = FREEFILE
  149.  
  150.     H16.chunk = "RIFF"
  151.     H16.size = 44 + OFFSETasI64(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  152.  
  153.     H16.fomat = "WAVE"
  154.     H16.sub1 = "fmt "
  155.     H16.subchunksize = 16
  156.     H16.format = 1
  157.     H16.channels = 2
  158.     H16.rate = 44100
  159.     H16.ByteRate = 44100 * 2 * 16 / 8
  160.     H16.Block = 4
  161.     H16.Bits = 16
  162.     H16.subchunk2 = "data"
  163.     H16.lenght = OFFSETasI64(arr.SIZE)
  164.     IF _FILEEXISTS(file$) THEN KILL file$
  165.  
  166.     Audio$ = SPACE$(OFFSETasI64(arr.SIZE))
  167.     _MEMGET arr, arr.OFFSET, Audio$
  168.  
  169.     OPEN file$ FOR BINARY AS #ch
  170.     PUT #ch, , H16
  171.     PUT #ch, , Audio$
  172.     Audio$ = ""
  173.  
  174.     CLOSE ch
  176.  
  177. SUB GetFileList (SearchDirectory AS STRING, DirList() AS STRING, FileList() AS STRING)
  178.     CONST IS_DIR = 1
  179.     CONST IS_FILE = 2
  180.     DIM flags AS LONG, file_size AS LONG
  181.  
  182.     REDIM _PRESERVE DirList(100), FileList(100)
  183.     DirCount = 0: FileCount = 0
  184.  
  185.     IF load_dir(SearchDirectory) THEN
  186.         DO
  187.             length = has_next_entry
  188.             IF length > -1 THEN
  189.                 nam$ = SPACE$(length)
  190.                 get_next_entry nam$, flags, file_size
  191.                 IF (flags AND IS_DIR) OR _DIREXISTS(SearchDirectory + nam$) THEN
  192.                     DirCount = DirCount + 1
  193.                     IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
  194.                     DirList(DirCount) = nam$
  195.                 ELSEIF (flags AND IS_FILE) OR _FILEEXISTS(SearchDirectory + nam$) THEN
  196.                     FileCount = FileCount + 1
  197.                     IF FileCount > UBOUND(filelist) THEN REDIM _PRESERVE FileList(UBOUND(filelist) + 100)
  198.                     FileList(FileCount) = nam$
  199.                 END IF
  200.             END IF
  201.         LOOP UNTIL length = -1
  202.         close_dir
  203.     ELSE
  204.     END IF
  205.     REDIM _PRESERVE DirList(DirCount)
  206.     REDIM _PRESERVE FileList(FileCount)
  208.  
  209.  
  210.  


  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 04, 2021, 10:38:48 am
Because you are opening sound files in sequence, and using the same variable to hold the handle, it's important to reset it to 0 before attempting to _SNDOPEN again. See if this fixes it:

Code: QB64: [Select]
  1. 'Program create new WAV soundtrack + add echo
  2.  
  3. EchoLenght = 0.12 '0.06 seconds is echo duration
  4. OverSampling = 10 'number of echoes sample passes
  5.  
  6. Echo& = _SNDRATE * EchoLenght
  7.  
  8. DO UNTIL Echo& MOD 2 = 0
  9.     Echo& = Echo& + 1
  11. DIM Left AS _MEM, Right AS _MEM, NewSound AS _MEM, Audio AS INTEGER, Audio2 AS INTEGER, Audio3 AS INTEGER, Audio4 AS INTEGER
  12. REDIM PlayableFiles(0) AS STRING
  13.  
  14.  
  15. 'INPUT "Insert audio file name:"; a1$
  16.  
  18.     FUNCTION load_dir& (s AS STRING)
  19.     FUNCTION has_next_entry& ()
  20.     SUB close_dir ()
  21.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
  23.  
  24. REDIM Dir(0) AS STRING, File(0) AS STRING
  25. GetFileList _CWD$, Dir(), File()
  26.  
  27.  
  28. FOR s = LBOUND(file) TO UBOUND(file)
  29.     SELECT CASE UCASE$(RIGHT$(File(s), 3))
  30.         CASE "MP3", "OGG", "WAV"
  31.             PlayableFiles(i) = File(s)
  32.             i = i + 1
  33.             REDIM _PRESERVE PlayableFiles(i) AS STRING
  34.     END SELECT
  36.  
  37. PRINT "Files to play: "; i - 1
  38.  
  39.  
  40. FOR playit = 0 TO i - 1
  41.     a1$ = PlayableFiles(playit)
  42.     PRINT "Opening file "; playit + 1; "/"; i - 1; " - "; PlayableFiles(playit)
  43.     IF a THEN _SNDCLOSE a: a = 0
  44.     a = _SNDOPEN(a1$)
  45.     IF a THEN PRINT "Audio file opened" ELSE PRINT "Audio file 1 opening error.": END
  46.     LENa = _CEIL(_SNDLEN(a)) + EchoLenght
  47.     PRINT "Audio file lenght:"; LENa
  48.     NewTrackTime = LENa
  49.  
  50.  
  51.  
  52.  
  53.     Left = _MEMSOUND(a, 1)
  54.     Right = _MEMSOUND(a, 2)
  55.  
  56.     NewSoundSize& = _SNDRATE * NewTrackTime * 2 * 2 'use stereo  + use INTEGER
  57.     NewSound = _MEMNEW(NewSoundSize&)
  58.  
  59.     PRINT "SndRate:"; _SNDRATE
  60.     PRINT "Track memory len:"; Left.SIZE
  61.     PRINT "Creating audio..."
  62.  
  63.     VolDown = 1 / OverSampling
  64.     Create& = 0
  65.     NewAudio& = 0
  66.     DO UNTIL Create& >= Left.SIZE - 2
  67.         _MEMGET Left, Left.OFFSET + Create&, Audio
  68.         _MEMGET Right, Right.OFFSET + Create&, Audio2
  69.  
  70.         IF Create& > Echo& THEN
  71.  
  72.             E& = Create&
  73.             Vol = 1
  74.             DO UNTIL E& <= Create& - OverSampling
  75.                 Vol = Vol - VolDown
  76.                 _MEMGET Left, Left.OFFSET + Create& - Echo&, Audio3
  77.                 _MEMGET Left, Left.OFFSET + Create& - 2, Audio4
  78.                 Audio = (Audio + Audio3 * (Vol + .01) + Audio4 * Vol) \ 3
  79.                 E& = E& - 2
  80.             LOOP
  81.  
  82.             E& = Create&
  83.             Vol = 1
  84.             DO UNTIL E& <= Create& - OverSampling
  85.                 Vol = Vol - VolDown
  86.                 _MEMGET Right, Right.OFFSET + Create& - Echo&, Audio3
  87.                 _MEMGET Right, Right.OFFSET + Create& - 2, Audio4
  88.                 Audio2 = (Audio2 + Audio3 * (Vol + .01) + Audio4 * Vol) \ 3
  89.                 E& = E& - 2
  90.             LOOP
  91.         END IF
  92.  
  93.         _MEMPUT NewSound, NewSound.OFFSET + NewAudio&, Audio 'left channel
  94.         _MEMPUT NewSound, NewSound.OFFSET + NewAudio& + 2, Audio2 'right channel
  95.         NewAudio& = NewAudio& + 4
  96.         Create& = Create& + 2
  97.     LOOP
  98.  
  99.     PRINT "New sound created. Saving as Tracks-mix4.wav..."
  100.     SAVESOUND16S NewSound, "Tracks-mix4.wav"
  101.     PRINT "Sound saved, erasing RAM..."
  102.     _MEMFREE Left
  103.     _MEMFREE Right
  104.     _MEMFREE NewSound
  105.  
  106.     PRINT "Playing mixed sound"
  107.     snd = _SNDOPEN("tracks-mix4.wav")
  108.     _SNDPLAY snd
  109.     DO UNTIL _SNDPLAYING(snd) = 0
  110.         LOCATE 12
  111.         PRINT _SNDGETPOS(snd)
  112.     LOOP
  113.     CLS
  114.     _SNDCLOSE snd
  115.     KILL "tracks-mix4.wav"
  117.  
  119.  
  120.  
  121. FUNCTION OFFSETasI64&& (OffsetVal AS _OFFSET) 'convert OFFSET value to _INTEGER64 value -> 8 byte lenght to 8 byte lenght
  122.     DIM o AS _INTEGER64, mo AS _MEM
  123.     mo = _MEM(o)
  124.     _MEMPUT mo, mo.OFFSET, OffsetVal
  125.     _MEMFREE mo
  126.     OFFSETasI64&& = o
  128.  
  129.  
  130. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  131.  
  132.     TYPE head16
  133.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  134.         size AS LONG '              4 bytes  (file size)
  135.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  136.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  137.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  138.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  139.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  140.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  141.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  142.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  143.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  144.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  145.         lenght AS LONG '            4 bytes  Data block size
  146.     END TYPE '                     44 bytes  total
  147.     DIM H16 AS head16
  148.     ch = FREEFILE
  149.  
  150.     H16.chunk = "RIFF"
  151.     H16.size = 44 + OFFSETasI64(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  152.  
  153.     H16.fomat = "WAVE"
  154.     H16.sub1 = "fmt "
  155.     H16.subchunksize = 16
  156.     H16.format = 1
  157.     H16.channels = 2
  158.     H16.rate = 44100
  159.     H16.ByteRate = 44100 * 2 * 16 / 8
  160.     H16.Block = 4
  161.     H16.Bits = 16
  162.     H16.subchunk2 = "data"
  163.     H16.lenght = OFFSETasI64(arr.SIZE)
  164.     IF _FILEEXISTS(file$) THEN KILL file$
  165.  
  166.     Audio$ = SPACE$(OFFSETasI64(arr.SIZE))
  167.     _MEMGET arr, arr.OFFSET, Audio$
  168.  
  169.     OPEN file$ FOR BINARY AS #ch
  170.     PUT #ch, , H16
  171.     PUT #ch, , Audio$
  172.     Audio$ = ""
  173.  
  174.     CLOSE ch
  176.  
  177. SUB GetFileList (SearchDirectory AS STRING, DirList() AS STRING, FileList() AS STRING)
  178.     CONST IS_DIR = 1
  179.     CONST IS_FILE = 2
  180.     DIM flags AS LONG, file_size AS LONG
  181.  
  182.     REDIM _PRESERVE DirList(100), FileList(100)
  183.     DirCount = 0: FileCount = 0
  184.  
  185.     IF load_dir(SearchDirectory) THEN
  186.         DO
  187.             length = has_next_entry
  188.             IF length > -1 THEN
  189.                 nam$ = SPACE$(length)
  190.                 get_next_entry nam$, flags, file_size
  191.                 IF (flags AND IS_DIR) OR _DIREXISTS(SearchDirectory + nam$) THEN
  192.                     DirCount = DirCount + 1
  193.                     IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
  194.                     DirList(DirCount) = nam$
  195.                 ELSEIF (flags AND IS_FILE) OR _FILEEXISTS(SearchDirectory + nam$) THEN
  196.                     FileCount = FileCount + 1
  197.                     IF FileCount > UBOUND(filelist) THEN REDIM _PRESERVE FileList(UBOUND(filelist) + 100)
  198.                     FileList(FileCount) = nam$
  199.                 END IF
  200.             END IF
  201.         LOOP UNTIL length = -1
  202.         close_dir
  203.     ELSE
  204.     END IF
  205.     REDIM _PRESERVE DirList(DirCount)
  206.     REDIM _PRESERVE FileList(FileCount)
  208.  
  209.  
  210.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 10:43:55 am
NOT. I test also your new 64bit version now and there all works without any upgrades in my source code as expected. So bug is in 32 bit version only.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 04, 2021, 10:45:27 am
I'll try to reproduce it on my end. Mind sending me the offending audio file?

Keep in mind I've been developing _MEMSOUND in a 32bit environment, btw.

Also, keep in mind the need to reset the handle variable before loading new data.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 10:55:32 am
My first version, named as qb64-memsound downloaded from github is 64bit. Which file you need? Created output WAV file or file on input (MP3)?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 04, 2021, 10:57:50 am
I tried in my machine and it worked with some files, not with others - which leads me to believe it has to do with the file generated and how OpenAL is decoding it - in which case debugging it beyond my abilities, since it's a third-party library. Let me know if you find something else that could be the cause.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 04, 2021, 10:59:16 am
Could you try playing the generated files with v1.4? I believe this has nothing to do with the new _MEMSOUND after all, since your issue is with regular _SNDPLAY.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 11:02:23 am
I'll try, but it will work. This cannot be a bug in OpenAl when the 64-bit version plays it. Even the 32-bit version reads correctly the length of the audio. But it won't start. 64 bit starts it. 32 bit sees the length of the music but does not start playing.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 11:08:46 am
This was wrong, I was too fast. Searching problems...
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 04, 2021, 11:10:27 am
Something related to the audio library then, since none of that code has been touched recently.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 11:38:01 am
So..... IDIOT AM I. Again.  Bad writed head in WAV file was the problem.


in SAVESOUND16S replace this row:   H16.lenght = OFFSETasI64(arr.SIZE) - 2
We still using integers.... NOW 32 bit version works as expected!

BIG SORRY FOR THIS.   -2  miss

Please try it also. I have five IDEs open here and I'm quickly losing track.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 04, 2021, 11:38:52 am
Hahaha, glad to hear all is solved.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 11:44:12 am
The big unknown is: Why the this bug is none problem for 64 bit version, but it is problem for 32 bit version? Just add -2 and is done...

I am also very glad, that it works and this nice function can be added!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 11:51:47 am
Fellippe, but still:

This code was work under 32 bit:

Code: QB64: [Select]
  1. 'Program create new WAV soundtrack + add echo
  2. 'if _fileexists("1d.mp3")
  3. '_SNDPLAYFILE ("1d.mp3")
  4. 'SLEEP
  5.  
  6. '_SNDPLAYFILE ("tracks-mix4.wav")
  7.  
  8. 'SLEEP
  9.  
  10. EchoLenght = 0.12 '0.06 seconds is echo duration
  11. OverSampling = 10 'number of echoes sample passes
  12.  
  13. Echo& = _SNDRATE * EchoLenght
  14.  
  15. DO UNTIL Echo& MOD 2 = 0
  16.     Echo& = Echo& + 1
  18. DIM Left AS _MEM, Right AS _MEM, NewSound AS _MEM, Audio AS INTEGER, Audio2 AS INTEGER, Audio3 AS INTEGER, Audio4 AS INTEGER
  19. REDIM PlayableFiles(0) AS STRING
  20.  
  21.  
  22. 'INPUT "Insert audio file name:"; a1$
  23.  
  25.     FUNCTION load_dir& (s AS STRING)
  26.     FUNCTION has_next_entry& ()
  27.     SUB close_dir ()
  28.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
  30.  
  31. REDIM Dir(0) AS STRING, File(0) AS STRING
  32. GetFileList _CWD$, Dir(), File()
  33.  
  34.  
  35. FOR s = LBOUND(file) TO UBOUND(file)
  36.     SELECT CASE UCASE$(RIGHT$(File(s), 3))
  37.         CASE "MP3", "OGG", "WAV"
  38.             PlayableFiles(i) = File(s)
  39.             i = i + 1
  40.             REDIM _PRESERVE PlayableFiles(i) AS STRING
  41.     END SELECT
  43.  
  44. PRINT "Files to play: "; i - 1
  45.  
  46.  
  47. FOR playit = 0 TO i - 1
  48.     a1$ = PlayableFiles(playit)
  49.     PRINT "Opening file "; playit + 1; "/"; i - 1; " - "; PlayableFiles(playit)
  50.     IF a THEN _SNDCLOSE a: a = 0
  51.     a = _SNDOPEN(a1$)
  52.     IF a THEN PRINT "Audio file opened" ELSE PRINT "Audio file 1 opening error.": END
  53.     LENa = _CEIL(_SNDLEN(a)) + EchoLenght
  54.     PRINT "Audio file lenght:"; LENa
  55.     NewTrackTime = LENa
  56.  
  57.  
  58.  
  59.  
  60.     Left = _MEMSOUND(a, 1)
  61.     Right = _MEMSOUND(a, 2)
  62.  
  63.     NewSoundSize& = _SNDRATE * NewTrackTime * 2 * 2 'use stereo  + use INTEGER
  64.     NewSound = _MEMNEW(NewSoundSize&)
  65.  
  66.     PRINT "SndRate:"; _SNDRATE
  67.     PRINT "Track memory len:"; Left.SIZE
  68.     PRINT "Creating audio..."
  69.  
  70.     VolDown = 1 / OverSampling
  71.     Create& = 0
  72.     NewAudio& = 0
  73.     DO UNTIL Create& >= Left.SIZE - 2
  74.         _MEMGET Left, Left.OFFSET + Create&, Audio
  75.         _MEMGET Right, Right.OFFSET + Create&, Audio2
  76.  
  77.         IF Create& > Echo& THEN
  78.  
  79.             E& = Create&
  80.             Vol = 1
  81.             DO UNTIL E& <= Create& - OverSampling
  82.                 Vol = Vol - VolDown
  83.                 _MEMGET Left, Left.OFFSET + Create& - Echo&, Audio3
  84.                 _MEMGET Left, Left.OFFSET + Create& - 2, Audio4
  85.                 Audio = (Audio + Audio3 * (Vol + .01) + Audio4 * Vol) \ 3
  86.                 E& = E& - 2
  87.             LOOP
  88.  
  89.             E& = Create&
  90.             Vol = 1
  91.             DO UNTIL E& <= Create& - OverSampling
  92.                 Vol = Vol - VolDown
  93.                 _MEMGET Right, Right.OFFSET + Create& - Echo&, Audio3
  94.                 _MEMGET Right, Right.OFFSET + Create& - 2, Audio4
  95.                 Audio2 = (Audio2 + Audio3 * (Vol + .01) + Audio4 * Vol) \ 3
  96.                 E& = E& - 2
  97.             LOOP
  98.         END IF
  99.  
  100.         _MEMPUT NewSound, NewSound.OFFSET + NewAudio&, Audio 'left channel
  101.         _MEMPUT NewSound, NewSound.OFFSET + NewAudio& + 2, Audio2 'right channel
  102.         NewAudio& = NewAudio& + 4
  103.         Create& = Create& + 2
  104.     LOOP
  105.  
  106.     PRINT "New sound created. Saving as Tracks-mix4.wav..."
  107.     SAVESOUND16S NewSound, "Tracks-mix4.wav"
  108.     PRINT "Sound saved, erasing RAM..."
  109.     _MEMFREE Left
  110.     _MEMFREE Right
  111.     _MEMFREE NewSound
  112.  
  113.     PRINT "Playing mixed sound"
  114.     _SNDCLOSE a
  115.     a = 0
  116.     snd2 = _SNDOPEN("tracks-mix4.wav")
  117.     PRINT _SNDLEN(snd2), snd2
  118.     SLEEP
  119.     _SNDPLAY snd2
  120.     DO UNTIL _SNDPLAYING(snd2) = 0
  121.         LOCATE 12
  122.         PRINT _SNDGETPOS(snd2), _SNDLEN(snd2)
  123.     LOOP
  124.     CLS
  125.     _SNDCLOSE snd2
  126.     '    KILL "tracks-mix4.wav"
  128.  
  130.  
  131.  
  132. FUNCTION OFFSETasI64&& (OffsetVal AS _OFFSET) 'convert OFFSET value to _INTEGER64 value -> 8 byte lenght to 8 byte lenght
  133.     DIM o AS _INTEGER64, mo AS _MEM
  134.     mo = _MEM(o)
  135.     _MEMPUT mo, mo.OFFSET, OffsetVal
  136.     _MEMFREE mo
  137.     OFFSETasI64&& = o
  139.  
  140.  
  141. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  142.  
  143.     TYPE head16
  144.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  145.         size AS LONG '              4 bytes  (file size)
  146.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  147.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  148.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  149.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  150.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  151.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  152.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  153.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  154.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  155.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  156.         lenght AS LONG '            4 bytes  Data block size
  157.     END TYPE '                     44 bytes  total
  158.     DIM H16 AS head16
  159.     ch = FREEFILE
  160.  
  161.     H16.chunk = "RIFF"
  162.     H16.size = 44 + OFFSETasI64(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  163.  
  164.     H16.fomat = "WAVE"
  165.     H16.sub1 = "fmt "
  166.     H16.subchunksize = 16
  167.     H16.format = 1
  168.     H16.channels = 2
  169.     H16.rate = 44100
  170.     H16.ByteRate = 44100 * 2 * 16 / 8
  171.     H16.Block = 4
  172.     H16.Bits = 16
  173.     H16.subchunk2 = "data"
  174.     H16.lenght = OFFSETasI64(arr.SIZE) - 2 '  <---------------------- THIS IS THE PROBLEM. Without -2 works in 64 bit, with -2 works under 32 bit.
  175.     IF _FILEEXISTS(file$) THEN KILL file$
  176.  
  177.     Audio$ = SPACE$(OFFSETasI64(arr.SIZE))
  178.     _MEMGET arr, arr.OFFSET, Audio$
  179.  
  180.     OPEN file$ FOR BINARY AS #ch
  181.     PUT #ch, , H16
  182.     PUT #ch, , Audio$
  183.     Audio$ = ""
  184.  
  185.     CLOSE ch
  187.  
  188. SUB GetFileList (SearchDirectory AS STRING, DirList() AS STRING, FileList() AS STRING)
  189.     CONST IS_DIR = 1
  190.     CONST IS_FILE = 2
  191.     DIM flags AS LONG, file_size AS LONG
  192.  
  193.     REDIM _PRESERVE DirList(100), FileList(100)
  194.     DirCount = 0: FileCount = 0
  195.  
  196.     IF load_dir(SearchDirectory) THEN
  197.         DO
  198.             length = has_next_entry
  199.             IF length > -1 THEN
  200.                 nam$ = SPACE$(length)
  201.                 get_next_entry nam$, flags, file_size
  202.                 IF (flags AND IS_DIR) OR _DIREXISTS(SearchDirectory + nam$) THEN
  203.                     DirCount = DirCount + 1
  204.                     IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
  205.                     DirList(DirCount) = nam$
  206.                 ELSEIF (flags AND IS_FILE) OR _FILEEXISTS(SearchDirectory + nam$) THEN
  207.                     FileCount = FileCount + 1
  208.                     IF FileCount > UBOUND(filelist) THEN REDIM _PRESERVE FileList(UBOUND(filelist) + 100)
  209.                     FileList(FileCount) = nam$
  210.                 END IF
  211.             END IF
  212.         LOOP UNTIL length = -1
  213.         close_dir
  214.     ELSE
  215.     END IF
  216.     REDIM _PRESERVE DirList(DirCount)
  217.     REDIM _PRESERVE FileList(FileCount)
  219.  


now do the same bug in 64 bit version as in previous case previous code in 32 bit! So something in 32 bit ide is shifted by 2 bytes down in 32 bit ide or is something shifted by 2 byte up in 64 bit version?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 04, 2021, 11:53:20 am
Offset sizes are different depending on the platform. It could be that.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: SMcNeill on January 04, 2021, 01:15:52 pm
Code: QB64: [Select]
  3. m = _MEM(x)
  4. PRINT m.OFFSET
  5. PRINT ConvertOffset(m.OFFSET)
  6.  
  7.  
  8. FUNCTION ConvertOffset&& (value AS _OFFSET)
  10. DIM m AS _MEM 'Define a memblock
  11. m = _MEM(value) 'Point it to use value
  12. $IF 64BIT THEN
  13.     'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
  14.     _MEMGET m, m.OFFSET, ConvertOffset&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
  16.     'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
  17.     _MEMGET m, m.OFFSET, temp& 'Like this
  18.     ConvertOffset&& = temp& 'And then assign that long value to ConvertOffset&&
  20. _MEMFREE m 'Free the memblock
  23.  
  24.  

See the difference in the offset convertor above, and yours.  I imagine there’s your issue (4 vs 8 bytes).
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 01:53:42 pm
Thank you, Steve. This solved all. Now all works under all versions.

You can test it with this new effect, named as "When you shoot a turntable"

Code: QB64: [Select]
  1. 'program create speed - up track and then play it
  2. INPUT "Insert sound file name:", snd$
  3. DIM Left AS _MEM
  4. DIM Right AS _MEM
  5. DIM NewTrack AS _MEM
  7. DIM SL AS LONG, SR AS LONG
  8.  
  9. snd = _SNDOPEN(snd$)
  10. Left = _MEMSOUND(snd, 1)
  11. Right = _MEMSOUND(snd, 2)
  12. IF Right.SIZE = 0 THEN PRINT "Program need stereo track!": END
  13. NewTrack = _MEMNEW(Left.SIZE * 2)
  14. R = 0
  15. DO UNTIL p& >= Left.SIZE - R
  16.     IF p& MOD 88200 = 0 THEN R = R + 2
  17.     IF p& + R > Left.SIZE THEN EXIT DO
  18.     SL = 0
  19.     SR = 0
  20.     FOR SLUC = 1 TO R
  21.         _MEMGET Left, Left.OFFSET + p& + R, S
  22.         SL = SL + S
  23.         _MEMGET Right, Right.OFFSET + p& + R, S
  24.         SR = SR + S
  25.     NEXT SLUC
  26.  
  27.     SL = SL \ R
  28.     SR = SR \ R
  29.     _MEMPUT NewTrack, NewTrack.OFFSET + i&, SL
  30.     _MEMPUT NewTrack, NewTrack.OFFSET + i& + 2, SR
  31.  
  32.     p& = p& + R
  33.     i& = i& + 4
  35.  
  36. SAVESOUND16S NewTrack, "eff2.wav"
  37. _SNDPLAYFILE ("eff2.wav")
  38.  
  39.  
  40. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  41.  
  42.     TYPE head16
  43.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  44.         size AS LONG '              4 bytes  (file size)
  45.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  46.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  47.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  48.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  49.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  50.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  51.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  52.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  53.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  54.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  55.         lenght AS LONG '            4 bytes  Data block size
  56.     END TYPE '                     44 bytes  total
  57.     DIM H16 AS head16
  58.     ch = FREEFILE
  59.  
  60.     H16.chunk = "RIFF"
  61.     H16.size = 44 + ConvertOffset&&(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  62.  
  63.     H16.fomat = "WAVE"
  64.     H16.sub1 = "fmt "
  65.     H16.subchunksize = 16
  66.     H16.format = 1
  67.     H16.channels = 2
  68.     H16.rate = 44100
  69.     H16.ByteRate = 44100 * 2 * 16 / 8
  70.     H16.Block = 4
  71.     H16.Bits = 16
  72.     H16.subchunk2 = "data"
  73.     '  $IF 32BIT THEN
  74.     '      H16.lenght = ConvertOffset&&(arr.SIZE) - 2
  75.     '  $ELSE
  76.     H16.lenght = ConvertOffset&&(arr.SIZE)
  77.     ' $END IF
  78.     IF _FILEEXISTS(file$) THEN KILL file$
  79.  
  80.     Audio$ = SPACE$(ConvertOffset&&(arr.SIZE))
  81.     _MEMGET arr, arr.OFFSET, Audio$
  82.  
  83.     OPEN file$ FOR BINARY AS #ch
  84.     PUT #ch, , H16
  85.     PUT #ch, , Audio$
  86.     Audio$ = ""
  87.  
  88.     CLOSE ch
  90.  
  91.  
  92.  
  93. FUNCTION ConvertOffset&& (value AS _OFFSET)
  95.     DIM m AS _MEM 'Define a memblock
  96.     m = _MEM(value) 'Point it to use value
  97.     $IF 64BIT THEN
  98.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
  99.         _MEMGET m, m.OFFSET, ConvertOffset&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
  100.     $ELSE
  101.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
  102.         _MEMGET m, m.OFFSET, temp& 'Like this
  103.         ConvertOffset&& = temp& 'And then assign that long value to ConvertOffset&&
  104.     $END IF
  105.     _MEMFREE m 'Free the memblock
  108.  

a little better version:

Code: QB64: [Select]
  1. 'program create speed - up track and then play it
  2. INPUT "Insert sound file name:", snd$
  3. DIM Left AS _MEM
  4. DIM Right AS _MEM
  5. DIM NewTrack AS _MEM
  7. DIM SL AS LONG, SR AS LONG
  8.  
  9. snd = _SNDOPEN(snd$)
  10. Left = _MEMSOUND(snd, 1)
  11. Right = _MEMSOUND(snd, 2)
  12. IF Right.SIZE = 0 THEN PRINT "Program need stereo track!": END
  13. NewTrack = _MEMNEW(Left.SIZE)
  14. R = 0
  15. DO UNTIL p& >= Left.SIZE - R
  16.     IF i& \ 4 MOD 88200 = 0 THEN R = R + 2
  17.     IF p& + R > Left.SIZE THEN EXIT DO
  18.     SL = 0
  19.     SR = 0
  20.     FOR SLUC = 1 TO R
  21.         _MEMGET Left, Left.OFFSET + p& + R, S
  22.         SL = SL + S
  23.         _MEMGET Right, Right.OFFSET + p& + R, S
  24.         SR = SR + S
  25.     NEXT SLUC
  26.  
  27.     SL = SL \ R
  28.     SR = SR \ R
  29.     _MEMPUT NewTrack, NewTrack.OFFSET + i&, SL
  30.     _MEMPUT NewTrack, NewTrack.OFFSET + i& + 2, SR
  31.  
  32.     p& = p& + R
  33.     i& = i& + 4
  35.  
  36. 'DO UNTIL S = 0
  37.  
  38.  
  39. SAVESOUND16S NewTrack, "eff2.wav"
  40. _SNDPLAYFILE ("eff2.wav")
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  52.  
  53.     TYPE head16
  54.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  55.         size AS LONG '              4 bytes  (file size)
  56.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  57.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  58.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  59.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  60.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  61.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  62.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  63.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  64.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  65.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  66.         lenght AS LONG '            4 bytes  Data block size
  67.     END TYPE '                     44 bytes  total
  68.     DIM H16 AS head16
  69.     ch = FREEFILE
  70.  
  71.     H16.chunk = "RIFF"
  72.     H16.size = 44 + ConvertOffset&&(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  73.  
  74.     H16.fomat = "WAVE"
  75.     H16.sub1 = "fmt "
  76.     H16.subchunksize = 16
  77.     H16.format = 1
  78.     H16.channels = 2
  79.     H16.rate = 44100
  80.     H16.ByteRate = 44100 * 2 * 16 / 8
  81.     H16.Block = 4
  82.     H16.Bits = 16
  83.     H16.subchunk2 = "data"
  84.     '  $IF 32BIT THEN
  85.     '      H16.lenght = ConvertOffset&&(arr.SIZE) - 2
  86.     '  $ELSE
  87.     H16.lenght = ConvertOffset&&(arr.SIZE)
  88.     ' $END IF
  89.     IF _FILEEXISTS(file$) THEN KILL file$
  90.  
  91.     Audio$ = SPACE$(ConvertOffset&&(arr.SIZE))
  92.     _MEMGET arr, arr.OFFSET, Audio$
  93.  
  94.     OPEN file$ FOR BINARY AS #ch
  95.     PUT #ch, , H16
  96.     PUT #ch, , Audio$
  97.     Audio$ = ""
  98.  
  99.     CLOSE ch
  101.  
  102.  
  103.  
  104. FUNCTION ConvertOffset&& (value AS _OFFSET)
  106.     DIM m AS _MEM 'Define a memblock
  107.     m = _MEM(value) 'Point it to use value
  108.     $IF 64BIT THEN
  109.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
  110.         _MEMGET m, m.OFFSET, ConvertOffset&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
  111.     $ELSE
  112.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
  113.         _MEMGET m, m.OFFSET, temp& 'Like this
  114.         ConvertOffset&& = temp& 'And then assign that long value to ConvertOffset&&
  115.     $END IF
  116.     _MEMFREE m 'Free the memblock
  119.  
  120.  
  121.  
  122.  
  123. FUNCTION OFFSETasI64&& (OffsetVal AS _OFFSET) 'convert OFFSET value to _INTEGER64 value -> 8 byte lenght to 8 byte lenght
  124.     DIM o AS _INTEGER64, mo AS _MEM
  125.     mo = _MEM(o)
  126.     _MEMPUT mo, mo.OFFSET, OffsetVal
  127.     _MEMFREE mo
  128.     OFFSETasI64&& = o
  130.  
  131.  

The reverse effect can be achieved by adding more samples between the existing samples (always the mathematical average of two adjacent samples), thus achieving a deceleration effect.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 04, 2021, 02:58:21 pm
But the previous version is too rough. So, here's a way to do it better. The music will gradually speed up. This is done by omitting samples. To make this transition smoother, the transition is always supplemented by one sample to the place where the samples were omitted.
The more samples you insert, the more you slow down the acceleration and smooth the transition.

Code: QB64: [Select]
  1. 'speed - up track and then play it
  2. INPUT "Insert sound file name:", snd$
  3. DIM Left AS _MEM
  4. DIM Right AS _MEM
  5. DIM NewTrack AS _MEM
  8.  
  9. snd = _SNDOPEN(snd$)
  10. Left = _MEMSOUND(snd, 1)
  11. Right = _MEMSOUND(snd, 2)
  12. IF Right.SIZE = 0 THEN PRINT "Program need stereo track!": END
  13. NewTrack = _MEMNEW(Left.SIZE * 2)
  14. R = 0
  15. DO UNTIL p& >= Left.SIZE
  16.     IF p& MOD 22050 = 0 THEN
  17.         skip& = skip& + 10: p& = p& + skip& 'speed up by 10 samples per half second.  This is linear, but it can be exponencial...
  18.         OSL = SL
  19.         OSR = SR
  20.         IF p& > Left.SIZE - 2 THEN EXIT DO
  21.         _MEMGET Left, Left.OFFSET + p&, SL
  22.         _MEMGET Right, Right.OFFSET + p&, SR
  23.         SL = (OSL + SL) \ 2
  24.         SR = (OSR + SR) \ 2
  25.         _MEMPUT NewTrack, NewTrack.OFFSET + i&, SL
  26.         _MEMPUT NewTrack, NewTrack.OFFSET + i& + 2, SR
  27.         i& = i& + 4
  28.     ELSE p& = p& + 2 'all this values must be dividible by two (integer)
  29.     END IF
  30.     IF p& > Left.SIZE - 2 THEN EXIT DO
  31.     _MEMGET Left, Left.OFFSET + p&, SL
  32.     _MEMGET Right, Right.OFFSET + p&, SR
  33.     _MEMPUT NewTrack, NewTrack.OFFSET + i&, SL
  34.     _MEMPUT NewTrack, NewTrack.OFFSET + i& + 2, SR
  35.     i& = i& + 4
  37.  
  38. SAVESOUND16S NewTrack, "eff2.wav"
  39. _SNDPLAYFILE ("eff2.wav")
  40.  
  41.  
  42. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  43.     TYPE head16
  44.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  45.         size AS LONG '              4 bytes  (file size)
  46.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  47.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  48.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  49.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  50.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  51.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  52.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  53.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  54.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  55.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  56.         lenght AS LONG '            4 bytes  Data block size
  57.     END TYPE '                     44 bytes  total
  58.     DIM H16 AS head16
  59.     ch = FREEFILE
  60.  
  61.     H16.chunk = "RIFF"
  62.     H16.size = 44 + ConvertOffset&&(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  63.  
  64.     H16.fomat = "WAVE"
  65.     H16.sub1 = "fmt "
  66.     H16.subchunksize = 16
  67.     H16.format = 1
  68.     H16.channels = 2
  69.     H16.rate = 44100
  70.     H16.ByteRate = 44100 * 2 * 16 / 8
  71.     H16.Block = 4
  72.     H16.Bits = 16
  73.     H16.subchunk2 = "data"
  74.     H16.lenght = ConvertOffset&&(arr.SIZE)
  75.     IF _FILEEXISTS(file$) THEN KILL file$
  76.     Audio$ = SPACE$(ConvertOffset&&(arr.SIZE))
  77.     _MEMGET arr, arr.OFFSET, Audio$
  78.     OPEN file$ FOR BINARY AS #ch
  79.     PUT #ch, , H16
  80.     PUT #ch, , Audio$
  81.     Audio$ = ""
  82.     CLOSE ch
  84.  
  85.  
  86.  
  87. FUNCTION ConvertOffset&& (value AS _OFFSET)
  89.     DIM m AS _MEM 'Define a memblock
  90.     m = _MEM(value) 'Point it to use value
  91.     $IF 64BIT THEN
  92.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
  93.         _MEMGET m, m.OFFSET, ConvertOffset&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
  94.     $ELSE
  95.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
  96.         _MEMGET m, m.OFFSET, temp& 'Like this
  97.         ConvertOffset&& = temp& 'And then assign that long value to ConvertOffset&&
  98.     $END IF
  99.     _MEMFREE m 'Free the memblock
  102.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 05, 2021, 01:37:14 pm
Next example. Sound "ping - pong". Take two different songs (to make the effect stand out more) and have the sound sent from the right speaker to the left, with the second song going opposite. Sound position is changed continuously during playback. It's best to listening it on headphones.

Code: QB64: [Select]
  1. DIM left AS _MEM
  2. DIM Right AS _MEM
  3. DIM AudioL AS INTEGER
  4. DIM AudioR AS INTEGER
  7. DIM NewSound AS _MEM
  9. _TITLE "Sound ping - pong"
  10. INPUT "Insert music file name"; snd$
  11. INPUT "Insert music file name2"; snd2$
  12.  
  14.     snd = _SNDOPEN(snd$)
  15.     PRINT "File 1 opened"
  16.     snd2 = _SNDOPEN(snd2$)
  17.     PRINT "File 2 opened"
  18.  
  19.     left = _MEMSOUND(snd, 1)
  20.     Right = _MEMSOUND(snd2, 1)
  21.     IF Right.SIZE > left.SIZE THEN Size = left.SIZE ELSE Size = Right.SIZE
  22.     PRINT "Size: "; Size
  23.     NewSound = _MEMNEW(Size * 2)
  24.     DO UNTIL s& = Size
  25.         _MEMGET left, left.OFFSET + s&, AudioL
  26.         _MEMGET Right, Right.OFFSET + s&, AudioR
  27.         L = (AudioL * ABS(SIN(sinus)) + AudioR * ABS(COS(sinus2))) / 2
  28.         R = (AudioR * ABS(SIN(sinus2)) + AudioL * ABS(COS(sinus))) / 2
  29.         _MEMPUT NewSound, NewSound.OFFSET + t&, L
  30.         _MEMPUT NewSound, NewSound.OFFSET + t& + 2, R
  31.         sinus = sinus + .00001
  32.         sinus2 = sinus + _PI
  33.         s& = s& + 2
  34.         t& = t& + 4
  35.     LOOP
  37.     PRINT "Some file not exists."
  38.     END
  40. PRINT "Saving WAV"
  41. SAVESOUND16S NewSound, "TestEff3.wav"
  42. PRINT "Playing"
  43. _SNDPLAYFILE "TestEff3.wav"
  47. _MEMFREE Right
  48. _MEMFREE NewSound
  50.  
  51.  
  52.  
  53. SUB SAVESOUND16S (arr AS _MEM, file AS STRING)
  54.  
  55.     TYPE head16
  56.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  57.         size AS LONG '              4 bytes  (file size)
  58.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  59.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  60.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  61.         format AS INTEGER '         2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  62.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  63.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  64.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  65.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  66.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  67.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  68.         lenght AS LONG '            4 bytes  Data block size
  69.     END TYPE '                     44 bytes  total
  70.     DIM H16 AS head16
  71.     ch = FREEFILE
  72.  
  73.     H16.chunk = "RIFF"
  74.     H16.size = 44 + ConvertOffset&&(arr.SIZE) / _SNDRATE / 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
  75.     H16.fomat = "WAVE"
  76.     H16.sub1 = "fmt "
  77.     H16.subchunksize = 16
  78.     H16.format = 1
  79.     H16.channels = 2
  80.     H16.rate = 44100
  81.     H16.ByteRate = 44100 * 2 * 16 / 8
  82.     H16.Block = 4
  83.     H16.Bits = 16
  84.     H16.subchunk2 = "data"
  85.     H16.lenght = ConvertOffset&&(arr.SIZE)
  86.     ' $END IF
  87.     IF _FILEEXISTS(file$) THEN KILL file$
  88.     Audio$ = SPACE$(ConvertOffset&&(arr.SIZE))
  89.     _MEMGET arr, arr.OFFSET, Audio$
  90.     OPEN file$ FOR BINARY AS #ch
  91.     PUT #ch, , H16
  92.     PUT #ch, , Audio$
  93.     Audio$ = ""
  94.     CLOSE ch
  96.  
  97.  
  98.  
  99. FUNCTION ConvertOffset&& (value AS _OFFSET)
  101.     DIM m AS _MEM 'Define a memblock
  102.     m = _MEM(value) 'Point it to use value
  103.     $IF 64BIT THEN
  104.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
  105.         _MEMGET m, m.OFFSET, ConvertOffset&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
  106.     $ELSE
  107.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
  108.         _MEMGET m, m.OFFSET, temp& 'Like this
  109.         ConvertOffset&& = temp& 'And then assign that long value to ConvertOffset&&
  110.     $END IF
  111.     _MEMFREE m 'Free the memblock
  114.  
  115.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 14, 2021, 03:31:35 pm
I will return to the beginning of this thread with a few questions to @STxAxTIC

I implanted your frequency acquisition program. Finally. It seems to work perfectly. The only thing I need to clarify: The resulting frequency in your second example is given by the number of samples analyzed. It is so? Therefore, a small number of samples is sufficient to obtain low frequencies. In your example, these are pixels, my solution is _SNDGETPOS - 300 TO _SNDGETPOS + 300. This way I get 600 audio samples, that's enough to get low frequencies. But if I wanted a frequency of 20 KHz, I would need to analyze the whole second (44100 samples for precise detection). Am I getting it right, or am I completely out of it again?

Wait. What I'm writing is nonsense. After all, a high frequency can be interspersed several times, even in a small number of samples. So it will be possible to construct the frequency detection as an average in six hundred samples. This is an imperceptible moment to the ear (0.014 seconds) but is enough to detect the frequency. Then it can be argued that the average frequency in a 0.014 second sample has some value. This will be the right solution, right?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 15, 2021, 03:58:47 pm
Hi. Here is a little work with _MEMSOUND, the movement of the stars in the background is the output of the implanted program from @STxAxTIC

Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 15, 2021, 03:59:57 pm
Whooooooa that's so cool!
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: STxAxTIC on January 15, 2021, 04:11:27 pm
@Petr  - this is just great!

I ran into a few - what I will call "windowing" problems with the frequency measurement code, so I will shortly dust off my latest copy and show where I left off. There is still something to fix - but we're *almost* there on a solution for reliably getting frequencies... I'll return to this as soon as I can.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: _vince on January 15, 2021, 08:02:57 pm
Quote from: Dav on January 02, 2021, 10:34:19 pm
This all sounds very interesting!   Could something like this be used to analyze a played pitch and see if it's in tune?  Like frequency 440 Hz is the note A.    I tune pianos on the side, wonder if it would be possible to make a piano tuning app in QB64?

- Dav

if you know the sampling frequency, ie
Code: QB64: [Select]
  1. 'defdbl a-z
  2.  
  3. CONST sw = 1024
  4. CONST sh = 600
  5.  
  7. 'pi = 2*asin(1)
  8. pi = 4*ATN(1)
  9.  
  10. DECLARE SUB rfft(xx_r(), xx_i(), x_r(), n)
  11.  
  12. DIM x_r(sw-1), x_i(sw-1)
  13. DIM xx_r(sw-1), xx_i(sw-1)
  15.  
  16. FOR i=0 TO sw-1
  17.         x_r(i) = 100*SIN(2*pi*(sw*2000/44000)*i/sw) + (100*RND - 50)
  19.  
  20.  
  21. 'screenres sw, sh, 32
  22. SCREEN _NEWIMAGE(sw, sh, 32)
  23.  
  24. 'plot signal
  25. PSET (0, sh/4 - x_r(0))
  26. FOR i=0 TO sw-1
  27.         LINE -(i, sh/4 - x_r(i)), _RGB(255,0,0)
  29. LINE (0, sh/4)-STEP(sw,0), _RGB(255,0,0),,&h5555
  30.  
  31. _PRINTSTRING (0, 0), "2000 Hz signal with RND noise sampled at 44 kHz in 1024 samples"
  32.  
  33.  
  34. rfft xx_r(), xx_i(), x_r(), sw
  35.  
  36. 'plot its fft
  37. PSET (0, 50+3*sh/4 - 0.005*SQR(xx_r(0)*xx_r(0) + xx_i(0)*xx_i(0)) ), _RGB(255,255,0)
  38. FOR i=0 TO sw/2
  39.         LINE -(i*2, 50+3*sh/4 - 0.005*SQR(xx_r(i)*xx_r(i) + xx_i(i)*xx_i(i)) ), _RGB(255,255,0)
  41. LINE (0, 50+3*sh/4)-STEP(sw,0), _RGB(255,255,0),,&h5555
  42.  
  43.  
  44. 'find peak
  46. max = 0
  47. m = 0
  48. FOR i=0 TO sw/2
  49.         d = 0.01*SQR(xx_r(i)*xx_r(i) + xx_i(i)*xx_i(i))
  50.         IF d > max THEN
  51.                 max = d
  52.                 m = i
  53.         END IF
  55.  
  56. _PRINTSTRING (0, sh/2), "m_peak ="+STR$(m)
  57. _PRINTSTRING (0, sh/2 + 16), "f_peak = m_peak * 44 kHz / 1024 samples = "+STR$(m*44000/1024)+" Hz"
  58.  
  59. 'apply frequency correction, only works for some signals
  61. DIM u_r AS DOUBLE, u_i AS DOUBLE
  62. DIM v_r AS DOUBLE, v_i AS DOUBLE
  63.  
  64. u_r = xx_r(m - 1) - xx_r(m + 1)
  65. u_i = xx_i(m - 1) - xx_i(m + 1)
  66. v_r = 2*xx_r(m) - xx_r(m - 1) - xx_r(m + 1)
  67. v_i = 2*xx_i(m) - xx_i(m - 1) - xx_i(m + 1)
  68. c = (u_r*v_r + u_i*v_i)/(v_r*v_r + v_i*v_i)
  69.  
  70. _PRINTSTRING (0, sh/2 + 2*16), "f_corrected = "+STR$((m+c)*44000/1024)+" Hz"
  71.  
  74.  
  75.  
  76. SUB rfft(xx_r(), xx_i(), x_r(), n)
  77.         DIM w_r AS DOUBLE, w_i AS DOUBLE, wm_r AS DOUBLE, wm_i AS DOUBLE
  78.         DIM u_r AS DOUBLE, u_i AS DOUBLE, v_r AS DOUBLE, v_i AS DOUBLE
  79.  
  80.         log2n = LOG(n/2)/LOG(2)
  81.  
  82.         FOR i=0 TO n/2 - 1
  83.                 rev = 0
  84.                 FOR j=0 TO log2n - 1
  85.                         IF i AND (2^j) THEN rev = rev + (2^(log2n - 1 - j))
  86.                 NEXT
  87.  
  88.                 xx_r(i) = x_r(2*rev)
  89.                 xx_i(i) = x_r(2*rev + 1)
  90.         NEXT
  91.  
  92.         FOR i=1 TO log2n
  93.                 m = 2^i
  94.                 wm_r = COS(-2*pi/m)
  95.                 wm_i = SIN(-2*pi/m)
  96.  
  97.                 FOR j=0 TO n/2 - 1 STEP m
  98.                         w_r = 1
  99.                         w_i = 0
  100.  
  101.                         FOR k=0 TO m/2 - 1
  102.                                 p = j + k
  103.                                 q = p + (m \ 2)
  104.  
  105.                                 u_r = w_r*xx_r(q) - w_i*xx_i(q)
  106.                                 u_i = w_r*xx_i(q) + w_i*xx_r(q)
  107.                                 v_r = xx_r(p)
  108.                                 v_i = xx_i(p)
  109.  
  110.                                 xx_r(p) = v_r + u_r
  111.                                 xx_i(p) = v_i + u_i
  112.                                 xx_r(q) = v_r - u_r
  113.                                 xx_i(q) = v_i - u_i
  114.  
  115.                                 u_r = w_r
  116.                                 u_i = w_i
  117.                                 w_r = u_r*wm_r - u_i*wm_i
  118.                                 w_i = u_r*wm_i + u_i*wm_r
  119.                         NEXT
  120.                 NEXT
  121.         NEXT
  122.  
  123.         xx_r(n/2) = xx_r(0)
  124.         xx_i(n/2) = xx_i(0)
  125.  
  126.         FOR i=1 TO n/2 - 1
  127.                 xx_r(n/2 + i) = xx_r(n/2 - i)
  128.                 xx_i(n/2 + i) = xx_i(n/2 - i)
  129.         NEXT
  130.  
  131.         DIM xpr AS DOUBLE, xpi AS DOUBLE
  132.         DIM xmr AS DOUBLE, xmi AS DOUBLE
  133.  
  134.         FOR i=0 TO n/2 - 1
  135.                 xpr = (xx_r(i) + xx_r(n/2 + i)) / 2
  136.                 xpi = (xx_i(i) + xx_i(n/2 + i)) / 2
  137.  
  138.                 xmr = (xx_r(i) - xx_r(n/2 + i)) / 2
  139.                 xmi = (xx_i(i) - xx_i(n/2 + i)) / 2
  140.  
  141.                 xx_r(i) = xpr + xpi*COS(2*pi*i/n) - xmr*SIN(2*pi*i/n)
  142.                 xx_i(i) = xmi - xpi*SIN(2*pi*i/n) - xmr*COS(2*pi*i/n)
  143.         NEXT
  144.  
  145.         'symmetry, complex conj
  146.         FOR i=0 TO n/2 - 1
  147.                 xx_r(n/2 + i) = xx_r(n/2 - 1 - i)
  148.                 xx_i(n/2 + i) =-xx_i(n/2 - 1 - i)
  149.         NEXT
  151.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 16, 2021, 03:29:11 am
Thank you @_vince ! I try apply it to real audio signal and then give here my outputs.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 16, 2021, 04:26:28 am
@_vince Please look to my modification your code, if it is modfified correctly? Use some MP3 file.

I am not sure on row 101 in this source code, if can it be with _CONTINUE, if m = 0.

Thank you.


Code: QB64: [Select]
  1. 'defdbl a-z
  2.  
  3. CONST sw = 1024
  4. CONST sh = 600
  5.  
  6.  
  7. '''
  8. DIM Left AS _MEM
  10. '''
  11.  
  13. 'pi = 2*asin(1)
  14. pi = 4 * ATN(1)
  15.  
  16. DECLARE SUB rfft(xx_r(), xx_i(), x_r(), n)
  17.  
  18. DIM x_r(sw - 1), x_i(sw - 1)
  19. DIM xx_r(sw - 1), xx_i(sw - 1)
  21.  
  22. '''
  23. AudioFile$ = "Track10.mp3"
  24. S = _SNDOPEN(AudioFile$)
  25. Left = _MEMSOUND(S, 1)
  27. '''
  28. SCREEN _NEWIMAGE(sw, sh, 32)
  29.  
  30.  
  31. '''
  33.     i = 0: j = 0
  34.     Position& = _SNDGETPOS(S) * _SNDRATE
  35.     IF Position& > 1024 AND Position& < Left.SIZE - 1024 THEN 'current (actual playing) sound frame is in middle - in position Position&
  36.         j& = Position& - 1022
  37.         DO UNTIL i = 1024
  38.  
  39.             x_r(i) = 100 * (_MEMGET(Left, Left.OFFSET + j&, INTEGER) / 32767)
  40.             i = i + 1
  41.             j& = j& + 2
  42.         LOOP
  43.         test& = j& - Position&
  44.  
  45.     END IF
  46.  
  47.     'FOR i = 0 TO sw - 1
  48.     'x_r(i) = 100 * SIN(2 * pi * (sw * 20000 / 44000) * i / sw) + (100 * RND - 50)
  49.     'NEXT
  50.  
  51.     i = 0
  52.     j = 0
  53.     '''
  54.  
  55.  
  56.  
  57.     'screenres sw, sh, 32
  58.     'SCREEN _NEWIMAGE(sw, sh, 32)
  59.  
  60.     'plot signal
  61.     CLS
  62.     PSET (0, sh / 4 - x_r(0))
  63.     FOR i = 0 TO sw - 1
  64.         LINE -(i, sh / 4 - x_r(i)), _RGB(255, 0, 0)
  65.     NEXT
  66.     LINE (0, sh / 4)-STEP(sw, 0), _RGB(255, 0, 0), , &H5555
  67.  
  68.     ' _PRINTSTRING (0, 0), "2000 Hz signal with RND noise sampled at 44 kHz in 1024 samples"
  69.  
  70.  
  71.     rfft xx_r(), xx_i(), x_r(), sw
  72.  
  73.     'plot its fft
  74.     PSET (0, 50 + 3 * sh / 4 - 0.005 * SQR(xx_r(0) * xx_r(0) + xx_i(0) * xx_i(0))), _RGB(255, 255, 0)
  75.     FOR i = 0 TO sw / 2
  76.         LINE -(i * 2, 50 + 3 * sh / 4 - 0.005 * SQR(xx_r(i) * xx_r(i) + xx_i(i) * xx_i(i))), _RGB(255, 255, 0)
  77.     NEXT
  78.     LINE (0, 50 + 3 * sh / 4)-STEP(sw, 0), _RGB(255, 255, 0), , &H5555
  79.  
  80.  
  81.     'find peak
  82.     DIM max AS DOUBLE, d AS DOUBLE
  83.     max = 0
  84.     m = 0
  85.     FOR i = 0 TO sw / 2
  86.         d = 0.01 * SQR(xx_r(i) * xx_r(i) + xx_i(i) * xx_i(i))
  87.         IF d > max THEN
  88.             max = d
  89.             m = i
  90.         END IF
  91.     NEXT
  92.  
  93.     _PRINTSTRING (0, sh / 2), "m_peak =" + STR$(m)
  94.     _PRINTSTRING (0, sh / 2 + 16), "f_peak = m_peak * 44 kHz / 1024 samples = " + STR$(m * 44000 / 1024) + " Hz"
  95.  
  96.     'apply frequency correction, only works for some signals
  97.     DIM c AS DOUBLE
  98.     DIM u_r AS DOUBLE, u_i AS DOUBLE
  99.     DIM v_r AS DOUBLE, v_i AS DOUBLE
  100.  
  101.     IF m = 0 THEN _CONTINUE 'm = 1
  102.     u_r = xx_r(m - 1) - xx_r(m + 1)
  103.     u_i = xx_i(m - 1) - xx_i(m + 1)
  104.     v_r = 2 * xx_r(m) - xx_r(m - 1) - xx_r(m + 1)
  105.     v_i = 2 * xx_i(m) - xx_i(m - 1) - xx_i(m + 1)
  106.     c = (u_r * v_r + u_i * v_i) / (v_r * v_r + v_i * v_i)
  107.  
  108.     _PRINTSTRING (0, sh / 2 + 2 * 16), "f_corrected = " + STR$((m + c) * 44000 / 1024) + " Hz"
  109.  
  110.     ' SLEEP
  111.     PRINT test&
  112.     _DISPLAY
  113.     _LIMIT 20
  115.  
  117.  
  118.  
  119. SUB rfft (xx_r(), xx_i(), x_r(), n)
  120.     DIM w_r AS DOUBLE, w_i AS DOUBLE, wm_r AS DOUBLE, wm_i AS DOUBLE
  121.     DIM u_r AS DOUBLE, u_i AS DOUBLE, v_r AS DOUBLE, v_i AS DOUBLE
  122.  
  123.     log2n = LOG(n / 2) / LOG(2)
  124.  
  125.     FOR i = 0 TO n / 2 - 1
  126.         rev = 0
  127.         FOR j = 0 TO log2n - 1
  128.             IF i AND (2 ^ j) THEN rev = rev + (2 ^ (log2n - 1 - j))
  129.         NEXT
  130.  
  131.         xx_r(i) = x_r(2 * rev)
  132.         xx_i(i) = x_r(2 * rev + 1)
  133.     NEXT
  134.  
  135.     FOR i = 1 TO log2n
  136.         m = 2 ^ i
  137.         wm_r = COS(-2 * pi / m)
  138.         wm_i = SIN(-2 * pi / m)
  139.  
  140.         FOR j = 0 TO n / 2 - 1 STEP m
  141.             w_r = 1
  142.             w_i = 0
  143.  
  144.             FOR k = 0 TO m / 2 - 1
  145.                 p = j + k
  146.                 q = p + (m \ 2)
  147.  
  148.                 u_r = w_r * xx_r(q) - w_i * xx_i(q)
  149.                 u_i = w_r * xx_i(q) + w_i * xx_r(q)
  150.                 v_r = xx_r(p)
  151.                 v_i = xx_i(p)
  152.  
  153.                 xx_r(p) = v_r + u_r
  154.                 xx_i(p) = v_i + u_i
  155.                 xx_r(q) = v_r - u_r
  156.                 xx_i(q) = v_i - u_i
  157.  
  158.                 u_r = w_r
  159.                 u_i = w_i
  160.                 w_r = u_r * wm_r - u_i * wm_i
  161.                 w_i = u_r * wm_i + u_i * wm_r
  162.             NEXT
  163.         NEXT
  164.     NEXT
  165.  
  166.     xx_r(n / 2) = xx_r(0)
  167.     xx_i(n / 2) = xx_i(0)
  168.  
  169.     FOR i = 1 TO n / 2 - 1
  170.         xx_r(n / 2 + i) = xx_r(n / 2 - i)
  171.         xx_i(n / 2 + i) = xx_i(n / 2 - i)
  172.     NEXT
  173.  
  174.     DIM xpr AS DOUBLE, xpi AS DOUBLE
  175.     DIM xmr AS DOUBLE, xmi AS DOUBLE
  176.  
  177.     FOR i = 0 TO n / 2 - 1
  178.         xpr = (xx_r(i) + xx_r(n / 2 + i)) / 2
  179.         xpi = (xx_i(i) + xx_i(n / 2 + i)) / 2
  180.  
  181.         xmr = (xx_r(i) - xx_r(n / 2 + i)) / 2
  182.         xmi = (xx_i(i) - xx_i(n / 2 + i)) / 2
  183.  
  184.         xx_r(i) = xpr + xpi * COS(2 * pi * i / n) - xmr * SIN(2 * pi * i / n)
  185.         xx_i(i) = xmi - xpi * SIN(2 * pi * i / n) - xmr * COS(2 * pi * i / n)
  186.     NEXT
  187.  
  188.     'symmetry, complex conj
  189.     FOR i = 0 TO n / 2 - 1
  190.         xx_r(n / 2 + i) = xx_r(n / 2 - 1 - i)
  191.         xx_i(n / 2 + i) = -xx_i(n / 2 - 1 - i)
  192.     NEXT
  194.  
  195.  
  196.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 16, 2021, 01:26:41 pm
@_vince  gave us a treasure. By no means do I understand what the hell SUB rfft is doing, but he's doing it damn well and incredibly fast. I sat down and played with it. Now it seems to work the way I wanted. I just had to take the results of the  _Vince program and categorize them. Now I'm going to try to turn this treasure into a SUB so that I just insert the _MEM field and get back a number indicating the frequency.

You can try it. The program includes a graphics analyzer. (on left depth, then next frequencies by the highest on right side). It seems that sometimes when there is a long deep frequency, it does not register a high frequency (cymbals) but it is highly likely that it is my fault.

@_vince, thank you. This took me a long time.

Code: QB64: [Select]
  1. 'defdbl a-z
  2.  
  3. CONST sw = 1024
  4. CONST sh = 600
  5.  
  6.  
  7. '''
  8. DIM Left AS _MEM
  9. DIM Right AS _MEM
  10. DIM Analyzer(8) AS SINGLE
  11. '''
  12.  
  13.  
  15. DIM u_r AS DOUBLE, u_i AS DOUBLE
  16. DIM v_r AS DOUBLE, v_i AS DOUBLE
  17.  
  18.  
  20. 'pi = 2*asin(1)
  21. pi = 4 * ATN(1)
  22.  
  23. DECLARE SUB rfft(xx_r(), xx_i(), x_r(), n)
  24.  
  25. DIM x_r(sw - 1), x_i(sw - 1)
  26. DIM xx_r(sw - 1), xx_i(sw - 1)
  28.  
  29. '''
  30. AudioFile$ = "01.mp3"
  31. S = _SNDOPEN(AudioFile$)
  32. Left = _MEMSOUND(S, 1)
  33. Right = _MEMSOUND(S, 2)
  34.  
  35. '''
  36. SCREEN _NEWIMAGE(sw, sh, 32)
  37.  
  38. TestT = TIMER
  39. '''
  42.     i = 0: j = 0 '                                             reset previous values
  43.     Position& = _SNDGETPOS(S) * _SNDRATE * 2 '                 *2, because sound data are in INTEGER format and INTEGER is always 2 byte long
  44.     IF Position& > 1024 AND Position& < Left.SIZE - 1024 THEN 'current (actual playing) sound frame is in middle - in position Position&
  45.         j& = Position& - 1022
  46.         DO UNTIL i >= 1024
  47.             x_r(i) = 100 * _MEMGET(Left, Left.OFFSET + j&, INTEGER) / 32767
  48.             i = i + 1
  49.             j& = j& + 2
  50.         LOOP
  51.         test& = j& - Position&
  52.     END IF
  53.  
  54.     'FOR i = 0 TO sw - 1
  55.     'x_r(i) = 100 * SIN(2 * pi * (sw * 20000 / 44000) * i / sw) + (100 * RND - 50)      '_Vince's signal generator in original source code
  56.     'NEXT
  57.  
  58.     i = 0
  59.     j& = 0
  60.     '''
  61.  
  62.  
  63.  
  64.     'screenres sw, sh, 32
  65.     'SCREEN _NEWIMAGE(sw, sh, 32)
  66.  
  67.     'plot signal
  68.     CLS
  69.     PSET (0, sh / 4 - x_r(0))
  70.     FOR i = 0 TO sw - 1
  71.         LINE -(i, sh / 4 - x_r(i)), _RGB(255, 0, 0)
  72.     NEXT
  73.     LINE (0, sh / 4)-STEP(sw, 0), _RGB(255, 0, 0), , &H5555
  74.  
  75.     ' _PRINTSTRING (0, 0), "2000 Hz signal with RND noise sampled at 44 kHz in 1024 samples"
  76.  
  77.  
  78.     rfft xx_r(), xx_i(), x_r(), sw
  79.  
  80.     'plot its fft
  81.     PSET (0, 50 + 3 * sh / 4 - 0.005 * SQR(xx_r(0) * xx_r(0) + xx_i(0) * xx_i(0))), _RGB(255, 255, 0)
  82.     FOR i = 0 TO sw / 2
  83.         LINE -(i * 2, 50 + 3 * sh / 4 - 0.005 * SQR(xx_r(i) * xx_r(i) + xx_i(i) * xx_i(i))), _RGB(255, 255, 0)
  84.     NEXT
  85.     LINE (0, 50 + 3 * sh / 4)-STEP(sw, 0), _RGB(255, 255, 0), , &H5555
  86.  
  87.  
  88.     'find peak
  89.     DIM max AS DOUBLE, d AS DOUBLE
  90.     max = 0
  91.     m = 0
  92.     FOR i = 0 TO sw / 2
  93.         d = 0.01 * SQR(xx_r(i) * xx_r(i) + xx_i(i) * xx_i(i))
  94.         IF d > max THEN
  95.             max = d
  96.             m = i
  97.         END IF
  98.     NEXT
  99.  
  100.     _PRINTSTRING (0, sh / 2), "m_peak =" + STR$(m)
  101.     _PRINTSTRING (0, sh / 2 + 16), "f_peak = m_peak * 44 kHz / 1024 samples = " + STR$(m * 44000 / 1024) + " Hz"
  102.  
  103.     'apply frequency correction, only works for some signals
  104.     '   DIM c AS DOUBLE
  105.     '  DIM u_r AS DOUBLE, u_i AS DOUBLE
  106.     ' DIM v_r AS DOUBLE, v_i AS DOUBLE
  107.  
  108.     IF m = 0 THEN _CONTINUE
  109.     u_r = xx_r(m - 1) - xx_r(m + 1)
  110.     u_i = xx_i(m - 1) - xx_i(m + 1)
  111.     v_r = 2 * xx_r(m) - xx_r(m - 1) - xx_r(m + 1)
  112.     v_i = 2 * xx_i(m) - xx_i(m - 1) - xx_i(m + 1)
  113.     c = (u_r * v_r + u_i * v_i) / (v_r * v_r + v_i * v_i)
  114.  
  115.     F = (m + c) * _SNDRATE / 1024 '                                                             1024 = number of samples
  116.     _PRINTSTRING (0, sh / 2 + 2 * 16), "f_corrected = " + STR$(F) '(m + c) * 44000 / 1024) + " Hz"
  117.  
  118.  
  119.     'If signal is contained in some range, add 30 pixels for Y coordinate (analyzer go up, its wroted as bottom - this value)
  120.     SELECT CASE F
  121.         CASE 20 TO 125: Analyzer(1) = Analyzer(1) + 30 'areas set by picture on google...
  122.         CASE 126 TO 300: Analyzer(2) = Analyzer(2) + 30
  123.         CASE 300 TO 500: Analyzer(3) = Analyzer(3) + 30
  124.         CASE 500 TO 1000: Analyzer(4) = Analyzer(4) + 30
  125.         CASE 1001 TO 2000: Analyzer(5) = Analyzer(5) + 30
  126.         CASE 2001 TO 4000: Analyzer(6) = Analyzer(6) + 30
  127.         CASE 4001 TO 8000: Analyzer(7) = Analyzer(7) + 30
  128.         CASE IS > 8001: Analyzer(8) = Analyzer(8) + 30
  129.     END SELECT
  130.  
  131.  
  132.  
  133.     'analyzer overflow control
  134.     FOR analyze = 1 TO 8 '                                    analyze 8 spectrums
  135.         IF Analyzer(analyze) > 150 THEN Analyzer(analyze) = 100
  136.     NEXT
  137.  
  138.     'draw analyzer
  139.     AnC = 0
  140.     FOR AnalyzatorX = 600 TO 670 STEP 10
  141.         AnC = AnC + 1
  142.         FreqHeight = Analyzer(AnC) '                          Y coordinate for drawing frequency analyzer, maximal size is 150 pixels
  143.         LINE (AnalyzatorX - 4, 400)-(AnalyzatorX + 4, 400 - FreqHeight), &HFFAD0000, BF
  144.         IF Analyzer(AnC) > 0 THEN Analyzer(AnC) = Analyzer(AnC) - 1 ' always, if analyzer contains some higher position than bottom, give one pixel out
  145.     NEXT
  146.  
  147.     PRINT Position&, _SNDGETPOS(S) * _SNDRATE
  148.     PRINT TIMER - TestT: TestT = TIMER
  149.     _DISPLAY
  150.     _LIMIT 200
  152.  
  154.  
  155.  
  156. SUB rfft (xx_r(), xx_i(), x_r(), n)
  157.     DIM w_r AS DOUBLE, w_i AS DOUBLE, wm_r AS DOUBLE, wm_i AS DOUBLE
  158.     DIM u_r AS DOUBLE, u_i AS DOUBLE, v_r AS DOUBLE, v_i AS DOUBLE
  159.  
  160.     log2n = LOG(n / 2) / LOG(2)
  161.  
  162.     FOR i = 0 TO n / 2 - 1
  163.         rev = 0
  164.         FOR j = 0 TO log2n - 1
  165.             IF i AND (2 ^ j) THEN rev = rev + (2 ^ (log2n - 1 - j))
  166.         NEXT
  167.  
  168.         xx_r(i) = x_r(2 * rev)
  169.         xx_i(i) = x_r(2 * rev + 1)
  170.     NEXT
  171.  
  172.     FOR i = 1 TO log2n
  173.         m = 2 ^ i
  174.         wm_r = COS(-2 * pi / m)
  175.         wm_i = SIN(-2 * pi / m)
  176.  
  177.         FOR j = 0 TO n / 2 - 1 STEP m
  178.             w_r = 1
  179.             w_i = 0
  180.  
  181.             FOR k = 0 TO m / 2 - 1
  182.                 p = j + k
  183.                 q = p + (m \ 2)
  184.  
  185.                 u_r = w_r * xx_r(q) - w_i * xx_i(q)
  186.                 u_i = w_r * xx_i(q) + w_i * xx_r(q)
  187.                 v_r = xx_r(p)
  188.                 v_i = xx_i(p)
  189.  
  190.                 xx_r(p) = v_r + u_r
  191.                 xx_i(p) = v_i + u_i
  192.                 xx_r(q) = v_r - u_r
  193.                 xx_i(q) = v_i - u_i
  194.  
  195.                 u_r = w_r
  196.                 u_i = w_i
  197.                 w_r = u_r * wm_r - u_i * wm_i
  198.                 w_i = u_r * wm_i + u_i * wm_r
  199.             NEXT
  200.         NEXT
  201.     NEXT
  202.  
  203.     xx_r(n / 2) = xx_r(0)
  204.     xx_i(n / 2) = xx_i(0)
  205.  
  206.     FOR i = 1 TO n / 2 - 1
  207.         xx_r(n / 2 + i) = xx_r(n / 2 - i)
  208.         xx_i(n / 2 + i) = xx_i(n / 2 - i)
  209.     NEXT
  210.  
  211.     DIM xpr AS DOUBLE, xpi AS DOUBLE
  212.     DIM xmr AS DOUBLE, xmi AS DOUBLE
  213.  
  214.     FOR i = 0 TO n / 2 - 1
  215.         xpr = (xx_r(i) + xx_r(n / 2 + i)) / 2
  216.         xpi = (xx_i(i) + xx_i(n / 2 + i)) / 2
  217.  
  218.         xmr = (xx_r(i) - xx_r(n / 2 + i)) / 2
  219.         xmi = (xx_i(i) - xx_i(n / 2 + i)) / 2
  220.  
  221.         xx_r(i) = xpr + xpi * COS(2 * pi * i / n) - xmr * SIN(2 * pi * i / n)
  222.         xx_i(i) = xmi - xpi * SIN(2 * pi * i / n) - xmr * COS(2 * pi * i / n)
  223.     NEXT
  224.  
  225.     'symmetry, complex conj
  226.     FOR i = 0 TO n / 2 - 1
  227.         xx_r(n / 2 + i) = xx_r(n / 2 - 1 - i)
  228.         xx_i(n / 2 + i) = -xx_i(n / 2 - 1 - i)
  229.     NEXT
  231.  
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: SMcNeill on January 28, 2021, 08:34:32 am
Quick thought:

Shouldn’t _MEMSOUND have a mem.TYPE associate with it?

http://www.qb64.org/wiki/MEM

mem.TYPE is an OFFSET, so it’s always a minimum of 32-bits in size.  _MEMSOUND could easily just take the 17th bit as an identifier.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on January 28, 2021, 09:19:19 am
It should. Thoughts?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: bplus on January 29, 2021, 02:28:58 pm
Nice one! @Petr 

I nominate you to do the Wiki demo example for this :)
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 29, 2021, 03:37:23 pm
@bplus

I really appreciate this offer, do you mean the source code for the video above? Or a newer one that uses the _Vince solution to gain frequency? I'll probably get there on Sunday or Monday. Tomorrow my daughter celebrates her birthday, so there will be no time tomorrow. So I'll send you the source code, because I don't have access to the wiki myself, you'll be able to paste it there.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: bplus on January 29, 2021, 03:46:13 pm
Quote from: Petr on January 29, 2021, 03:37:23 pm
@bplus

I really appreciate this offer, do you mean the source code for the video above? Or a newer one that uses the _Vince solution to gain frequency? I'll probably get there on Sunday or Monday. Tomorrow my daughter celebrates her birthday, so there will be no time tomorrow. So I'll send you the source code, because I don't have access to the wiki myself, you'll be able to paste it there.

Oh I don't have access to Wiki either and I am sort of a generalist myself, but you seem expert in the arena of sound and all it's nuances. I think Wiki needs short and as little complicated as can get but still get the point of how to use the thing being demo'd, so _vince variation might go over the top in needs. You guys are already over my head so _vince thing might be just the thing, I don't know ;)

I could put demo in Infomatics Board if you say it's specially good.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on January 29, 2021, 04:13:23 pm
I understand. Just write the simplest program possible. Something light for visualization with descriptions in English. Good! I'll prepare it here.
But I don't feel like a sound expert myself. I'm just interested.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: bplus on January 29, 2021, 05:07:01 pm
Quote from: Petr on January 29, 2021, 04:13:23 pm
I understand. Just write the simplest program possible. Something light for visualization with descriptions in English. Good! I'll prepare it here.
But I don't feel like a sound expert myself. I'm just interested.


Petr for Infomatics (the thing I have some permission for) simple is not so important than cool! If the thing with _vince stuff is way cooler than a simple demo then let's go for that. It would be cool to get something with _vince contributing too!

For Wiki, it is only MHO that simple is better by simple I mean short and sweet and by sweet I mean gets the point across elegantly, one very fine example of this is Wiki's Rotozoom. But I am not involved with Wiki project, so far everyone has been doing great by me for that! And thanks again to those who do contribute to that project.

Quote
I'm just interested.
Yes that can go a long way towards getting your head into the game and coming up with something clever.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: _vince on February 01, 2021, 08:00:06 pm
I'm glad you managed to get it working. That 'frequency correction' algorithm tends to work well for sharp tall peaks in noise and not so well for more complicated signals. Skimming this thread, it looks like you and static were reinventing the fourier transform, FFT is damn powerful and there's a lot more you can do with it.  I'd like to get on board one day and show more demos of audio DSP.  One day when I find the willpower and update QB64, etc
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on February 06, 2021, 02:08:41 pm
Hi @_vince

I apologize for the late reply first. Now it's just that I had to interrupt programming and finish important work at home (is not completed). I would have time for programming today, but - I don't know why - I've had a terrible headache since morning. I don't know why, there's no reason to. Of course, I want to do this, but I repeat that this is something that is currently at the maximum limit of my knowledge. So I cried here :) and now I'm going to do it again. It has to go.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: rcamp48 on February 08, 2021, 03:49:54 am
I there a way to load _MEMSOUND to play ogg files with 6 channels of sound? I am working on this now.
Or is stereo the limit?

Russ
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: FellippeHeitor on February 08, 2021, 05:58:30 am
I think the library we use for audio in QB64 is capable of 5.1 output, but it hasn't been incorporated using that ability. I'll let you know if this becomes a thing.

What happens when you load a 6 channel file with _SNDOPEN?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: rcamp48 on February 08, 2021, 12:24:30 pm
It does not load, mind you the file is saved at 192,00 hz, 6 channels and is the full album, so that may overlaod it, but I have 16 GB of RAM and the latest nightly of QB64.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: rcamp48 on February 08, 2021, 12:57:39 pm
Some how andsome way I found this program for playing video files, but I get a black screen...the code is short and I can't seem to find the original post for it.

  [ This attachment cannot be displayed inline in 'Print Page' view ]

I try to play a big video, I believe its John Fogerty in concert from 1977 or around there somewhere.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Dav on February 08, 2021, 01:51:59 pm
That was my code,  I think its in the wiki too. I also updated it a little, but from what ive heard, it only works for some people on some systems.  Works for me in win7 on certain vedios formats, mpg and wmv for example, but not mp4.  I have a 32bit dll I put together to play videos, and I could post that if you want. Id have to dig it up, not sure what disk i put it on.

- Dav
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: rcamp48 on February 08, 2021, 01:56:32 pm
That would be good Dave, do you have the latest version? I am slowly converting avis to mpg files, like some of the disney anime stuff, will post one if its works, and yes can you post that dll for me , I seem to need it, I get a black screen with sound.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Dav on February 08, 2021, 04:43:35 pm
I look for it.  Not on my current laptop, so it's on a backup disk somewhere.

- Dav
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: rcamp48 on February 08, 2021, 08:13:34 pm
One thing I noticed in the current version is that you cannot have any spaces in the filenames for the wmv or mpg files to play, can someone fix this?
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: Petr on February 09, 2021, 04:05:07 pm
@rcamp48

Hi. I experiment with that too. Do you have sound when playing video? Using the source code as it is here, my video is about 20x faster. This can be solved by adding CHR $ (0) to some strings - it works better, but still very fast. And without sound. I tried a DivX - AVI file.
Title: Re: Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)
Post by: rcamp48 on February 10, 2021, 01:19:13 pm
Ya no problem , I get sound and video, but I am using VLC for video and Wavepad soon enough for audio with the program I modified.... i belive it is yours...
Text Only | Text with Attachments