Лабы / Тельминов / набор_1 / лабы.3(1,2,3) / part1 / ball

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <math.h>
#include "ball.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

pict::pict(TImage* _Img)
{
   Img=_Img;
   xc = Img->Width/2;    //Начальные координаты
   yc = Img->Height/2;
}

void pict::Hide()
{

   Img->Canvas->Pen->Width=3;   //Толщина линии
   Img->Canvas->Pen->Color=clWhite;
   Img->Canvas->Ellipse (xc+20*cos(ang)-a/2,       //Поворот координат
                         yc+20*sin(ang)-a/2,
                         xc+20*cos(ang)+a/2,
                         yc+20*sin(ang)+a/2);
   Img->Canvas->Ellipse (xc+20*cos(ang+3.14)-a/2,
                         yc+20*sin(ang+3.14)-a/2,
                         xc+20*cos(ang+3.14)+a/2,
                         yc+20*sin(ang+3.14)+a/2);

}

void pict::RotateToAngle(float Dang)
{

   Img->Canvas->Pen->Width=1;
   Img->Canvas->Pen->Color=clRed;
   Img->Canvas->Ellipse ( xc + 20*cos(ang + Dang) - a/2,  //Поворот координат
                          yc + 20*sin(ang + Dang) - a/2,
                          xc + 20*cos(ang + Dang) + a/2,
                          yc + 20*sin(ang + Dang) + a/2);
   Img->Canvas->Ellipse ( xc + 20*cos(ang + Dang + 3.14) - a/2,
                          yc + 20*sin(ang + Dang + 3.14) - a/2,
                          xc + 20*cos(ang + Dang + 3.14) + a/2,
                          yc + 20*sin(ang + Dang + 3.14) + a/2);

  ang +=Dang;

}