1006_____________________________________________ 15

PolyBezier(points, (N/3)*3);

PolyBezierTo(points, (N/3)*3-1) ;

     N      -
    .



      -sin(x)  Po-
lyBezier, PolyBezierTo  Polyline.

const N = 10, Lx = 500, Ly = 100,  = 10;

TPoint points[N];

//  
for (int i = 0; i <= N; i++)

points[i] = Point((int)(i * Lx / (N-1)),

(int)(sin((double)i *  / (N-l))*Ly) +
Imagel->ClientHeight / 2);

// 
Imagel->Canvas->Pen->Color = clBlack;

Imagel->Canvas->Polyline(points, N-1);

Imagel->Canvas->Pen->Color = cIRed;

Imagel->Canvas->PolyBezier(points, (N/3)*3) ;

Imagel->Canvas->Pen->Color = cIGreen;

Imagel->Canvas->PolyBezierTo(points, (N/3)*3-1) ;

Polygon

       ()  -
   ,       -
     

 TCanvas



void _fastcall Polygon(const Windows::TPoint * Points,
const int Points Size);



 Polygon      (, )
   ,   Points.   
    .   Polygon   
Polyline,     .   
 Pen.       Brush.

     ,    -
  TPoint.





TPoint points [5] ;

points[0] = Point(30,150);

points[l] = Point(40,130);

points[2] = Point(50,140);

points [3] = Point(60,130);

points [4] = Point(70,150);

Imagel->Canvas->Polygon(points,4) ;

      ,    points.