//------------------------------------------------------- // A square wave oscillator //------------------------------------------------------- //T = hslider ("Period", 1, 0.1, 100., 0.1); T = 10; N = 44100./1000.*T : int; //a = hslider ("Cyclic ratio", 0.5, 0, 1, 0.1); a = 0.5; i = +(1)~%(N):-(1); process = i, N*a : > : *(2) : -(1); //process = ((_,1:+)~(_,((44100.0,1000.0:/),10:*:int):%):_,1:-),(((44100.0,1000.0:/),10:*:int),0.5:*):+:_,2:*:_,1:-; //process = ((_,1:+)~(_,440:%):_),1:+:_,2:*:_,1:-;