Expanded \bow

Author: danielmkarlsson

synths/default-synths.scd

@@ -1,7 +1,3 @@
-/*
-
-*/
-
 (
 /*
 Function to store argument preset values for each synth. It will eventually be removed and added as a method for CleanSoundLibrary.
@@ -48,6 +44,7 @@ SynthDef(\add,  {| out, ada = 0.001, adr = 1,
 	Out.ar(out, o);
 }).store;
 
+
 // A four operator FM synth.
 SynthDef(\fmx, {| sustain = 1, pan, amp = 0.1, out = 0,
 	freq = 440, bnd, mi1 = 0.8, hr4 = 1 ,hr3 = 2, hr2 = 1, hr1= 0, mi4 = 1, mi3 = 0.5,
@@ -69,6 +66,7 @@ SynthDef(\fmx, {| sustain = 1, pan, amp = 0.1, out = 0,
 	Out.ar(out, tanh(LeakDC.ar(sig)));
 }).store;
 
+
 // This synthdef builds on the work of Nathan Ho. https://nathan.ho.name/posts/ixa-synthesis/
 SynthDef(\ixa, {| out, sustain = 1, pan, amp = 0.5, freq = 440, bnd = 0, bno = 0, bnt = 0.2, bnc = 0,
     bes = 2, abs = 2, ths = 2, ber = 1, abr = 1, thr = 1, crv, atk = 0.0, rel = 1.0|
@@ -93,6 +91,7 @@ SynthDef(\ixa, {| out, sustain = 1, pan, amp = 0.5, freq = 440, bnd = 0, bno = 0
 	Out.ar(out, sig * amp);
 }).store;
 
+
 // A sine wave oscillator.
 SynthDef(\sin, {|out = 0, sustain = 1, bnd = 0, bno = 0, bnt = 0.2, bnc = 0, freq = 440, iph = 0, amp = 1.0,
 	pan = 0, atk = 0.0, rel = 1.0, crv = -8.0|
@@ -110,6 +109,7 @@ SynthDef(\sin, {|out = 0, sustain = 1, bnd = 0, bno = 0, bnt = 0.2, bnc = 0, fre
 	Out.ar(out, sig);
 }).store;
 
+
 // A saw wave oscillator.
 SynthDef(\saw, {|out = 0, sustain = 1, bnd = 0, bno = 0, bnt = 0.2, bnc = 0, freq = 440, iph = 0, wid = 0.25, amp = 1.0, pan = 0, atk = 0.0, rel = 1.0, crv = -8.0|
 	var env, accel, sig, freqclipped;
@@ -126,6 +126,7 @@ SynthDef(\saw, {|out = 0, sustain = 1, bnd = 0, bno = 0, bnt = 0.2, bnc = 0, fre
 	Out.ar(out, sig);
 }).store;
 
+
 // A square wave oscillator.
 SynthDef(\sqr, {|out = 0, sustain = 1, bnd = 0, bno = 0, bnt = 0.2, bnc = 0, freq = 440, amp = 0.5, pan = 0, atk = 0.0, rel = 1.0, crv = -8.0, wid = 0.25|
 	var env, accel, sig, freqclipped;
@@ -143,6 +144,7 @@ SynthDef(\sqr, {|out = 0, sustain = 1, bnd = 0, bno = 0, bnt = 0.2, bnc = 0, fre
 },
 ).store;
 
+
 // Live audio input, (does this really work tho?)
 (
 SynthDef(\in, { |out, sustain = 1, spd = 1, bgn = 0, end = 1, pan, accelerate, offset|
@@ -156,6 +158,7 @@ SynthDef(\in, { |out, sustain = 1, spd = 1, bgn = 0, end = 1, pan, accelerate, o
 }).store
 );
 
+
 // Read input from nth routing bus.
 // See also: effect "to".
 (
@@ -177,6 +180,7 @@ SynthDef(\clean_from, { |out, sustain = 1, in, pan|
 )
 );
 
+
 // Pitch shifted live audio input (does this really work tho?).
 (
 SynthDef(\inr, { |out, sustain = 1, freq = 440, spd = 1, bgn=0, end=1, pan, bnd, offset|
@@ -191,6 +195,7 @@ SynthDef(\inr, { |out, sustain = 1, freq = 440, spd = 1, bgn=0, end=1, pan, bnd,
 }).store
 );
 
+
 // Karplus-Strong physical modeling of a vibrating string, using a delay line (CombL) excited by an intial pulse (Impulse).
 // There are two delay lines.
 // "bnd" is used for a pitch glide, and "sustain" changes the envelope timescale.
@@ -199,7 +204,7 @@ SynthDef(\kps, {|out, sustain=1, pan, bnd = 0, bno = 0, bnt = 0.2, bnc = 0, freq
 	var accel, freqclipped;
 	var env = EnvGen.ar(Env.linen(0.002, 0.996, 0.002, 1,-3), timeScale:sustain, doneAction:2);
 	var sound = Decay.ar(Impulse.ar(0,0,0.1), 0.1*(freq.cpsmidi)/69) * WhiteNoise.ar;
-	var pitch = freq * Line.kr(1, 1+0, sustain);
+	var pitch = freq * Line.kr(1, 1 + 0, sustain);
 	accel = EnvGen.kr(Env(
         [1, 1, 1 + bnd.clip(-1.0, 1.0)],
         [bno, bnt * sustain],
@@ -212,6 +217,7 @@ SynthDef(\kps, {|out, sustain=1, pan, bnd = 0, bno = 0, bnt = 0.2, bnc = 0, freq
 }).store
 );
 
+
 // These kick and hat sounds build on the work of Rumble-San.
 // http://blog.rumblesan.com/post/53271713518/drum-sounds-in-supercollider-part-1
 //  A drum synth.
@@ -243,6 +249,7 @@ SynthDef(\hat, {|out, sustain=1, pan, bnd, tun |
 }).store
 );
 
+
 // Clap Synthesizer. This builds on the work of Nathan Ho: https://youtu.be/L9D78W8C-3w
 // Call it by providing \clp as a value to the \snd key in a pattern.
 // Parameters:
@@ -303,19 +310,26 @@ SynthDef(\dfd, {|out = 0, freq = 440, res = 1, den = 0, amp = 1, pan = 0.5, atk
 	Out.ar(out, sig);
 }).store;
 
+
 // Digital wave guide physical model of a bowed instrument.
-SynthDef(\bow, { |out=0, freq=440, amp=1.0, frc=1, gate=1, pos=0.07 ,c1=0.25, c3=31, pan=0, atk = 0.0, rel = 1.0, crv = -8.0|
-	var env, vib, sig;
-	env = Env.perc(atk, rel, amp*0.666, crv).kr(doneAction: 2);
-	sig = DWGBowed.ar(freq.clip(20,5000), amp,frc, gate,pos,0.1,c1,c3);
+SynthDef(\bow, { |out=0, sustain = 1, freq=440, amp=1.0, frc=1, gate=1, pos=0.07, idc=0.25, hfl=31, pan=0, atk = 0.0, rel = 1.0, gst = 8.0, smp = 0.55, ihf = 2, bnd = 0, bno = 0, bnt = 0.2, bnc = 0|
+	var env, vib, sig, freqclipped, accel;
+	var pitch = freq * Line.kr(1, 1 + 0, sustain);
+	accel = EnvGen.kr(Env(
+        [1, 1, 1 + bnd.clip(-1.0, 1.0)],
+        [bno, bnt * sustain],
+        [0, 0, bnc]  //optional curvature
+    ));
+	freqclipped = freq.clip(20, 5000) * accel;
+	env = Env.perc(atk, rel, amp * 0.666, gst).kr(doneAction: 2);
+	sig = DWGBowed.ar(freqclipped.clip(20, 5000), amp, frc, gate, pos, 0.1, idc, hfl, smp, ihf);
 	sig = DWGSoundBoard.ar(sig);
-	sig = BPF.ar(sig,118,1)+sig;
-	sig = BPF.ar(sig,430,1)+sig;
-	sig = BPF.ar(sig,490,1)+sig;
-	sig = LPF.ar(sig,6000);
+	sig = BPF.ar(sig, 118, 1) + sig;
+	sig = BPF.ar(sig, 430, 1) + sig;
+	sig = BPF.ar(sig, 490, 1) + sig;
+	sig = LPF.ar(sig, 4000);
 	sig = sig * env;
 	sig = CleanPan.ar(sig, ~clean.numChannels, pan);
 	Out.ar(out, sig);
 }).store;
-)
-
+)