Триангуляция монотонного многоугольника (полигона)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <vector>
#include <stack>
#pragma hdrstop
 
#include "Unit10.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm10 *Form10;
 
int ii=0;
struct vertex
{
    TPoint point; int k;
    vertex(TPoint b, int m)
    {
        point=b;
        k=m;
    }
    vertex(){}
 };
vector<TPoint> s(0);
//---------------------------------------------------------------------------
__fastcall TForm10::TForm10(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
bool IsValidDiagonal()
{
 
}
 
void TriangulateMonotonePolygon(vector<TPoint>& s)
{
   vertex [n] V = new vertex(s); // массив вершин P, отсортированный по y-координате в порядке убывания.
   stack S = new stack();
   S.push(V[1]);
   S.push(V[2]);
   for (int j=3; j < n-1; j++)
      if (V[j] = S.peek())
         while (!S.empty())
            if (S.size() != 1)
               Insert edge(V[j], S.peek()) in D
            S.pop();
         S.push(V[j-1]);
         S.push(V[j]);
      else
         vertex(last) = S.peek();
         S.pop();
         while (IsValidDiagonal(edge(V[j], S.peek()), last)) //проверка возможности построения
                                                             //диагонали — предикат "левый поворот"
            last = S.peek();
            S.pop();
            Insert edge(V[j], last) in D
         S.push(last);
         S.push(V[j]);
   S.pop()
   while (!S.empty())
      if (S.size() != 1)
         Insert edge(V[j], S.peek()) in D
      S.pop();
}
//---------------------------------------------------------------------------
void __fastcall TForm10::Button1Click(TObject *Sender)
{
HDC hdc=GetDC(Form10->Handle);
for (int i = 0; i < ii; i++)
{
MoveToEx(hdc,s[i].x,s[i].y,NULL);
LineTo(hdc,s[(i+1)%ii].x,s[(i+1)%ii].y);
}
TriangulateMonotonePolygon(s);
}
//---------------------------------------------------------------------------
void __fastcall TForm10::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
HDC hdc=GetDC(Form10->Handle);
SetPixel(hdc,X,Y,clBlack);
s.push_back(TPoint(X,Y));
ii++;
}
//---------------------------------------------------------------------------