Rovesciamento di una registrazione
Il rovesciamento di una registrazione consiste
nel riscrivere i suoni nell'ordine inverso, facendo attenzione alle registrazioni
stereo.
In quest'ultime infatti è necessario invertire l'ordine dei suoni prendendoli
a coppie, poiché la, registrazione è costituita da due canali
audio.
L'algoritmo implementato per rovesciare una registrazione è il seguente:
For
i = max To min Step -1 ' Bufferizzazione
Call clipboard.setSuono_16(registrazione.getSuono_16(i))
Let Principale.Progresso.Value = 100 - ((i / max) * 100)
Next i
Call clipboard.resetCount
For i = min To max ' Ricostruzione registrazione
Call registrazione.setSuono_16(i, clipboard.getSuono_16)
Let Principale.Progresso.Value = (i / max) * 100
Next i
If registrazione.getFonia = 2 Then Call invertiCanali
Da notare l'ultima istruzione riportata,
che in caso di registrazione stereofonica provvede a riallineare i canali dopo
aver applicato il rovescio, poiché se non si invertissero i canali si
avrebbe la registrazione rovesciata ma con i canali invertiti.
Eseguendo questa istruzione, invece, i canali vengono rimessi come in origine.