Previous Document Next Document

Object Model Reference : Classes : S : Shape : Methods : Shape.CreateZipperDistortion
Shape.CreateZipperDistortion

Function CreateZipperDistortion(OriginX As Double, OriginY As Double, Amplitude As Long, Frequency As Long, [Random As Boolean = False], [Smooth As Boolean = False], [Local As Boolean = False]) As Effect

Description

Member of Shape

The CreateZipperDistortion method applies a Zipper distortion to a shape, returning an Effect object that represents the distortion properties.

Parameter
Description
OriginX
Specifies the x-coordinate around which the Zipper distortion rotates
OriginY
Specifies the y-coordinate around which the Zipper distortion rotates
Amplitude
Specifies the intensity of the Zipper distortion. Values range from 0 to 100; higher values produce a more pronounced Zipper distortion.
Frequency
Specifies the frequency of the Zipper distortion. Values range from 0 to 100; a higher frequency value creates more zipper points in the distortion.
Random
Specifies whether the horizontal and vertical points follow a haphazard course. This parameter is optional, and its default value is False.
Smooth
Specifies whether the edges at the points are smooth or jagged. This parameter is optional, and its default value is False.
Local
Specifies whether the effect is emphasized in a specific area of the selected object. This parameter is optional, and its default value is False.

VBA example

The following VBA example creates an ellipse and applies a Zipper distortion it before converting the shape to a curve.

Sub Test()
 Dim s As Shape
 ActiveDocument.ResetSettings
 Set s = ActiveLayer.CreateEllipse2(ActivePage.SizeWidth / 2, _
  ActivePage.SizeHeight / 2, 2)
 s.CreateZipperDistortion 0, 0, 6, 80
 s.ConvertToCurves
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.