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