function [out] = notes2spec (nspec, fname, scale);
%notes2spec

bpm = 120;
samprate = 44100;

if (evalin ('base', 'exist(''params'')'))
  params = evalin ('base', 'params');
  bpm = params.bpm;
  samprate = params.samprate;
end  

out = cell(1);

numcomps = length (nspec);
for i = 1:numcomps,
  opseg = nspec{i};
  nwseg = opseg;
  nwseg{1} = floor ((opseg{1} * scale) * (4 * (1 / (bpm / 60))) * samprate);
  innargs = opseg{2};
  innargs{1} = (innargs{1} * scale);
  nwseg{2} = addtoinnest (fname, innargs);
  out{i} = nwseg;
end