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

---
 include/instruments_idiophone.inc | 278 +++++++++++++++++++++++++++++---------
 1 file changed, 213 insertions(+), 65 deletions(-)

(limited to 'include/instruments_idiophone.inc')

diff --git a/include/instruments_idiophone.inc b/include/instruments_idiophone.inc
index 5451e07..80ba2fe 100755
--- a/include/instruments_idiophone.inc
+++ b/include/instruments_idiophone.inc
@@ -19,19 +19,22 @@
 #include "sonics/frequency_tools.udo"
 #include "sonics/instrument_portchord.udo"
 #include "sonics/instrument_gchord1.udo"
+#include "sonics/wavetables.udo"
 
 
 ; sound collections
 gicol_musicbox sounddb_getcollectionid "MusicBox"
 gicol_kalimba sounddb_getcollectionid "Kalimba"
 gicol_idiophone = gicol_musicbox
-
+gicol_idiophone_other = gicol_kalimba
 
 opcode idiophone_change, 0, 0
 	if (random(0, 1) >= 0.5) then
 		gicol_idiophone = gicol_musicbox
+		gicol_idiophone_other = gicol_kalimba
 	else
 		gicol_idiophone = gicol_kalimba
+		gicol_idiophone_other = gicol_musicbox
 	endif
 endop
 
@@ -42,12 +45,45 @@ endop
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 
 
+instr note_idiophone_randtime
+	ifileid, ipitchratio sounddb_mel_nearestnote gicol_idiophone, mel_randomnote()
+	ifn = gisounddb[ifileid][0]
+	idur = gisounddb[ifileid][2]
+	;p3 = random(4, 8)
+
+	ipitch = round(random(1, 2)) * ipitchratio
+	ktime init random(0, idur)
+	aL, aR mincer a(port(ktime, 0.001, random(0, idur))), 1, ipitch, ifn, 0, 256 ;64
+
+	if (random:k(0, 1) > 0.1) then
+		ktime = random:k(0, idur)
+	endif
+
+
+	kamp linseg 1, p3*0.8, 1, p3*0.2, 0
+	aL *= kamp
+	aR *= kamp
+
+	if (random(0, 1) > 0.8) then
+		bus_mix("delay1", aL*random(0, 0.3), aR*random(0, 0.3))
+	endif
+
+	bus_mix("reverb1", aL*random(0.2, 0.8), aR*random(0.2, 0.8))
+
+	if (random(0, 1) > 0.5) then
+		bus_mix("pvsamp1", aL*0.6, aR*0.6)
+	endif
+
+	bus_mix("master", aL, aR)
+endin
+
+
 /*
-	Music box chord
+	Idiophone chord
 	
 	p4		one note (0 = play one note, 1 = play chord)
 */
-instr play_musicbox1
+instr phrase_idiophone1
 	ionenote = p4
 
 	if (ionenote == 1) then
@@ -55,35 +91,31 @@ instr play_musicbox1
 	endif
 
 	if (random(0, 1) > 0.5) then
-		ifreqstart = random(20, 40)
-		ifreqend = random(2, 10)
+		ifreqstart = random(10, 30)
+		ifreqend = random(2, 15)
 	else
 		ifreqstart = random(2, 10)
-		ifreqend = random(20, 40)
+		ifreqend = random(10, 30)
 	endif
 	kfreq linseg ifreqstart, p3, ifreqend
-
-	kamp linseg 1, p3, 0
-	if (random(0, 1) > 0.5) then
-		kamp = 1-kamp
-	endif
+	kamp linseg 0, p3*0.1, 1, p3*0.8, 1, p3*0.1, 0
 
 	ktrig metro kfreq
 	if (ktrig == 1) then
 		if (ionenote != 1) then
 			knote = mel_randomnote:k() + (round:k(random:k(-2, 4)) * 12)
 		endif
-		schedulek("_note_musicbox1", random:k(0, 0.1), 1, min:k(knote, 127), kamp*2)
+		schedulek("note_idiophone1", random:k(0, 0.1), 0.1, min:k(knote, 127), kamp*2)
 	endif
 endin
 
 
 /*
-	Music box chord using portamento note frequencies
+	Idiophone chord using portamento note frequencies
 	
 	p4		one note (0 = play one note, 1 = play chord)
 */
