Центр эллипса.

[Vergil]

В моей программе на C++ рисуются эллипсы

Image1->Canvas->Ellipse(ptr[i]->GetX(),ptr[i]->GetY(), ptr[i+1]->GetX(),ptr[i+1]->GetY());}

Мне нужно, чтобы в центре эллипса рисовался круг. Но я не знаю, как найти центр. Вот в этом проблема.

Если нужен, то вот код программы.

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
class Points
{protected:
int x,y;
public:
Points(int x1=0,int y1=0) 
{x=x1; y=y1;}
Points(Points &pt);
int GetX(){return x;} 
int GetY(){return y;} };
Points::Points(Points &pt)
{x=pt.x;
y=pt.y;}
class Circle: public Points
{protected:
TColor color;
public:
Circle(int x1=0,int y1=0,TColor col=clBlack);
Circle(Circle &el)
{ x=el.x;
y=el.y;
color=el.color;}
TColor GetColor(){return color;}};
Circle::Circle(int x1,int y1,TColor col)
{ x=x1; y=y1;
  color=col;}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{int i;
int x2,y2;
if(cb1->Checked)
{Image1->Canvas->Pen->Color=clWhite;
Image1->Canvas->Brush->Color=clWhite;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height); }
int n;
n=StrToInt(Edit1->Text);
Circle **ptr;
ptr=new Circle *[n];
for(i=0;i<n;i++)
{x2=random(Image1->Width);
y2=random(Image1->Height);
ptr[i]=new Circle(x2,y2,(TColor)(random(100)*50000));}
for(i=0;i<n-1;i=i+2)
{Image1->Canvas->Brush->Style=bsClear;
Image1->Canvas->Pen->Color=ptr[i]->GetColor();
Image1->Canvas->Ellipse(ptr[i]->GetX(),ptr[i]->GetY(), ptr[i+1]->GetX(),ptr[i+1]->GetY());}
  for(i=0;i<n;i++)
  {delete ptr[i];} 
delete [] ptr;}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{Close();}
//---------------------------------------------------------------------------

[Z1000000]

Ты сама на свой вопрос ответила.

var 
 R : Integer; //Радиус круга
Image1->Canvas->Ellipse(
(ptr[i+1]->GetX() + ptr[i]->GetX()) div 2 - R,
(ptr[i+1]->GetY() + ptr[i]->GetY()) div 2 - R,
(ptr[i+1]->GetX() + ptr[i]->GetX()) div 2 + R,
(ptr[i+1]->GetY() + ptr[i]->GetY()) div 2 + R
);

[Vergil]

Спасибо. Попытаюсь сделать.