Estou esperando muito consumo de memória ao converter um TransformedBitmap em um System.Drawing.Bitmap. A imagem é muito grande com 7360x4912 pixels com um formato de pixel BGR32 que soma 144609280 bits ~ 138 MB.

Inicialmente, carrego a imagem do disco rígido em uma BitmapImage. Em seguida, gire-o com RotateTransform para terminar com um TransformedBitmap final (WPF).

Para o processamento de imagens com o EmguCV, precisarei de System.Drawing.Bitmap. Eu converto o TransformedBitmap usando a seguinte função:

Private Function convertToBitmap(tb As TransformedBitmap) As System.Drawing.Bitmap

    Dim myBitmap As New System.Drawing.Bitmap(tb.PixelWidth, tb.PixelHeight, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    '140mb increase'

    Dim data As System.Drawing.Imaging.BitmapData =
        myBitmap.LockBits(New System.Drawing.Rectangle(System.Drawing.Point.Empty, myBitmap.Size),
                          System.Drawing.Imaging.ImageLockMode.WriteOnly, System.Drawing.Imaging.PixelFormat.Format32bppArgb)

    tb.CopyPixels(Int32Rect.Empty, data.Scan0, data.Height * data.Stride, data.Stride)
    'another 140MB increase'

    myBitmap.UnlockBits(data)

    Return myBitmap
End Function

O carregamento do TransformedBitmap leva cerca de 140 MB conforme o esperado. Depois de converter o TransformedBitmap em um Bitmap usando a função mencionada, posso detectar um aumento de 276 MB, que é exatamente o dobro do tamanho da própria imagem.

Você tem alguma idéia do que estou perdendo? Eu quero manter o bitmap transformado e o bitmap convertido, mas nada mais.

desde já, obrigado

EDITAR:

Aqui está o código de chamada com alguns comentários sobre a memória:

Dim tb As New TransformedBitmap()

    ' Create the source to use as the tb source.
    Dim bi As New BitmapImage()
    bi.BeginInit()
    bi.UriSource = New Uri(Image_Path, UriKind.Absolute)
    bi.CacheOption = BitmapCacheOption.OnLoad
    bi.EndInit()
    ' Properties must be set between BeginInit and EndInit calls.

    tb.BeginInit()
    tb.Source = bi

    ' Set image rotation.
    Dim transform As New RotateTransform(angle)
    tb.Transform = transform
    tb.EndInit()
    ' Set the Image source.
    imgChurch.Source = tb
    ' load the Image for OpenCV too
    _cvImage?.Dispose()
    'memory around 177MB
    Dim bmp As System.Drawing.Bitmap = convertToBitmap(tb) 'Memory is after 
    'Call about 454MB
    _cvImage = New CVImage(bmp)
    bmp.Dispose()
    GC.Collect()

A classe CVImage é um wrapper para a lib do EmguCV.

public CVImage(Bitmap bmp)
    {
        var img = new Image<Bgr, byte>(bmp);
        currentImg = img.Mat;
    }