Bezier Statement:
Draw Bezier lines
Object.DrawBezier
Points, n
|
Parametrs:
Points-array of x, y coordinate pairs in consecutive order
n- number of x and y coordinates
|
Sample:
Dim Points(7)
Points(0) = 0 ‘x1
Points(1) = 0 ‘y1
Points(2) = 10 ‘x2
Points(3) = 10 ‘y2
Points(4) = 10 ‘x3
Points(5) = 0 ‘y3
Points(6) = 10 ‘x4
Points(7) = 0 ‘y4
object.DrawBezier
Points,8
This method draws Bezier curves. Before calling DrawBezier method you may
define line color and thickness with SetColor and SetLineWidth.methods. The
curve can be extended. The last point of first line is the first point of
second line. Thus you will need to define 7 points (array dimension is 14) for
2 lines.
See also
DrawBezier,SetColor,
SetLineWidth
More samples:
Gradient
Arc,
Besier, Circle,
Ellipse,
Gradient, Pie,
Polygon,
Rectangle, Unclosed
polygon
Primitive
Arc,
Beziers, Circle,
Ellipse,
Line, Pie,
Rectangle, Unclosed
polygon, Unclosed
polygon
|
|