Графика

#include "math.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Graphics::TBitmap *bmp = new Graphics::TBitmap;
    int x, y;
    for ( float i = 0; i < 360; i += 0.1 )
    {
      bmp->PixelFormat = pf24bit;
      bmp->Width  = 100;
      bmp->Height = 100;
      bmp->Canvas->Brush->Color = clBtnFace;
      bmp->Canvas->FillRect(Rect(0, 0, bmp->Width, bmp->Height));
      bmp->Canvas->Pen->Width = 5;
      bmp->Canvas->Pen->Color = clRed;
      bmp->Canvas->Ellipse(4, 4, 95, 95);
      bmp->Canvas->Pen->Width = 16;
      bmp->Canvas->Pen->Color = clGreen;
      bmp->Canvas->Ellipse(18, 18, 81, 81);
 
      bmp->Canvas->Pen->Width = 3;
      bmp->Canvas->Pen->Color = clYellow;
      bmp->Canvas->Brush->Color = clBlue;
      for (float j = 0.01+i; j < 3.14*2+i; j += 3.14*2/8)
      {
          x = 50 + cos(j)*31;
          y = 50 + sin(j)*31;
          bmp->Canvas->Ellipse(x - 5 , y - 5, x + 5, y + 5);
      }
 
      Canvas->Draw(int(i*40)%Width, 50, bmp);
      Application->ProcessMessages();
      Sleep(20);
    }
    bmp->Graphics::~TBitmap();
}
//---------------------------------------------------------------------------

#include "math.h"
class MoviWheel
{
    private:
      int  _x, _y, _z;
    public:
      MoviWheel(int x, int y, int z): _x(x), _y(y), _z(z/2){};
      void GoXY(int n, float L, TColor colPn, TColor colBr)
      {
          Form1->Canvas->Pen->Color = colPn;
          Form1->Canvas->Brush->Color = colBr;
          for ( float i = _x; i < M_PI*2*_z*L; ++i )
          {
            Form1->Canvas->Ellipse(i - _z, _y - _z, i + _z, _y + _z);
            for ( float j = i/_z; j < M_PI*2 + i/_z; j += M_PI*2/n )
            {
              Form1->Canvas->MoveTo(i, _y);
              Form1->Canvas->LineTo(i + _z*cos(j), _y + _z*sin(j) );
            }
            Sleep(77/n);
          }
      }
 
};
//-----------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MoviWheel a(60,60, 60), b(50,150, 100), c(30,130, 30), d(0,100, 200);
    a.GoXY(3, 3,   clMaroon, clCream);
    b.GoXY(7, 2.5, clNavy,   clBlue );
    c.GoXY(5, 7,   clYellow, clRed  );
    d.GoXY(16, 2, clBtnFace, clBtnShadow );
}
//-----------------------------------------------------------------------