/* A little mod to the BYU beeper, adding a simple gui...
lp 4/99 */

(
	var w, s1, s2, s3 ;
	w = GUIWindow.new("Beeper", Rect.newBy(148, 145, 595, 129 ));
	
	s1 = SliderView.new( w, Rect.newBy( 24, 17, 128, 20 ), "SliderView", 5, 0.05, 30, 0, 'linear');
	StringView.new( w, Rect.newBy( 26, 45, 128, 20 ), "Mod rate");
	
	s2 = SliderView.new( w, Rect.newBy( 167, 17, 128, 20 ), "SliderView", 0, 0, 500, 0, 'linear');
	StringView.new( w, Rect.newBy( 170, 46, 128, 20 ), "fund");
	
	s3 = SliderView.new( w, Rect.newBy( 311, 18, 128, 20  ), "SliderView", 200, 100, 800, 0, 'linear');
	StringView.new( w, Rect.newBy( 310, 47, 128, 20 ), "range");


Synth.scope(
       	 {
                var fund, randinc;
                fund = LFNoise0.ar(ControlIn.kr(s1), ControlIn.kr(s3), ControlIn.kr(s2));
			

                Mix.ar(
                        [SinOsc.ar( (fund *1), 0, 1), 
                        SinOsc.ar( (fund*2), 0, 1/2), 
                        SinOsc.ar((fund *3), 0, 1/3), 
                        SinOsc.ar((fund *4), 0,  1/4), 
                        SinOsc.ar((fund *5), 0,  1/5), 
                        SinOsc.ar((fund *6), 0, 1/6), 
                        SinOsc.ar((fund *7), 0, 1/7), 
                        SinOsc.ar((fund *8), 0,  1/8), 
                        SinOsc.ar((fund *9), 0, 1/9) 
                        ]
                ) * 0.3 
        	}
	)

)