tomwalters@0: % method of class @frame
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
tomwalters@0: % (c) 2003, University of Cambridge, Medical Research Council 
tomwalters@0: % Stefan Bleeck (stefan@bleeck.de)
tomwalters@0: % http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual
tomwalters@0: % $Date: 2003/01/17 16:57:46 $
tomwalters@0: % $Revision: 1.3 $
tomwalters@0: 
tomwalters@0: function tent=buildtent(fr)
tomwalters@0: 
tomwalters@0: tent=frame(fr);
tomwalters@0: 
tomwalters@0: vals=getvalues(fr);
tomwalters@0: vals=zeros(size(vals));
tomwalters@0: 
tomwalters@0: nr_chan=getnrchannels(fr);
tomwalters@0: cfs=getcf(fr);
tomwalters@0: for i=1:nr_chan
tomwalters@0:     fre=cfs(i);
tomwalters@0:     dif=1/fre*2;
tomwalters@0:     s2=getsinglechannel(fr,i);
tomwalters@0:     env=envelope(s2,dif,0,0.05);
tomwalters@0:     vals(i,:)=getvalues(env)';
tomwalters@0: end
tomwalters@0: 
tomwalters@0: tent=setvalues(tent,vals);
tomwalters@0: