cyfaust 0.1.0__cp311-cp311-macosx_15_0_arm64.whl

cyfaust/resources/libraries/examples/filtering/highShelf.dsp

@@ -0,0 +1,13 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name "highShelf";
+
+import("maxmsp.lib");
+
+G = hslider("Gain [unit:dB]", 0, -10, 10, 0.1);
+F = hslider("Freq", 1000, 100, 10000, 1);
+Q = hslider("Q", 1, 0.01, 100, 0.01);
+
+process(x) = highShelf(x,F,G,Q);
+

cyfaust/resources/libraries/examples/filtering/korg35HPF.dsp

@@ -0,0 +1,13 @@
+declare name "korg35HPF";
+declare description "Demonstration of the Korg 35 HPF";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise *switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.korg35HPF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/korg35LPF.dsp

@@ -0,0 +1,13 @@
+declare name "korg35LPF";
+declare description "Demonstration of the Korg 35 LPF";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise *switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.korg35LPF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/lfBoost.dsp

@@ -0,0 +1,40 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name 		"lfboost";
+declare version 	"1.0";
+declare author 		"Grame";
+declare license 	"BSD";
+declare copyright 	"(c)GRAME 2006";
+
+//------------------------------------------------------------------
+//	DAFX, Digital Audio Effects (Wiley ed.)
+//	chapter 2 	: filters
+//	section 2.3 : Equalizers
+//	page 53 	: second order shelving filter design
+//------------------------------------------------------------------
+
+import("stdfaust.lib");
+
+//----------------------low frequency boost filter -------------------------------
+// lfboost(F,G)
+//				F :	frequency (in Hz)
+//				G : gain (in dB)
+//
+//--------------------------------------------------------------------------------
+
+lfboost(F,G)	= fi.TF2((1 + sqrt(2*V)*K + V*K*K) / denom,
+						2 * (V*K*K - 1) / denom,
+						(1 - sqrt(2*V)*K + V*K*K) / denom,
+						2 * (K*K - 1) / denom,
+						(1 - sqrt(2)*K + K*K) / denom)
+		with {
+			V			= ba.db2linear(G);
+			K 			= tan(ma.PI*F/ma.SR);
+			denom		= 1 + sqrt(2)*K + K*K;
+		};
+
+//====================low frequency boost process ===============================
+
+process = vgroup("lowboost", lfboost(nentry("freq [unit:Hz][style:knob]", 100, 20, 150, 1),
+									vslider("gain [unit:dB]", 0, -20, 20, 0.1)));

cyfaust/resources/libraries/examples/filtering/lowBoost.dsp

@@ -0,0 +1,40 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name 		"lowboost";
+declare version 	"1.0";
+declare author 		"Grame";
+declare license 	"BSD";
+declare copyright 	"(c)GRAME 2006";
+
+//------------------------------------------------------------------
+//	DAFX, Digital Audio Effects (Wiley ed.)
+//	chapter 2 	: filters
+//	section 2.3 : Equalizers
+//	page 53 	: second order shelving filter design
+//------------------------------------------------------------------
+
+import("stdfaust.lib");
+
+//------------------- low-frequency shelving boost (table 2.3) --------------------
+
+V0(g)			= pow(10,g/20.0);
+K(fc) 			= tan(ma.PI*fc/ma.SR);
+square(x)		= x*x;
+denom(fc)		= 1 + sqrt(2)*K(fc) + square(K(fc));
+
+lfboost(fc, g)	= fi.TF2((1 + sqrt(2*V0(g))*K(fc) + V0(g)*square(K(fc))) / denom(fc),
+						2 * (V0(g)*square(K(fc)) - 1) / denom(fc),
+						(1 - sqrt(2*V0(g))*K(fc) + V0(g)*square(K(fc))) / denom(fc),
+						2 * (square(K(fc)) - 1) / denom(fc),
+						(1 - sqrt(2)*K(fc) + square(K(fc))) / denom(fc));
+
+//------------------------------ User Interface -----------------------------------
+
+freq 				= hslider("[1]freq [unit:Hz][style:knob]", 1000, 20, 20000, 0.1);
+gain				= hslider("[2]gain [unit:dB][style:knob]", 0, -20, 20, 0.1);
+
+//----------------------------------- Process -------------------------------------
+
+process 			= vgroup("low-freq shelving boost", lfboost(freq,gain));
+

