Построение трехмерного обьекта и анимация поворота

uses graphABC,Events;
 
type point = record
     x,y,z:integer
     end;
     
     double = record
     x,y:integer
     end;
 
     mas1 = array [1..4] of point;
     mas2 = array [1..4] of double;
 
function Det( p: mas2): boolean; // âû÷èñëÿåò íàïðàâëåíèå î÷åðåäíîñòè òî÷åê
var D:real;
    i:byte;
begin
i:=1;
D := p[i].x * p[i+1].y  +  p[i].y * p[i+2].x  +  p[i+1].x * p[i+2].y
        -  p[i+1].y * p[i+2].x  -  p[i].x * p[i+2].y  -  p[i].y * p[i+1].x;
if D>0 then result := true   // ïî ÷àñîâîé ñòðåëêå, ðèñóåì
else result := false;        // íå ðèñóåì
end;
     
function VP(el:mas1) : mas1;    //âèäîâîå ïðåîáðàçîâàíèå
var  fi, Ksi,a,b,c,d: real;
  i:byte;
begin
  fi:=pi/8;
  Ksi:=pi/8;
  a:=cos(fi);
  b:=sin(fi);
  c:=cos(Ksi);
  d:=sin(Ksi);
for i:=1 to 4 do begin
  result[i].x:=round(el[i].x*c-el[i].y*d);
  result[i].y:=round(el[i].x*d*a+el[i].y*c*a-el[i].z*b);
  result[i].z:=round(el[i].x*d*b+el[i].y*c*b+el[i].z*a);
end; end;
     
function PP (el2: mas1) : mas2;  //ïåðåñ÷åò÷èê 3 to 2
var i:byte;
begin
for i:=1 to 4 do begin
  result[i].x:=round(el2[i].x + windowwidth  div 2);
  result[i].y:=round(el2[i].y + windowheight div 2);
end; end;
 
function rotate(el1: mas1; fi:real ) : mas1;  //ïåðåñ÷åò÷èê ïðè âðàùåíèè
var i, vr :byte;
begin
vr:=2;  //1 - îñü z ,2-y,3-x;
case vr of
1:
  for i:=1 to 4 do begin  // âîêðóã îñè z
  result[i].x := round(el1[i].x*cos(fi) - el1[i].y*sin(fi));
  result[i].y:= round(el1[i].x*sin(fi)+el1[i].y*cos(fi));
  result[i].z:= round(el1[i].z);
  end;
 
2:
  for i:=1 to 4 do begin // âîêðóã îñè y
  result[i].x := round(el1[i].x*cos(fi) - el1[i].z*sin(fi));
  result[i].y := round(el1[i].y);
  result[i].z := round(el1[i].x*sin(fi) + el1[i].z*cos(fi));
  end;
 
3:
  for i:=1 to 4 do begin   // âîêðóã îñè x
  result[i].x := round(el1[i].x);
  result[i].y:= round(el1[i].y*cos(fi) - el1[i].z*sin(fi));
  result[i].z:= round(el1[i].z*sin(fi) + el1[i].z*cos(fi));
  end;
 
end; end;
 
var a,b,c,d,e,f,a1,b1,c1,d1,e1,f1,a2,b2,c2,d2,e2,f2 : mas1;
    a3,b3,c3,d3,e3,f3:mas2;
    i:byte;
    fi:real;
    
begin
Setwindowwidth(800);
Setwindowheight(600);
// p1(-150;-150;-150); p2(-150;-150;150); p3(150;-150; 150); p4(150;-150;-150)
// p5(-150;150;-150);  p6(-150;150;150);  p7(150;150;150);   p8(150;150;-150)
// a(1,2,3,4),b(5,8,7,6),c(1,4,8,5),d(2,6,7,3),e(1,5,6,2),f(4,3,7,8)
 
a[1].x:=-150;    a[2].x:=-150;     a[3].x:=150;     a[4].x:=150;  //ê
a[1].y:=-150;    a[2].y:=-150;     a[3].y:=-150;    a[4].y:=-150; //î
a[1].z:=-150;    a[2].z:=150;      a[3].z:=150;     a[4].z:=-150; //î
                                                                  //ð
b[1].x:=-150;    b[2].x:=150;      b[3].x:=150;     b[4].x:=-150; //ä
b[1].y:=150;     b[2].y:=150;      b[3].y:=150;     b[4].y:=150;  //è
b[1].z:=-150;    b[2].z:=-150;     b[3].z:=150;     b[4].z:=150;  //í
                                                                  //à
c[1].x:=-150;    c[2].x:=150;      c[3].x:=150;     c[4].x:=-150; //ò
c[1].y:=-150;    c[2].y:=-150;     c[3].y:=150;     c[4].y:=150;  //û
c[1].z:=-150;    c[2].z:=-150;     c[3].z:=-150;    c[4].z:=-150; //
                                                                  //ó
d[1].x:=-150;    d[2].x:=-150;     d[3].x:=150;     d[4].x:=150;  //ã
d[1].y:=-150;    d[2].y:=150;      d[3].y:=150;     d[4].y:=-150; //ë
d[1].z:=150;     d[2].z:=150;      d[3].z:=150;     d[4].z:=150;  //î
                                                                  //â
e[1].x:=-150;    e[2].x:=-150;     e[3].x:=-150;    e[4].x:=-150; //
e[1].y:=-150;    e[2].y:=150;      e[3].y:=150;     e[4].y:=-150; //ã
e[1].z:=-150;    e[2].z:=-150;     e[3].z:=150;     e[4].z:=150;  //ð
                                                                  //à
f[1].x:=150;     f[2].x:=150;      f[3].x:=150;     f[4].x:=150;  //í
f[1].y:=-150;    f[2].y:=-150;     f[3].y:=150;     f[4].y:=150;  //å
f[1].z:=-150;    f[2].z:=150;      f[3].z:=150;     f[4].z:=-150; //é
 
a1:=vp(a); b1:=vp(b); c1:=vp(c); d1:=vp(d); e1:=vp(e); f1:=vp(f);
 
fi := 0;
lockdrawing;
 
while fi<20*pi do begin
clearwindow;
floodFill(15,15, clblack);
 
a2:=rotate(a1,fi); b2:=rotate(b1,fi); c2:=rotate(c1,fi); d2:=rotate(d1,fi);
e2:=rotate(e1,fi); f2:=rotate(f1,fi);
 
a3:=pp(a2); b3:=pp(b2); c3:=pp(c2); d3:=pp(d2); e3:=pp(e2); f3:=pp(f2);
sleep(15);
fi:=fi+pi/180;
 
if Det(a3) then polygon(a3,4);
if Det(b3) then polygon(b3,4);
if Det(c3) then polygon(c3,4);
if Det(d3) then polygon(d3,4);
if Det(e3) then polygon(e3,4);
if Det(f3) then polygon(f3,4);
redraw;
end;
 
end.