Fondere insieme due file WAV - Cronologia

Vuott il 12:08, 26 lug 2025

2025-07-26T12:08:26Z

← Versione meno recente		Versione delle 06:08, 26 lug 2025
Riga 1:		Riga 1:
	Per fondere (mischiare) due file audio di formato '''WAV''' con le sole funzioni di Gambas, bisognerà prestare cura ad almeno i seguenti aspetti:		Per fondere (mischiare) due file audio di formato '''WAV''' con le sole funzioni di Gambas, bisognerà prestare cura ad almeno i seguenti aspetti:

	* i due file da fondere devono avere uguale frequenza e risoluzione di campionamento ed uguale numero di canali;		* i due file da fondere devono avere uguale frequenza, uguale risoluzione di campionamento ed uguale numero di canali;
	* il blocco d'intestazione del nuovo file wav ottenuto deve essere corrispondente a quello del file wav avente la maggiore quantità di dati audio fra i due file da fondere.		* il blocco d'intestazione del nuovo file wav ottenuto deve essere corrispondente a quello del file wav avente la maggiore quantità di dati audio fra i due file da fondere.
			Il risultato finale è una somma campione per campione, con eventuale normalizzazione per evitare ''clipping''.

	Di seguito un possibile semplice codice supponendo che i due file wav siano di formato con risoluzione di campionamento a 16bit con segno:		Di seguito un possibile semplice codice supponendo che i due file wav siano di formato con risoluzione di campionamento a 16bit con segno:

Vuott il 20:53, 18 giu 2024

2024-06-18T20:53:35Z

← Versione meno recente		Versione delle 14:53, 18 giu 2024
Riga 5:		Riga 5:

	Di seguito un possibile semplice codice supponendo che i due file wav siano di formato con risoluzione di campionamento a 16bit con segno:		Di seguito un possibile semplice codice supponendo che i due file wav siano di formato con risoluzione di campionamento a 16bit con segno:
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim fileWAV_1, fileWAV_2, wav1, wav2 As String		Dim fileWAV_1, fileWAV_2, wav1, wav2 As String
Riga 12:		Riga 12:
	Dim i As Integer		Dim i As Integer

	fileWav_1 = "<FONT Color=~~gray~~>''/percorso/del/'''primo'''/file.wav''</font>"		fileWav_1 = "<FONT Color=darkgreen>''/percorso/del/'''primo'''/file.wav''</font>"

	fileWAV_2 = "<FONT Color=~~gray~~>''/percorso/del/'''secondo'''/file.wav''</font>"		fileWAV_2 = "<FONT Color=darkgreen>''/percorso/del/'''secondo'''/file.wav''</font>"

	wav1 = fileWAV_1		wav1 = fileWAV_1
Riga 49:		Riga 49:
	fl.Close		fl.Close

	~~'''~~End~~'''~~		End

Vuott il 01:05, 19 set 2022

2022-09-19T01:05:51Z

← Versione meno recente		Versione delle 19:05, 18 set 2022
Riga 9:		Riga 9:
	Dim fileWAV_1, fileWAV_2, wav1, wav2 As String		Dim fileWAV_1, fileWAV_2, wav1, wav2 As String
	Dim fl As File		Dim fl As File
	Dim ss1, ss2 As Short[]		Dim ss1, ss2 As '''Short'''[]
	Dim i As Integer		Dim i As Integer

Vuott il 01:03, 19 set 2022

2022-09-19T01:03:31Z

← Versione meno recente		Versione delle 19:03, 18 set 2022
Riga 12:		Riga 12:
	Dim i As Integer		Dim i As Integer

	fileWav_1 = "<FONT Color=gray>''/percorso/del/primo/file.wav''</font>"		fileWav_1 = "<FONT Color=gray>''/percorso/del/'''primo'''/file.wav''</font>"

	fileWAV_2 = "<FONT Color=gray>''/percorso/del/secondo/file.wav''</font>"		fileWAV_2 = "<FONT Color=gray>''/percorso/del/'''secondo'''/file.wav''</font>"

	wav1 = fileWAV_1		wav1 = fileWAV_1

