Графика - рисует не ту фигуру, что задана в матрице. Подскажите - где и в чем ошибка. Код написан

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#define FBC formBitmap->Canvas
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 Graphics::TBitmap * formBitmap;          // Описание указателя на буфер
 
static int W,H,nOs,h,hh,i,j,k,st,tt;    //указание переменных
static float a,b,d,e,l,m,p,q,s;
 
static float matrIsx[4][3];   // прототипы функций
static float matrIzm[4][3];
static float matrRez[4][3];
         int matrEkr[4][2];
 
static float Tpr[3][3];
 
static void GrafKonv(void);
static void Preobr(void);
static void Normir(void);
 
static void ShowAll(void);
static void ShowOsi(void);
static void ShowStk(void);
static void ShowFig(TColor col,float matrT[4][3]);
static void Oboznath(float matrTo[4][3]);
void __fastcall TForm3::FormCreate(TObject *Sender)
{
W=ClientWidth - (Panel1->Width) -10;                      // Задаем ширину графич. окна на форме
H=ClientHeight - (Panel2->Height) -10;                     // Задаем высоту графич. окна на форме
 
formBitmap=new Graphics::TBitmap();                     // Выделям динамич. память под буфер
formBitmap->Width = W;                                           // Задаем ширину битмапа
formBitmap->Height= H;                                            // Задаем высоту битмапа
formBitmap->Canvas->Brush->Color=clWhite;        // Задаем цвет закраски битмапа
 
 matrIsx[0][0]=1;   matrIsx[0][1]=1;   matrIsx[0][2]=1;  // инициализация матрицы исходных координат
matrIsx[1][0]=2;   matrIsx[1][1]=3;   matrIsx[1][2]=1;
matrIsx[2][0]=4;   matrIsx[2][1]=3;   matrIsx[2][2]=1;
matrIsx[3][0]=3;   matrIsx[3][1]=2;   matrIsx[3][2]=1;
 
 Tpr[0][0]=1;   Tpr[0][1]=0;   Tpr[0][2]=0;    // инициализация матрицы видового преобразования
Tpr[1][0]=0;   Tpr[1][1]=1;   Tpr[1][2]=0;
Tpr[2][0]=0;   Tpr[2][1]=0;   Tpr[2][2]=1;
 
 
StringGrid1->Cells[0][0]=matrIsx[0][0];     //заполнения таблицы     1
StringGrid1->Cells[1][0]=matrIsx[0][1];
StringGrid1->Cells[2][0]=matrIsx[0][2];
StringGrid1->Cells[0][1]=matrIsx[1][0];
StringGrid1->Cells[1][1]=matrIsx[1][1];
StringGrid1->Cells[2][1]=matrIsx[1][2];
StringGrid1->Cells[0][2]=matrIsx[2][0];
StringGrid1->Cells[1][2]=matrIsx[2][1];
StringGrid1->Cells[2][2]=matrIsx[2][2];
StringGrid1->Cells[0][3]=matrIsx[3][0];
StringGrid1->Cells[1][3]=matrIsx[3][1];
StringGrid1->Cells[2][3]=matrIsx[3][2];
 
 
StringGrid2->Cells[0][0]= Tpr[0][0];     //заполнения таблицы     2
StringGrid2->Cells[1][0]= Tpr[0][1];
StringGrid2->Cells[2][0]= Tpr[0][2];
StringGrid2->Cells[0][1]= Tpr[1][0];
StringGrid2->Cells[1][1]= Tpr[1][1];
StringGrid2->Cells[2][1]= Tpr[1][2];
StringGrid2->Cells[0][2]= Tpr[2][0];
StringGrid2->Cells[1][2]= Tpr[2][1];
StringGrid2->Cells[2][2]= Tpr[2][2];
StringGrid2->Cells[0][3]= Tpr[3][0];
StringGrid2->Cells[1][3]= Tpr[3][1];
StringGrid2->Cells[2][3]= Tpr[3][2];
 
 
nOs = 10; // указание количества отсчетов
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormPaint(TObject *Sender)
{
formBitmap->Canvas->FillRect(Rect(0,0,W,H)); // Забеливаем битмап
 GrafKonv();                            // Вызываем конвейер (рисуем на битмапе)
 Canvas->Draw(0,0,formBitmap);          // Перерисовываем битмап на форму
        
}
//---------------------------------------------------------------------------
   void GrafKonv(void)     //графический конвеер
{
 Preobr();         // Вызываем функцию преобразования фигуры
  Normir();         // Вызываем функцию нормировки преобразованных координат
  ShowAll();        // Рисуем на битмапе всё: сетку, оси, фигуру, обозначения
}
 void Preobr(void)   // преобразование матриц
{
 for(i=0;i<4;i++)
  {for(j=0;j<3;j++)
    {float Sum=0;
     for(k=0;k<3;k++)
        Sum=Sum+matrIsx[i][k]* Tpr[k][j];
     matrIzm[i][j]=Sum;
    }
  }
}
 
void Normir(void) //нормировка
{
 for(int i=0;i<4;i++)
    for(int j=0;j<3;j++)
      {if(matrIzm[i][2]!=1)
         {if(matrIzm[i][2]==0)
             matrIzm[i][2]=0,001;
          matrRez[i][j]=matrIzm[i][j]/matrIzm[i][2];
         }
       else  matrRez[i][j]=matrIzm[i][j];
      }
}
 
void ShowAll(void)
{
 if(Form3->CheckBox1->Checked)    // Если флажок "Сетка" включен,
  ShowStk();                    // рисуем сетку
 
 ShowOsi();                       // Рисуем оси
 ShowFig(clSilver,matrIsx);       // Рисуем исходную фигуру
 
 // if(Form3->CheckBox2->Checked)    // Если флажок "Обозначения"включен,
   //Oboznath(matrIsx);            // проставляем исходные обозначения
 
 //ShowFig(clRed,matrRez);          // Рисуем преобразованную фигуру
 
//if(Form3->CheckBox2->Checked)    // Если флажок "Обозначения" включен,
   //Oboznath(matrRez);            // проставляем преобразованные обозначения
 }
 
 
 void ShowOsi(void)   // прорисовка осей
 
 {
 FBC->Pen->Style=psSolid;         // Устанавливаем свойства пера
FBC->Pen->Color=clBlack;
 
FBC->MoveTo(0,H/2);              // Рисуем ось Х
FBC->LineTo(W,H/2);
 
FBC->MoveTo(W/2,0);              // Рисуем ось Y
FBC->LineTo(W/2,H);
 
FBC->MoveTo((W-15),(H/2) - 10);              // стрелка Х 1
FBC->LineTo(W,H/2);
FBC->MoveTo((W-15),(H/2) + 10);              // стрелка Х 2
FBC->LineTo(W,H/2);
 
FBC->MoveTo(W/2,0);            // стрелка Y 1
FBC->LineTo((W/2)-10,15);
FBC->MoveTo(W/2,0);             // стрелка Y 2
FBC->LineTo((W/2)+10,15);
 
FBC->TextOut((W-20),((H/2)+15) ,'X');     //подписи осей
FBC->TextOut((W/2)-20,20,'Y');
 
h=W/(2*(nOs+1));
hh=h;
for (int i=1; i<nOs+1; i++)
 { FBC->MoveTo((W/2+hh),(H/2-3));        //Отсчеты на полуоси +Х
   FBC->LineTo((W/2+hh),(H/2+3));
   FBC->MoveTo((W/2-hh),(H/2+3));        //Отсчеты на полуоси -Х
   FBC->LineTo((W/2-hh),(H/2-3));
 
   FBC->TextOut((W/2+hh),(H/2+10),i);     //Оцифровка полуоси +Х
  FBC->TextOut((W/2-hh),(H/2+10),i);     //Оцифровка полуоси -Х
 
   hh=h*(i+1);
 } // цикл завершен
 
 h=H/(2*(nOs+1));
hh=h;
for (int i=1; i<nOs+1; i++)
 { FBC->MoveTo((W/2-3),(H/2-hh));        //Отсчеты на полуоси +y
   FBC->LineTo((W/2+3),(H/2-hh));
   FBC->MoveTo((W/2+3),(H/2+hh));        //Отсчеты на полуоси -y
   FBC->LineTo((W/2-3),(H/2+hh));
 
   FBC->TextOut((W/2+10),(H/2+hh),i);     //Оцифровка полуоси +y
  FBC->TextOut((W/2+10),(H/2-hh),i);     //Оцифровка полуоси -y
 
  hh=h*(i+1);
 } // цикл завершен
 
   }
   void ShowStk(void) // рисование сетки
   {
   FBC->Pen->Style=psDot;      // Устанавливаем стиль линий для сетки - пунктир
FBC->Pen->Color=clSilver;   // Задаем цвет линий сетки - серый
   // Здесь самостоятельно вписываем команды прорисовки горизонтальных и 
   // вертикальных линий сетки в цикле
 
   h=W/(2*(nOs+1));
hh=h;
for (int i=1; i<nOs+1; i++)
 { FBC->MoveTo((W/2+hh),(H/2-H));        //горизонтальная сетка +Х
   FBC->LineTo((W/2+hh),(H/2+H));
 
     hh=h*(i+1);
 } // цикл завершен
 
  h=W/(2*(nOs+1));
hh=h;
for (int i=1; i<nOs+1; i++)
 { FBC->MoveTo((W/2-hh),(H/2-H));        //горизонтальная сетка -Х
   FBC->LineTo((W/2-hh),(H/2+H));
 
     hh=h*(i+1);
 } // цикл завершен
 
 
 h=H/(2*(nOs+1));
hh=h;
for (int i=1; i<nOs+1; i++)
 { FBC->MoveTo((W/2-W),(H/2-hh));        //вертикальная сетка +y
   FBC->LineTo((W/2+W),(H/2-hh));
 
    hh=h*(i+1);
 } // цикл завершен
 
 h=H/(2*(nOs+1));
hh=h;
for (int i=1; i<nOs+1; i++)
 { FBC->MoveTo((W/2-W),(H/2+hh));        //вертикальная сетка -y
   FBC->LineTo((W/2+W),(H/2+hh));
 
    hh=h*(i+1);
 } // цикл завершен
 
 }
void __fastcall TForm3::CheckBox1Click(TObject *Sender)
{
 FormPaint(0);        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::TrackBar1Change(TObject *Sender)
{
  nOs=Form3->TrackBar1->Position;     // Читаем переметры TrackBar1
  FormPaint(0);                       // запускаем перерисовку графич. окна
        
}
//---------------------------------------------------------------------------
  void ShowFig(TColor col, float matrT[4][3])
{
 FBC->Pen->Color=col;                  // Устанавливаем цвет фигуры
 
 matrEkr[0][0]=W/2+int(h*matrT[0][0]); // Переводим координаты фигуры в экранные
 matrEkr[0][1]=H/2-int(h*matrT[0][1]);
 
 matrEkr[1][0]=W/2+int(h*matrT[1][0]);
 matrEkr[1][1]=H/2-int(h*matrT[1][1]);
 
  matrEkr[2][0]=W/2-int(h*matrT[2][0]);
   matrEkr[2][1]=H/2-int(h*matrT[2][1]);
 
    matrEkr[3][0]=W/2-int(h*matrT[3][0]);
     matrEkr[3][1]=H/2-int(h*matrT[3][1]);
 
       matrEkr[4][0]=W/2-int(h*matrT[4][0]);
    matrEkr[4][1]=H/2-int(h*matrT[4][1]);
 
//  и т.д., для всех восьми элементов матрицы matrEkr[4][2]
 
 FBC->MoveTo(matrEkr[0][0],matrEkr[0][1]);     // Устанавливаем перо в "А"
 FBC->LineTo(matrEkr[1][0],matrEkr[1][1]);       // Рисуем линию от "А" к "В"
 FBC->LineTo(matrEkr[2][0],matrEkr[2][1]);       // Рисуем линию от "В" к "С"...
 FBC->LineTo(matrEkr[3][0],matrEkr[3][1]);
 FBC->LineTo(matrEkr[4][0],matrEkr[4][1]);
//  и т.д., для всех четырех вершин фигуры
 
 FBC->Ellipse(matrEkr[0][0]-2, matrEkr[0][1]-2,
              matrEkr[0][0]+2, matrEkr[0][1]+2);  // Рисуем окружность в "А"
//  и т.д., для всех четырех вершин фигуры
FBC->Ellipse(matrEkr[1][0]-2, matrEkr[1][1]-2,
              matrEkr[1][0]+2, matrEkr[1][1]+2);
FBC->Ellipse(matrEkr[2][0]-2, matrEkr[2][1]-2,
              matrEkr[2][0]+2, matrEkr[2][1]+2);
 FBC->Ellipse(matrEkr[3][0]-2, matrEkr[3][1]-2,
              matrEkr[3][0]+2, matrEkr[3][1]+2);
 FBC->Ellipse(matrEkr[4][0]-2, matrEkr[4][1]-2,
              matrEkr[4][0]+2, matrEkr[4][1]+2);
 
 
 
 FBC->Pen->Color=clBlack;            // Восстанавливаем исходные свойства пера
}
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button1Click(TObject *Sender)  // запуск перемещения
{
{
  a=StrToFloat(Form3->StringGrid2->Cells[0][0]);
  b=StrToFloat(Form3->StringGrid2->Cells[1][0]);
  p=StrToFloat(Form3->StringGrid2->Cells[2][0]);
  d=StrToFloat(Form3->StringGrid2->Cells[0][1]);
  e=StrToFloat(Form3->StringGrid2->Cells[1][1]);
  q=StrToFloat(Form3->StringGrid2->Cells[2][1]);
  l=StrToFloat(Form3->StringGrid2->Cells[0][2]);
  m=StrToFloat(Form3->StringGrid2->Cells[1][2]);
  s=StrToFloat(Form3->StringGrid2->Cells[2][2]);
 
  Tpr[0][0]=a;  Tpr[0][1]=b;  Tpr[0][2]=p;
  Tpr[1][0]=d;  Tpr[1][1]=e;  Tpr[1][2]=q;
  Tpr[2][0]=l;  Tpr[2][1]=m;  Tpr[2][2]=s;
 
  if(Form3->CheckBox3->Checked)
   for(float i=0;i<100;i++)
   {Tpr[0][0]=1+(((a-1)*(i+1))/100);
    Tpr[1][1]=1+(((e-1)*(i+1))/100);
    Tpr[2][0]=(i+1)*(l/100);
    Tpr[2][1]=(i+1)*(m/100);
    Tpr[2][2]=1+(((s-1)*(i+1))/100);
    FormPaint(0);
    Sleep(10);
   }
  else FormPaint(0);
 
  StringGrid3->Cells[0][0]=matrRez[0][0];
  StringGrid3->Cells[1][0]=matrRez[0][1];
  StringGrid3->Cells[2][0]=matrRez[0][2];
  StringGrid3->Cells[0][1]=matrRez[1][0];
  StringGrid3->Cells[1][1]=matrRez[1][1];
  StringGrid3->Cells[2][1]=matrRez[1][2];
  // и т.д., для остальных шести ячеек матрицы matrRez[4][3];
  StringGrid3->Cells[0][2]=matrRez[2][0];
  StringGrid3->Cells[1][2]=matrRez[2][1];
  StringGrid3->Cells[2][2]=matrRez[2][2];
  StringGrid3->Cells[0][3]=matrRez[3][0];
  StringGrid3->Cells[1][3]=matrRez[3][1];
  StringGrid3->Cells[2][3]=matrRez[3][2];
}
 
}
//---------------------------------------------------------------------------
  void __fastcall TForm3::Button2Click(TObject *Sender)   // очистка
 
{
  Tpr[0][0]=1; Tpr[0][1]=0; Tpr[0][2]=0;
  Tpr[1][0]=0; Tpr[1][1]=1; Tpr[1][2]=0;
  Tpr[2][0]=0; Tpr[2][1]=0; Tpr[2][2]=1;
 
  StringGrid2->Cells[0][0]= Tpr[0][0];     //заполнения таблицы     1
StringGrid2->Cells[1][0]= Tpr[0][1];
StringGrid2->Cells[2][0]= Tpr[0][2];
StringGrid2->Cells[0][1]= Tpr[1][0];
StringGrid2->Cells[1][1]= Tpr[1][1];
StringGrid2->Cells[2][1]= Tpr[1][2];
StringGrid2->Cells[0][2]= Tpr[2][0];
StringGrid2->Cells[1][2]= Tpr[2][1];
StringGrid2->Cells[2][2]= Tpr[2][2];
StringGrid2->Cells[0][3]= Tpr[3][0];
StringGrid2->Cells[1][3]= Tpr[3][1];
StringGrid2->Cells[2][3]= Tpr[3][2];
 
 
  StringGrid3->Cells[0][0]=' ';
  StringGrid3->Cells[1][0]=' ';
  StringGrid3->Cells[2][0]=' ';
  StringGrid3->Cells[0][1]=' ';
  StringGrid3->Cells[1][1]=' ';
  StringGrid3->Cells[2][1]=' ';
  // и т.д., для остальных шести ячеек компонента StringGrid3
  StringGrid3->Cells[0][2]=' ';
  StringGrid3->Cells[1][2]=' ';
  StringGrid3->Cells[2][2]=' ';
  StringGrid3->Cells[0][3]=' ';
  StringGrid3->Cells[1][3]=' ';
  StringGrid3->Cells[2][3]=' ';
 
  FormPaint(0);
}
 
 
 
 
//---------------------------------------------------------------------------