From f7354554425e17757f31d81e26789ad20df852bf Mon Sep 17 00:00:00 2001
From: Richard <richard@1bpm.net>
Date: Fri, 21 Oct 2022 01:48:24 +0100
Subject: debugged, CPU usage reduced, progression formulated

---
 sonics/instrument_gchord1.udo | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'sonics/instrument_gchord1.udo')

diff --git a/sonics/instrument_gchord1.udo b/sonics/instrument_gchord1.udo
index 64ed324..a2baf80 100755
--- a/sonics/instrument_gchord1.udo
+++ b/sonics/instrument_gchord1.udo
@@ -145,8 +145,8 @@ instr _fnmi_gchord1_notehold
 		ilen = ftlen(ifn) / ftsr(ifn)
 
 		; pitch lfo
-		alfo oscil 2.5,  0.15, gifnSine
-		kfreq += k(alfo)
+		alfo oscil 1.5,  0.75, gifnSine
+		;kfreq += k(alfo)
 
 		kpitchratio = (kfreq / cpsmidinn(ibasenote)) * ipitchratio
 
@@ -238,7 +238,7 @@ instr _fnmi_gchord1_notehold
 			endif
 
 			if (random:k(0, 1) > 0.95) then
-				kringmodmult = pow:k(2, round:k(random:k(-1, 2))) ; 3 up to 8
+				kringmodmult = pow:k(2, round:k(random:k(-1, 2))) ; 0.5 to 4
 			endif
 			
 			if (random:k(0, 1) > 0.9) then
-- 
cgit v1.2.3