SubPath.AppendCurveSegment2

Function AppendCurveSegment2(x As Double, y As Double, StartingControlPointX As Double, StartingControlPointY As Double, EndingControlPointX As Double, EndingControlPointY As Double, [AppendAtBeginning As Boolean = False]) As Segment

Member of SubPath

The AppendCurveSegment2 method appends a new curve segment to the subpath.


Parameters	Description
x	Specifies the horizontal position of the new line segment that is appended to the subpath object. The x-coordinate is measured in document units.
y	Specifies the vertical position of the new line segment that is appended to the subpath object. The y-coordinate is measured in document units.
StartingControlPointX	Specifies the horizontal position of the starting control point
StartingControlPointY	Specifies the vertical position of the starting control point
EndingControlPointX	Specifies the horizontal position of the ending control point
EndingControlPointY	Specifies the vertical position of the ending control point
AppendAtBeginning	Specifies whether the new line segment joins the subpath at the head of the subpath object This parameter is optional, and its default value is False.

The following code example creates a closed curve and applies a fountain fill to it:

Sub Test() 
 Dim s As Shape 
 Dim crv As Curve 
 Dim sp As SubPath 
 Dim c As New Color 
 Set crv = CreateCurve(ActiveDocument) 
 Set sp = crv.CreateSubPath(0, 0) 
 sp.AppendLineSegment 3.6, 0, False 
 sp.AppendCurveSegment2 3.6, 0.8, 4.6, 3.1, 5.43, -1.6, False 
 sp.AppendLineSegment 0, 0.8, False 
 sp.AppendCurveSegment2 5, 4.8, 5, -2, 2, -5, False 
 sp.Closed = True 
 Set s = ActiveLayer.CreateCurve(crv) 
 c.CMYKAssign 0, 0, 0, 100 
 With s.Fill.ApplyFountainFill(c, c, , 90, , , , 
cdrCustomFountainFillBlend).Colors 
  .Add CreateCMYKColor(0, 0, 0, 0), 70 
 End With 
End Sub