Вращение и движение по синусоиде звезды

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <Math.hpp>
#include <math.h>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sBitBtn"
#pragma link "sSkinManager"
#pragma link "sEdit"
#pragma link "sSpinEdit"
#pragma link "sComboBox"
#pragma link "sBitBtn"
#pragma link "sComboBox"
#pragma link "sEdit"
#pragma link "sSkinManager"
#pragma link "sSpinEdit"
#pragma link "sPanel"
#pragma resource "*.dfm"
TFmain *Fmain;
float distance=1;
float rotation=0;
float plane=0;
int angle=0;
double scale = 1;  // ìàñøòàá îáúåêòà
 //  ðàäèóñû è êîë-âî ëó÷åé
TPoint center;
int i=1;
float a;
float b=50;
float c=0.1;
float d=1;
TPoint p[4];
TPoint points[9];
TPoint circ[7];
 
 
//---------------------------------------------------------------------------
__fastcall TFmain::TFmain(TComponent* Owner)
        : TForm(Owner)
{
   R = 30;
   color1R = 0; color1G = 255; color1v = -3;
   color2G = 255; color2B = 0; color2v = -3;
   x0 = PaintBox1->Width/4;
   y0 =PaintBox1->Height/4;
   r1 = 20; r1v = 0.08;
   r2 = 0; r2v = -0.03;
 
   ph = PaintBox1->Height;
   a=ph/2;
   posY = ph - (ph / 2);
   posX = 0;
   dir=0;
   b=50;
   angle=45;
   tx = 0;
   p_end = 0;
   k=0;
  }
//---------------------------------------------------------------------------
void __fastcall TFmain::sSpinEdit3Change(TObject *Sender)
{
   if (sSpinEdit3->Value>0)
   {
    R = sSpinEdit3->Value;
    PaintBox1->Repaint();
   }
}
//---------------------------------------------------------------------------
 
void __fastcall TFmain::PaintBox1Paint(TObject *Sender)
{
        Graphics::TCanvas* a = ((TPaintBox*)Sender)->Canvas;
 
    a->Brush->Style = bsSolid;
    a->Pen->Style = psSolid;
 
        a->Brush->Color = RGB(0, color2G, color2B);
    a->Pen->Color = a->Brush->Color;
 
        cr = R / 2;
 
        double cx0 = posX + R + cr; // öåíòð ïðÿìîóãîëüíèêà
        double cy0 = posY;
 
 
          if (k==0)
          {
           p[0] =TPoint((cx0-cr) * cos(-angle*M_PI/180/100) - (posY-cr) * sin(-angle*M_PI/180/100),(cx0+cr) * sin(-angle*M_PI/180/100) + (posY-cr) * cos(-angle*M_PI/180/100));
           p[1] =TPoint((cx0-cr) * cos(-angle*M_PI/180/100) - (posY-cr) * sin(-angle*M_PI/180/100),(cx0-cr) * sin(-angle*M_PI/180/100) + (posY+cr) * cos(-angle*M_PI/180/100));
           p[2] =TPoint((cx0+cr) * cos(-angle*M_PI/180/100) - (posY-cr) * sin(-angle*M_PI/180/100),(cx0-cr) * sin(-angle*M_PI/180/100) + (posY+cr) * cos(-angle*M_PI/180/100));
           p[3] =TPoint((cx0+cr) * cos(-angle*M_PI/180/100) - (posY-cr) * sin(-angle*M_PI/180/100),(cx0+cr) * sin(-angle*M_PI/180/100) + (posY-cr) * cos(-angle*M_PI/180/100));
           a->Pen->Color = a->Brush->Color;
           a->Polygon(p,3);
 
          k=1;
          }
          else
          {
 
              for (i=0; i<4; i++)
    {
        x[i] = x0 + r*cos((alpha + 45)*pi_180);
        y[i] = y0 - r*sin((alpha + 45)*pi_180);
        alpha += 90;
    }
            p[0] =TPoint((cx0-cr) * cos(-angle*M_PI/180/100) - (posY-cr) * sin(-angle*M_PI/180/100),(cx0+cr) * sin(-angle*M_PI/180/100) + (posY-cr) * cos(-angle*M_PI/180/100));
           p[1] =TPoint((cx0-cr) * cos(-angle*M_PI/180/100) - (posY-cr) * sin(-angle*M_PI/180/100),(cx0-cr) * sin(-angle*M_PI/180/100) + (posY+cr) * cos(-angle*M_PI/180/100));
           p[2] =TPoint((cx0+cr) * cos(-angle*M_PI/180/100) - (posY-cr) * sin(-angle*M_PI/180/100),(cx0-cr) * sin(-angle*M_PI/180/100) + (posY+cr) * cos(-angle*M_PI/180/100));
           p[3] =TPoint((cx0+cr) * cos(-angle*M_PI/180/100) - (posY-cr) * sin(-angle*M_PI/180/100),(cx0+cr) * sin(-angle*M_PI/180/100) + (posY-cr) * cos(-angle*M_PI/180/100));
           a->Pen->Color = a->Brush->Color;
           a->Polygon(p,3);
 
          }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TFmain::Timer1Timer(TObject *Sender)
{
  Timer1->Interval=sSpinEdit2->MaxValue - sSpinEdit2->Value + 1;
  nextPos();
  PaintBox1->Repaint();
  k=1;
}
//---------------------------------------------------------------------------
void TFmain::nextPos(void)
{
        posX ++;
        posY = a + b*sin((c*posX+d)*M_PI/180);
}
//---------------------------------------------------------------------------
void __fastcall TFmain::sBitBtn1Click(TObject *Sender)
{
 Timer1->Enabled = 1;
}
//---------------------------------------------------------------------------
 
void __fastcall TFmain::sBitBtn2Click(TObject *Sender)
{
 Timer1->Enabled = 0;        
}
//---------------------------------------------------------------------------
 
 
void __fastcall TFmain::sSpinEdit2Change(TObject *Sender)
{
 Timer1->Interval=sSpinEdit2->MaxValue - sSpinEdit2->Value + 1;
 PaintBox1->Repaint();
}
//---------------------------------------------------------------------------
 
void __fastcall TFmain::Timer2Timer(TObject *Sender)
{
  Timer2->Enabled = 0;
  Timer1->Enabled = 1;
}
 
 
void __fastcall TFmain::sSpinEdit1Change(TObject *Sender)
{
 angle = sSpinEdit1->Value;        
}
//---------------------------------------------------------------------------