Mercurial > hg > aimmat
annotate aim-mat/tools/dots2sig.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 % (c) 2011, University of Southampton |
bleeck@3 | 9 % Maintained by Stefan Bleeck (bleeck@gmail.com) |
bleeck@3 | 10 % download of current version is on the soundsoftware site: |
bleeck@3 | 11 % http://code.soundsoftware.ac.uk/projects/aimmat |
bleeck@3 | 12 % documentation and everything is on http://www.acousticscale.org |
bleeck@3 | 13 |
tomwalters@0 | 14 |
tomwalters@0 | 15 function sig=dots2sig(dots,nr_bins) |
tomwalters@0 | 16 % usage: sig=dots2sig(dots) |
tomwalters@0 | 17 % makes a signal from the dots by adding them to bins according to their octave shift |
tomwalters@0 | 18 % the dots must have pitchstrength in the region from 0 to 1 |
tomwalters@0 | 19 % the outsignal has nr_bins points and a length of 1 |
tomwalters@0 | 20 |
tomwalters@0 | 21 |
tomwalters@0 | 22 if nargin < 2 |
tomwalters@0 | 23 nr_bins=100; |
tomwalters@0 | 24 end |
tomwalters@0 | 25 |
tomwalters@0 | 26 sig=signal(1,nr_bins); |
tomwalters@0 | 27 |
tomwalters@0 | 28 nr=max(size(dots)); |
tomwalters@0 | 29 for i=1:nr |
tomwalters@0 | 30 shift=dots{i}.octave_shift; |
tomwalters@0 | 31 old_val=gettimevalue(sig,shift); |
tomwalters@0 | 32 new_val=dots{i}.pitchstrength; |
tomwalters@0 | 33 sig=settimevalue(sig,shift,old_val+new_val); |
tomwalters@0 | 34 end |