Разработка приложений в системе Delphi. Шейкер Т.Д. - 126 стр.

  t2:=f+df;
  x2:=x+round(l*cos(t2*u));
  y2:=y+round(l*sin(t2*u));
  with Form1.PaintBox1 do
   begin
  canvas.moveTo(x1,y1);
  canvas.lineTo(x,y);
  canvas.lineTo(x2,y2);
  l:=round(l*r);
  if l>l_min then
       begin
        f1:=f-df;
        branch1(x1,y1,l,f1,df,l_min,r); //Рекурсивный вызов процедуры
        f2:=f+df;
        branch1(x2,y2,l,f2,df,l_min,r);//Рекурсивный вызов процедуры
       end;
   end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  branch1(150,250,50,-90,10,5,0.8);
end;

              13.5. Использование средств мультимедиа
   Для работы со звуком и видео в Delphi предусмотрены методы и
компоненты.

Звук
   Процедура Beep воспроизводит стандартный звуковой сигнал Windows.
Это очень простая процедура без параметров. Функция MessageBeep
предназначена для вывода звуковых сигналов Windows:
   function MessageBeep(uType:word):boolean;
   Параметр uType определяет тип звука, его              можно     задавать
шестнадцатеричным числом или с помощью именованной константы.
   Функция PlaySound позволяет проигрывать звуковые файлы, форматы
которых    поддерживаются      установленным     драйвером       устройства
воспроизведения.
function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:
Cardinal): Boolean;
   Параметр pszSound содержит указатель на звуковой файл, параметр hmod
используется, если звук берётся из ресурса. Параметр pszSound – это опции

                                   126