diff options
Diffstat (limited to 'BUG1/BUG1.csd')
| -rw-r--r-- | BUG1/BUG1.csd | 36 |
1 files changed, 20 insertions, 16 deletions
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 @@ <CsoundSynthesizer>
<CsOptions>
-g -odac
+-m0
</CsOptions>
<CsInstruments>
/*
@@ -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
|