Закрасить звезду

#include <vcl.h>
#include <math.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sButton"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
float rotation=0;
float plane=0;
float distance=1;
class TFPoint
{
public:
float X;
float Y;
float Z;
};
// Çàäàºìî êîîðäèíàòè ç³ðêè
TFPoint StarPoints[]=
        {
        {-100, 173, 153},
        { 200, 0  , 153},
        {-100,-173, 153},
        {-100, 173,-166},
        { 200,   0,-166},
        {-100,-173,-166},
        {  40,  57,   0},
        { -70,   6,   0},
        {  30, -63,   0},
        };
int lines[12][2]=
        {
        {0,6},
        {1,6},
        {2,8},
        {1,8},
        {2,7},
        {0,7},
        {4,6},
        {4,8},
        {5,8},
        {5,7},
        {3,6},
        {3,7}
        };
TFPoint XYZtoXY(float x,float y,float z)
{
//Âèðàõîâóýìî â³äñòàíü äî öåíòðà êîëà
float radius=sqrt(x*x+y*y);
radius*=distance;
//Îá÷èñëþºìî ïåðøèé êóò
float angle=0;
if(x==0)angle=atan(1000000);else angle=atan(y/x);
if(x<0)angle+=M_PI;
//Îáåðòàííÿ îáºêòà
angle+=rotation;
//Âèðàõîâóºìî íîâ³ êîîðäèíàòè
float realX=radius*cos(angle);
float realZ=radius*sin(angle);
float realY=z;
//Âèçíà÷àºìî íîâå â³äñòàíü â³ä öåíòðó
radius=sqrt(realY*realY+realZ*realZ);
radius*=distance;
//Îá÷èñëþºìî äðóãèé êóò
if(realZ==0)angle=atan(1000000);else angle=atan(realY/realZ);
if(realZ<0)angle+=M_PI;
 
//Äîäàºìî êóò íàõèëó ïåðåð³çó
angle+=plane;
 
//îá÷èñëþºìî êîîðäèíàòè äëÿ åêðàíó
TFPoint point;
point.X=realX;
point.Y=radius*sin(angle);
point.Z=radius*cos(angle);
 
//Òóò ìè öåíòðóºìî ïîëîæåííÿ îá'ºêòó
point.X+=420;
point.Y+=305;
return point;
}
void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift,
      int WheelDelta, TPoint &MousePos, bool &Handled)
{
distance+=WheelDelta/1000.0;
DrawPoints();
}
//////---------------------------------------------------------------------
void TForm1::DrawPoints()
{
TFPoint point1,point2;
Canvas-> Pen->Width=6;
Canvas->Brush->Color=clWindow;
Canvas->FillRect(Form1->GetClientRect());
Canvas->Brush->Color=RGB(random(255),random(255),random(255));
Canvas->Pen->Color=RGB(random(255),random(255),random(255));
 
for(int i=0;i<12;i++)
        {
point1=XYZtoXY(StarPoints[lines[i][0]].X,StarPoints[lines[i][0]].Y,StarPoints[lines[i][0]].Z);
point2=XYZtoXY(StarPoints[lines[i][1]].X,StarPoints[lines[i][1]].Y,StarPoints[lines[i][1]].Z);
Canvas->MoveTo(point1.X,point1.Y);
Canvas->LineTo(point2.X,point2.Y);
Canvas->FillRect(Rect(point1.X-4,point1.Y-4,point1.X+4,point1.Y+4));
Canvas->FillRect(Rect(point2.X-4,point2.Y-4,point2.X+4,point2.Y+4));
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
rotation+=(420-X)/5000.0;
plane=-(305-Y)/100.0;
DrawPoints();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sButton1Click(TObject *Sender)
{
Close();
}

// чтобы такого:
//Äîäàºìî êóò íàõèëó ïåðåð³çó
// и такого
void TForm1:DrawPoints()
// не было

void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
  TPoint points[6];
  points[0] = Point(140,10);
  points[1] = Point(120,60);
  points[2] = Point(170,30);
  points[3] = Point(110,30);
  points[4] = Point(160,60);
  points[5] = Point(140,10);
  PaintBox1->Canvas->Pen->Color = clBlue;
  PaintBox1->Canvas->Brush->Color = clYellow;
  PaintBox1->Canvas->Polygon(points,5);
}