Commit 490c7e1c authored by bjoern kessler's avatar bjoern kessler

Unitary Delay Network after Millers paper with midi support for ctl[0-2]

parent 497ac14e
......@@ -7,3 +7,4 @@
FAUST/*.cpp
FAUST/build/
FAUST/recordings/
FAUST/faust.*/
chair = library("chair.lib");
de = library("delays.lib");
fi = library("filters.lib");
no = library("noises.lib");
ma = library("maths.lib");
//prociss =
// chair.dc_offset <:
// (
// (((chair.x,_) : (2 * ma.PI * (cos)),( + : de.delay(ma.SR/5, 5) * 0.999) : * ) ~ _ ),
// (((chair.x,_) : (2 * ma.PI * (sin)),( + : de.delay(ma.SR/5, 5) * 0.999) : * ) ~ _ )
// ) : + ;
import("stdfaust.lib");
declare options "[midi:on]";
g(x) =
(x, _, x, _, x, _, x,_) : (*,*,*,*);
ctl0 = hslider("delay[midi:ctrl 11]",0.5,0.0000001,1,0.0000001) : si.smoo;
ctl1 = hslider("decay[midi:ctrl 12]",0.5,0,1,0.001) : si.smoo;
ctl2 = hslider("psi[midi:ctrl 13]",0.5,0.0001,1,0.00001) : si.smoo;
mx(psi,damp) =
(cos(psi),_, sin(psi) * (-1),_, sin(psi),_, cos(psi),_) : (*,*,*,*) : g(damp);
process =
// chair.dc_offset <: ;
((_,chair.x,_) : (+,+) : (_,_) <: mx(0.5,0.99) : (+,+)) ~
(de.delay(ma.SR/5, 5*ma.SR/1000),de.delay(ma.SR/5, 5*ma.SR/1000)) ;
((_,chair.x,_) : (+,+) : (_,_) <: mx((ctl2 * ma.PI),(1-(ctl1/10))) : (+,+)) ~
(de.delay(ma.SR/5, ctl0*5*ma.SR/1000),de.delay(ma.SR/5, 5*ma.SR/1000)) ;
sources = *.dsp
#sources = *.dsp
svg : $(sources)
faust -svg $< > /dev/null
#svg : $(sources)
# faust -svg $< > /dev/null
jackconsole : %.cpp
#jackconsole : %.cpp
# faust -a jack-console.cpp -o 01.percussion-snare.cpp 01.percussion-snare.dsp
# g++ -lpthread `pkg-config --cflags --libs jack` -Wfatal-errors -O3 -mfpmath=sse -msse -msse2 -msse3 -ffast-math 01.percussion-snare.cpp -o 01.percussion-snare-jackconsole
g++ -lpthread `pkg-config --cflags --libs jack` -Wfatal-errors -O3 -mfpmath=sse -msse -msse2 -msse3 -ffast-math $< -o $@
# g++ -lpthread `pkg-config --cflags --libs jack` -Wfatal-errors -O3 -mfpmath=sse -msse -msse2 -msse3 -ffast-math $< -o $@
# install -d build
# install 01.percussion-snare-jackconsole build/01.percussion-snare-jackconsole
# rm 01.percussion-snare-jackconsole
%.cpp : $(sources)
faust -a jack-console.cpp -o $@.cpp $<
#%.cpp : $(sources)
# faust -a jack-console.cpp -o $@.cpp $<
#oldsvg : 01.percussion-snare.dsp
# faust -svg 01.percussion-snare.dsp > /dev/null
jackconsole : 02.unitary-delay-network
faust2jackconsole -midi $<.dsp
clean:
rm -f *.cpp
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment