SubPath.GetCurveSpeedAt

Function GetCurveSpeedAt([Offset As Double = 0.5], [OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset]) As Double

Member of SubPath

The GetCurveSpeedAt method returns a value that indicates the rate at which the curvature changes at a given point.

A value close to 0 means that the curvature is steady — for example, in a circle. If it is greater than 0, the curvature increases — for example, in a spiral. A value of less than 0 value indicates that the curvature decreases — for example, in an unwinding spiral.


Parameters	Description
Offset	Specifies the offset, in document units, of a point. This parameter is optional, and its default value is 0.5.
OffsetType	Specifies the type of offset of a point. This parameter returns cdrSegmentOffsetType. This parameter is optional, and its default value is cdrRelativeSegmentOffset (1).

The following code example shows how the curvature changes in the middle of the first subpath of the selected curve:

Sub Test() 
 Dim c As Double 
 Dim sp As SubPath 
 Set sp = ActiveShape.Curve.Subpaths(1) 
 c = sp.GetCurveSpeedAt(0.5, cdrRelativeSegmentOffset) 
 If Abs(c) < 0.01 Then 
  MsgBox "Curvature is steady: " & c 
 Else 
  If c > 0 Then 
   MsgBox "Curvature is increasing: " & c 
  Else 
   MsgBox "Curvature is decreasing: " & c 
  End If 
 End If 
End Sub