'''' 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
'' This sample demonstrates how to create a Glow effect using DsImaging.'' The Glow effect inflates all non-transparent areas of an image by a specified amount,'' then applies a Gaussian blur to make the border smooth. It is one of the effects'' that are found in MS Word for example.'' '' To achieve this effect in DsImaging, the GrayscaleBitmap.ApplyGlow() method is used'' on the transparency mask built from the color image on which we want the glow to appear,'' along with a few other simple steps as illustrated by this code.'''' This example shows how to achieve the glow effect by blurring the content (text and image)'' and drawing the original content on it again. See GlowAlt for an alternative way'' that avoids drawing the content twice.'''' The same GrayscaleBitmap.ApplyGlow() method is also used to achieve the Soft Edges effect'' as illustrated by the SoftEdges example.Public Class Glow    Private _font As GCTEXT.Font = GCTEXT.Font.FromFile(Path.Combine("Resources", "Fonts", "FreeSans.ttf"))
    Public Function GenerateImage(pixelSize As Size, dpi As Single, opaque As Boolean, Optional sampleParams As String() = Nothing) As GcBitmap        '' Draw text and logo on a transparent bitmap:        Dim bmp = New GcBitmap(pixelSize.Width, pixelSize.Height, False)        bmp.Clear(Color.Transparent)        drawTextAndLogo(bmp, pixelSize, dpi)
        '' Convert the image to a transparency mask:        Using gs = bmp.ToGrayscaleBitmap(ColorChannel.Alpha)            '' Apply the Glow effect to it; while for Soft Edges the inflation radius is negative,            '' for Glow it should be positive, 6 here (9 is the blur radius):            gs.ApplyGlow(6, 9)
            '' Map a shadow from the transparency mask to the source GcBitmap drawing opaque pixels            '' with glow color (Yellow) and applying some additional transparency:            gs.ToShadowBitmap(bmp, Color.Yellow, 0.8F)        End Using
        '' Fill the background:        bmp.ConvertToOpaque(Color.Gray)
        '' Finally, draw the text and logo once more over the prepared background:        drawTextAndLogo(bmp, pixelSize, dpi)
        '' Done        Return bmp    End Function
    Sub drawTextAndLogo(ByRef bmp As GcBitmap, pixelSize As Size, dpi As Single)        Dim renderer = bmp.EnsureRendererCreated()        DrawText(renderer, pixelSize, dpi)        DrawLogo(renderer, New PointF(pixelSize.Width / 2, CInt(pixelSize.Height * 0.8)), pixelSize.Width / 2)    End Sub
    Private Sub DrawText(renderer As BitmapRenderer, pixelSize As Size, dpi As Single)        Dim f1 = New TextFormat With {            .Font = _font,            .FontSize = pixelSize.Height / 7,            .ForeColor = Color.DarkOrchid,            .FontBold = True        }        Dim f2 = New TextFormat(f1) With {            .ForeColor = Color.White,            .StrokePen = New GCDRAW.Pen(Color.DarkOrchid, 3)        }        Dim tl = New TextLayout(dpi) With {            .MaxWidth = pixelSize.Width,            .MaxHeight = pixelSize.Height,            .ParagraphAlignment = ParagraphAlignment.Near,            .TextAlignment = TextAlignment.Center,            .MarginTop = dpi * 2,            .LineSpacingScaleFactor = 0.7F        }        tl.AppendLine("Document", f1)        tl.AppendLine("Solutions", f2)
        '' Draw the text:        renderer.SlowAntialiasing = True        renderer.DrawTextLayout(tl, 0, 0)    End Sub
    Private Sub DrawLogo(renderer As BitmapRenderer, center As PointF, width As Single)        Dim pb = New PathBuilder()        pb.BeginFigure(100, 350)        pb.AddLine(210, 310)        Dim arc = New ArcSegment() With {            .Size = New SizeF(183, 173),            .SweepDirection = SweepDirection.Clockwise,            .Point = New PointF(550, 205)        }        pb.AddArc(arc)        pb.AddLine(650, 170)        pb.AddLine(680, 250)        pb.AddLine(575, 285)        arc.Point = New PointF(240, 390)        pb.AddArc(arc)        pb.AddLine(130, 430)        pb.EndFigure(True)        pb.Figures.Add(New EllipticFigure(New RectangleF(295, 197, 200, 190)))        Dim gpFill = pb.ToPath()        Dim gpStroke = gpFill.Widen(New GCDRAW.Pen(Color.Black, 20))
        '' Our 'base' size is 800 x 600 pixels:        Dim scale As Single = width / 800        renderer.Transform = Matrix3x2.CreateScale(scale) *            Matrix3x2.CreateTranslation(center.X - 400 * scale, center.Y - 300 * scale)        renderer.FillPath(gpFill, Color.CornflowerBlue)        renderer.FillPath(gpStroke, Color.DarkOrchid)        renderer.Transform = Matrix3x2.Identity    End SubEnd Class