* Bug 16525 fixed: soundsec() set obsolete 68/21568/3
Samuel GOUGEON [Tue, 4 Aug 2020 20:57:16 +0000 (22:57 +0200)]
  http://bugzilla.scilab.org/16525

Change-Id: I8815d864bc1750ef0825c59feb0dcf11b7fa7feb

30 files changed:
scilab/CHANGES.md
scilab/modules/helptools/etc/images_md5.txt
scilab/modules/slint/src/cpp/DeprecatedChecker.cpp
scilab/modules/sound/demos/sound.dem.sce
scilab/modules/sound/help/en_US/analyze.xml
scilab/modules/sound/help/en_US/loadwave.xml
scilab/modules/sound/help/en_US/mapsound.xml
scilab/modules/sound/help/en_US/savewave.xml
scilab/modules/sound/help/en_US/sound.xml
scilab/modules/sound/help/en_US/soundsec.xml
scilab/modules/sound/help/ja_JP/analyze.xml
scilab/modules/sound/help/ja_JP/loadwave.xml
scilab/modules/sound/help/ja_JP/mapsound.xml
scilab/modules/sound/help/ja_JP/savewave.xml
scilab/modules/sound/help/ja_JP/soundsec.xml
scilab/modules/sound/macros/soundsec.sci
scilab/modules/sound/tests/nonreg_tests/bug_10942.dia.ref [deleted file]
scilab/modules/sound/tests/nonreg_tests/bug_10942.tst [deleted file]
scilab/modules/sound/tests/nonreg_tests/bug_11860.dia.ref [deleted file]
scilab/modules/sound/tests/nonreg_tests/bug_11860.tst
scilab/modules/sound/tests/nonreg_tests/bug_12779.dia.ref [deleted file]
scilab/modules/sound/tests/nonreg_tests/bug_12779.tst
scilab/modules/sound/tests/unit_tests/mapsound.dia.ref [deleted file]
scilab/modules/sound/tests/unit_tests/mapsound.tst
scilab/modules/sound/tests/unit_tests/savewave.dia.ref [deleted file]
scilab/modules/sound/tests/unit_tests/savewave.tst
scilab/modules/sound/tests/unit_tests/sound.dia.ref [deleted file]
scilab/modules/sound/tests/unit_tests/sound.tst
scilab/modules/sound/tests/unit_tests/soundsec.dia.ref [deleted file]
scilab/modules/sound/tests/unit_tests/soundsec.tst [deleted file]

index 47a8d89..0d64427 100644 (file)
@@ -246,6 +246,7 @@ Obsolete functions or features
 * `scatter3` is obsolete. Please use `scatter3d` instead.
 * `saveafterncommands` is canceled. It will be removed from Scilab 6.1.x
 * `xname` is obsolete. It will be removed from Scilab 6.2.x. Please use `gcf().figure_name` instead.
+* `soundsec` is obsolete. It will be removed from Scilab 6.2.x. Please use `0 : 1/freq : t*(1-%eps)` instead.
 
 Removed Functions
 -----------------
