вписание круга в ромб !?

[Weyner]

var
  c: array [1..4] of TPoint;
  b: integer; // Длина диагонали ромба
  d: integer; // Длина диагонали квадрата и диаметр круга
const
  a = 125;
begin
d := Round(sqrt(2)*a);
  b := Round(sqrt(2)*d);


  c[1].x := x;
  c[1].y := y - (b div 2);
  c[2].x := x + (b div 2);
  c[2].y := y;
  c[3].x := x;
  c[3].y := y + (b div 2);
  c[4].x := x - (b div 2);
  c[4].y := y;


 canvas.Pen.Color:=ClBlack;
 Canvas.Brush.Color:=ClBlue;
 Canvas.Polygon(c);
 Canvas.Pen.Color:=Clblue;




 canvas.Pen.Color:=Clblack;         
Canvas.Brush.Color:=Clwhite;


   Canvas.ellipse(x -(d div 2), y - (d div 2),x + (d div 2), y + (d div 2));

вот код, polygon это ромб, ellipse это круг, вот у меня не сходится круг не равняться с краями ромба!!!
как сделать чтобы края круга соприкасались с ромбом, ввел формулы и не как все равно!!!!
Работа в Delphi!!!

[Stilet]

Если не ошибаюсь тебе нужно рассчитать площадь ромба, разделить на 4
Потом 2 умножить на это число, и поделить на длину стороны ромба.
Получишь радиус окружности.
Теперь центр. Вот тут я затрудняюсь сказать...

[Weyner]

а возможно как нить это в коде напишите !!!))