-instr play_musicbox2
+instr phrase_idiophone2
 	ionenote = p4
 	ilen = mel_length() * random(1, 10)
 	p3 = ilen
@@ -120,24 +152,24 @@ instr play_musicbox2
 		else
 			kscale = 1
 		endif
-		schedulek("note_musicbox2", random:k(0, 0.1), 1, min:k(knote+knoteaugment, 127), kamp*kportamp, kscale)
+		schedulek("note_idiophone2", random:k(0, 0.1), 1, min:k(knote+knoteaugment, 127), kamp*kportamp, kscale)
 	endif
 endin
 
 
 /*
-	Stretch music box chord
+	Stretch idiophone chord
 
 	p4		mode (0 = flipflop loop, 1 = linear loop)
 */
-instr play_musicboxstretch1
+instr phrase_idiophone_stretch1
 	imode = p4
 	ilen = p3
 	index = 1
 	inoteaugment = min((round(random(-1, 4)) * 12), 127)
 	while (index < table:i(0, gimel_current_notes)) do
 		inote = table(index, gimel_current_notes)
-		schedule("note_musicboxstretch1", 0, ilen, inote + inoteaugment, imode)
+		schedule("note_idiophonestretch1", 0, ilen, inote + inoteaugment, imode)
 		index += 1
 	od
 	turnoff
@@ -149,30 +181,31 @@ endin
 
 	p4		mode (0 = flipflop loop, 1 = linear loop)
 */
-instr play_musicboxstretch2
+instr phrase_idiophone_stretch2
 	imode = p4
 	ilen = p3
 	index = 1
 	while (index < table:i(0, gimel_current_notes)) do
 		inote = table(index, gimel_current_notes)
-		schedule("_note_musicboxstretch2", 0, ilen, inote, imode, 0) ; no low pass, out to note_musicboxstretch2 bus
-		schedule("_note_musicboxstretch2", 0, ilen, inote-12, imode, 1) ; low pass, master out
+		schedule("note_idiophonestretch2", 0, ilen, inote, imode, 0, 1) ; no low pass, out to note_idiophonestretch2 bus, mincer read
+		schedule("note_idiophonestretch2", 0, ilen, inote-12, imode, 1, 0) ; low pass, master out, sndwarp read
 		index += 1
 	od
 	turnoff
 endin
 
 
-instr play_musicboxstretch3
+instr phrase_idiophone_stretch3
 	ksendDelay1 init 0
 	ksendReverb1 init 0.3
 	ksendPV1 init 0
 	kampx4 init 0
-	kamp linsegr 1, p3, 1, 1, 0
+	kamp linsegr 0, 0.5, 1, p3-0.5, 1, 1, 0
 
-	aL1, aR1 portchord_sound gicol_idiophone, 1, 0.5, 512
-	aL2, aR2 portchord_sound gicol_idiophone, 1, 1, 1024
-	aL3, aR3 portchord_sound gicol_idiophone, 1, 2, 512
+	; cpu saving: first arg 0 = sndwarp, 1 = mincer
+	aL1, aR1 portchord_sound gicol_idiophone, 0, 0.5, 512
+	aL2, aR2 portchord_sound gicol_idiophone, 0, 1, 1024 
+	aL3, aR3 portchord_sound gicol_idiophone, 0, 2, 512
 
 	aL = (aL3 * portk(kampx4, 2) + (aL1 + aL2)) * kamp
 	aR = (aR3 * portk(kampx4, 2) + (aR1 + aR2)) * kamp
@@ -207,15 +240,15 @@ instr play_musicboxstretch3
 endin
 
 
-instr play_musicboxstretch4
-	iamp = 0.45
+instr phrase_idiophone_stretch4
+	iamp = 0.5
 	klpf1 init 22050
 	klpf2 init 22050
 
 	ichangechance = random(0.1, 0.6)
-	icompressmode = 2
-	aL1, aR1 fnmi_gchord1 gicol_idiophone, 1, 3, icompressmode, ichangechance, 2, 1
-	aL2, aR2 fnmi_gchord1 gicol_idiophone, 1, 3, icompressmode, ichangechance, 0.5, 1
+	icompressmode = 2 ; 0 = none ; 1 = harshwall ; 2 = normal
+	aL1, aR1 fnmi_gchord1 gicol_idiophone, 1, 3, icompressmode, ichangechance, 2, 0 ; 1 is mincer
+	aL2, aR2 fnmi_gchord1 gicol_idiophone, 1, 3, icompressmode, ichangechance, 1, 0 
 
 	klpf1p port klpf1, 3
 	klpf2p port klpf2, 3