@@ -319,6 +320,7 @@ Bug Fixes
 * [#16473](https://bugzilla.scilab.org/16473): Deleting rows in a sparse squared the matrix with padding zeros (Scilab 6 regression).
 * [#16474](https://bugzilla.scilab.org/16474): `imult(%z)` crashed Scilab.
 * [#16522](https://bugzilla.scilab.org/16522): `bitget(x,pos)` and `bitset(x,pos)` results could be wrong when `pos` is an encoded integer.
+* [#16525](https://bugzilla.scilab.org/16525): `soundsec(t,freq)` has the trivial equivalence `0 : 1/freq : t*(1-%eps)` and should be removed.
 
 
 ### Bugs fixed in 6.1.0:
index f0931e7..fa1c31b 100644 (file)
@@ -465,7 +465,7 @@ addcolor_1.png=7e5f272c2700aafbd41da8efd8e9d8eb
 airy_1.png=4a046e9854c5d1b761d532acfa45296b
 airy_2.png=bcbcd5ee1de18b8202b2208b1f10971c
 analpf_1.png=6d59d9510e91abd50fcfd04a4b129d93
-analyze_1.png=f618685a506715b35493fcc61fe78a25
+analyze_1.png=a292b13f6ec462f202850010d77eb59e
 arl2_1.png=08f7b10fe894dbb9e21a4f965de0fe07
 arma_en_US_1.png=dc5f992783f4db687e23a65866dac816
 arma_fr_FR_1.png=dc5f992783f4db687e23a65866dac816
@@ -845,7 +845,7 @@ lqg_1.png=3e8627090476b38335a391eb831767a6
 lqg_2.png=d0a7523f9ddee9c5f11c06682ff1b0c6
 lqr_1.png=269d7421a9d109d37259c9739612dd21
 lsq_splin_1.png=35722a6a58a3c9afd427b0bb23f1382a
-mapsound_1.png=d53857560735f383a3e074b5546d1b7f
+mapsound_1.png=a1d2da99607861bfe926b66b3fc145b2
 math_rendering_features_in_graphic_1.png=b1259d51258d72193bd32a47c8f96ca4
 math_rendering_features_in_graphic_2.png=c93a1a79cbe217871185826f83fdd7bb
 mese_1.png=c4ce712eded4fbbd49bb86b02e14afe9
index dc12dfd..b3c34fb 100644 (file)
@@ -93,6 +93,7 @@ std::unordered_map<std::wstring, std::wstring> DeprecatedChecker::initDep()
     std::unordered_map<std::wstring, std::wstring> map;
 
     // Scilab 6.1.0 => 6.1.x
+    map.emplace(L"soundsec", L"0 : 1/freq : t*(1-%eps)");
     map.emplace(L"xname", L"gcf().figure_name");
 
     // Scilab 6.0.x => 6.1.0
index 582df9c..cb4e1bd 100644 (file)
@@ -7,9 +7,9 @@
 function demo_sound()
 
     // At first we create 0.5 seconds of sound parameters.
-    t = soundsec(0.5);
-    // Then we generate the sound.
+    t = 0 : 1/22050 : 0.5*(1-%eps);
 
+    // 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));
index e40da0e..2d7ca48 100644 (file)
@@ -13,7 +13,9 @@
  * along with this program.
     *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="analyze">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="analyze">
     <refnamediv>
         <refname>analyze</refname>
         <refpurpose>frequency plot of a sound signal</refpurpose>
@@ -40,8 +42,8 @@
     <refsection>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
-// At first we create 0.5 seconds of sound parameters.
-t=soundsec(0.5);
+// At first we create a time vector of 0.5 seconds sampled at 22050 Hz:
+t = 0 : 1/22050 : 0.5*(1-%eps);
 
 // Then we generate the sound.
 s=sin(440*t)+sin(220*t)/2+sin(880*t)/2;
@@ -50,7 +52,7 @@ s(nc/2:nc)=sin(330*t(nc/2:nc));
 analyze(s);
  ]]></programlisting>
         <scilab:image>
-            t=soundsec(0.5);
+            t = 0 : 1/22050 : 0.5*(1-%eps);
             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));
index f68e054..4c72647 100644 (file)
  * along with this program.
     *
     -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns3="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="loadwave" xml:lang="en">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns3="http://www.w3.org/1999/xhtml"
+          xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org"
+          xml:id="loadwave" xml:lang="en">
     <refnamediv>
         <refname>loadwave</refname>
         <refpurpose>load a sound wav file into scilab</refpurpose>
@@ -62,8 +65,8 @@
     <refsection>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
-// At first we create 0.5 seconds of sound parameters.
-t=soundsec(0.5);
+// At first we create a time vector of 0.5 seconds sampled at 22050 Hz:
+t = 0 : 1/22050 : 0.5*(1-%eps);
 
 // Then we generate the sound: a two channels sound.
 s=[sin(2*%pi*440*t);sin(2*%pi*350*t)];
index 2b9dfda..03c6f5d 100644 (file)
@@ -13,7 +13,9 @@
  * along with this program.
     *
     -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="mapsound">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="mapsound">
     <refnamediv>
         <refname>mapsound</refname>
         <refpurpose>Plots a sound map</refpurpose>
@@ -45,8 +47,8 @@
     <refsection>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
