program sweep1(
  outWave: wave,
  time: real,
  ampl: real,
  minFreq: real,
  maxFreq: real
) {
    var theta : real;
    var fix : real;

    fix = 2 * pi / r;
    

    outWave[c, i:time*r] = ampl * sin(fix * i *
			(minFreq + (((maxFreq - minFreq)*i)/(time*r))));
}