Topic: Pitch/tempo?

[cooly]

Hi, how can i set the tempo (pitch) of one song? How to speed it up or down?

Thanx for answer !

[Chris]

Code: [Select]



function TPlayerA.MinMaxR(x, min, max: extended): extended;
begin
  if x < min then Result := min
  else if x > max then Result := max
  else Result := x;
end;





procedure TPlayerA.SetPitch (value : float);
var
freq : Integer;
s : single;
begin
   s := ((Value*(wavefreq / 100) )+ wavefreq);
   freq :=Trunc( MinMaxr(s,100,100000));
 BASS_ChannelSetAttributes(Channel, freq, -1, -1);
end;

/////////////////////////////////////////////////////
function TPlayerA.GetPitch  : float;
var
handle, freq, volume : DWORD; Pan : Integer;s: Integer;
begin
BASS_ChannelGetAttributes(Channel, freq, volume, Pan);
Result := (freq - wavefreq)/(wavefreq / 100);
end;



Chris

[cooly]

Thanx, it works. But i dont know whereis center. Minimum is 100, maximum is 100000. Logically center would be 49950 but it is not. Maybe do you know where is musing playing with the same tempo as default?

[Chris]

The MinMaxR function will check if you try to Pitch a Result that isn`t possible.
Max and Min on a soundcard is 100 hz /100000 hz....

Pitch 0.0 = Frequenz of your song (normaly 44100)

Chris

[cooly]

uhh,sure,how didnt i thought it.i'm so stupid:)

thanx for your help a lot !