added bug6HEADmaster

1 files changed, 35 insertions, 34 deletions

diff --git a/BUG10/instruments.udo b/BUG10/instruments.udo
index dcb4ba3..6e08099 100644
--- a/BUG10/instruments.udo
+++ b/BUG10/instruments.udo
@@ -13,40 +13,25 @@
 #include "bid.udo"
 
 instr play_bass1
-	ifreq = cpsmidinn(table(1, gibid_chordfn) - 24)
+	
+	iamp = bid_getparameter(p4, p5, 2) * random(0.4, 1)
+	ifreqmode = bid_getparameter(p4, p5, 4)
+
+	if (ifreqmode != 0) then
+		ifreq = cpsmidinn(table(ifreqmode, gibid_chordfn) - 24)
+	else
+		ifreq = cpsmidinn(table(1, gibid_chordfn) - 24)
+	endif
 	kindex1 line 4, p3, 1
 	kindex2 line 5, p3, 1
 	kamp linseg 1, p3*0.9, 1, p3*0.1, 0
-	aL foscil 1, ifreq, 8, 1.5, kindex1, gifnSine
-	aR foscil 1, ifreq, 8, 1.5, kindex2, gifnSine
-	aL *= kamp * 0.88
-	aR *= kamp * 0.88
+	aL foscil iamp, ifreq, 8, 1.5, kindex1, gifnSine
+	aR foscil iamp, ifreq, 8, 1.5, kindex2, gifnSine
+	aL *= kamp * 0.75
+	aR *= kamp * 0.75
 	bus_mix("master", aL, aR)
 endin
 
-instr play_hit1
-	kfreq line cpsmidinn(table(2, gibid_chordfn) - 24), p3, cpsmidinn(table(1, gibid_chordfn) - 24)
-	kindex1 line 4, p3, 1
-	kindex2 line 5, p3, 1
-	kamp linseg 1, p3*0.9, 1, p3*0.1, 0
-	aL1 foscil 1, kfreq, 1, 1.5, kindex1, gifnSquare
-	aR1 foscil 1, kfreq, 1, 1.5, kindex2, gifnSquare
-	aL2 foscil 1, kfreq, 2, 2.5, kindex2, gifnSine
-	aR2 foscil 1, kfreq, 2, 2.5, kindex1, gifnSine
-	aL = (aL1 + aL2) * kamp * 0.88
-	aR = (aL1 + aL2) * kamp * 0.88
-	aL distort aL, 0.6, gifnSine
-	aR distort aR, 0.6, gifnSine
-
-	knoiseenv line 3, p3, 0.1
-	aLn unirand knoiseenv
-	aRn unirand knoiseenv
-	aLn butterlp aLn, 5000
-	aRn butterlp aRn, 5000
-	aL = aLn * aL * 0.1
-	aR = aRn * aR * 0.1
-	bus_mix("master", aL, aR)
-endin
 
 instr play_melb1
 	ifreq = cpsmidinn(table(1, gibid_chordfn)) * 1
@@ -63,9 +48,9 @@ endin
 
 
 instr play_hat1
-	iamp = bid_getparameter(p4, p5, 2)
-	p3 = 0.05
-	kfreq line 300, p3, 100
+	iamp = bid_getparameter(p4, p5, 2) * 0.9
+	p3 = 0.1
+	kfreq line 600, p3, 400
 	aenv expsega .1, .0005, 1, p3 - .0005, .01
 	asqr1 oscil 1, kfreq, gifnSquare, -1
 	asqr2 oscil 1, kfreq*1.4471, gifnSaw, -1
@@ -76,7 +61,7 @@ instr play_hat1
 	a808 sum asqr1, asqr2, asqr3, asqr4, asqr5, asqr6
 	a808 butterhp a808, 4270
 	a808 butterhp a808, 4270
-	aout = a808 * aenv * iamp * 2
+	aout = a808 * aenv * iamp
 	bus_mix("master", aout, aout)
 endin
 
@@ -87,7 +72,7 @@ instr play_hat2
 	idel2 = random(0.005, 0.01)
 	xtratim(max(idel1, idel2))
 
-	kfreq line 400, p3, 100
+	kfreq line 200, p3, 100
 	aenv expsega .1, .0005, 1, p3 - .0005, .01
 	asqr1 oscil 1, kfreq, gifnSquare, -1
 	asqr2 oscil 1, kfreq*1.4471, gifnSine, -1
@@ -98,13 +83,29 @@ instr play_hat2
 	a808 sum asqr1, asqr2, asqr3, asqr4, asqr5, asqr6
 	a808 butterhp a808, 3270
 	a808 butterhp a808, 3270
-	aout = a808 * aenv * iamp * 1.1
+	aout = a808 * aenv * iamp * 1.5
 	aL delay aout, idel1
 	aR delay aout, idel2
 	bus_mix("master", aL, aR)
 endin
 
 
+instr play_clap
+	iamp = bid_getparameter(p4, p5, 2) * random(0.4, 1) * 0.8
+	aL noise 1, 0.6
+	aR noise 1, 0.7
+	aL butterbp aL, random(1000, 1500), random(800, 1200)
+	aR butterbp aR, random(1000, 1500), random(800, 1200)
+	aL taninv aL*2
+	aR taninv aR*2
+	
+	kamp linseg 2, p3*0.1, 0, p3*0.1, 2, p3*0.1, 0, p3*0.1, 1.5, p3*0.1, 0, p3*0.1, 1, p3*0.4, 0
+	aL *= kamp * iamp * 4
+	aR *= kamp * iamp * 4
+	bus_mix("master", aL, aR)
+	
+endin
+
 
 instr play_kick	; 808 style kick
 	iamp = bid_getparameter(p4, p5, 2)