Visual Basic

    Public Sub SBVocalCut32(ByVal handle As Long, ByVal channel As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long)<br />
        Dim SBVocCut32Buf() As Single, SBVocCut32CSample As Long<br />
        Dim SBVocCut32DM As Single<br />
        ReDim SBVocCut32Buf(length)<br />
       <br />
 Dim MyGC As GCHandle = GCHandle.Alloc(buffer, GCHandleType.Pinned)<br />
 Dim AddofLongValue As IntPtr = MyGC.AddrOfPinnedObject()<br />
<br />
        Marshal.Copy(AddofLongValue, SBVocCut32Buf, 0, length)<br />
        ' Call CopyMemory(SBVocCut32Buf(0), buffer, length / 2)<br />
<br />
        For SBVocCut32CSample = 0 To length / 2 - 1 Step 2<br />
            SBVocCut32DM = ((0 - SBVocCut32Buf(SBVocCut32CSample)) + SBVocCut32Buf(SBVocCut32CSample + 1)) / 2<br />
            SBVocCut32Buf(SBVocCut32CSample) = SBVocCut32DM<br />
            SBVocCut32Buf(SBVocCut32CSample + 1) = SBVocCut32DM<br />
        Next SBVocCut32CSample<br />
<br />
<br />
        Marshal.Copy(SBVocCut32Buf, 0, AddofLongValue, length)<br />
        'Call CopyMemory(buffer, SBVocCut32Buf(0), length / 2)<br />
    End Sub

Luc Pattyn wrote:

Write your own copy loop and get done with it!

Henry Minute wrote:

I love it when you are masterful!

Computafreak wrote:

(unless you like the elegant, flowing symbols of C#)

Computafreak wrote:

It comes in two flavours - legacy and normal.

Christian Graus wrote:

It's a beer,