cyfaust/resources/libraries/examples/filtering/lowCut.dsp

@@ -0,0 +1,40 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name 		"lowcut";
+declare version 	"1.0";
+declare author 		"Grame";
+declare license 	"BSD";
+declare copyright 	"(c)GRAME 2006";
+
+//------------------------------------------------------------------
+//	DAFX, Digital Audio Effects (Wiley ed.)
+//	chapter 2 	: filters
+//	section 2.3 : Equalizers
+//	page 53 	: second order shelving filter design
+//------------------------------------------------------------------
+
+import("stdfaust.lib");
+
+//------------------- low-frequency shelving cut (table 2.3) --------------------
+
+V0(g)		= pow(10,g/-20.0);
+K(fc) 		= tan(ma.PI*fc/ma.SR);
+squ(x)		= x*x;
+denom(fc,g)	= 1 + sqrt(2*V0(g))*K(fc) + V0(g)*squ(K(fc));
+
+lfcut(fc, g) = fi.TF2((1 + sqrt(2)*K(fc) + squ(K(fc))) / denom(fc,g),
+					2 * (squ(K(fc)) - 1) / denom(fc,g),
+					(1 - sqrt(2)*K(fc) + squ(K(fc))) / denom(fc,g),
+					2 * (V0(g)*squ(K(fc)) - 1) / denom(fc,g),
+					(1 - sqrt(2*V0(g))*K(fc) + V0(g)*squ(K(fc))) / denom(fc,g));
+
+//------------------------------ User Interface -----------------------------------
+
+freq = hslider("freq [unit:Hz][style:knob]", 100, 20, 5000, 1);
+att	= hslider("attenuation [unit:dB][style:knob]", 0, -96, 10, 0.1);
+
+//----------------------------------- Process -------------------------------------
+
+process = vgroup("low-freq shelving cut", lfcut(freq,att));
+

cyfaust/resources/libraries/examples/filtering/lowShelf.dsp

@@ -0,0 +1,13 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name "lowShelf";
+
+import("maxmsp.lib");
+
+G = hslider("Gain [unit:dB]", 0, -10, 10, 0.1);
+F = hslider("Freq", 1000, 100, 10000, 1);
+Q = hslider("Q", 1, 0.01, 100, 0.01);
+
+process(x) = lowShelf(x,F,G,Q);
+

cyfaust/resources/libraries/examples/filtering/moogHalfLadder.dsp

