uses graph, crt, kujundid;
var t: array[1..2]of tahukas;
koht, kiirus: array[1..2]of punkt;
r: array[1..2]of integer;
d, m, i, lk: integer;
koos: boolean;

procedure alusta;
begin
 randomize;
 d:=Vga; m:=VgaMed; initgraph(d, m, '');
 r[1]:=40;
 r[2]:=40;
 for i:=1 to 2 do begin
  t[i].loo_kuup(2*r[i]);
  koht[i].x:=600*random-300;
  koht[i].y:=300*random-150;
  koht[i].z:=200*random+600;

  kiirus[i].x:=12*random-3;
  kiirus[i].y:=10*random-1;
  kiirus[i].z:=12*random-6;
 end;
lk:=0;
end;

procedure liiguta;
begin
 repeat
 if(lk=0)then lk:=0 else lk:=1;
 setactivepage(lk);
  cleardevice;
  for i:=1 to 2 do begin
    if koht[i].x+r[i]>300  then kiirus[i].x:=-abs(kiirus[i].x);
    if koht[i].x-r[i]<-300 then kiirus[i].x:= abs(kiirus[i].x);
    if koht[i].y+r[i]>150  then kiirus[i].y:=-abs(kiirus[i].y);
    if koht[i].y-r[i]<-150 then kiirus[i].y:= abs(kiirus[i].y);
    if koht[i].z+r[i]>1000 then kiirus[i].z:=-abs(kiirus[i].z);
    if koht[i].z-r[i]<300  then kiirus[i].z:= abs(kiirus[i].z);
    koht[i].x:=koht[i].x+kiirus[i].x;
    koht[i].y:=koht[i].y+kiirus[i].y;
    koht[i].z:=koht[i].z+kiirus[i].z;
    t[i].joonista_perspektiiviga(300, 200,koht[i].x, koht[i].y, koht[i].z );
  end;
  if((abs(koht[2].x-koht[1].x)<r[1]+r[2])and
    (abs(koht[2].y-koht[1].y)<r[1]+r[2]) and
    (abs(koht[2].z-koht[1].z)<r[1]+r[2])) then koos:=true
    else koos:=false;
    if koos then sound(100) else nosound;
  setvisualpage(lk);
  delay(10);
 until keypressed;
 readkey;
 nosound;
end;

procedure keeruta;
var i: integer;
p: punkt;
begin
 repeat
 cleardevice;
 t[1].keera(0.01, 0, 0);
 t[2].keera(0.03, 0, 0);
  for i:=1 to 2 do
    t[i].joonista_perspektiiviga(300, 200, koht[i].x, koht[i].y, koht[i].z);
  delay(30);
 until keypressed;
 readkey;
end;

begin
 alusta;
 liiguta;
 keeruta;
 readln; closegraph;
end.