'''' This code is part of Document Solutions for Imaging demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.Imaging
'' This sample demonstrates how to use bitmap transformations'' such as resizing, flipping and rotating.Public Class Transforms    Function GenerateImage(        ByVal pixelSize As Size,        ByVal dpi As Single,        ByVal opaque As Boolean,        Optional ByVal sampleParams As String() = Nothing) As GcBitmap
        Dim bmp = New GcBitmap(pixelSize.Width, pixelSize.Height, opaque, dpi, dpi)        bmp.Clear(Color.Transparent)
        Dim side = pixelSize.Width / 2        Dim side2 = side / 2        Dim bmpLarge, bmpFlip, bmpSmall1, bmpSmall2, bmpSmall3, bmpSmall4        Using bmpSrc = New GcBitmap(Path.Combine("Resources", "Stock", "goldfish.jpg"))            bmpSrc.Opaque = opaque            bmpLarge = bmpSrc.Resize(side, side)            bmpFlip = bmpLarge.FlipRotate(FlipRotateAction.FlipHorizontal)            bmpSmall1 = bmpSrc.Resize(side2, side2)            bmpSmall2 = bmpSmall1.FlipRotate(FlipRotateAction.Rotate270)            bmpSmall3 = bmpSmall1.FlipRotate(FlipRotateAction.FlipVertical)            bmpSmall4 = bmpSmall1.FlipRotate(FlipRotateAction.Rotate90)        End Using
        bmp.BitBlt(bmpLarge, 0, 0)        bmp.BitBlt(bmpFlip, pixelSize.Width - bmpFlip.Width, 0)        bmp.BitBlt(bmpSmall1, 0, side + side2 / 2)        bmp.BitBlt(bmpSmall2, side2, side + side2 / 2)        bmp.BitBlt(bmpSmall3, side2 * 2, side + side2 / 2)        bmp.BitBlt(bmpSmall4, side2 * 3, side + side2 / 2)
        '' Dispose bitmaps except the resulting one        bmpLarge.Dispose()        bmpFlip.Dispose()        bmpSmall1.Dispose()        bmpSmall2.Dispose()        bmpSmall3.Dispose()        bmpSmall4.Dispose()
        Return bmp    End FunctionEnd Class