Vuott il 01:03, 19 set 2022

2022-09-19T01:03:07Z

← Versione meno recente		Versione delle 19:03, 18 set 2022
Riga 1:		Riga 1:
	Per fondere (mischiare) due file audio di formato WAV con le sole funzioni di Gambas, bisognerà prestare cura ad almeno i seguenti aspetti:		Per fondere (mischiare) due file audio di formato '''WAV''' con le sole funzioni di Gambas, bisognerà prestare cura ad almeno i seguenti aspetti:

	* i due file da fondere devono avere uguale frequenza e risoluzione di campionamento ed uguale numero di canali;		* i due file da fondere devono avere uguale frequenza e risoluzione di campionamento ed uguale numero di canali;
	* ~~eliminare (via codice Gambas) l~~'~~intero primo blocco di~~ intestazione ~~al file avente dimensione inferiore;~~		* il blocco d'intestazione del nuovo file wav ottenuto deve essere corrispondente a quello del file wav avente la maggiore quantità di dati audio fra i due file da fondere.
	* impostare (via codice Gambas) i nuovi corretti valori che indicano le dimensioni del file wav~~, presenti nei byte n. 4, 5, 6, 7 e nei byte n. 40, 41, 42, 43 dell'header~~ del file wav ~~finale~~.

	Di seguito un possibile semplice codice supponendo che i due file wav siano ~~a 2 canali e~~ a 16bit:		Di seguito un possibile semplice codice supponendo che i due file wav siano di formato con risoluzione di campionamento a 16bit con segno:
	'''Public''' Sub Main()		'''Public''' Sub Main()

	Dim fileWAV_1, fileWAV_2 As String		Dim fileWAV_1, fileWAV_2, wav1, wav2 As String
	Dim fl As File		Dim fl As File
	Dim ss1, ss2~~, ss3~~ As Short[]		Dim ss1, ss2 As Short[]
	Dim i As Integer		Dim i As Integer

