GraphicsPath.AddCurveToPoint
From Xojo Documentation
Method
GraphicsPath.AddCurveToPoint(cp1X As Double, cp1Y As Double, cp2X As Double, cp2Y As Double, x As Double, y As Double)
New in 2019r2
Supported for all project types and targets.
New in 2019r2
Supported for all project types and targets.
Adds a cubic Bézier curve to the point in the path.
Parameters
Value | Description |
---|---|
cp1x | The x-coordinate of the first control point. |
cp1y | The y-coordinate of the first control point. |
cp2x | The x-coordinate of the second control point. |
cp2y | The y-coordinate of the second control point. |
x | The x-coordinate of the end point of the curve. |
y | The y-coordinate of the end point of the curve. |
Sample Code
Draw a cloud:
Var curve As New GraphicsPath
curve.MoveToPoint(20, 20)
curve.AddCurveToPoint(20, 100, 200, 100, 200, 20)
g.DrawPath(curve)
// Draw a fluffy white cloud
Var cloud As New GraphicsPath
cloud.MoveToPoint(170, 80)
cloud.AddCurveToPoint(130, 100, 130, 150, 230, 150)
cloud.AddCurveToPoint(250, 180, 320, 180, 340, 150)
cloud.AddCurveToPoint(420, 150, 420, 120, 390, 100)
cloud.AddCurveToPoint(430, 40, 370, 30, 340, 50)
cloud.AddCurveToPoint(320, 5, 250, 20, 250, 50)
cloud.AddCurveToPoint(200, 5, 150, 20, 170, 80)
g.DrawingColor = &c0000FF
g.PenSize = 5
g.DrawPath(cloud)
curve.MoveToPoint(20, 20)
curve.AddCurveToPoint(20, 100, 200, 100, 200, 20)
g.DrawPath(curve)
// Draw a fluffy white cloud
Var cloud As New GraphicsPath
cloud.MoveToPoint(170, 80)
cloud.AddCurveToPoint(130, 100, 130, 150, 230, 150)
cloud.AddCurveToPoint(250, 180, 320, 180, 340, 150)
cloud.AddCurveToPoint(420, 150, 420, 120, 390, 100)
cloud.AddCurveToPoint(430, 40, 370, 30, 340, 50)
cloud.AddCurveToPoint(320, 5, 250, 20, 250, 50)
cloud.AddCurveToPoint(200, 5, 150, 20, 170, 80)
g.DrawingColor = &c0000FF
g.PenSize = 5
g.DrawPath(cloud)