-// At first we create 0.5 seconds of sound parameters.
-t=soundsec(0.5);
+// At first we create a time vector of 0.5 seconds sampled at 22050 Hz:
+t = 0 : 1/22050 : 0.5*(1-%eps);
 
 // Then we generate the sound.
 s=sin(440*t)+sin(220*t)/2+sin(880*t)/2;
@@ -55,7 +57,7 @@ s(nc/2:nc)=sin(330*t(nc/2:nc));
 mapsound(s);
  ]]></programlisting>
         <scilab:image>
-            t=soundsec(0.5);
+            t = 0 : 1/22050 : 0.5*(1-%eps);
             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));
index f0832ea..df8d576 100644 (file)
  * along with this program.
     *
     -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns4="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="savewave" xml:lang="en">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns4="http://www.w3.org/1999/xhtml"
+          xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org"
+          xml:id="savewave" xml:lang="en">
     <refnamediv>
         <refname>savewave</refname>
         <refpurpose>save data into a sound wav file.</refpurpose>
@@ -58,8 +61,8 @@
     <refsection>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
-// At first we create 0.5 seconds of sound parameters.
-t=soundsec(0.5);
+// At first we create a time vector of 0.5 seconds sampled at 22050 Hz:
+t = 0 : 1/22050 : 0.5*(1-%eps);
 
 // Then we generate the sound.
 s=sin(2*%pi*440*t)+sin(2*%pi*220*t)/2+sin(2*%pi*880*t)/2;
index 3ab6c02..c7b230e 100644 (file)
@@ -13,7 +13,9 @@
  * along with this program.
     *
     -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="sound">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="sound">
     <refnamediv>
         <refname>sound</refname>
         <refpurpose>sound player facility</refpurpose>
index 9a2d7b3..2dcc400 100644 (file)
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!--
-    * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-    * Copyright (C) ????-2006 - INRIA - Scilab
-    *
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) ????-2006 - INRIA - Scilab
+ *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * along with this program.
     *
     -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="soundsec">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="soundsec">
     <refnamediv>
         <refname>soundsec</refname>
         <refpurpose>
             generates a vector of samples for <literal>t</literal> seconds at frequency <literal>freq</literal> Hz.
+            <emphasis role="bold">(obsolete)</emphasis>
         </refpurpose>
     </refnamediv>
     <refsynopsisdiv>
         <title>Syntax</title>
-        <synopsis>samples=soundsec(t [,freq])</synopsis>
+        <synopsis>
+            samples = soundsec(t)
+            samples = soundsec(t, freq)
+        </synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>Arguments</title>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
 // At first we create 0.5 seconds of sound parameters.
-t=soundsec(0.5);
+t = soundsec(0.5);
 
 // Then we generate a pure A4 = 440Hz sine
-s=sin(2*%pi*440*t);
+s = sin(2*%pi*440*t);
 analyze(s,200,600,22050);
  ]]></programlisting>
     </refsection>
@@ -69,6 +75,12 @@ analyze(s,200,600,22050);
         <title>See also</title>
         <simplelist type="inline">
             <member>
+                <link linkend="colon">colon</link>
+            </member>
+            <member>
+                <link linkend="linspace">linspace</link>
+            </member>
+            <member>
                 <link linkend="playsnd">playsnd</link>
             </member>
             <member>
@@ -76,4 +88,15 @@ analyze(s,200,600,22050);
             </member>
         </simplelist>
     </refsection>
+    <refsection role="history">
+        <title>History</title>
+        <revhistory>
+            <revision>
+                <revnumber>6.1.1</revnumber>
+                <revdescription>
+                    soundsec(t,…) declared obsolete. 0 : 1/freq : t*(1-%eps) replaces it.
+                </revdescription>
+            </revision>
+        </revhistory>
+    </refsection>
 </refentry>
index 74c0bec..2c3f1f4 100644 (file)
@@ -43,7 +43,8 @@
         <title>例</title>
         <programlisting role="example"><![CDATA[
 // まず0.5秒分のサウンドパラメータを作成.
-t=soundsec(0.5);
+t = 0 : 1/22050 : 0.5*(1-%eps);
+
 // 次にサウンドを生成.
 s=sin(440*t)+sin(220*t)/2+sin(880*t)/2;
 [nr,nc]=size(t);
@@ -51,7 +52,7 @@ s(nc/2:nc)=sin(330*t(nc/2:nc));
 analyze(s);
  ]]></programlisting>
         <scilab:image>
