''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.Drawing
Imports GrapeCity.Documents.Word

'' This example shows how to add a 3D rotation effect to a shape.
Public Class Shape3DRotationEffect
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()

        Dim paragraph As Paragraph = doc.Body.Paragraphs.Add()
        Dim run As Run = paragraph.GetRange().Runs.Add()
        Dim shape As Shape = run.GetRange().Shapes.Add(200, 200, GeometryType.Rectangle)
        shape.Fill.Type = FillType.Solid
        shape.Fill.SolidFill.ThemeColor = ThemeColorId.Accent1

        shape.Line.Fill.Type = FillType.NoFill

        Dim shadow As OuterShadow = shape.Effects.Shadow
        shadow.Alignment = RectangleAlignment.Center
        shadow.Angle = 87F
        shadow.Blur = 17.75F
        shadow.Distance = 4F
        shadow.Color.RGB = Color.FromArgb(255, 0, 0, 0)
        shadow.Color.Transparency = 0.67F

        '' apply 3D format
        Dim threeDFormat As ThreeDFormat = shape.Effects.ThreeDFormat
        threeDFormat.Depth.Width = 20F
        threeDFormat.Contour.Width = 1.5F
        threeDFormat.Contour.Color.RGB = Color.FromArgb(255, 255, 255, 255)

        Dim topbevel As Bevel = threeDFormat.TopBevel
        topbevel.Type = BevelType.Angle
        topbevel.Width = 6.5F
        topbevel.Height = 3.5F

        Dim bottomBevel As Bevel = threeDFormat.BottomBevel
        bottomBevel.Type = BevelType.Angle
        bottomBevel.Width = 6.5F
        bottomBevel.Height = 3.5F

        '' apply 3D scene
        Dim lighting As Lighting = shape.Effects.ThreeDScene.Lighting
        lighting.Type = LightRigType.Harsh
        lighting.Direction = LightRigDirection.Top
        lighting.Rotation.Latitude = 0F
        lighting.Rotation.Longitude = 0F
        lighting.Rotation.Revolution = 50F

        Dim camera As Camera = shape.Effects.ThreeDScene.Camera
        camera.Preset = CameraPreset.PerspectiveFront
        camera.Perspective = 55F
        camera.Rotation.Latitude = 8.1F
        camera.Rotation.Longitude = 325.5F
        camera.Rotation.Revolution = 2.9F

        '' Done:
        Return doc
    End Function
End Class