Построить овал Декарта

double tmp; // переменная Т
 
int W2Sx(double xm) //вычисляем значение на холсте
{
    double tmp1=floor(ax*xm)+x0;
    return int(tmp1);
}
int W2Sy(double ym)   //вычисляем значение на холсте
{
    double tmp2=-floor(ay*ym)+y0;
    return int(tmp2);
 
{
Form1->Image1->Canvas->Pixels[W2Sx(3*StrToInt(Form1->Edit4->Text)*tmp/(1+tmp*tmp*tmp))][W2Sy(3*StrToInt(Form1->Edit4->Text)*tmp*tmp/(1+tmp*tmp*tmp))]=clRed ;   // рисуем график
}

double y3 (double x, double a, double b, double c)
{
  return 8 * a * b * b * x + pow(b, 4) + 4 * c;
}
//---------------------------------------------------------------------------
double y2 (double x, double a, double b, double c)
{
  return 8 * a * x + 2 * b * b - 4 * x * x;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Refresh();
  double a, b, c, x, y, temp, scale = 50;
 
  Canvas->Pen->Color = clBlue;
  Canvas->MoveTo(0, ClientHeight/2);
  Canvas->LineTo(ClientWidth, ClientHeight/2);
  Canvas->MoveTo(ClientWidth/2, 0);
  Canvas->LineTo(ClientWidth/2, ClientHeight);
 
  a = StrToFloatDef(Edit1->Text, 1);
  b = StrToFloatDef(Edit2->Text, 1);
  c = StrToFloatDef(Edit3->Text, 1);
  for (int i = -1; i <= 1; i += 2)
   for (int j = -1; j <= 1; j += 2)
    for (x = -100; x <= 100; x += 0.001)
    {
      temp = y3(x, a, b, c);
      if (temp >= 0)
      {
        y = y2(x, a, b, c) + j * 2 * sqrt(temp);
        if (y >= 0)
          Canvas->Pixels[scale * x + ClientWidth/2][i * scale * 0.5 * sqrt(y) + ClientHeight/2] = clRed;
      }
    }
}