@@ -247,7 +280,7 @@ endin
 /*
 	Play a short glissando, possibly ascending or descending
 */
-instr play_musicbox_gliss1
+instr phrase_idiophone_gliss1
 	iamp = p4
 	ilen = table:i(0, gimel_current_notes)
 	itime = 0
@@ -268,7 +301,11 @@ instr play_musicbox_gliss1
 		indexreal = 1
 		index = istartindex
 		while (indexreal < ilen) do
-			schedule("_note_musicbox1", itime, 1, (table:i(index, gimel_current_notes)-12)+(12*imult), iamp)
+			inote = (table:i(index, gimel_current_notes)-12)+(12*imult)
+			if (inote >= 127 || inote <= 0) then
+				goto complete
+			endif
+			schedule("note_idiophone1", itime, 0.1, inote, iamp, gicol_idiophone_other)
 			itime += random(0.05, 0.1)
 			indexreal += 1
 			index += iincrement
@@ -276,9 +313,116 @@ instr play_musicbox_gliss1
 		imult += iincrement
 		imultreal += 1
 	od
+complete:
 	turnoff
 endin
 
+
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+
+	Transition instruments
+
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+
+instr transition_idiophone_randtime
+	iriseratio = p4
+	kamp expseg 0.00001, p3*iriseratio, 1, p3*(1-iriseratio), 0.00001
+	ifileid, ipitchratio sounddb_mel_nearestnote gicol_idiophone_other, mel_randomnote()
+	ifn = gisounddb[ifileid][0]
+	idur = gisounddb[ifileid][2]
+
+	ipitch = round(random(1, 2)) * ipitchratio
+	ktime init random(0, idur)
+	aL, aR mincer a(port(ktime, 0.001, random(0, idur))), 1, ipitch, ifn, 0, 256 ;64
+
+	if (random:k(0, 1) > 0.1) then
+		ktime = random:k(0, idur)
+	endif
+
+	aL *= kamp * 3
+	aR *= kamp * 3
+
+	if (random(0, 1) > 0.8) then
+		bus_mix("delay1", aL*random(0, 0.3), aR*random(0, 0.3))
+	endif
+
+	bus_mix("reverb1", aL*random(0.4, 0.8), aR*random(0.4, 0.8))
+
+	if (random(0, 1) > 0.5) then
+		bus_mix("pvsamp1", aL*0.6, aR*0.6)
+	endif
+
+	bus_mix("master", aL, aR)
+endin
+
+
+instr transition_idiophone_gliss1
+	iriseratio = p4
+	kamp expseg 0.00001, p3*iriseratio, 1, p3*(1-iriseratio), 0.00001
+	kmetro metro 20
+	kmult init 0
+	kincrement init 1
+	kindex init 1
+
+	if (kmetro == 1) then
+		knote = min:k((table:k(kindex, gimel_current_notes))+(12*kmult), 127)
+		schedulek("note_idiophone1", random:k(0, 0.1), 0.1, knote, kamp*3.5, gicol_idiophone_other)
+	
+		kmaxnotes = table:k(0, gimel_current_notes)
+		if ((kindex < kmaxnotes - 1 && kincrement == 1) || (kindex > 1 && kincrement == -1)) then
+			kindex += kincrement
+		else
+			kindex = (kincrement == 1) ? 1 : kmaxnotes - 1
+			kmult += kincrement
+			if (kmult >= 4) then
+				kmult = 4
+				kincrement = -1
+			elseif (kmult < 0) then
+				kmult = 0
+				kincrement = 1
+			endif
+		endif
+	
+	endif
+endin
+
+
+instr transition_idiophone_stretch1
+	iriseratio = p4
+	kamp expseg 0.00001, p3*iriseratio, 1, p3*(1-iriseratio), 0.00001
+
+	inotestart = mel_randomnote()
+	inoteend = mel_randomnote()
+	
+	if (random(0, 1) >= 0.5) then
+		inotestart += 12
+	endif
+
+	if (random(0, 1) >= 0.5) then
+		inoteend += 12
+	endif
+
+	
+	ifileid, ipitchratio sounddb_mel_nearestnote gicol_idiophone_other, inotestart
+	ifn = gisounddb[ifileid][0]
+	idur = gisounddb[ifileid][2]
+
+	istart = random(0.01, 0.1)
+	iend = random(istart+0.05, 0.3) 
+	atime = abs(oscil(iend-istart, random(0.001, 0.1), gifnSine, random(0, 1)))
+	atime *= idur
+	apitchratio line ipitchratio, p3, (ipitchratio * (cpsmidinn(inoteend) / cpsmidinn(inotestart)))
+
+	isndwarpadjust = (ftsr(ifn) / sr) ; adjustment for sndwarp required
+	aL, aR sndwarpst kamp, atime, apitchratio*isndwarpadjust, ifn, istart, 4096, 128, 2, gifnHalfSine, 1
+	
+	bus_mix("reverb1", aL*random(0, 0.8), aR*random(0, 0.8))
+	bus_mix("pvsamp1", aL*random(0, 0.2), aR*random(0, 0.2))
+	bus_mix("master", aL*1.7, aR*1.7)
+endin
+
+
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 	Sample playback note instruments
@@ -291,16 +435,16 @@ endin
 
 	p4		midi note number
 	p5		amplitude (0 to 1)