-            t=soundsec(0.5);
+            t = 0 : 1/22050 : 0.5*(1-%eps);
             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));
index 4abeb34..2fc7df9 100644 (file)
@@ -66,7 +66,8 @@
         <title>例</title>
         <programlisting role="example"><![CDATA[
 // まず0.5秒分のサウンドパラメータを作成.
-t=soundsec(0.5);
+t = 0 : 1/22050 : 0.5*(1-%eps);
+
 // 次にサウンドを生成: 2チャンネルのサウンド.
 s=[sin(2*%pi*440*t);sin(2*%pi*350*t)];
 savewave(TMPDIR+'/foo.wav',s);
index 9522085..1507126 100644 (file)
@@ -47,7 +47,8 @@
         <title>例</title>
         <programlisting role="example"><![CDATA[
 // まず0.5秒分のサウンドパラメータを生成
-t=soundsec(0.5);
+t = 0 : 1/22050 : 0.5*(1-%eps);
+
 // 次にサウンドを生成.
 s=sin(440*t)+sin(220*t)/2+sin(880*t)/2;
 [nr,nc]=size(t);
@@ -55,7 +56,7 @@ s(nc/2:nc)=sin(330*t(nc/2:nc));
 mapsound(s);
  ]]></programlisting>
         <scilab:image>
-            t=soundsec(0.5);
+            t = 0 : 1/22050 : 0.5*(1-%eps);
             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));
