Program Pokus5;
// malé "show" -
// - přepínání mezi více dokumenty, plynulá změna jejich zvětšení

const
   deleni = 12;

procedure Scale_and_view(sc : integer);
begin
   SetScale(sc);
   FixScreenPos;
end;
 
procedure GrowDoc(low, high : integer); 
var
  j, delta : short;
begin
  delta := Round((high - low)/deleni);

  Scale_and_view(low);
  for j:= 1 to deleni - 1 do
    Scale_and_view(low + j*delta);
  Scale_and_view(high);

end;

Procedure BigShow(count : short);
var
  i, j : integer;
begin
  for i:= 1 to count do
  begin
    for j:= 1 to CountWindows do
    begin
      NextWindow;
      DocMinimize(true);
      Wait(1);
    end;

    for j:= 1 to CountWindows do
    begin
      NextWindow;
      DocRestore;
      Wait(1);
    end;

    for j:= 1 to CountWindows do
    begin
      NextWindow;
      GrowDoc(100, 70); 
      GrowDoc(70, 100);      
    end;    

end;
end;

begin
  BigShow(1);
end.