(<rt-out> (oscil* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (pulse-train* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (sawtooth-wave* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (sine-summation* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (square-wave* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (sum-of-cosines* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (sum-of-sines* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (triangle-wave* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (table-lookup* (<slider> "freq" 0 200 5000 :log #t)))
(<rt-out> (wave-train* (<slider> "freq" 0 200 5000 :log #t)))


(<rt-out> (* (<slider> "Amp" 0 0.5 1)
	     (<checkbutton> "On/Off" #t)
	     (oscil*)))


(<rt-out> (* (<slider> "Amp" 0 0.5 1)
	     (<checkbutton> "On/Off" #t)
	     (oscil* (<slider> "Freq" 20 200 4000 :log #t))))


(<rt-out> (* (<slider> "vol" 0 0.2 1) 
	     (<slider> "vol2" 0 0.2 1 :glide #f)
	     (<checkbutton> "on/off" #t :glide #t)
	     (<togglebutton> "on/off" #t :glide #f)
	     (oscil* (<slider> "freq" 50 200 1000 :log #t))))


(<rt-out> (let ((outval (* (<checkbutton> "on/off" #t)
			   (oscil* (<slider> "freq" 50 200 8000 :log #t)))))
	    (vct (* (<slider> "left" 0 0.2 1) outval)
		 (* (<slider> "right" 0 0.2 1) outval))))
[1]


(let ()
  (define-multi-instrument-rt-dialog)
  (<rt-out> (* (<slider> "osci" 0 0.5 1)
	       (<slider> "Main volume" 0 1 2)
	       (oscil*)))
  (<rt-out> (* (<slider> "square" 0 0.5 2)
	       (<slider> "Main volume" 0 1 2)
	       (square-wave*))))




[1] Faust has an operator "<:", which can be used to split the input signal
    by sending it to a list of functions to further make a multichannel
    signal out of it. A quite similar operator can
    easely be implemented in snd-rt:

(define-rt-macro (<: input . outputs)
  (define val (rt-gensym))
  `(let ((,val ,input))
     (vct ,@(map (lambda (output)
                   `(,output ,val))
                 outputs))))

(define-rt-macro (curry function . rest)
  (define x (rt-gensym))
  `(lambda (,x) (,function ,x ,@rest)))


    By using the "<:" macro for splitting the signal, and
    the "curry" macro to conveniently create the type of functions we
    need here, the original dialog can now be written in a
    shorter form like this:

(<rt-out> (<: (* (<checkbutton> "on/off" #t)
                 (oscil* (<slider> "freq" 50 200 8000 :log #t)))
              (curry * (<slider> "left" 0 0.2 1))
              (curry * (<slider> "right" 0 0.2 1))))


    And here is a version which is easier to read:

(<rt-out> (begin
	    (define on/off (<checkbutton> "on/off" #t))
	    (define freq   (<slider> "freq" 50 200 8000 :log #t))
	    (define left   (<slider> "left" 0 0.2 1))
	    (define right  (<slider> "right" 0 0.2 1))
	    (<: (* on/off (oscil* freq))
		(curry * left)
		(curry * right))))