index 9426cf2..a579166 100644 (file)
@@ -62,7 +62,8 @@
         <title>例</title>
         <programlisting role="example"><![CDATA[
 // まず0.5秒分のサウンドパラメータを作成.
-t=soundsec(0.5);
+t = 0 : 1/22050 : 0.5*(1-%eps);
+
 // 次にサウンドを生成.
 s=sin(2*%pi*440*t)+sin(2*%pi*220*t)/2+sin(2*%pi*880*t)/2;
 [nr,nc]=size(t);
index 163db64..feadbec 100644 (file)
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!--
-    * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-    * Copyright (C) ????-2006 - INRIA - Scilab
-    *
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) ????-2006 - INRIA - Scilab
+ *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * along with this program.
     *
     -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="soundsec">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="soundsec">
     <refnamediv>
         <refname>soundsec</refname>
         <refpurpose>
             周波数<literal>freq</literal> Hzで
-            <literal>t</literal>秒分のサンプルベクトルを生成.
+            <literal>t</literal>秒分のサンプルベクトルを生成
+            <emphasis role="bold">(obsolete)</emphasis>
         </refpurpose>
     </refnamediv>
     <refsynopsisdiv>
         <title>呼び出し手順</title>
-        <synopsis>samples=soundsec(t [,freq])</synopsis>
+        <synopsis>
+            samples = soundsec(t)
+            samples = soundsec(t, freq)
+        </synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>引数</title>
     </refsection>
     <refsection>
         <title>説明</title>
+        <warning>
+            soundsec(…) is obsolete and will be removed from Scilab 6.2.x.
+            soundsec(t) is replaced with <literal>0 : 1/22050 : t*(1-%eps)</literal>.
+            soundsec(t, freq) is replaced with <literal>0 : 1/freq : t*(1-%eps)</literal>.
+        </warning>
         <para>
             サンプル・レート<literal>freq</literal>で
             0から <literal>t</literal> 秒までの時間ベクトルを生成します.
         <title>例</title>
         <programlisting role="example"><![CDATA[
 // まず0.5秒分のサウンドパラメータを作成.
-t=soundsec(0.5);
+t = soundsec(0.5);
+
 // 次に A4 = 440Hz サインを生成
-s=sin(2*%pi*440*t);
+s = sin(2*%pi*440*t);
 analyze(s,200,600,22050);
  ]]></programlisting>
     </refsection>
@@ -73,6 +85,12 @@ analyze(s,200,600,22050);
         <title>参照</title>
         <simplelist type="inline">
             <member>
+                <link linkend="colon">colon</link>
+            </member>
+            <member>
+                <link linkend="linspace">linspace</link>
+            </member>
+            <member>
                 <link linkend="playsnd">playsnd</link>
             </member>
             <member>
@@ -80,4 +98,15 @@ analyze(s,200,600,22050);
             </member>
         </simplelist>
     </refsection>
+    <refsection role="history">
+        <title>History</title>
+        <revhistory>
+            <revision>
+                <revnumber>6.1.1</revnumber>
+                <revdescription>
+                    soundsec(t,…) declared obsolete. 0 : 1/freq : t*(1-%eps) replaces it.
+                </revdescription>
+            </revision>
+        </revhistory>
+    </refsection>
 </refentry>
index f1797cd..e63965b 100644 (file)
@@ -13,6 +13,7 @@
 // along with this program.
 
 function [t]=soundsec (n,rate)
+    warnobsolete("0 : 1/freq : t*(1-%eps)", "6.2")
     // Return [0,n) seconds of t parameter at frequency = rate (sample/sec)
     // Always excludes the last sample if it arrives exactly at n seconds
     [lhs,rhs]=argn(0);
diff --git a/scilab/modules/sound/tests/nonreg_tests/bug_10942.dia.ref b/scilab/modules/sound/tests/nonreg_tests/bug_10942.dia.ref
deleted file mode 100644 (file)
index 1b6790a..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 10942 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=10492
-//
-// <-- Short Description -->
-// soundsec does not sample at the given frequency and is one element too long
-//
-t=[0:1:0.001*8000-1]/8000;
-assert_checkequal(soundsec(0.001,8000),t);
diff --git a/scilab/modules/sound/tests/nonreg_tests/bug_10942.tst b/scilab/modules/sound/tests/nonreg_tests/bug_10942.tst
deleted file mode 100644 (file)
index 7ea9fb1..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 10942 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=10492
-//
-// <-- Short Description -->
-// soundsec does not sample at the given frequency and is one element too long
-//
-
-t=[0:1:0.001*8000-1]/8000;
-assert_checkequal(soundsec(0.001,8000),t);
diff --git a/scilab/modules/sound/tests/nonreg_tests/bug_11860.dia.ref b/scilab/modules/sound/tests/nonreg_tests/bug_11860.dia.ref
deleted file mode 100644 (file)
index 9f58fc3..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 11860 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=11860
-//
-// <-- Short Description -->
-// wavwrite failed for 24 bits files (error in savewave function)
-//
-// For two channels
-filename=SCI +'/modules/sound/tests/nonreg_tests/bug_11860.wav';
-[y_ref,Fs_ref,nbits_ref]=wavread(filename);
-wavwrite(y_ref,Fs_ref,nbits_ref,TMPDIR + '/bug_11860_written.wav');
-filename_written=TMPDIR + '/bug_11860_written.wav';
-// Check
-[y,Fs,nbits]=wavread(filename_written);
-assert_checktrue(abs(y_ref-y)<1e-6);
-assert_checkalmostequal(Fs,Fs_ref);
-assert_checkalmostequal(nbits,nbits_ref);
-mdelete(filename_written);
-// For 1 channel
-filepath= TMPDIR + '/bug_11860_mono.wav';
-Fs_ref = 44100;
-nbits_ref = 24;
-recordLength=1;
-t= soundsec(recordLength,Fs_ref);
-// Signal
-frequency = 1000;
-y_ref = 0.5*sin(2*%pi* frequency *t);
-// Output
-wavwrite(y_ref, Fs_ref, nbits_ref, filepath);
-// Check
-[y,Fs,nbits]=wavread(filepath);
-assert_checktrue(abs(y_ref-y)<1e-6);
-assert_checkalmostequal(Fs,Fs_ref);
-assert_checkalmostequal(nbits,nbits_ref);
-mdelete(filepath);
index ced3e38..9209e84 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 //
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 //
 // <-- Non-regression test for bug 11860 -->
 //
@@ -32,7 +33,7 @@ filepath= TMPDIR + '/bug_11860_mono.wav';
 Fs_ref = 44100;
 nbits_ref = 24;
 recordLength=1;
-t= soundsec(recordLength,Fs_ref);
+t= 0 : 1/Fs_ref : recordLength*(1-%eps);
 // Signal
 frequency = 1000;
 y_ref = 0.5*sin(2*%pi* frequency *t);
diff --git a/scilab/modules/sound/tests/nonreg_tests/bug_12779.dia.ref b/scilab/modules/sound/tests/nonreg_tests/bug_12779.dia.ref
deleted file mode 100644 (file)
index 804e92a..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 12779 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=12779
-//
-// <-- Short Description -->
-// Function "savewave" has a miscoding in the internal function "write_wavedat"
-//
-t=soundsec(0.5);
-s=sin(2*%pi*440*t)+sin(2*%pi*220*t)/2+sin(2*%pi*880*t)/2;
-t(11026)=0.500001;
-nc=size(t,2);
-nc=nc+1;
-assert_checktrue(execstr("savewave(TMPDIR+''/bug_12779.wav'',s, 22050, 2);", "errcatch")==0);
index d61f238..50f3084 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 //
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 //
 // <-- Non-regression test for bug 12779 -->
 //
@@ -15,7 +16,7 @@
 // <-- Short Description -->
 // Function "savewave" has a miscoding in the internal function "write_wavedat"
 //
-t=soundsec(0.5);
+t = 0 : 1/22050 : 0.5*(1-%eps);
 s=sin(2*%pi*440*t)+sin(2*%pi*220*t)/2+sin(2*%pi*880*t)/2;
 t(11026)=0.500001;
 nc=size(t,2);
diff --git a/scilab/modules/sound/tests/unit_tests/mapsound.dia.ref b/scilab/modules/sound/tests/unit_tests/mapsound.dia.ref
deleted file mode 100644 (file)
index 03f8b42..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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));
-mapsound(s);
index 374c7d7..952246d 100644 (file)
@@ -4,9 +4,12 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//
+// <-- NO CHECK REF -->
+
+// At first we create a time vector of 0.5 seconds sampled at 22050 Hz:
+t = 0 : 1/22050 : 0.5*(1-%eps);
 
