Создать графическое изображение средствами языка C++

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    ClientWidth  =   550;
    ClientHeight =   275;
    Color        = clRed;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
    Canvas->Pen  ->Color = clWhite;
    Canvas->Brush->Color = clWhite;
    Canvas->Rectangle( 137, 275, 412, 0);
 
    TPoint Pt[26];
 
    int dx[13] = { 0,20,40, 30,60, 65,100, 90,105, 50, 55,  3,  5};
    int dy[13] = {25,65,55,120,90,105, 95,130,140,185,205,200,255};
    for(int i = 0; i < 13; i++)
    {
        Pt[   i] = Point(275+dx[i], dy[i]);
        Pt[25-i] = Point(275-dx[i], dy[i]);
    }
 
    Canvas->Brush->Color = clRed;
    Canvas->Polygon(Pt, 25);
}
//---------------------------------------------------------------------------