Riga 17:		Riga 16:
	fileWAV_2 = "<FONT Color=gray>''/percorso/del/secondo/file.wav''</font>"		fileWAV_2 = "<FONT Color=gray>''/percorso/del/secondo/file.wav''</font>"

			wav1 = fileWAV_1
			wav2 = fileWAV_2
	<FONT color=gray>' ''Individua la dimensione maggiore tra i due file wav:''</font>		<FONT color=gray>' ''Individua la dimensione maggiore tra i due file wav:''</font>
	~~i = Max(~~Stat(~~fileWAV_1~~).Size, Stat(~~fileWAV_2~~).Size)		If Stat(fileWAV_2).Size > Stat(fileWAV_1).Size Then
			wav1 = fileWAV_2
			wav2 = fileWAV_1
			Endif

	<FONT color=gray>' ''Assegna a entrambi i vettori di tipo "Short[]" la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav:''</font>		<FONT color=gray>' ''Assegna a entrambi i vettori di tipo "Short[]" la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav.''</font>
	~~ss1 = New Short[(i - 44) / SizeOf(gb.Short)]~~
	~~ss2 = New Short[(i - 44) / SizeOf(gb.Short)]~~

	<FONT color=gray>' ''Apre il 1° file wav e carica nel 1° vettore i ~~soli~~ dati ~~audio grezzi:~~''</font>		<FONT color=gray>' ''Apre il 1° file wav e lo carica nel 1° vettore.''
	fl = Open ~~fileWAV_1~~ For Read		' ''Il vettore "ss1" è sempre quello contenente i dati del file wav di dimensione maggiore fra i due file.''</font>
	~~Seek #~~fl~~, 44~~		fl = Open wav1 For Read
			ss1 = New Short[Lof(fl) / SizeOf(gb.Short)]
	ss1.Read(fl, 0, ss1.Count)		ss1.Read(fl, 0, ss1.Count)
	fl.Close		fl.Close

	<FONT color=gray>' ''Apre il 2° file wav e carica nel 2° vettore ~~i soli dati audio grezzi~~:''</font>		<FONT color=gray>' ''Apre il 2° file wav e lo carica nel 2° vettore:''</font>
	fl = Open ~~fileWAV_2~~ For Read		fl = Open wav2 For Read
	~~Seek #fl, 44~~		ss2 = New Short[ss1.count]
	ss2.Read(fl, 0, (Lof(fl~~) - 44~~) / SizeOf(gb.Short))		ss2.Read(fl, 0, Lof(fl) / SizeOf(gb.Short))
	fl.Close		fl.Close

	<FONT color=gray>' ''Crea un terzo vettore (destinato a contenere i dati del file wav finale) assegnandogli la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav + 44 singoli byte del blocco d'intestazione del nuovo file wav:''</font>
	~~ss3 = New Short[i]~~

	~~<FONT color=gray>' ''Passa "per Indirizzo" alla funzione il 3° vettore, al fine di creare il blocco di intestazione del futuro file wav:''</font>~~
	~~CreaBloccoIntestazione(ss3)~~

	For i = 0 To ss1.Max		For i = 0 To (44 / SizeOf(gb.Short)) To ss1.Max
	<FONT color=gray>' ''Somma le due onde e carica ciascun dato ~~nel 3° vettore creato al~~ byte d'indice 44, individuandolo tenuto conto della risoluzione a 16-bit del file wav:''</font>		<FONT color=gray>' ''Somma le due onde e carica ciascun dato a cominciare dal byte d'indice 44, individuandolo tenuto conto della risoluzione a 16-bit del file wav:''</font>
	~~ss3~~[i ~~+ (44 / SizeOf(gb.Short))~~] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / 2)		ss1[i] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / 2)
	Next		Next

	fl = Open "/tmp/nuovo.wav" For Create		fl = Open "/tmp/nuovo.wav" For Create
	<FONT color=gray>' ''Crea il nuovo file wav:''</font>		<FONT color=gray>' ''Crea il nuovo file wav:''</font>
	~~ss3~~.Write(fl, 0, ~~ss3~~.Count ~~/ SizeOf(gb.Short)~~)		ss1.Write(fl, 0, ss1.Count)
	fl.Close		fl.Close

	~~'''End'''~~

	~~'''Private''' Function CreaBloccoIntestazione(vettore As Short[])~~

	~~Dim st As Stream~~

	<FONT color=gray>' ''Per scrivere i dati del blocco d'intestazione del nuovo file wav, usa la risorsa "Memory Stream" operando nella'area di memoria restituita dalla proprietà ".Data" del 3° vettore: ''</font>
	~~st = Memory vettore.Data For Write~~

	~~Write #st, "RIFF"~~
	~~<FONT color=gray>' ''Imposta il valore dimensionale di 4 byte a partire dal 5° byte del futuro file: ''</font>~~
	~~Write #st, vettore.Count - 8 As Integer~~
	~~Write #st, "WAVEfmt "~~
	~~Write #st, 16 As Integer~~
	~~Write #st, 1 As Short~~
	~~Write #st, 2 As Short~~
	~~Write #st, 44100 As Integer~~
	~~Write #st, 176400 As Integer~~
	~~Write #st, 4 As Short~~
	~~Write #st, 16 As Short~~
	~~Write #st, "data"~~
	~~<FONT color=gray>' ''Imposta il valore dimensionale di 4 byte a partire dal 41° byte del futuro file e relativo alla dimensione dei dati audio grezzi:''</font>~~
	~~Write #st, vettore.Count - 44 As Integer~~

	~~st.Close~~

	'''End'''		'''End'''

Vuott il 04:21, 18 set 2022

2022-09-18T04:21:43Z