+	p6		optional collection, defaults to gicol_idiophone
 */
-instr _note_musicbox1
+instr note_idiophone1
 	inote = p4
 	iamp = p5 * 0.2
+	icollection = (p6 == 0) ? gicol_idiophone : p6
 	iamp *= random(0.6, 1)
-	kamp linseg iamp, p3*0.6, iamp, p3*0.4, 0
-
-	ifileid, ipitchratio sounddb_mel_nearestnote gicol_idiophone, inote
+	ifileid, ipitchratio sounddb_mel_nearestnote icollection, inote
 
-	if (ipitchratio > 1.8 || random(0, 1) > 0.8) then
+	if (active:i(p1) < 50 && (abs(ipitchratio) > 1.8 || random(0, 1) > 0.8)) then
 		iloscilratio = 1
 		idopvs = 1
 	else
@@ -310,44 +454,47 @@ instr _note_musicbox1
 
 	ifn = gisounddb[ifileid][0]
 	idur = gisounddb[ifileid][2]
-	
-	p3 = idur 
-	
+	p3 = idur / iloscilratio
+	kamp linseg iamp, p3*0.6, iamp, p3*0.4, 0
 	;ktime line random(0, 0.2), p3, p3
 	;aL, aR sndwarpst kamp, ktime, iloscilratio, isound[0], 0, 441*random(1, 100), 44*random(1, 10), 4, gifnHalfSine, 1
 	aL, aR loscil kamp, iloscilratio, ifn, 1
 
 	if (idopvs == 1) then
-		if (random(0, 1) > 0.5) then
+		if (random(0, 1) > 0.75) then
 			ipitchratio *= pow(2, int(random(1, 4)))
 		endif
 		ir = 512
-		fL1 pvsanal aL, ir, ir/4, ir, 1
-		fR1 pvsanal aR, ir, ir/4, ir, 1
+		fL1 pvsanal aL, ir, ir/2, ir, 1
+		fR1 pvsanal aR, ir, ir/2, ir, 1
 		fL2 pvscale fL1, ipitchratio
 		fR2 pvscale fR1, ipitchratio
 		aL pvsynth fL2
 		aR pvsynth fR2
 	endif
 
-	ipan random 0, 1
+	ipan = random(0, 1)
 	aL *= ipan
 	aR *= (1-ipan)
 
-	if (random(0, 1) > 0.8) then
-		kdenv linseg 0, p3*0.1, 1, p3*0.8, 1, p3*0.1, 0
-		bus_mix("delay1", aL*kdenv, aR*kdenv)
+	if (random(0, 1) > 0.6) then
+		aL pareq aL, random(100, 4000), random(0.3, 1.1), 0.7
+		aR pareq aR, random(100, 4000), random(0.3, 1.1), 0.7
+	endif
+
+	if (random(0, 1) > 0.9) then
+		bus_mix("delay1", aL*random(0.1, 0.4), aR*random(0.1, 0.4))
 	endif
 
 	if (random(0, 1) > 0.8) then
