Лабы / ООП.Builder / Лабы / sinus / Sinysoida

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

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Sinysoida.h"

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

#pragma package(smart_init)
CSinys::CSinys(TImage* _Img)
{
Img=_Img;
xc=220;
yc=150;
}
void CSinys::DrawSinys(Boolean pam)
{
Img->Canvas->MoveTo(xc,yc-pamy);
Img->Canvas->Pen->Width=3;
if (pam) Img->Canvas->Pen->Color=clBlack;
 else Img->Canvas->Pen->Color=clWhite;

for (double i=0;i<=270;i+=4)
{
x=Argum(i);
y=pamy*sin(Argum(i-90));
Img->Canvas->LineTo(xc+pamx*x,yc+y);
Img->Canvas->MoveTo(xc+pamx*x,yc+y);
}
Img->Canvas->MoveTo(xc,yc-pamy);
for (double i=0;i<=270;i+=4)
{
x=Argum(i);
y=pamy*sin(Argum(i-90));
Img->Canvas->LineTo(xc-pamx*x,yc+y);
Img->Canvas->MoveTo(xc-pamx*x,yc+y);
}

};
CBall::CBall(TImage* _Img)
{
Img=_Img;
xc=220;
yc=150;
}
void CBall::DrawBall(double posx,double posy,Boolean pam)
{
Img->Canvas->Pen->Width=3;
xxc=xc+posx;
yyc=yc+posy;
if (pam) Img->Canvas->Pen->Color=clBlack;
 else Img->Canvas->Pen->Color=clWhite;
Img->Canvas->Brush->Color=clBlack;
Img->Canvas->Ellipse(xxc-10,yyc-10,xxc+10,yyc+10);
Img->Canvas->Brush->Color=clWhite;
Img->Canvas->Ellipse(xxc-10+2,yyc-10+2,xxc+10-10,yyc+10-10);

};
void CBall::Draw2Ball(double posx,double posy,Boolean pam)
{
dx=posx;
dy=posy;
Img->Canvas->Pen->Width=3;
xxc=xc+posx;
yyc=yc+posy;
if (pam) Img->Canvas->Pen->Color=clBlack;
 else Img->Canvas->Pen->Color=clWhite;
Img->Canvas->Brush->Color=clBlack;
Img->Canvas->Ellipse(xxc-10,yyc-10,xxc+10,yyc+10);
Img->Canvas->Brush->Color=clWhite;
Img->Canvas->Ellipse(xxc-10+2,yyc-10+2,xxc+10-10,yyc+10-10);
xxc=xc-posx;
yyc=yc-posy;
Img->Canvas->Brush->Color=clBlack;
Img->Canvas->Ellipse(xxc-10,yyc-10,xxc+10,yyc+10);
Img->Canvas->Brush->Color=clWhite;
Img->Canvas->Ellipse(xxc-10+2,yyc-10+2,xxc+10-10,yyc+10-10);
};