-// 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);
diff --git a/scilab/modules/sound/tests/unit_tests/savewave.dia.ref b/scilab/modules/sound/tests/unit_tests/savewave.dia.ref
deleted file mode 100644 (file)
index bb53f8f..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-//<-- CLI SHELL MODE -->
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// 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));
-savewave(TMPDIR+'/foo.wav',s);
index 7a4bdbe..dba7913 100644 (file)
@@ -5,9 +5,13 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+
+// At first we create a time vector of 0.5 seconds sampled at 22050 Hz:
+t = 0 : 1/22050 : 0.5*(1-%eps);
 
-// 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);
diff --git a/scilab/modules/sound/tests/unit_tests/sound.dia.ref b/scilab/modules/sound/tests/unit_tests/sound.dia.ref
deleted file mode 100644 (file)
index 1f090b5..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-//<-- CLI SHELL MODE -->
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// 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));
-// 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 then bugmes();quit;end;
index 34422a7..cfc35bd 100644 (file)
@@ -5,18 +5,25 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+
+// At first we create a time vector of 0.5 seconds sampled at 22050 Hz:
+t = 0 : 1/22050 : 0.5*(1-%eps);
 
-// 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));
+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));
+
 // 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));
+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");
+s1 = loadwave(TMPDIR+"/test.wav");
 if max(abs(s1-s)) > 1.e-4 then pause,end;
 
