Вписать равносторонний треугольник в окружность

void __fastcall TForm2::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
int count=0;// Счетчик
TPoint points[3];  // Массив для хранения координат
float ax,ay,bx,by,cx,cy; // Координаты вершин треугольника
float mx,my,kc,ky; // координаты оснований высот
float p, s, rx, ry, r; // Периметр, площадь треугольника, радиус окружности
float da,db,dc; // Длины сторон треугольника
float x1,y1,x2,y2; // Координаты концов 2-х биссектрис
float k=3; // Коэффициент пропорциональности
float a1,b1,c1,a2,b2,c2; // Коэффициенты уравнений биссектрис
float xc, yc; // Координаты центра окружности
double sqrt(double x);
// Рисуем
Image1->Canvas->FillRect(Image1->Canvas->ClipRect);
points[count] = Point(X,Y);
if(count == 0){
    Image1->Canvas->MoveTo(X,Y);
     count++;
}
 
else
{
    Image1->Canvas->LineTo(X,Y);
    count=0;
    xc=points[0].x;   // координаты центра
    yc=points[0].y;   // координаты центра
    rx=points[1].x;
    ry=points[1].y;
    r=sqrt((xc-rx)*(xc-rx)+(yc-ry)*(yc-ry));
    Image1->Canvas->Ellipse(xc-r,yc-r,xc+r,yc+r);
    }
 
    // Длины сторон треугольника
    r=sqrt(pow(xc-rx,2)+pow(yc-ry,2));
      da=r*sqrt(k);
      db=r*sqrt(k);
      dc=r*sqrt(k);
 
   //координаты центра
            a1=bx-ax;
            b1=ay-by;
            c1= -(bx-ax)*((ax+bx)/2)+(ay-by)*((ay+by)/2);
            a2=(cx-bx);
            b2=(by-cy);
            c2=-(cx-bx)*((bx+cx)/2)+(by-cy)*((by+cy)/2);
                xc=(b2*c1-b1*c2)/(a1*(-b2)+b1*a2);
                yc=(a1*(-c2)+a2*c1)/(a1*(-b2)+b1*a2);
TPoint points[3];
points[0] = Point(ax,ay);
points[1] = Point(bx,by);
points[2] = Point(cx,cy);
Image1->Canvas->Polygon(points, 2);
  }