 
    (defsynth sonic-pi-beep [note 52
                             note_slide 0
+                            note_slide_shape 5
+                            note_slide_curve 0
                             amp 1
                             amp_slide 0
+                            amp_slide_shape 5
+                            amp_slide_curve 0
                             pan 0
                             pan_slide 0
+                            pan_slide_shape 5
+                            pan_slide_curve 0
                             attack 0
                             decay 0
                             sustain 0

                              env_curve 2
                              mod_phase 1
                              mod_phase_slide 0
                              mod_range 5
                              mod_range_slide 0
                              mod_pulse_width 0.5
                              mod_pulse_width_slide 0
                              mod_phase_offset 0
                              mod_wave 1
                              mod_invert_wave 0
                              divisor 2.0
                              divisor_slide 0
                              depth 1.0
                              depth_slide 0
                              out_bus 0]
     (let [note                    (lag note note_slide)
           amp                     (lag amp amp_slide)
           amp-fudge               1
           pan                     (lag pan pan_slide)
           mod_phase               (lag mod_phase mod_phase_slide)
           mod_rate                (/ 1 mod_phase)
           mod_range               (lag mod_range mod_range_slide)
           mod_pulse_width         (lag mod_pulse_width mod_pulse_width_slide)

           min_note                note
           max_note                (+ mod_range note)

  (defsynth sonic-pi-fx_replace_ixi_techno
    [amp 1
     amp_slide 0
     amp_slide_shape 5
     amp_slide_curve 0
     mix 1
     mix_slide 0
     mix_slide_shape 5
     mix_slide_curve 0
     pre_amp 1
     pre_amp_slide 0
     pre_amp_slide_shape 5
     pre_amp_slide_curve 0
     phase 4
     phase_slide 0
     phase_slide_shape 5
     phase_slide_curve 0
     phase_offset 0
     cutoff_min 60
     cutoff_min_slide 0
     cutoff_min_slide_shape 5
     cutoff_min_slide_curve 0
     cutoff_max 120
     cutoff_max_slide 0
     cutoff_max_slide_shape 5
     cutoff_max_slide_curve 0
     res 0.2
     res_slide 0
     res_slide_shape 5
     res_slide_curve 0
     out_bus 0]
    (let [amp           (varlag amp amp_slide amp_slide_curve amp_slide_shape)
          mix           (varlag mix mix_slide mix_slide_curve mix_slide_shape)
          pre_amp       (varlag pre_amp pre_amp_slide pre_amp_slide_curve pre_amp_slide_shape)
          phase         (varlag phase phase_slide phase_slide_curve phase_slide_shape)
          rate          (/ 1 phase)
          cutoff_min    (varlag cutoff_min cutoff_min_slide cutoff_min_slide_curve cutoff_min_slide_shape)
          cutoff_max    (varlag cutoff_max cutoff_max_slide cutoff_max_slide_curve cutoff_max_slide_shape)
          res           (varlag res res_slide res_slide_curve res_slide_shape)
          cutoff_min    (midicps cutoff_min)
          cutoff_max    (midicps cutoff_max)
          freq          (lin-exp (sin-osc:kr rate (* (- phase_offset 0.25) (* Math/PI 2))) -1 1 cutoff_min cutoff_max)
