Лабы / Тельминов / набор_3 / лаб3 / part1 / part1 / 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;
}