diff --git a/scilab/modules/sound/tests/unit_tests/soundsec.dia.ref b/scilab/modules/sound/tests/unit_tests/soundsec.dia.ref
deleted file mode 100644 (file)
index f2211f8..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Unit tests for macro soundsec.sci -->
-//==============================================================================
-//Check abnormal entries
-non_real_time = msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",1);
-non_real_freq = msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",2);
-non_positive_time=msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",1,0);
-non_positive_freq=msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",2,0);
-non_scalar_time=msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",1,1,1);
-non_scalar_freq=msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",2,1,1);
-//Soundsec must be called with real scalar values
-assert_checkerror("soundsec(""test"",1)",non_real_time);
-assert_checkerror("soundsec(%i,1)",non_real_time);
-assert_checkerror("soundsec(1,""test"")",non_real_freq);
-assert_checkerror("soundsec(1,%i)",non_real_freq);
-assert_checkerror("soundsec(0:10,1)",non_scalar_time);
-assert_checkerror("soundsec(1,0:10)",non_scalar_freq);
-//Soundsec must be called with positive parameters
-assert_checkerror("soundsec(-1,10)",non_positive_time);
-assert_checkerror("soundsec(1,-1)",non_positive_freq);
-//==============================================================================
-//Check behaviour
-//Soundsec returns empty value for a 0 sec sample
-assert_checkequal(soundsec(0, 100), []);
-//Soundsec returns empty value for a 0 frequency sample
-assert_checkequal(soundsec(100, 0), []);
-//Checks default behaviour for rate
-assert_checkalmostequal( soundsec(10/22050), [0:9]./22050);
-//Check 1s of samples at 10hz excluding the last is [0:9]
-samples_t = soundsec(1, 10);
-assert_checkalmostequal(samples_t, (0:9)/10);
-//Check call on non integer time
-samples_t = soundsec(0.11, 100); //eleven samples 0 0.01 ... 0.09 0.1
-assert_checkalmostequal(samples_t, (0:10)/100);
-//Check call on non integer frequency
-samples_t = soundsec(1,5.2); //samples 0 1/5.2 2/5.2 ... 5/5.2
-assert_checkalmostequal(samples_t, (0:5)/5.2);
-//Check call on non integer frequency and time
-samples_t = soundsec(1.2324,50.75);
-//samples 0 1/50.75 ... 50/50.75 51/51.75 ... 62/50.75
-//note that 1.2324 > 62/50.75 and 1.2324 <= 63/50.75
-assert_checkalmostequal(samples_t, (0:62)/50.75);
diff --git a/scilab/modules/sound/tests/unit_tests/soundsec.tst b/scilab/modules/sound/tests/unit_tests/soundsec.tst
deleted file mode 100644 (file)
index ceca961..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Unit tests for macro soundsec.sci -->
-
-//==============================================================================
-//Check abnormal entries
-non_real_time = msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",1);
-non_real_freq = msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",2);
-
-non_positive_time=msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",1,0);
-non_positive_freq=msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",2,0);
-
-non_scalar_time=msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",1,1,1);
-non_scalar_freq=msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",2,1,1);
-
-
-//Soundsec must be called with real scalar values
-assert_checkerror("soundsec(""test"",1)",non_real_time);
-assert_checkerror("soundsec(%i,1)",non_real_time);
-assert_checkerror("soundsec(1,""test"")",non_real_freq);
-assert_checkerror("soundsec(1,%i)",non_real_freq);
-
-assert_checkerror("soundsec(0:10,1)",non_scalar_time);
-assert_checkerror("soundsec(1,0:10)",non_scalar_freq);
-
-//Soundsec must be called with positive parameters
-assert_checkerror("soundsec(-1,10)",non_positive_time);
-assert_checkerror("soundsec(1,-1)",non_positive_freq);
-
-
-//==============================================================================
-//Check behaviour
-
-//Soundsec returns empty value for a 0 sec sample
-assert_checkequal(soundsec(0, 100), []);
-//Soundsec returns empty value for a 0 frequency sample
-assert_checkequal(soundsec(100, 0), []);
-
-//Checks default behaviour for rate
-assert_checkalmostequal( soundsec(10/22050), [0:9]./22050);
-
-//Check 1s of samples at 10hz excluding the last is [0:9]
-samples_t = soundsec(1, 10);
-assert_checkalmostequal(samples_t, (0:9)/10);
-
-//Check call on non integer time
-samples_t = soundsec(0.11, 100); //eleven samples 0 0.01 ... 0.09 0.1
-assert_checkalmostequal(samples_t, (0:10)/100);
-
-//Check call on non integer frequency
-samples_t = soundsec(1,5.2); //samples 0 1/5.2 2/5.2 ... 5/5.2
-assert_checkalmostequal(samples_t, (0:5)/5.2);
-
-
-//Check call on non integer frequency and time
-samples_t = soundsec(1.2324,50.75);
-//samples 0 1/50.75 ... 50/50.75 51/51.75 ... 62/50.75
-//note that 1.2324 > 62/50.75 and 1.2324 <= 63/50.75
-assert_checkalmostequal(samples_t, (0:62)/50.75);
-
-
-