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