added bastis csound files

SVN-Revision: 2373

diff --git a/contrib/sounds/csound/Makefile b/contrib/sounds/csound/Makefile
new file mode 100644 (file)
index 0000000..13a754a
--- /dev/null
+++ b/contrib/sounds/csound/Makefile
@@ -0,0 +1,12 @@
+
+CSOUND = /usr/bin/csound
+
+sounds: bubble.wav rain.wav lava.wav waterfall.wav 
+
+%.wav: %.sco sfx.orc 
+       $(CSOUND) sfx.orc $< -W -o $@ -g
+
+clean: 
+       rm *.wav
+       rm *~
+

diff --git a/contrib/sounds/csound/bubble.sco b/contrib/sounds/csound/bubble.sco
new file mode 100644 (file)
index 0000000..d0cb3ae
--- /dev/null
+++ b/contrib/sounds/csound/bubble.sco
@@ -0,0 +1,24 @@
+
+; Bubble is very unproblematic, just needs a sine as a source (you
+; might experiment with the gen to make the bubble sound different
+
+f 1 0 64 10 1
+
+; lots of bubbles, just use one!
+
+;i3 0 0.1 8.0 30000 1.0004 
+;i3 0 0.1 6.0 30000 1.0006
+;i3 0 0.1 5.11 30000 1.0006
+;i3 0 0.1 6.01 30000 1.0006
+;i3 0 0.1 6.02 30000 1.0006
+;i3 0 0.1 7.0 30000 1.0005
+
+i3 0 0.1 6.11 30000 1.0005
+
+;i3 0 0.1 7.01 30000 1.0005
+;i3 0 0.1 7.02 30000 1.0005
+;i3 0 0.1 8.02 30000 1.0004
+;i3 0 0.1 8.0 30000 1.0004
+;i3 0 0.1 8.11 30000 1.0004
+;i3 0 0.1 8.01 30000 1.0004
+;i3 0 0.1 8.02 30000 1.0004

diff --git a/contrib/sounds/csound/cscore.out b/contrib/sounds/csound/cscore.out
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/contrib/sounds/csound/lava.sco b/contrib/sounds/csound/lava.sco
new file mode 100644 (file)
index 0000000..098d808
--- /dev/null
+++ b/contrib/sounds/csound/lava.sco
@@ -0,0 +1,12 @@
+
+; lava 
+
+;i1 0 1 100 3000 3000 2
+i1 0 3 100 1000 3000 1 
+;i1 0 1 100 500 500 0.5
+;i1 0 1 50 500 500 0.5
+;i1 0 1 100 3000 1000 0.5
+;i1 0 1 100 8000 8000 0.5
+;i1 0 1 100 8000 8000 2
+;i1 0 1 100 6000 3000 3
+

diff --git a/contrib/sounds/csound/rain.sco b/contrib/sounds/csound/rain.sco
new file mode 100644 (file)
index 0000000..9817893
--- /dev/null
+++ b/contrib/sounds/csound/rain.sco
@@ -0,0 +1,15 @@
+
+; some water/rain sounds 
+
+
+;i2 0 1 3000 10 7000 1
+;i2 0 5 1000 20 2000 0.4 
+i2 0 5 2000 0.5 3000 -0.5 3
+;i2 0 1 3000 0 3000 1
+;i2 0 1 3000 2 4000 1
+;i2 0 1 6000 2 4000 1
+
+
+
+
+

diff --git a/contrib/sounds/csound/sfx.orc b/contrib/sounds/csound/sfx.orc
new file mode 100644 (file)
index 0000000..7dcfde6
--- /dev/null
+++ b/contrib/sounds/csound/sfx.orc
@@ -0,0 +1,79 @@
+
+; supertux - various sound effect orchestra
+;
+;  note - The sounds can't be looped right away, an external program needs 
+;         to be used to make them loop
+;
+;        Bastiaan Zapf - freenode.net basti_ 
+
+sr = 44100
+kr = 44100
+ksmps = 1
+nchnls = 1
+
+; lava sound
+
+instr 1
+  ; Generate a random between 0 and 1.
+  ; krange = 1
+
+       kocrck init 0
+
+       a1 exprand 10             ; exponential noise as a base
+
+       kncrck exprand 1          ; get new crackle raw
+       kcrck = (kocrck-kncrck)/2 ; dc correct crackle
+       kocrck = kncrck           ; remember old crackle
+
+       a1    pareq   a1, p4, 30    , 1 , 1 ; growl
+       a1    pareq   a1, p5, 0     , 1 , 2 ; high stop
+       a1    pareq   a1, p6, kncrck, p7, 0 ; "crackling" of various intensity
+
+       a1    pareq   a1, 10, 0     , 1 , 1 ; thunder stop (dc correction)
+
+       aout  =       a1*750 ; adjust your volume here
+
+       out aout 
+
+endin
+
+; rain / water - this is quite similar to lava, just "crackles" more
+
+instr 2
+
+       a1 exprand 10
+
+       kocrck init 0
+       kncrck exprand 1 ; get new crackle
+       k2crck = kncrck
+       kncrck = kncrck -1
+       kncrck = kncrck^p8    ; few high values, many low values - how sparse
+                              ; the highs are is controlled by the power (p8).
+       kcrck = (kocrck-kncrck)/2 ; dc correct crackle
+       kocrck = kncrck           ; remember old crackle
+
+       a1    pareq   a1, p4,p5, 1, 1 ; growl
+       a1    pareq   a1, p6  ,1+kncrck*p7 ,1, 0 ; "crackling"
+       a1    pareq   a1, p6/2,1+k2crck*p7 ,1, 0 ; "crackling"
+
+       a1    pareq   a1,  10, 0, 1, 1 ; thunder stop (dc correction)
+       a1    pareq   a1, 4000, 0, 1, 2 ; extreme high stop
+
+       out a1*700 ; adjust your volume here
+endin
+        
+
+instr 3
+       ifqc = cpspch(p4)
+
+       kamp linseg 0,p3/4,1,p3/2,1,p3/4,0
+
+       kff  init  1
+
+       aout    oscil3 p5,ifqc*kff,1  ; make a sound
+       aout    butterhp aout,500,0.5 ; ear protection ;)
+
+       kff = kff*p6 ; frequency exponential rise
+       out aout*kamp
+
+endin        
\ No newline at end of file