← Versione meno recente		Versione delle 22:21, 17 set 2022
Riga 21:		Riga 21:

	<FONT color=gray>' ''Assegna a entrambi i vettori di tipo "Short[]" la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav:''</font>		<FONT color=gray>' ''Assegna a entrambi i vettori di tipo "Short[]" la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav:''</font>
	ss1 = New Short[i - 44]		ss1 = New Short[(i - 44) / SizeOf(gb.Short)]
	ss2 = New Short[i - 44]		ss2 = New Short[(i - 44) / SizeOf(gb.Short)]

	<FONT color=gray>' ''Apre il 1° file wav e carica nel 1° vettore i soli dati audio grezzi:''</font>		<FONT color=gray>' ''Apre il 1° file wav e carica nel 1° vettore i soli dati audio grezzi:''</font>
	fl = Open fileWAV_1 For Read		fl = Open fileWAV_1 For Read
	Seek #fl, 44		Seek #fl, 44
	ss1.Read(fl, 0, ~~(Lof(fl) - 44) / SizeOf(gb~~.~~Short)~~)		ss1.Read(fl, 0, ss1.Count)
	fl.Close		fl.Close

Riga 37:		Riga 37:

	<FONT color=gray>' ''Crea un terzo vettore (destinato a contenere i dati del file wav finale) assegnandogli la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav + 44 singoli byte del blocco d'intestazione del nuovo file wav:''</font>		<FONT color=gray>' ''Crea un terzo vettore (destinato a contenere i dati del file wav finale) assegnandogli la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav + 44 singoli byte del blocco d'intestazione del nuovo file wav:''</font>
	ss3 = New Short[~~ss1.Count + 44~~]		ss3 = New Short[i]

	<FONT color=gray>' ''Passa "per Indirizzo" alla funzione il 3° vettore, al fine di creare il blocco di intestazione del futuro file wav:''</font>		<FONT color=gray>' ''Passa "per Indirizzo" alla funzione il 3° vettore, al fine di creare il blocco di intestazione del futuro file wav:''</font>
	CreaBloccoIntestazione(ss3)		CreaBloccoIntestazione(ss3)

	For i = 0 To ~~(ss3~~.Max ~~- 44) / SizeOf(gb.Short)~~		For i = 0 To ss1.Max
	<FONT color=gray>' ''Somma le due onde e carica ciascun dato nel 3° vettore creato al byte d'indice 44, individuandolo tenuto conto della risoluzione a 16-bit del file wav:''</font>		<FONT color=gray>' ''Somma le due onde e carica ciascun dato nel 3° vettore creato al byte d'indice 44, individuandolo tenuto conto della risoluzione a 16-bit del file wav:''</font>
	ss3[i + (44 / SizeOf(gb.Short))] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / ~~SizeOf(gb.Short)~~)		ss3[i + (44 / SizeOf(gb.Short))] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / 2)
	Next		Next

Vuott il 03:55, 18 set 2022

2022-09-18T03:55:55Z

← Versione meno recente		Versione delle 21:55, 17 set 2022
Riga 42:		Riga 42:
	CreaBloccoIntestazione(ss3)		CreaBloccoIntestazione(ss3)

	For i = 0 To (ss3.Max - 44) / SizeOf(gb.Short))		For i = 0 To (ss3.Max - 44) / SizeOf(gb.Short)
	<FONT color=gray>' ''Somma le due onde e carica ciascun dato nel 3° vettore creato al byte d'indice 44, individuandolo tenuto conto della risoluzione a 16-bit del file wav:''</font>		<FONT color=gray>' ''Somma le due onde e carica ciascun dato nel 3° vettore creato al byte d'indice 44, individuandolo tenuto conto della risoluzione a 16-bit del file wav:''</font>
	ss3[i + (44 / SizeOf(gb.Short)] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / SizeOf(gb.Short))		ss3[i + (44 / SizeOf(gb.Short))] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / SizeOf(gb.Short))
	Next		Next

Vuott il 02:08, 18 set 2022

2022-09-18T02:08:00Z

