PolyBezier

The PolyBezier The PolyBezier function draws one or more Bezier curves.

PolyBezier aPoints

Parameters

aPoints
Either two dimensional or one dimensional array specifying the endpoints and control points of the curve(s). The number of points must be one more than three times the number of curves to be drawn, because each Bezier curve requires two control points and an endpoint, and the initial curve requires an additional starting point.
In the case of two dimensional array the rightmost dimension is the coordinate: 0 is X, 1 is Y, the leftmost dimension is the point number.
In the case of one dimensional array the elements of array are elements of points coordinates in the sequence: X1,Y1,X2,Y2,... etc.

Remarks

The Polybezier function draws cubic Bezier curves by using the endpoints and control points specified by the aPoints parameter. The first curve is drawn from the first point to the fourth point by using the second and third points as control points. Each subsequent curve in the sequence needs exactly three more points: the ending point of the previous curve is used as the starting point, the next two points in the sequence are control points, and the third is the ending point.
The figure is not filled. This function draws lines by using the current pen.

Example
View result

<%
Response.Contenttype="image/gif"
xsize=320
ysize=240
Dim ps(3,1)
ps(0,0)=0
ps(0,1)=0
ps(1,0)=0
ps(1,1)=ysize\2
ps(2,0)=xsize
ps(2,1)=ysize\2
ps(3,0)=xsize-1
ps(3,1)=ysize
set obj=CreateObject("shotgraph.image")
obj.CreateImage xsize,ysize,2
obj.SetColor 0,255,255,204
obj.SetColor 1,51,102,51
obj.SetBgColor 0
obj.FillRect 0,0,xsize-1,ysize-1
obj.CreatePen "PS_SOLID",1,1
obj.PolyBezier ps
Response.BinaryWrite obj.GifImage(-1,1,"")
%>