/*******************************************************************************************
Copyright (C) 2010 Mestrelab Research S.L. All rights reserved.

This file is part of the MNova scripting toolkit.

Authorized users of Mnova Software may use this file freely, but this file is provided AS IS
with NO WARRANTY OF ANY KIND, INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS
FOR A PARTICULAR PURPOSE.
*******************************************************************************************/ 

function playArray()
{

	var spec = new NMRSpectrum(nmr.activeSpectrum());
	if (!spec.isValid() || spec.dimCount != 1)
		return;
	
	var N = spec.specCount;
	var npoints = 0;
	for (var i= 0; i<N;i++)
	{
		spec.curSpecIndex =i;
		print("current"+spec.count());
		npoints += spec.count(); 
	}
	print("total"+npoints);
		
	
	var NumSamples =npoints; 
	var mySubChunk1Size = 16; // 16 for PCM
	var myChannels = spec.isReal ? 1 : 2;
	
	var myBitsPerSample = 16;
	var Subchunk2Size   = npoints * myChannels * myBitsPerSample/8;
	var kk = spec.count() * myChannels * myBitsPerSample/8 * N;
	print("size="+Subchunk2Size+"kk="+kk);
	var myFormat = 1; //1 = PCM
	var mySampleRate =5000;// spec.scaleWidth(1);//e.g.44100; //8000, 11025, 44100, ETC 
	var myByteRate = mySampleRate *myChannels*myBitsPerSample/8 ; 
	var myBlockAlign = myChannels * myBitsPerSample/8;
	var myDataSize = npoints * myChannels * myBitsPerSample/8;


	var myChunkSize =4 + (8 + mySubChunk1Size) + (8 + Subchunk2Size) ; 
	var fidFile = Dir.temp()+"/playFID.wav";
	var f = new File(fidFile);

	f.open(File.WriteOnly); 
	
	var s = new BinaryStream(f);
	s.endianness =BinaryStream.eLittle;
	print(s.endianness);
	

	// write the wav file per the wav file format
	s.pos = 0;
	s.writeBytes("RIFF", 4);
	s.writeInt32(myChunkSize);
	s.writeBytes("WAVE", 4);
	s.writeBytes("fmt ", 4);
	s.writeInt32(mySubChunk1Size);
	s.writeInt16 (myFormat);
	s.writeInt16(myChannels);
	s.writeInt32(mySampleRate);
	s.writeInt32 (myByteRate);
	s.writeInt16(myBlockAlign);
	s.writeInt16 (myBitsPerSample);
	s.writeBytes ("data", 4);
	s.writeInt32 (myDataSize);
//DATA POINTS
	var min = 9999999999;
	var max = -9999999999;

	//scan data for min/max values
	for (var i=0;i<NumSamples;i++)
	{
		var value = spec.fidReal(i);
		if (value > max) max = value;
		if (value < min) min = value;
	}
	
	//scale and write the ouput
	var range =3 /* myBitsPerSample*/ * 1024 - 1;
	for (var j= 0; j<N;j++)
	{
		spec.curSpecIndex = j;
		print(spec.comment);
		var points = spec.count();
		print("POINTS =" + points);
		for (var i=0;i<points;i++)
		{	
			var data = spec.fidReal(i);
			var re = range /(max-min)*(data - min) ;
		
			s.writeInt16 (re);

			if (myChannels == 2)
			{

				data = spec.fidImag(i);
				var im = range /(max-min)*(data - min) ;
		
				s.writeInt16 (im);
			}
		}
	}


	
	f.close();
	Application.playFile(Dir.temp()+"/playFID.wav");
	f.remove();
}