Как сделать звуковой сигнал треугольной и пилообразной формы

[JekaDefer]

Помогите кто нибудь как мне этого добиться... вот кусок кода

for i := 0 to nbuf - 1 do
  begin
    if Terminated then Break;
    // Заполняем сэмплы
    vol1 := Trunc(maxlevel / 100 * vol); // Перевод громкости в int16
    delta := freq / sps * 2 * Pi;
    for j := 0 to msps - 1 do
    begin
      buffer[x, j] := round(sin(angle) * vol1);
      angle := angle + delta;
    end;
    // Передаем заполненный массив на проигрывание
    if (i > 1) and (i = nbuf - 1) then
      WaveOutWrite(hwo, @wh[2], sizeof(wh[2]))
    else
      WaveOutWrite(hwo, @wh[x], sizeof(wh[x]));
    WaitForSingleObject(hEvent, INFINITE);
    x := x xor 1;
  end;

если надо могу и программу выложить

[JekaDefer]

Все разобрался

[JekaDefer]

Может кому понадобится, вот модуль сделал с процедурой которая пищит скоко надо с заданной частотой, громкостью и формой сигнала. + графики построенные на основе этой процедуры.

[s-andriano]

Вообще-то у Вас в исходнике не пила и не треугольник, а синусоида.

[JekaDefer]

Сообщение от s-andriano

Вообще-то у Вас в исходнике не пила и не треугольник, а синусоида.

я не понимаю о чем вы. Обоснуйте.

[s-andriano]

Тема называется "Как сделать звуковой сигнал треугольной и пилообразной формы", а в исходнике - синусоида:

for i := 0 to nbuf - 1 do
  begin
    if Terminated then Break;
    // Заполняем сэмплы
    vol1 := Trunc(maxlevel / 100 * vol); // Перевод громкости в int16
    delta := freq / sps * 2 * Pi;
    for j := 0 to msps - 1 do
    begin
      buffer[x, j] := round(sin(angle) * vol1);
      angle := angle + delta;
    end;
    // Передаем заполненный массив на проигрывание
    if (i > 1) and (i = nbuf - 1) then
      WaveOutWrite(hwo, @wh[2], sizeof(wh[2]))
    else
      WaveOutWrite(hwo, @wh[x], sizeof(wh[x]));
    WaitForSingleObject(hEvent, INFINITE);
    x := x xor 1;
  end;

[JekaDefer]

В архиве уже исправленная версия и там все нормально.

[s-andriano]

Ну, нормально так нормально.
Я написал о том, что опубликовано на форуме. Скачивать архивы и ковыряться там мне недосуг.

[raxp]

...архив проверил, работает.