Merge pull request #2731 from emlyn/fixbell

Ensure bell synths get freed when used with amp: 0

Author: samaaron

CONTRIBUTORS.md

@@ -107,6 +107,7 @@ especially the following individuals who have been remarkably generous:
 * [Paul Williams](https://pcwilliams.design)
 * [Pit Noack](http://www.maschinennah.de/)
 * [Richard Buckley](https://burgundycomputing.com)
+* [Richard Bullington-McGuire](https://www.obscure.org/~rbulling/)
 * [Robin Newman](https://twitter.com/rbnman)
 * [Sam Halliday](https://github.com/fommil)
 * [Sean Raser](https://twitter.com/sraser88)

etc/synthdefs/compiled/sonic-pi-dull_bell.scsyndef

@@ -105,8 +105,9 @@
            amp         (varlag amp amp_slide amp_slide_curve amp_slide_shape)
            pan         (varlag pan pan_slide pan_slide_curve pan_slide_shape)
            freq        (midicps note)
-           snd         (* amp (bell-partials freq attack decay sustain release attack_level decay_level sustain_level dull-partials))]
-       (detect-silence snd :action FREE)
+           snd         (* amp (bell-partials freq attack decay sustain release attack_level decay_level sustain_level dull-partials))
+           det         (+ snd (impulse:ar 0))]
+       (detect-silence det :action FREE)
        (out out_bus (pan2 snd pan))))
 
    (defsynth sonic-pi-pretty_bell [note 52
@@ -135,8 +136,9 @@
            amp         (varlag amp amp_slide amp_slide_curve amp_slide_shape)
            pan         (varlag pan pan_slide pan_slide_curve pan_slide_shape)
            freq        (midicps note)
-           snd         (* amp (bell-partials freq attack decay sustain release attack_level decay_level sustain_level partials))]
-       (detect-silence snd :action FREE)
+           snd         (* amp (bell-partials freq attack decay sustain release attack_level decay_level sustain_level partials))
+           det         (+ snd (impulse:ar 0))]
+       (detect-silence det :action FREE)
        (out out_bus (pan2 snd pan)))))
 
   (comment