From e280544062bb37ddaad7a1cdc3bee77e51d61770 Mon Sep 17 00:00:00 2001
From: yamat0jp <yamat0jp@yahoo.co.jp>
Date: Tue, 15 May 2018 20:29:43 +0900
Subject: [PATCH] =?utf8?q?=E5=AE=8C=E6=88=90?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

型サイズの問題でした
---
 effect.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/effect.pas b/effect.pas
index 8a2c135..14b6b32 100644
--- a/effect.pas
+++ b/effect.pas
@@ -36,9 +36,10 @@ begin
       DuetR := pCpy[i + 1 - delayStart];
       inc(L, DuetL);
       inc(R, DuetR);
-
-      pMem[i + 0] := L;
-      pMem[i + 1] := R;
+      L := max(-128, min(127, L));
+      R := max(-128, min(127, R));
+      pMem[i + 0] := L+128;
+      pMem[i + 1] := R+128;
       inc(i, 2);
     end;
   except
@@ -52,7 +53,7 @@ var
   k: Single;
   pMem, pCpy: array of SmallInt;
   s: TMemoryStream;
-  L, R, DuetL, DuetR: SmallInt;
+  L, R, DuetL, DuetR: integer;
 begin
   result := 0;
   s := TMemoryStream.Create;
-- 
2.11.0