From bd87c8964f1efc9d6a119881f30df9cb3e65efd1 Mon Sep 17 00:00:00 2001
From: Guus Sliepen <guus@debian.org>
Date: Tue, 6 Mar 2012 00:09:11 +0100
Subject: [PATCH] Better explosion sound.

Use an exponential function for the amplitude envelope of the noise function
instead of a linear on.
---
 sound/explode.csd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sound/explode.csd b/sound/explode.csd
index 854210d..f9875cf 100644
--- a/sound/explode.csd
+++ b/sound/explode.csd
@@ -17,7 +17,7 @@ nchnls = 1
 
 instr 1
 	pset 0, 0, 1, 50, 30, 0.01, 0.01, 0.01, 1, 1
-	k1 linseg 0, p8, p9, p3 - p8, 0
+	k1 expon p9, p3, 0.001
 	k2 line p4, p3, p5
 	a1 noise k1, 0.1
 	a1 fofilter a1, k2, p6, p7
@@ -26,7 +26,7 @@ instr 1
 endin
 </CsInstruments>
 <CsScore>
-i 1 0   0.5 100 30 0.01 0.0002 0.02 1.0 0.5
+i 1 0   2.0 100 30 0.01 0.0002 0.02 1.0 0.5
 i 1 0.4 2.0  50 30 0.01 0.001  0.01 1.0 0.5
 e
 </CsScore>