diff --git a/contrib/sounds/csound/test.orc b/contrib/sounds/csound/test.orc
new file mode 100644 (file)
index 0000000..7ddcb29
--- /dev/null
+++ b/contrib/sounds/csound/test.orc
@@ -0,0 +1,18 @@
+/* gen10.orc */
+; Initialize the global variables.
+sr = 44100
+kr = 4410
+ksmps = 10
+nchnls = 1
+
+; Instrument #1.
+instr 1
+  kamp = 30000
+  kcps = 440
+  ifn = 1
+
+  ; Play the sine wave stored in Table #1.
+  a1 oscil kamp, kcps, ifn
+  out a1
+endin
+/* gen10.orc */

diff --git a/contrib/sounds/csound/test.sco b/contrib/sounds/csound/test.sco
new file mode 100644 (file)
index 0000000..0741a83
--- /dev/null
+++ b/contrib/sounds/csound/test.sco
@@ -0,0 +1,8 @@
+/* gen10.sco */
+; Table #1: a simple sine wave (using GEN10).
+f 1 0 16384 10 1
+
+; Play Instrument #1 for 2 seconds.
+i 1 0 2
+e
+/* gen10.sco */

diff --git a/contrib/sounds/csound/waterfall.sco b/contrib/sounds/csound/waterfall.sco
new file mode 100644 (file)
index 0000000..897c561
--- /dev/null
+++ b/contrib/sounds/csound/waterfall.sco
@@ -0,0 +1,10 @@
+
+; use the rain instrument to make a waterfall like sound
+
+i2 0 5 1000 10 5000 0.4 0
+
+
+
+
+
+