Welcome Guest! You need to login or register to make posts.



Go to last post Go to first unread
#1 Posted : Tuesday, March 31, 2009 1:58:23 PM(UTC)

Rank: Newbie

Groups: Member
Joined: 6/18/2008(UTC)
Posts: 2


I'm trying to build a web application where in I need to overlay multiple images onto one background for which I'm using combiner.ApplyMaskTransform function.

Everytime, when I try to do so, the system runs into 100% CPU usage and takes close to 3-4 minutes to combine the images. Is this normal? If not could anyone point me what I need to change to have the process completed faster.

Below is my code:
'Background image.
Dim background As New Aurigma.GraphicsMill.Bitmap(str)
Dim mask As New Aurigma.GraphicsMill.Bitmap(strMask)
'Create the transform.
Dim combiner As New Aurigma.GraphicsMill.Transforms.Combiner
combiner.CombineMode = Aurigma.GraphicsMill.Transforms.CombineMode.Copy

'Photos for the collage.
Dim photo1 As New Aurigma.GraphicsMill.Bitmap(usrFileName)
combiner.SourceBitmap = photo1

' m_num is the number of the images that need to be overlayed. values are read from database
Dim i As Integer
For i = 0 To (m_num -1)
'Combine with the image.
combiner.SourceRectangle = New System.Drawing.RectangleF(0, 0, photo1.Width, photo1.Height)
combiner.DestinationRectangle = New System.Drawing.RectangleF(hold_x.Item(i), hold_y.Item(i), hold_wd.Item(i), hold_ht.Item(i))
combiner.ApplyMaskTransform(background, mask)
tmpFile = fileUploadPath & "\Temp\" & GetTempFileName() & "_collage.jpg"

Thanks in advance,
#2 Posted : Tuesday, March 31, 2009 10:55:23 PM(UTC)

Rank: Advanced Member

Groups: Member
Joined: 3/3/2008(UTC)
Posts: 185

Thanks: 8 times

You may try this method. It was given as sample by Aurigma Engineer last time. :)

    Private Function ManualCombine(ByVal image As Aurigma.GraphicsMill.Bitmap, ByVal mask As Aurigma.GraphicsMill.Bitmap) As Aurigma.GraphicsMill.Bitmap
        If image.Width <> mask.Width Or image.Height <> mask.Height Then
            Throw New ArgumentException("image")
        End If
        If image.PixelFormat <> PixelFormat.Format24bppRgb Then
            'Throw New ArgumentException("image")
        End If
        If mask.PixelFormat <> PixelFormat.Format8bppGrayScale Then
            Throw New ArgumentException("mask")
        End If

        Dim result As New Aurigma.GraphicsMill.Bitmap(mask.Width, mask.Height, PixelFormat.Format32bppArgb)
        result.VerticalResolution = image.VerticalResolution
        result.HorizontalResolution = image.HorizontalResolution

        Dim imageData As Aurigma.GraphicsMill.BitmapData = image.LockBits()
        Dim maskData As Aurigma.GraphicsMill.BitmapData = mask.LockBits()
        Dim resultData As Aurigma.GraphicsMill.BitmapData = result.LockBits()

        Dim srcScan(imageData.Stride) As Byte
        Dim dstScan(resultData.Stride) As Byte
        Dim maskScan(maskData.Stride) As Byte

            For i As Integer = 0 To resultData.Height - 1
                Marshal.Copy(New IntPtr(imageData.Scan0.ToInt32() + i * imageData.Stride), srcScan, 0, imageData.Stride)
                Marshal.Copy(New IntPtr(resultData.Scan0.ToInt32() + i * resultData.Stride), dstScan, 0, resultData.Stride)
                Marshal.Copy(New IntPtr(maskData.Scan0.ToInt32() + i * maskData.Stride), maskScan, 0, maskData.Stride)

                Dim srcChannelIndex As Integer = 0
                Dim dstChannelIndex As Integer = 0
                For j As Integer = 0 To resultData.Width - 1
                    dstScan(dstChannelIndex) = srcScan(srcChannelIndex)
                    dstChannelIndex += 1
                    srcChannelIndex += 1
                    dstScan(dstChannelIndex) = srcScan(srcChannelIndex)
                    dstChannelIndex += 1
                    srcChannelIndex += 1
                    dstScan(dstChannelIndex) = srcScan(srcChannelIndex)
                    dstChannelIndex += 1
                    srcChannelIndex += 1
                    dstScan(dstChannelIndex) = maskScan(j)
                    dstChannelIndex += 1

                Marshal.Copy(dstScan, 0, New IntPtr(resultData.Scan0.ToInt32() + i * resultData.Stride), resultData.Stride)

        End Try

        Return result
    End Function
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.