読み間違いでした

diff --git a/effect.pas b/effect.pas
index b44b6e2..ad32fd7 100644 (file)
--- a/effect.pas
+++ b/effect.pas
@@ -50,7 +50,7 @@ end;
 function effect16BitWav(const sp: SpParam): integer;
 const
   depth = 1.0;
-  rate = 150.0;
+  rate = 170.0;
 var
   i: integer;
   k, m: Single;
@@ -69,7 +69,7 @@ begin
     k := 8 * sp.sizeOfData / sp.bitsPerSample;
     while i < k do
     begin
-      m := sin(depth * rate * pi * i / sp.samplePerSec);
+      m := depth * sin(rate * pi * i / sp.samplePerSec);
       pMem[i + 0] := trunc(m * pMem[i + 0]);
       pMem[i + 1] := trunc(m * pMem[i + 1]);
       inc(i, 2);

diff --git a/wav_proj.dproj b/wav_proj.dproj
index 15898fc..ba7f3a8 100644 (file)
--- a/wav_proj.dproj
+++ b/wav_proj.dproj
@@ -127,7 +127,7 @@
         <DCC_RemoteDebug>true</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
-        <Debugger_RunParams>toujyo.wav </Debugger_RunParams>
+        <Debugger_RunParams>temp.wav</Debugger_RunParams>
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">