Refactoring of rec process "~" in faustexp.ml.
[Faustine.git] / dsp_files / square.dsp
1 //-------------------------------------------------------
2 // A square wave oscillator
3 //-------------------------------------------------------
4
5 //T = hslider ("Period", 1, 0.1, 100., 0.1);
6 T = 10;
7 N = 44100./1000.*T : int;
8 //a = hslider ("Cyclic ratio", 0.5, 0, 1, 0.1);
9 a = 0.5;
10 i = +(1)~%(N):-(1);
11
12 process = i, N*a : > : *(2) : -(1);
13
14 //process = ((_,1:+)~(_,((44100.0,1000.0:/),10:*:int):%):_,1:-),(((44100.0,1000.0:/),10:*:int),0.5:*):+:_,2:*:_,1:-;
15
16 //process = ((_,1:+)~(_,440:%):_),1:+:_,2:*:_,1:-;
17
18
19
20