'''' This code is part of Document Solutions for Imaging demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports System.NumericsImports GrapeCity.Documents.DrawingImports GrapeCity.Documents.TextImports GrapeCity.Documents.ImagingImports GCTEXT = GrapeCity.Documents.TextImports GCDRAW = GrapeCity.Documents.Drawing
'' GradientsPublic Class Gradients2    Function GenerateImage(        ByVal pixelSize As Size,        ByVal dpi As Single,        ByVal opaque As Boolean,        Optional ByVal sampleParams As String() = Nothing) As GcBitmap
        Dim blue = Color.FromArgb(&HFF2E4884)        Dim bmp = New GcBitmap(pixelSize.Width, pixelSize.Height, True, dpi, dpi)        Using g = bmp.CreateGraphics(Color.RoyalBlue)            Dim m = Matrix3x2.CreateSkew(Math.PI / 7, 0, New Vector2(175, 90))            g.Transform = m * Matrix3x2.CreateScale(2.0F) * Matrix3x2.CreateTranslation(100, 100)            Dim pen = New GCDRAW.Pen(Color.Yellow, 0.5F)
            Dim rgBrush = New RadialGradientBrush(Color.White, Color.Navy) With                {                    .GradientOrigin = New PointF(0.8F, 0.3F),                    .AllowEllipticGradients = True                }            g.FillEllipse(New RectangleF(30, 30, 240, 140), rgBrush)
            pen.Color = Color.Red            pen.Width = 2            g.DrawRectangle(New RectangleF(30, 30, 240, 140), pen)
            pen.Color = Color.LightGreen            pen.Width = 3.5F            pen.DashStyle = DashStyle.DashDotDot            pen.DashOffset = -3            pen.LineCap = PenLineCap.Round            g.DrawEllipse(New RectangleF(30, 30, 240, 140), pen)
            g.DrawString("DsImaging", New TextFormat() With                {                    .Font = GCTEXT.Font.FromFile(Path.Combine("Resources", "Fonts", "FreeSans.ttf")),                    .ForeColor = Color.White,                    .FontSize = 20.0F                }, New PointF(100, 110))        End Using        '' Done        Return bmp    End FunctionEnd Class