From 44d3d5ece0a53d5316a2ccc9898b79992d81fef7 Mon Sep 17 00:00:00 2001 From: Richard Date: Sat, 22 Jan 2022 22:27:01 +0000 Subject: update --- BUG1/BUG1.csd | 36 ++++++++++++++++++++---------------- 1 file changed, 20 insertions(+), 16 deletions(-) (limited to 'BUG1/BUG1.csd') diff --git a/BUG1/BUG1.csd b/BUG1/BUG1.csd index fb09f77..bbba770 100644 --- a/BUG1/BUG1.csd +++ b/BUG1/BUG1.csd @@ -1,6 +1,7 @@ -g -odac +-m0 /* @@ -8,11 +9,12 @@ Debugger - Unfixed Bugs - BUG1 By Richard Knight 2019 + Revised 2021 */ sr = 44100 -kr = 4410 +ksmps = 10 nchnls = 2 ; general globals @@ -126,9 +128,9 @@ endin instr 800 aL zar 3 aR zar 4 - ;aL compress aL, aL, -1, 30, 60, 1.2, 0.1, 0.01, 0.01 - ;aR compress aR, aR, -1, 30, 60, 1.2, 0.1, 0.01, 0.01 - outs aL*0.9, aR*0.9 + aL limit aL*2, -0dbfs, 0dbfs + aR limit aR*2, -0dbfs, 0dbfs + outs aL, aR zacl 3, 4 endin @@ -175,24 +177,26 @@ endin /* kick */ instr 901 - kax linseg 300, p3*0.05, 100, p3*0.1, 40, p3*0.8, 20 - kenv linseg 1,p3*0.2,0.6,p3*0.2,0.4,p3*0.2,0.1,p3*0.2,0 - kpit linseg 500, p3*0.2, 100, p3*0.4, 40, p3*0.2, 30, p3*0.2, 20 - a2 oscil 8500,kpit*0.35,1 - a3 oscil 9500,kpit*0.2,1 + aax linseg 300, p3*0.05, 100, p3*0.1, 40, p3*0.8, 20 + aenv linseg 1,p3*0.2,0.6,p3*0.2,0.4,p3*0.2,0.1,p3*0.2,0 + apit linseg 500, p3*0.2, 100, p3*0.4, 40, p3*0.2, 30, p3*0.2, 20 + a2 oscil 8500,apit*0.35,1 + a3 oscil 9500,apit*0.2,1 an noise 3000,-0.1 ax1 oscil 300, 400, 1 ax2 oscil 80, 900, 1 - kaxenv linseg 0.2, p3*0.02, 0 - akx = (ax1*ax2)*kaxenv + aaxenv linseg 0.2, p3*0.02, 0 + akx = (ax1*ax2)*aaxenv aout = a2+a3 ; + ax - gkpump = kenv - amix = p4*((aout*kenv)+akx) - adist distort amix, 0.13, 1 - aeq1 pareq adist, 70, 1.5, 2 - aeq2 pareq aeq1, 200, 0.7, 0.9 + gkpump = k(aenv) + amix = p4*((aout*aenv)+akx) + amix pareq amix, 100, 0.1, 0.9 + adist distort amix, 0.43, 1 + aeq1 pareq adist, 60, 1.5, 2 + aeq2 pareq aeq1, 100, 0.1, 0.9 aout pareq aeq2, 5000, 1.8, 0.5 + aout *= 2 zawm aout*0.7, 1 zawm aout*0.7, 2 endin -- cgit v1.2.3