Shape.CreatePushPullDistortion method - Developer Area

API Documentation > CorelDRAW > 2021 > Shape > IVGShape

Shape.CreatePushPullDistortion method

Creates a push-pull distortion effect

Syntax:

Function CreatePushPullDistortion(ByVal OriginX As Double, ByVal OriginY As Double, ByVal Amplitude As Long) As Effect

Parameters:

Name	Type	Description
OriginX	Double	Specifies the x-coordinate around which the Push-and-pull distortion rotates
OriginY	Double	Specifies the y-coordinate around which the Push-and-pull distortion rotates
Amplitude	Long	Specifies the intensity of the Push-and-pull-distortion effect. Values range from 0 to 100; higher values produce a more pronounced distortion.

Remarks:

The CreatePushPullDistortion method applies a Push-and-pull distortion to a shape, returning an Effect object that represents the distortion properties.

Examples:

The following VBA example creates an ellipse in the middle of the page and applies a Push-and-pull distortion to 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.CreatePushPullDistortion 0, 0, 60
  s.ConvertToCurves
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25