-//-------------------------------------------------------
-// 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:-;
-
-
-
-