Футболка gta @ Кошки

Октаэдр вращается полкруга нормально,а затем нижняя его часть пропадает,верхняя же вращается как не бывало...кто имеет опыт программирования этой области,посмотрите,пожалуйста код:program octahedron;uses crt,graph;type point_position array [1..3] of real;type side_position array [1..3] of point_position;type oct_coord array [1..8] of side_position;const Color: array[1..8] of Integer (1,2,3,4,5,6,9,10);{фигура Октаэдр}const oct: oct_coord= (((100,100,60),(50,100,-40),(100,50,-40)),((100,100,60),(50,100,-40),(100,150,-40)),((100,100,-140),(100,50,-40),(50,100,-40)),((100,100,-140),(100,150,-40),(50,100,-40)),((100,100,-140),(150,100,-40),(100,50,-40)),((100,100,-140),(100,150,-40),(150,100,-40)),((100,100,60),(100,50,-40),(150,100,-40)),((100,100,60),(150,100,-40),(100,150,-40)));const p=-0.002;varpcos,psin:real;oct_new,oct_old:oct_coord;dv,mv,x0, y0: integer;procedure init;var i,j,k:integer;beginx0 := getMaxX div 2;y0 := getMaxY div футболка gta 2;for i:=1 to High(oct) dofor j:=1 to High(oct[i]) dofor k:=1 to High(oct[i,j]) dobeginoct_new[i,j,k] := oct[i,j,k];oct_old[i,j,k] := oct[i,j,k];end;end;{алгоритм робертса}function robert(side:side_position):boolean;vara,b,c:real;i,j:integer;beginc:=0;robert:=true;for i:=1 to high(side) dobeginif i=high(side) then j:=1else j:=i+1;c:=c+(side[i,1]-side[j,1])*(side[i,2]+side[j,2]);end;if c<=0 then robert:=false;end;{процедура получения перспективы одной точке схода}procedure modif(x,y,z:real;var x1,y1,z1:real);beginx1:=x/(p*y+1);y1:=y/(p*y+1);z1:=z/(p*y+1);end;{прорисовка/стирание октаэдра зависимости от флага new}procedure draw_oct(new: boolean;figure:oct_coord);vari,j,k:integer;area: array [1..3] of PointType;new_side:side_position;beginsetcolor(0);for i:=1 to high(oct_new) dobeginfor k:=1 to high(new_side) dobeginmodif(figure[i,k,1], figure[i,k,2], figure[i,k,3],new_side[k,1],new_side[k,2],new_side[k,3]);end;if robert(new_side) thenbeginif new thenbeginsetFillStyle(solidfill, Color[i]);endelse beginsetFillStyle(solidfill, футболка gta 0);end;for j:=1 to High(new_side) dobeginarea[j].:=x0+ round(new_side[j,1]);area[j].:= round(new_side[j,2]);end;fillpoly(sizeOf(area) div sizeOf(pointtype),area);end;end;end;{поворот октаэдра}procedure rotate;vari, j: integer;x_new, z_new: real;beginfor i:=1 to High(oct_new) dofor j:=1 to High(oct_new[1]) dobeginoct_old[i,j,1] := oct_new[i,j,1];oct_old[i,j,3] := oct_new[i,j,3];x_new:=oct_new[i,j,1]*pcos-oct_new[i,j,3]*psin;z_new:=oct_new[i,j,1]*psin+oct_new[i,j,3]*pcos;oct_new[i,j,1]:=x_new;oct_new[i,j,3]:=z_new;end;end;{основная часть программы}beginpcos:=cos(0.05);psin:=sin(0.05);dv := detect;initGraph(dv,mv,'');init;repeatrotate;draw_oct(false,oct_old);draw_oct(true,oct_new);delay(10000);until keypressed;closegraph;end.