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