           src (* amp src)]
       (replace-out out-bus src)))
 
-  ;; (save-to-pi mixer)
-  ;; (save-to-pi basic-mixer)
-  )
+  (comment
+    (save-to-pi mixer)
+    (save-to-pi basic-mixer)))
 
 
 ;; Simple Trigger synths

      (out out-bus output)))

  (defsynth prophet
  "The Prophet Speaks (page 2)

   Dark and swirly, this synth uses Pulse Width Modulation (PWM) to
   create a timbre which continually moves around. This effect is

          snd           (balance2 snd-l snd-r pan amp)
          snd           (* env snd)]
      (out out-bus snd)))
  (comment
    (save-to-pi mono_player)
    (save-to-pi stereo_player)
    (save-to-pi basic_mono_player)
    (save-to-pi basic_stereo_player)))

(do

  (defsynth tb303
    "A simple clone of the sound of a Roland TB-303 bass synthesizer."
    [note     52                        ; midi note value input
     note_slide 0
     amp      1
     amp_slide 0
     pan      0
     pan_slide 0
     attack   0.01
     sustain  0
     release  2
     cutoff   80
     cutoff_slide 0
     cutoff_min 30
     res      0.2                       ; rlpf resonance
     res_slide 0
     wave     0                         ; 0=saw, 1=pulse
     pulse_width 0.5                    ; only for pulse wave
     pulse_width_slide 0
     out-bus  0]
    (let [note            (lag note note_slide)
          amp             (lag amp amp_slide)
          pan             (lag pan pan_slide)
          cutoff_slide    (lag cutoff cutoff_slide)
          res             (lag res res_slide)
          pulse_width     (lag pulse_width pulse_width_slide)
          cutoff-freq     (midicps cutoff)
          cutoff-min-freq (midicps cutoff_min)
          freq            (midicps note)
          env             (env-gen (env-lin attack sustain release) :action FREE)
          snd             (rlpf (select wave [(saw freq) (pulse freq pulse_width)])
                                (+ cutoff-min-freq (* env cutoff-freq))
                                res)
          snd             (* env snd)]
      (out out-bus (pan2 snd pan amp))))

  (defsynth supersaw [note 52
                      note_slide 0
