Визуализация Синусоидального сигнала

[notHaker]

Уж больно тормозит... Глаянте пожалуйста. Может какие идеи возникнут...

function TGrForm32.BuildGraph(lpSampleArray : pointer; dwSampleCount, dwCross : DWORD;
                              RAWFormat : TBaseRAWFormat; dwGraphType : DWORD) : HSERESULT;
var
  flStep : Single;
  dwSampleSize : DWORD;
  flIndex : Single;
  dwSubIndex : DWORD;
  dwMaxSample, dwSample, dwGrIndex, dwCenter, dwPass : Integer;
  bConv : bool;
  lpOffset : DWORD;
  dwHighInt : Integer;
begin
  if not fbInit then
  begin
    result := ERR_GR_NO_INIT;
    exit;
  end;

  if (not assigned( lpSampleArray )) or ( dwSampleCount <= 0 ) or ( dwCross <= 0) then
  begin
    result := ERR_GR_INVALID_PARAM;
    exit;
  end;

//  fBuffer.BeginUpdate;
  try

  case dwGraphType of
  GF32_GT_WAVE_SIN :
  begin
    DrawBack( RAWFormat.dwChannel );

    try
    dwSampleSize := (( RAWFormat.dwBPS shr 3 ) * RAWFormat.dwChannel );
    flStep :=  ( dwSampleCount ) / ( fClientRect.Right - (fOffset.X * 2));
    dwCenter := ( fClientRect.Bottom div 2 ) div RAWFormat.dwChannel;

    for dwPass := 0 to RAWFormat.dwChannel - 1 do
    begin

    lpOffset := 0;
    flIndex := 0;
    dwGrIndex := fOffset.X;
    while flIndex <= ( dwSampleCount ) do
    begin
      dwMaxSample := 0;
      bConv := false;
      for dwSubIndex := 0 to Ceil(flStep) - 1 do
      begin
        lpOffset := ( floor(flIndex) * dwSampleSize ) + ( (RAWFormat.dwBPS shr 3) * dwPass );
        lpOffset := lpOffset + ( dwSubIndex + ((RAWFormat.dwBPS shr 3) * dwPass ) );
      case RAWFormat.dwBPS of
      8 :
        begin
          dwSample := PShortInt( DWORD(lpSampleArray) + lpOffset )^;
          dwHighInt := High(ShortInt);
        end;
      16 :
        begin
          dwSample := PSmallInt( DWORD(lpSampleArray) + lpOffset )^;
          dwHighInt := High(SmallInt);
        end;
      32 :
        begin
          dwSample := PInteger( DWORD(lpSampleArray) + lpOffset )^;
          dwHighInt := High(Integer);
        end;
      end;

        if dwSample < 0 then
        begin
          dwSample := Abs(dwSample);
          bConv := true;
        end
        else
          bConv := false;

        if dwSample > dwMaxSample then
          dwMaxSample := dwSample;
      end;

      if not bConv then
        dwMaxSample := -dwMaxSample;

      dwMaxSample := Round(dwMaxSample / ( dwHighInt / (dwCenter - (fOffset.Y)) ));

      fBuffer.LineTS(dwGrIndex,  dwCenter + dwMaxSample + ( dwPass * ( dwCenter * 2)), dwGrIndex, dwCenter + ( dwPass * ( dwCenter * 2)), fLineColor);
        
      flIndex := flIndex + flStep;
      inc(dwGrIndex)
    end;
  end;
  
  except
    result := ERR_GR_EXCEPT;
  end;
  end; //end  GF32_GT_WAVE_SIN
  
  end;
  finally
//    fBuffer.EndUpdate;
  end;
end;

[notHaker]

Не успевает у меня функа за аудио потоком... блин.

[raxp]

уменьшайте буфер для данных

[notHaker]

Уменьшу, будт меньше период срабатывания. Шило на мыло

[raxp]

в чем проявляется торможение? разрывы в графике?

[notHaker]

У меня поток делает дамп с основного буфера, откуда посупают байты на воспроизведение. Дамп имеет своё время. Допустим нужно отображать период в 1кГц и соответственно дамп будет иметь размер под эту частоту и время тоже. И у меня функа при таком раскладе имеет время выполнения (на моём апарате) около 16 мс, а время срабатывания дампа около 3. Вот и разница... Больно уж меееедленно...

[notHaker]

Ну и на том спасибо...

[raxp]

отображайте меньшее количество периодов ...сколько у вас в дампе отсчетов, сделайте меньше