-		krenv linseg 0, p3*0.1, 1, p3*0.8, 1, p3*0.1, 0
-		bus_mix("reverb1", aL*krenv, aR*krenv)
+		;krenv linseg 0, p3*0.1, 1, p3*0.8, 1, p3*0.1, 0
+		bus_mix("reverb1", aL*random(0.1, 0.7), aR*random(0.1, 0.7))
 	endif
 
 	if (random(0, 1) > 0.5) then
-		bus_mix("pvsamp1", aL, aR)
+		bus_mix("pvsamp1", aL*random(0.5, 0.8), aR*random(0.5, 0.8))
 	endif
-	
+
 	bus_mix("master", aL, aR)
 	
 endin
@@ -362,7 +509,7 @@ endin
 	p5		amplitude (0 to 1)
 	p6		pitchscale: amount to scale pitch by (for portamento augmentation)
 */
-instr note_musicbox2
+instr note_idiophone2
 	inote = p4
 	iamp = p5 * 0.2
 	ipitchscale = p6
@@ -374,7 +521,7 @@ instr note_musicbox2
 	kpitchratio init ipitchratio * ipitchscale
 
 	kpitchenv = abs:k(oscil:k(random(0.001, 0.01), random(0.1, 4), gifnSine, random(0, 1))) + 1
-	kpitchratio *= kpitchenv
+	kpitchratio += kpitchenv
 
 	if (kpitchratio > 1.8 || random(0, 1) > 0.8) then
 		kloscilratio init 1
@@ -435,7 +582,7 @@ endin
 	p4		midi note number
 	p5		mode (0 = forwards and reverse, 1 = linear forwards)
 */
-instr note_musicboxstretch1
+instr note_idiophonestretch1
 	inote = p4
 	imode = p5
 	iamp = 0.6
@@ -465,7 +612,7 @@ instr note_musicboxstretch1
 	
 	atime *= idur
 
-	aL, aR sndwarpst kamp, atime*idur, apitchratio, ifn, istart, 441*random(1, 100), 44*random(1, 10), 8, gifnHalfSine, 1
+	aL, aR sndwarpst kamp, atime, apitchratio, ifn, istart, 441*random(1, 100), 44*random(1, 10), 8, gifnHalfSine, 1
 
 	aL butterhp aL, 150
 	aR butterhp aR, 150
@@ -490,16 +637,12 @@ endin
 
 
 
-/*
-	Play held/stretched music box note with stochastic transforms and sends
 
-	p4		midi note number
-	p5		mode (0 = forwards and reverse, 1 = linear forwards)
-*/
-instr _note_musicboxstretch2
+instr note_idiophonestretch2
 	inote = p4
 	imode = p5
 	ilpmode = p6
+	ireadmode = p7 ; 0 = sndwarp, 1 = mincer
 	iamp = 0.4
 	kamp linseg 0, p3*0.2, iamp, p3*0.6, iamp, p3*0.2, 0
 	ifileid, ipitchratio sounddb_mel_nearestnote gicol_idiophone, inote
@@ -524,8 +667,13 @@ instr _note_musicboxstretch2
 	endif
 
 	atime *= idur
-
-	aL, aR mincer atime*idur, kamp, k(apitchratio), ifn, 0, 2048
+	
+	if (ireadmode == 0) then
+		isndwarpadjust = (ftsr(ifn) / sr) ; adjustment for sndwarp required
+		aL, aR sndwarpst kamp, atime, apitchratio*isndwarpadjust, ifn, istart, 4096, 128, 2, gifnHalfSine, 1
+	else
+		aL, aR mincer atime+istart, kamp, k(apitchratio), ifn, 0, 512
+	endif
 	
 	ipan = random(0, 1)
 	aL *= (1-ipan)
@@ -545,7 +693,7 @@ instr _note_musicboxstretch2
 	endif
 	
 	if (ilpmode == 0) then
-		bus_mix("note_musicboxstretch2", aLh, aRh)
+		bus_mix("note_idiophonestretch2", aLh, aRh)
 	elseif (ilpmode == 1) then
 		aL butterlp aL, 500
 		aR butterlp aR, 500
-- 
cgit v1.2.3