Upcoming feature (v1.5) - _MEMSOUND (Hi, Petr!)

[FellippeHeitor]

Not in the works as of yet. Bear in mind we have _SNDRAW for sound generation.

[Petr]

WORKS AS EXPECTED!

  [ You are not allowed to view this attachment ]  

HAPPY NEW YEAR! NOW MIDNIGHT HERE!

[FellippeHeitor]

Happy New Year! Can't wait to see what you'll come up with this ❤️

[Petr]

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.

[FellippeHeitor]

I just updated the code in the box above to make the tracker more visible when you move down the mouse.

[Petr]

Yes, now it's better see now. This music is a bit familiar to me :)  Thank you again!

[FellippeHeitor]

This music is a bit familiar to me :) 

😉

[Petr]

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
40. LOOP
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")
46. END
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
55. END FUNCTION
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
103. END SUB
104.  

[Petr]

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
8. LOOP
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
47. LOOP
48.  
49. PRINT "New sound created. Saving as Tracks-mix.wav..."
50. SAVESOUND16S NewSound, "Tracks-mix.wav"
51. PRINT "Sound saved, erasing RAM..."
52. _MEMFREE Left
53. _MEMFREE Right
54. _MEMFREE NewSound
55.  
56. PRINT "Playing mixed sound"
57. _SNDPLAYFILE ("tracks-mix.wav")
58. END
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
67. END FUNCTION
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
115. END SUB
116.  

[Petr]

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
10. LOOP
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
65. LOOP
66.  
67. PRINT "New sound created. Saving as Tracks-mix4.wav..."
68. SAVESOUND16S NewSound, "Tracks-mix4.wav"
69. PRINT "Sound saved, erasing RAM..."
70. _MEMFREE Left
71. _MEMFREE Right
72. _MEMFREE NewSound
73.  
74. PRINT "Playing mixed sound"
75. _SNDPLAYFILE ("tracks-mix4.wav")
76. END
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
85. END FUNCTION
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
133. END SUB
134.  

[FellippeHeitor]

Wow! One morning in your hands and we got sound processing! That's awesome, I'll be testing it right now!!

[FellippeHeitor]

Great job, @Petr! On a side note, thanks for FUNCTION OFFSETasI64&& - that's really useful too.

[Petr]

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!

[STxAxTIC]

Here comes the first QB64 oscilloscope. Here I am "measuring" the frequency of a 500-hz sine wave:

Code: QB64: [Select]

1. OPTION _EXPLICIT
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.  
26. IF _FILEEXISTS(COMMAND$) THEN
27.     f$ = COMMAND$
28. ELSE
29.     start:
30.     INPUT "File to load: ", f$
31. END IF
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
46. ELSE
47.     SCREEN monoScreen
48.     y0 = _HEIGHT / 2
49. END IF
50. _PRINTMODE _KEEPBACKGROUND
51.  
52. trackerHeight = 50
53. _SNDPLAY theSound
54. _SNDPAUSE theSound
55.  
56. DO
57.     WHILE _MOUSEINPUT
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.  
68.     IF _MOUSEBUTTON(1) THEN
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
81.     ELSEIF _MOUSEBUTTON(2) THEN
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
111. LOOP
112.  
113. render:
114. DIM o AS _OFFSET
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
145. NEXT
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
151. END IF
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
158. RETURN
159.  
160. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
161.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
162. END FUNCTION
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
174. END SUB
175.  

[Petr]

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?

  [ You are not allowed to view this attachment ]