                             sustain_level 1
                             env_curve 2
                             out_bus 0]
-     (let [note      (lag note note_slide)
-           amp       (lag amp amp_slide)
+     (let [note      (varlag note note_slide note_slide_curve note_slide_shape)
+           amp       (varlag amp amp_slide amp_slide_curve amp_slide_shape)
            amp-fudge 1
-           pan       (lag pan pan_slide)
+           pan       (varlag pan pan_slide pan_slide_curve pan_slide_shape)
            freq      (midicps note)
            snd       (sin-osc freq)
            env       (env-gen:kr (env-adsr-ng attack decay sustain release attack_level sustain_level env_curve) :action FREE)]
        (out out_bus (pan2 (* amp-fudge env snd) pan amp))))
 
+   ;;   (show-graphviz-synth sonic-pi-beep)
+
    (defsynth sonic-pi-pulse [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.01
                              decay 0
                              sustain 0


   (defsynth sonic-pi-dsaw [note 52
                            note_slide 0
                            amp 1
                            amp_slide 0
                            pan 0
                            pan_slide 0
                            attack 0.1
                            decay 0
                            sustain 0


   (defsynth sonic-pi-tri [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.1
                           decay 0
                           sustain 0
