Стрелочный компас

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
static float a=0;//Угол в градусах
a+=10;
Image2->Canvas->Rectangle(0,0,200,200);//Отчищаем поле
int x_new,y_new,//Новые координаты после поворота
    x0=5,y0=50;//Точка во круг которой вращаться 
TColor CL;
for(int x=0;x<Image1->Width;x++)//Цикл по Х
  for(int y=0;y<Image1->Height;y++)//Цикл по У
    {
    CL=Image1->Canvas->Pixels[x][y];//Запоминаем цвет пикселя
 
//Рассчитываем новые координаты после поворота точки на угол 
    x_new=x0+(x-x0)*cos(a*0.01745329251994329576923690768489)-(y-y0)*sin(a*0.01745329251994329576923690768489)+50;
    y_new=y0+(x-x0)*sin(a*0.01745329251994329576923690768489)+(y-y0)*cos(a*0.01745329251994329576923690768489)+10;
    Image2->Canvas->Pixels[x_new][y_new]=CL;//Рисуем новую точку
    }
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    static float a = 0; // Угол в градусах
    a += 10;
 
    Image2->Canvas->Rectangle(0, 0, Image2->Width, Image2->Height); // Очищаем поле
 
    // Поворачиваем изображение стрелки
    Image2->Canvas->StretchDraw(Rect(50, 10, 150, 110), Image1, Rect(0, 0, Image1->Width, Image1->Height), a * 0.01745329251994329576923690768489);
}

void draw_rotate(TPoint C, TPoint a[], int, double angle,
                 TCanvas *canv, TColor color)
{
    TPoint Result[4];
    for(int i = 0; i < 4; i++)
    {
        Result[i].X = C.X + (a[i].X - C.X)*cos(DegToRad(angle)) -
                            (a[i].Y - C.Y)*sin(DegToRad(angle));
        Result[i].Y = C.Y + (a[i].X - C.X)*sin(DegToRad(angle)) +
                            (a[i].Y - C.Y)*cos(DegToRad(angle));
    }
    canv->Brush->Color = color;
    canv->MoveTo(Result[0].X, Result[0].Y);
    canv->Polygon(Result, 3);
}
 
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    static double angle = 0;
    // в принципе, эти точки можно описать и вне таймера
    TPoint C = Image1->BoundsRect.CenterPoint(),
           p1 = Point(C.X - 5, C.Y),
           p2 = Point(C.X + 5, C.Y),
           p3 = Point(C.X, C.Y - 40),
           p4 = Point(C.X, C.Y + 40);
 
    Image1->Canvas->Brush->Color = clWhite;
    Image1->Canvas->Pen->Color = clWhite;
    Image1->Canvas->Rectangle(Image1->BoundsRect);
    Image1->Canvas->Pen->Color = clBlack;
    Image1->Canvas->Brush->Style = bsSolid;
 
    draw_rotate(C, OPENARRAY(TPoint, (p1, p2, p3, p1)), angle, Image1->Canvas, clRed);
    draw_rotate(C, OPENARRAY(TPoint, (p1, p2, p4, p1)), angle, Image1->Canvas, clBlue);
 
    angle += 5;
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
    TJPEGImage *jpeg = new TJPEGImage();
 
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
    if(!jpeg) {
      jpeg->LoadFromFile("kompas.jpg");
      Image1->Picture->Bitmap->Assign(jpeg);
    }
    Label1->Caption = TrackBar1->Position ;
    XFORM xform;
    double radd = ((TrackBar1->Position+21)*M_PI)/180; // '+21' - correct on real image
    xform.eM11=xform.eM22 = cos(radd);
    xform.eM12= sin(radd);
    xform.eM21=-sin(radd);
    xform.eDx=(PaintBox1->Width/2); xform.eDy=(PaintBox1->Height/2);
    SetGraphicsMode(PaintBox1->Canvas->Handle,GM_ADVANCED);
    SetWorldTransform(PaintBox1->Canvas->Handle,&xform);
    PaintBox1->Canvas->Draw(-(PaintBox1->Width/2),-(PaintBox1->Height/2),Image1->Picture->Bitmap);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
    TrackBar1Change(TrackBar1);
}
//---------------------------------------------------------------------------