program backtotheworld;
uses crt,graph;
var
gm,gd,i,i1:integer;
x1,y1:array[1..3] of integer;
,y,z:array[1..3] of integer;
cube:array[1..12,1..2,1..3] of integer = (

fov:integer;
begin
gd:=detect;initgraph(gd,gm,'c:\bp\bgi');
fov:=10;
x[1]:=10; y[1]:=10; z[1]:=1;
x[2]:=4; y[2]:=3; z[2]:=1;
x[3]:=3; y[3]:=5; z[3]:=1;
repeat
for i:=1 to 3 do begin
 x1[i]:=x[i]*fov div z[i]+320;
 y1[i]:=y[i]*fov div z[i]+240;
end;
setcolor(0);
bar(0,0,640,480);
for i:=1 to 3 do begin
putpixel(x1[i],y1[i],1);
end;
setcolor(1);
for i:=1 to 2 do begin
line(x1[i],y1[i],x1[i+1],y1[i+1]);
end;
line(x1[3],y1[3],x1[1],y1[1]);
delay(2000);
until keypressed;
end.