← Versione meno recente		Versione delle 20:08, 17 set 2022
Riga 12:		Riga 12:
	Dim ss1, ss2, ss3 As Short[]		Dim ss1, ss2, ss3 As Short[]
	Dim i As Integer		Dim i As Integer
	~~Dim he As Byte[]~~

	fileWav_1 = "<FONT Color=gray>''/percorso/del/primo/file.wav''</font>"		fileWav_1 = "<FONT Color=gray>''/percorso/del/primo/file.wav''</font>"

Vuott il 02:06, 18 set 2022

2022-09-18T02:06:59Z

← Versione meno recente		Versione delle 20:06, 17 set 2022
Riga 28:		Riga 28:
	fl = Open fileWAV_1 For Read		fl = Open fileWAV_1 For Read
	Seek #fl, 44		Seek #fl, 44
	ss1.Read(fl, 0, (Lof(fl) - 44) / SizeOf(gb.Short))		ss1.Read(fl, 0, (Lof(fl) - 44) / SizeOf(gb.Short))
	fl.Close		fl.Close

Riga 34:		Riga 34:
	fl = Open fileWAV_2 For Read		fl = Open fileWAV_2 For Read
	Seek #fl, 44		Seek #fl, 44
	ss2.Read(fl, 0, (Lof(fl) - 44) / SizeOf(gb.Short))		ss2.Read(fl, 0, (Lof(fl) - 44) / SizeOf(gb.Short))
	fl.Close		fl.Close

	<FONT color=gray>' ''Crea un terzo vettore (destinato a contenere i dati del file wav finale) assegnandogli la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav:''</font>		<FONT color=gray>' ''Crea un terzo vettore (destinato a contenere i dati del file wav finale) assegnandogli la medesima dimensione di elementi pari a quella maggiore individuata tra i due file wav + 44 singoli byte del blocco d'intestazione del nuovo file wav:''</font>
	ss3 = New Short[ss1.Count]		ss3 = New Short[ss1.Count + 44]

	For i = 0 To ss3.Max		<FONT color=gray>' ''Passa "per Indirizzo" alla funzione il 3° vettore, al fine di creare il blocco di intestazione del futuro file wav:''</font>
	<FONT color=gray>' ''Somma le due onde e carica ciascun dato nel 3° vettore creato:''</font>		CreaBloccoIntestazione(ss3)
	ss3[i] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / SizeOf(gb.Short))
			For i = 0 To (ss3.Max - 44) / SizeOf(gb.Short))
			<FONT color=gray>' ''Somma le due onde e carica ciascun dato nel 3° vettore creato al byte d'indice 44, individuandolo tenuto conto della risoluzione a 16-bit del file wav:''</font>
			ss3[i + (44 / SizeOf(gb.Short)] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / SizeOf(gb.Short))
	Next		Next

	~~<FONT color=gray>' ''Crea il blocco di intestazione del futuro file wav:''</font>~~
	~~he = CreaBloccoIntestazione(ss3.Count)~~

	fl = Open "/tmp/nuovo.wav" For Create		fl = Open "/tmp/nuovo.wav" For Create
	<FONT color=gray>' ''Crea il nuovo file wav:''</font>		<FONT color=gray>' ''Crea il nuovo file wav:''</font>
	he.Write(fl, 0, he.Count)		ss3.Write(fl, 0, ss3.Count / SizeOf(gb.Short))
	fl.Close		fl.Close

	~~fl = Open "/tmp/nuovo.wav" For Write Append~~
	~~<FONT color=gray>' ''Crea il nuovo file wav:''</font>~~
	~~ss3.Write(fl, Stat("/tmp/nuovo.wav").Size, ss3.Count / 2)~~

	~~<FONT color=gray>' ''Va in chiusura:''</font>~~
	~~fl.Close~~
	~~he.Clear~~
	~~ss1.Clear~~
	~~ss2.Clear~~

	'''End'''		'''End'''

	'''Private''' Function CreaBloccoIntestazione(~~dati_grezzi~~ As ~~Integer) as Byte~~[]		'''Private''' Function CreaBloccoIntestazione(vettore As Short[])

	~~Dim ini As String = "RIFF"~~
	~~Dim bh As Byte[] = [&57, &41, &56, &45, &66, &6D, &74, &20, &10, &00, &00, &00, &01, &00, &02, &00,~~
	~~&44, &AC, &00, &00, &10, &B1, &02, &00, &04, &00, &10, &00, &64, &61, &74, &61]~~
	~~Dim bb As New Byte[]~~
	~~Dim i As Integer~~

	~~bb = Byte[].FromString(ini)~~		Dim st As Stream

	i = ~~dati_grezzi + 36~~		<FONT color=gray>' ''Per scrivere i dati del blocco d'intestazione del nuovo file wav, usa la risorsa "Memory Stream" operando nella'area di memoria restituita dalla proprietà ".Data" del 3° vettore: ''</font>
			st = Memory vettore.Data For Write

			Write #st, "RIFF"
	<FONT color=gray>' ''Imposta il valore dimensionale di 4 byte a partire dal 5° byte del futuro file: ''</font>		<FONT color=gray>' ''Imposta il valore dimensionale di 4 byte a partire dal 5° byte del futuro file: ''</font>
	bb.~~Add(i And &FF)~~		Write #st, vettore.Count - 8 As Integer
	~~bb.Add(Shr(i And &FF00&~~, ~~8))~~		Write #st, "WAVEfmt "
	~~bb.Add(Shr(i And &FF0000&~~, 16))		Write #st, 16 As Integer
	~~bb.Add(Shr(i And &FF000000&~~, ~~24))~~		Write #st, 1 As Short
			Write #st, 2 As Short
	~~bb = bb.Insert(bh)~~		Write #st, 44100 As Integer
			Write #st, 176400 As Integer
			Write #st, 4 As Short
			Write #st, 16 As Short
			Write #st, "data"
	<FONT color=gray>' ''Imposta il valore dimensionale di 4 byte a partire dal 41° byte del futuro file e relativo alla dimensione dei dati audio grezzi:''</font>		<FONT color=gray>' ''Imposta il valore dimensionale di 4 byte a partire dal 41° byte del futuro file e relativo alla dimensione dei dati audio grezzi:''</font>
	~~bb.Add(dati_grezzi And &FF)~~		Write #st, vettore.Count - 44 As Integer
	~~bb.Add(Shr(dati_grezzi And &FF00&~~, ~~8))~~
	bb.~~Add(Shr(dati_grezzi And &FF0000&, 16))~~
	~~bb.Add(Shr(dati_grezzi And &FF000000&, 24))~~

	~~Return bb~~		st.Close

	'''End'''		'''End'''

