EffectContour.SpacingAcceleration

Property SpacingAcceleration As Long

The SpacingAcceleration property returns or sets the rate of object acceleration in a contour effect. You can change the progression of the size of intermediate objects.

The following code example creates a contour effect with non-uniform spacing and color transition:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateEllipse2(5.5, 4, 2) 
 s.Fill.UniformColor.RGBAssign 255, 0, 0 
 s.Outline.SetProperties 0.05, , CreateRGBColor(0, 255, 255) 
 With s.CreateContour(cdrContourOutside, 0.5, 5, , , 
CreateRGBColor(255, 255, 0)).Contour 
  .LinkAcceleration = False 
  .ColorAcceleration = 50 
  .SpacingAcceleration = -50 
 End With 
End Sub