uses graph, crt;
type punkt=record
      x, y, z: real;
     end;
     joon=record
       p:array[1..2]of punkt;
     end;
var jn: joon;
abi, nurk: real; i, d, m, keskx, kesky: integer;
begin
d:=detect; initgraph(d, m, '');
 jn.p[1].x:=-50; jn.p[1].y:=-30; jn.p[1].z:=0;
 jn.p[2].x:= 25; jn.p[2].y:= 15; jn.p[2].z:=0;
 nurk:=Pi/10;
 keskx:=getmaxx div 2; kesky:=getmaxy div 2;
 repeat
  for i:=1 to 2 do
  begin
   abi:=jn.p[i].x;
   jn.p[i].x:=jn.p[i].x*cos(nurk)-jn.p[i].z*sin(nurk);
   jn.p[i].z:=abi*sin(nurk)+jn.p[i].z*cos(nurk);
  end;
  cleardevice;
  line(keskx+round(jn.p[1].x), kesky+round(jn.p[1].y),
       keskx+round(jn.p[2].x), kesky+round(jn.p[2].y));
  delay(100);
 until keypressed;
 closegraph;
end.