{Hodinky, R. Novotny}

program klox;

uses grafika;

var theta:real;
    stredx:integer;
    stredy:integer;
    dlrucicky:integer;
    dx, dy:integer;
    i,j:integer;
begin
  theta:=0;
  stredx:=100;
  stredy:=100;
  dlrucicky:=75;
  init($12);

  repeat
    dx:=trunc(dlrucicky*sin(theta));
    dy:=trunc(dlrucicky*cos(theta));
    usecka_b(stredx, stredy, stredx+dx, stredy-dy, 14);
    for i:=0 to 20000 do
      for j:=0 to 20000 do;
    usecka_b(stredx, stredy, stredx+dx, stredy-dy, 0);
    theta:=theta + (pi/30);
    if theta > (2*pi) then
      theta := 0;
  until false;
  readln;
end.