diff options
| author | Richard <q@1bpm.net> | 2022-01-22 22:27:01 +0000 |
|---|---|---|
| committer | Richard <q@1bpm.net> | 2022-01-22 22:27:01 +0000 |
| commit | 44d3d5ece0a53d5316a2ccc9898b79992d81fef7 (patch) | |
| tree | b456d3007f3e8c5a122f0dc286192e8eaf90a1b1 /BUG1 | |
| parent | 5afc582483c0658f3c8bac9cd854a7905e8d88c7 (diff) | |
| download | csd-unfixedbugs1-44d3d5ece0a53d5316a2ccc9898b79992d81fef7.tar.gz csd-unfixedbugs1-44d3d5ece0a53d5316a2ccc9898b79992d81fef7.tar.bz2 csd-unfixedbugs1-44d3d5ece0a53d5316a2ccc9898b79992d81fef7.zip | |
update
Diffstat (limited to 'BUG1')
| -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
|