''
'' This code is part of Document Solutions for PDF .NET demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System
Imports System.IO
Imports System.Drawing
Imports System.Linq
Imports System.Collections.Generic
Imports GrapeCity.Documents.Pdf
Imports GrapeCity.Documents.Text
Imports GrapeCity.Documents.Svg
Imports GCTEXT = GrapeCity.Documents.Text
Imports GCDRAW = GrapeCity.Documents.Drawing

'' This sample shows how to render an SVGZ (compressed SVG) image.
Public Class RenderSvgz
    Function CreatePDF(ByVal stream As Stream) As Integer
        Dim svgPath = Path.Combine("Resources", "SvgMisc", "Smiling-Girl.svgz")
        Using svg = GcSvgDocument.FromSvgz(File.ReadAllBytes(svgPath))
            '' Render the image and a border around it:
            Dim doc = New GcPdfDocument()
            Dim g = doc.NewPage().Graphics
            Dim pt = New PointF(72, 72)
            g.DrawSvg(svg, pt)
            Dim sz = svg.GetIntrinsicSize(SvgLengthUnits.Points)
            g.DrawRectangle(New RectangleF(pt, sz), Color.MediumPurple)

            '' Done:
            doc.Save(stream)
            Return doc.Pages.Count
        End Using
    End Function
End Class