<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=us-ascii"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=FR link="#0563C1" vlink="#954F72"><div class=WordSection1><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Hello<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Few years ago, I got routines producing sounds in threads<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>With Scilab 5.5.2, sounds are produced once.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>With Scilab 6.1.0, sounds are repeated endlessly.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Best regards<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>W10 x64<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>function Sound1()<o:p></o:p></p><p class=MsoNormal> // by Gary Scavone, McGill University, 2004<o:p></o:p></p><p class=MsoNormal>// Bell-like sound<o:p></o:p></p><p class=MsoNormal> fs = 22050;<o:p></o:p></p><p class=MsoNormal> T = 1/fs;<o:p></o:p></p><p class=MsoNormal> dur = 4;<o:p></o:p></p><p class=MsoNormal> t = 0:T:dur;<o:p></o:p></p><p class=MsoNormal> T60 = 0.5;<o:p></o:p></p><p class=MsoNormal> env = 0.95*exp(-t/T60);<o:p></o:p></p><p class=MsoNormal> // FM parameters<o:p></o:p></p><p class=MsoNormal> fc = 200;<o:p></o:p></p><p class=MsoNormal> fm = 280;<o:p></o:p></p><p class=MsoNormal> Imax = 10;<o:p></o:p></p><p class=MsoNormal> I = Imax.*env;<o:p></o:p></p><p class=MsoNormal> y = env.*sin(2*%pi*fc*t + I.*sin(2*%pi*fm*t));<o:p></o:p></p><p class=MsoNormal> sound(y, fs);<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>endfunction<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>function Sound3()<o:p></o:p></p><p class=MsoNormal> x=1e2:1e4; b=0.6; y=window('hm',length(x)).*sin(x.^b.*log(x)); sound(y,9944)<o:p></o:p></p><p class=MsoNormal>endfunction<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>