EffectTwisterDistortion.Angle

Property Angle As Double

The Angle property returns or sets the twist angle in a Twister distortion effect.

Positive values denote a counterclockwise rotation, while negative values represent a clockwise rotation. To achieve several full rotations, multiply the number of rotations by 360 for the resultant rotation angle.

The following code example creates a text shape and applies a Twister distortion effect to it. The twisting angle specified is 450?counterclockwise, resulting in one complete rotation and an additional rotation of 90? Alternatively, you can specify the angle in the call to the CreateTwisterDistortion method, resulting in a procedure that works faster.

Sub Test() 
 Dim sText As Shape, eff As Effect 
 Set sText = ActiveLayer.CreateArtisticText(1.5, 5, "Twister") 
 sText.Text.FontProperties.Size = 150 
 Set eff = sText.CreateTwisterDistortion(0, 0, 0) 
 eff.Distortion.Twister.Angle = -450 
End Sub