Previous Document Next Document

Object Model Reference : Classes : S : SubPath : Methods : SubPath.AppendCurveSegment
SubPath.AppendCurveSegment

Function AppendCurveSegment(x As Double, y As Double, [StartingControlPointLength As Double = -1], [StartingControlPointAngle As Double], [EndingControlPointLength As Double = -1], [EndingControlPointAngle As Double], [AppendAtBeginning As Boolean = False]) As Segment

Description

Member of SubPath

The AppendCurveSegment method joins a new curve segment to the beginning or the end of a subpath.

Parameter
Description
x
Specifies, in document units, the horizontal position of the new line segment to append to the subpath
y
Specifies, in document units, the vertical position of the new line segment to append to the subpath
StartingControlPointLength
Specifies, in document units, the distance from the node that lies between the new appended curve segment and the existing curve’s subpath. This parameter is optional, and its default value is -1.
StartingControlPointAngle
Specifies the angle, measured in degrees, of the starting control point. This parameter is optional, and its default value is 0.
EndingControlPointLength
Specifies, in document units, the distance from the node that lies between the new appended curve segment and the existing curve’s subpath. This parameter is optional, and its default value is -1.
EndingControlPointAngle
Specifies the angle, measured in degrees, of the ending control point. This parameter is optional, and its default value is 0.
AppendAtBeginning
Specifies whether the new line segment joins the subpath at the head of the subpath. This parameter is optional, and its default value is False.

VBA example

The following VBA 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.AppendCurveSegment 3.6, 0.8, 0.43, 160, 0.43, -160, False
 sp.AppendLineSegment 0, 0.8, False
 sp.AppendCurveSegment 0, 0, 0.43, -20, 0.43, 20, 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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.