Vuott il 01:50, 18 set 2022

2022-09-18T01:50:59Z

← Versione meno recente		Versione delle 19:50, 17 set 2022
Riga 28:		Riga 28:
	fl = Open fileWAV_1 For Read		fl = Open fileWAV_1 For Read
	Seek #fl, 44		Seek #fl, 44
	ss1.Read(fl, 0, (Lof(fl) - 44) / 2)		ss1.Read(fl, 0, (Lof(fl) - 44) / SizeOf(gb.Short))
	fl.Close		fl.Close

Riga 34:		Riga 34:
	fl = Open fileWAV_2 For Read		fl = Open fileWAV_2 For Read
	Seek #fl, 44		Seek #fl, 44
	ss2.Read(fl, 0, (Lof(fl) - 44) / 2)		ss2.Read(fl, 0, (Lof(fl) - 44) / SizeOf(gb.Short))
	fl.Close		fl.Close

Riga 42:		Riga 42:
	For i = 0 To ss3.Max		For i = 0 To ss3.Max
	<FONT color=gray>' ''Somma le due onde e carica ciascun dato nel 3° vettore creato:''</font>		<FONT color=gray>' ''Somma le due onde e carica ciascun dato nel 3° vettore creato:''</font>
	ss3[i] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / 2)		ss3[i] = CShort((CInt(ss1[i]) + CInt(ss2[i])) / SizeOf(gb.Short))
	Next		Next