@@ -0,0 +1,12 @@
+declare name "moogHalfLadder";
+declare description "Demonstration of moogHalfLadder";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.7072,25,0.01);
+normFreq = hslider("freq",0.1,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+inputSignal = (no.noise *switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.moogHalfLadder(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/moogLadder.dsp

@@ -0,0 +1,12 @@
+declare name "moogLadder";
+declare description "Demonstration of moogLadder";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.7072,25,0.01);
+normFreq = hslider("freq",0.1,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+inputSignal = (no.noise *switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.moogLadder(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/moogVCF.dsp

@@ -0,0 +1,6 @@
+declare name "moogVCF";
+declare description "Exercise and compare three Moog VCF implementations";
+
+import("stdfaust.lib");
+
+process = dm.moog_vcf_demo;

cyfaust/resources/libraries/examples/filtering/multibandFilter.dsp

@@ -0,0 +1,14 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name 		"multibandFilter";
+declare version 	"1.0";
+declare author 		"Grame";
+declare license 	"BSD";
+declare copyright 	"(c)GRAME 2006";
+
+//---------------------------Multi Band Filter-----------------------------
+//
+//-------------------------------------------------------------------------
+
+process = hgroup("Multi Band Filter", seq(i, 10, vgroup("peak %i", component("bandFilter.dsp").bandfilter(1000*(1+i)))));

cyfaust/resources/libraries/examples/filtering/notch.dsp

@@ -0,0 +1,13 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name "notch";
+
+import("maxmsp.lib");
+
+G = hslider("Gain [unit:dB]", 0, -10, 10, 0.1);
+F = hslider("Freq", 1000, 100, 10000, 1);
+Q = hslider("Q", 1, 0.01, 100, 0.01);
+
+process(x) = notch(x,F,G,Q);
+

cyfaust/resources/libraries/examples/filtering/oberheim.dsp

@@ -0,0 +1,14 @@
+declare name "oberheimBSF";
+declare description "Demonstration of the Oberheim generic multi-outputs Filter";
+declare author "Eric Tarr, GRAME";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+// The BSF, BPF, HPF and LPF outputs are produced
+process = inputSignal : ve.oberheim(normFreq,Q);

cyfaust/resources/libraries/examples/filtering/oberheimBPF.dsp

@@ -0,0 +1,13 @@
+declare name "oberheimBPF";
+declare description "Demonstration of the Oberheim Band-Pass Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.oberheimBPF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/oberheimBSF.dsp

@@ -0,0 +1,13 @@
+declare name "oberheimBSF";
+declare description "Demonstration of the Oberheim Band-Stop Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.oberheimBSF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/oberheimHPF.dsp

@@ -0,0 +1,13 @@
+declare name "oberheimHPF";
+declare description "Demonstration of the Oberheim High-Pass Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.oberheimHPF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/oberheimLPF.dsp

@@ -0,0 +1,13 @@
+declare name "oberheimLPF";
+declare description "Demonstration of the Oberheim Low-Pass Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.oberheimLPF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/parametricEqLab.dsp

@@ -0,0 +1,10 @@
+declare name "parametricEqLab";
+declare description "Demonstrate the Parametric Equalizer sections on test signals with spectrum analysis display";
+
+import("stdfaust.lib");
+
+process =
+  vgroup("[1]", dm.sawtooth_demo) :
+  vgroup("[2]", dm.parametric_eq_demo) :
+  vgroup("[3]", dm.mth_octave_spectral_level_demo(2))
+  <: _,_;

cyfaust/resources/libraries/examples/filtering/parametricEqualizer.dsp

@@ -0,0 +1,6 @@
+declare name "parametricEqualizer";
+declare description "Exercise and compare Parametric Equalizer sections on test signals";
+
+import("stdfaust.lib");
+
+process = dm.parametric_eq_demo;

cyfaust/resources/libraries/examples/filtering/peakNotch.dsp

@@ -0,0 +1,13 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name "peakNotch"; 
+
+import("maxmsp.lib");
+
+G = hslider("Gain [unit: lin]", 1, 0, 8, 0.01);
+F = hslider("Freq", 1000, 100, 10000, 1);
+Q = hslider("Q", 1, 0.01, 100, 0.01);
+
+process(x) = peakNotch(x,F,G,Q);
+

cyfaust/resources/libraries/examples/filtering/peakingEQ.dsp

@@ -0,0 +1,13 @@
+// WARNING: This a "legacy example based on a deprecated library". Check filters.lib
+// for more accurate examples of filter functions
+
+declare name "peakingEQ";
+
+import("maxmsp.lib");
+
+G = hslider("Gain [unit:dB]", 0, -10, 10, 0.1);
+F = hslider("Freq", 1000, 100, 10000, 1);
+Q = hslider("Q", 1, 0.01, 100, 0.01);
+
+process(x) = peakingEQ(x,F,G,Q);
+

cyfaust/resources/libraries/examples/filtering/sallenKey2ndOrder.dsp

@@ -0,0 +1,14 @@
+declare name "sallenKey2ndOrderBPF";
+declare description "Demonstration of the Sallen-Key Second Order generic multi-ourputs Filter";
+declare author "Eric Tarr, GRAME";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _ ; 
+
+// The LPF and HPF outputs are produced
+process = inputSignal : ve.sallenKey2ndOrder(normFreq,Q);

cyfaust/resources/libraries/examples/filtering/sallenKey2ndOrderBPF.dsp

@@ -0,0 +1,13 @@
+declare name "sallenKey2ndOrderBPF";
+declare description "Demonstration of the Sallen-Key Second Order Band-Pass Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.sallenKey2ndOrderBPF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/sallenKey2ndOrderHPF.dsp

@@ -0,0 +1,13 @@
+declare name "sallenKey2ndOrderHPF";
+declare description "Demonstration of the Sallen-Key Second Order Low-Pass Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.sallenKey2ndOrderHPF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/sallenKey2ndOrderLPF.dsp

@@ -0,0 +1,13 @@
+declare name "sallenKey2ndOrderLPF";
+declare description "Demonstration of the Sallen-Key Second Order Low-Pass Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+Q = hslider("Q",1,0.5,10,0.01);
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.sallenKey2ndOrderLPF(normFreq,Q) <:_,_;

cyfaust/resources/libraries/examples/filtering/sallenKeyOnePole.dsp

@@ -0,0 +1,13 @@
+declare name "sallenKeyOnePoleLPF";
+declare description "Demonstration of the Sallen-Key One Pole generic multi-ouputs Filter";
+declare author "Eric Tarr, GRAME";
+
+import("stdfaust.lib");
+
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+// The LPF, BPF and HPF outputs are produced
+process = inputSignal : ve.sallenKeyOnePole(normFreq);

cyfaust/resources/libraries/examples/filtering/sallenKeyOnePoleHPF.dsp

@@ -0,0 +1,12 @@
+declare name "sallenKeyOnePoleHPF";
+declare description "Demonstration of the Sallen-Key One Pole High-Pass Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.sallenKeyOnePoleHPF(normFreq) <:_,_;

cyfaust/resources/libraries/examples/filtering/sallenKeyOnePoleLPF.dsp

@@ -0,0 +1,12 @@
+declare name "sallenKeyOnePoleLPF";
+declare description "Demonstration of the Sallen-Key One Pole Low-Pass Filter";
+declare author "Eric Tarr";
+
+import("stdfaust.lib");
+
+normFreq = hslider("freq",0.5,0,1,0.001):si.smoo;
+switch = checkbox("Saw/Noise");
+
+inputSignal = (no.noise*switch), (os.sawtooth(100)*(1-switch)) :> _; 
+
+process = inputSignal : ve.sallenKeyOnePoleLPF(normFreq) <:_,_;

cyfaust/resources/libraries/examples/filtering/spectralTilt.dsp

@@ -0,0 +1,8 @@
+declare name "spectralTilt";
+declare description "Demonstrate the Spectral Tilt effect on test signals";
+
+import("stdfaust.lib");
+
+O = 2; // filter order
+
+process = dm.spectral_tilt_demo(2);

cyfaust/resources/libraries/examples/filtering/vcfWahLab.dsp

@@ -0,0 +1,12 @@
+import("stdfaust.lib");
+declare description "Demonstrate competing variable-lowpass-filter effects on test signals with spectrum analysis display";
+
+declare name "vcfWahLab";
+
+process = 
+ vgroup("[1]", dm.sawtooth_demo) : 
+ vgroup("[2]", dm.crybaby_demo) : 
+ vgroup("[3]", dm.wah4_demo) : 
+ vgroup("[4]", dm.moog_vcf_demo) : 
+ vgroup("[5]", dm.spectral_level_demo) <:
+  _,_;

cyfaust/resources/libraries/examples/filtering/vocoder.dsp

@@ -0,0 +1,8 @@
+declare name "Vocoder";
+declare version "0.0";
+declare author "RM";
+declare description "Use example of the vocoder function where an impulse train is used as excitation.";
+
+import("stdfaust.lib");
+
+process = dm.vocoder_demo;

cyfaust/resources/libraries/examples/filtering/wahPedal.dsp

@@ -0,0 +1,6 @@
+declare name "wahPedal";
+declare description "Demonstrate the Fourth-Order Wah pedal (similar to the Moog VCF)";
+
+import("stdfaust.lib");
+
+process = dm.wah4_demo;

cyfaust/resources/libraries/examples/gameaudio/bubble.dsp

@@ -0,0 +1,42 @@
+declare name "bubble";
+declare description "Production of a water drop bubble sound.";
+declare license "MIT";
+declare copyright "(c) 2017: Yann Orlarey, GRAME";
+
+import("stdfaust.lib");
+
+//---------------------------`bubble`--------------------------
+// bubble(f0, trig) : produces a water drop bubble sound
+//
+// #### Usage
+//
+// ```
+// bubble(f0, trig) : _
+// ```
+//
+// Where:
+//
+// * ` f0 `: base frequency of bubble sound
+// * `trig`: trigs the bubble sound on the rising front
+//
+// #### Example
+//
+// ```
+// button("drop") : bubble(600) : _
+// ```
+//
+// #### Reference:
+//
+// <http://www.cs.ubc.ca/~kvdoel/publications/tap05.pdf>
+//------------------------------------------------------------
+
+bubble(f0,trig) = os.osc(f) * (exp(-damp*time) : si.smooth(0.99))
+	with {
+		damp = 0.043*f0 + 0.0014*f0^(3/2);
+		f = f0*(1+sigma*time);
+		sigma = eta * damp;
+		eta = 0.075;
+		time = 0 : (select2(trig>trig'):+(1)) ~ _ : ba.samp2sec;
+	};
+
+process = button("drop") : bubble(hslider("v:bubble/freq", 600, 150, 2000, 1)) <: dm.freeverb_demo;

cyfaust/resources/libraries/examples/gameaudio/door.dsp

@@ -0,0 +1,58 @@
+//----------------------------`door`--------------------------
+// door(force) : produces a creaking door sound,
+//                          based on examples
+//                          from the book "Designing Sound"
+//                                by Andy Farnell
+//
+// #### Usage
+//
+// ```
+// door(force) : _
+// ```
+//
+// Where:
+//
+// * `force`: a float value between 0 and 1
+//              (0.3 to 0.93 for best results)
+//
+// #### Examples
+//
+// ```
+// door(hslider("force", 0, 0, 0.93, 0.001)) <: _, _;
+// ```
+//
+//------------------------------------------------------------
+
+import("stdfaust.lib");
+
+stickslip(force) = metro : timer : *(1000) : min(100) : /(100) :
+                   sqrt <: (+(0.1) : sqrt), (vline) : (*)
+    with {
+        swap(a, b) = (b, a);
+        metro = force : ba.line(ba.sec2samp(0.1)) : (step1 ~ _);
+        step1(t, s) = s <: (>(0.3)), (swap(1) : (-) <:
+                   ((*(60) : +(3)), (*(6) : *(no.noise : abs : ba.sAndH(t)))) : (+)) : _, (/(1000) : ba.sec2samp : ba.pulse) : (*);
+        timer(s) = 1 : ba.pulse_countup(((s : mem) == 0)) : /(ma.SR) : ba.sAndH(s);
+        vline(s) = s <: _, mem : (!=) : en.ar(0, s / 1000) <: (*);
+    };
+
+wood1 = _ <: ((fs, qs, si.bus(6)) : ro.interleave(6, 3) : par(i, 6, flt)), *(0.2) :> _
+    with {
+        fs = (62.5, 125, 250, 395, 560, 790);
+        qs = (1, 1, 2, 2, 3, 3);
+        flt(f, q) = fi.resonbp(f, q, 1);
+    };
+
+wood2 = _ <: (ds, si.bus(8)) : ro.interleave(8, 2) : par(i, 8, res) :> fi.highpass(1, 125)
+    with {
+        res(b) = dfbe(b, 0.05);
+        ds = (4.52, 5.06, 6.27, 8, 5.48, 7.14, 10.12, 16);
+        dfbe(i, g) = ((+) : de.delay(ba.sec2samp(0.1), ba.sec2samp(i / 1000))) ~ (*(g));
+    };
+
+door(force) = stickslip(force) : wood1 : wood2 : *(0.2);
+
+process = door(force) <: (_, _)
+    with {
+        force = button("door") : ba.impulsify : en.ar(2, 1.5) : *(0.61) : +(0.28);
+    };