Mercurial > hg > aimmat
annotate aim-mat/tools/playstereo.m @ 4:537f939baef0 tip
various bug fixes and changed copyright message
| author | Stefan Bleeck <bleeck@gmail.com> |
|---|---|
| date | Tue, 16 Aug 2011 14:37:17 +0100 |
| parents | 20ada0af3d7d |
| children |
| rev | line source |
|---|---|
| tomwalters@0 | 1 % tool |
| tomwalters@0 | 2 % |
| tomwalters@0 | 3 % INPUT VALUES: |
| tomwalters@0 | 4 % |
| tomwalters@0 | 5 % RETURN VALUE: |
| tomwalters@0 | 6 % |
| tomwalters@0 | 7 % |
| bleeck@3 | 8 % This external file is included as part of the 'aim-mat' distribution package |
| bleeck@3 | 9 % (c) 2011, University of Southampton |
| bleeck@3 | 10 % Maintained by Stefan Bleeck (bleeck@gmail.com) |
| bleeck@3 | 11 % download of current version is on the soundsoftware site: |
| bleeck@3 | 12 % http://code.soundsoftware.ac.uk/projects/aimmat |
| bleeck@3 | 13 % documentation and everything is on http://www.acousticscale.org |
| bleeck@3 | 14 |
| tomwalters@0 | 15 |
| tomwalters@0 | 16 function playstereo(sig1,sig2) |
| tomwalters@0 | 17 |
| tomwalters@0 | 18 sig1=rampamplitude(sig1,0.005); |
| tomwalters@0 | 19 sig1=scaletomaxvalue(sig1,0.999); |
| tomwalters@0 | 20 sig2=rampamplitude(sig2,0.005); |
| tomwalters@0 | 21 sig2=scaletomaxvalue(sig2,0.999); |
| tomwalters@0 | 22 |
| tomwalters@0 | 23 values1=getvalues(sig1); |
| tomwalters@0 | 24 values2=getvalues(sig2); |
| tomwalters@0 | 25 |
| tomwalters@0 | 26 finvals=[values1 values2]; |
| tomwalters@0 | 27 sr=getsr(sig1); |
| tomwalters@0 | 28 |
| tomwalters@0 | 29 wavwrite(finvals,sr,'last stereo'); |
| tomwalters@0 | 30 |
| tomwalters@0 | 31 sound(finvals,sr); |
| tomwalters@0 | 32 |