CMSCOPE changed

1 files changed, 46 insertions, 0 deletions

diff --git a/modules/sound/demos/sound.dem.sce b/modules/sound/demos/sound.dem.sce
new file mode 100755
index 000000000..582df9c23
--- /dev/null
+++ b/modules/sound/demos/sound.dem.sce
@@ -0,0 +1,46 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2001 - INRIA - Scilab
+// Copyright (C) 2010 - DIGITEO - Allan CORNET
+//
+// This file is released under the 3-clause BSD license. See COPYING-BSD.
+
+function demo_sound()
+
+    // At first we create 0.5 seconds of sound parameters.
+    t = soundsec(0.5);
+    // Then we generate the sound.
+
+    s = sin(440*t)+sin(220*t)/2+sin(880*t)/2;
+    [nr, nc] = size(t);
+    s(nc/2:nc) = sin(330*t(nc/2:nc));
+
+    // We can easily make a Fourier analysis of it.
+    my_handle = scf(100001);
+    clf(my_handle, "reset");
+    analyze(s);
+    messagebox(_("Fourier analysis of 0.5 seconds of sound parameters."), "modal");
+
+    // Save the file in WAV format.
+    // we renormalize s in order to check that save+load is invariant
+    s = s - sum(s)/prod(size(s));
+    s = s/max(abs(s));
+    savewave(TMPDIR + "/test.wav",s);
+
+    // Load it back.
+    s1 = loadwave(TMPDIR + "/test.wav");
+    if max(abs(s1 - s)) < 1.e-4;end
+
+    // Now we can make a complete picture of the sound.
+    clf(my_handle,"reset");
+    mapsound(s);
+    messagebox([_("A complete picture of the sound."); _("see ''mapsound'' function")], "modal");
+
+    // Or a Fourier analysis.
+    clf(my_handle,"reset");
+    analyze(s);
+    demo_viewCode("sound.dem.sce");
+
+endfunction
+
+demo_sound();
+clear demo_sound;