#pragma rtGlobals=3		// Use modern global access method and strict wave access.
#include <Multi-peak fitting 2.0>
| Peak Measurement Experiment V1.2 (modified for Edith. Molenbroek)
#include <Split Axis>
Menu "Macros"
	
	"GetFromLabview"
	"FitWithGuess"
	
End

Macro GetFromLabview()
	Variable counter, strcounter, numberrows, row, bee, me, cme
	String filename, listofnames, wavesname, forminus
	String/G trynamelist, xwaveslist
	String frame_list, runname, path, graphname
	Silent 1
	NewPath /O path 
	Counter=0
	filename=IndexedFile(path,counter, "????")
	Do
		If (CmpStr(filename,"")==0)
			print "Break - - No files in folder"
			break
		EndIf
		LoadWave/O/G/P=path/N filename
|	********************* Begin Parse **********************		
		filename=LowerStr(filename)
		strcounter=0
		Do
			If ((char2num(filename[strcounter])<97)*(char2num(filename[strcounter])>57))
				filename[strcounter,strcounter]="_"
			Else
				If ((char2num(filename[strcounter])>122)+(char2num(filename[strcounter])<48))
					filename[strcounter,strcounter]="_"
				EndIf
			EndIf	
			strcounter=strcounter+1
		While (strcounter<strlen(filename))
|    ************************End Parse **********************	
		graphname=filename+"graph"
		//Redimension/N=1022 wave0,wave1,wave2
																											//duplicates spectra with frame name																		//
		forminus = num2str(counter+1)																			//
		Duplicate/O wave0 $(filename+"_fr_"+forminus)												//
		KillWaves wave0 wave1 wave2	
		trynamelist=trynamelist+filename+"_fr_"+forminus+";"														//makes a list of all the names
		
		xwaveslist= xwaveslist+"wavenumbers;"																	//has to be same length as list of names, so it contains the same repeated name
		Counter = Counter+1																						//
		wavesname ="wave"+forminus
		
		filename=IndexedFile(path,counter,"????")
	While (CmpStr(filename,"")!=0)
	
EndMacro

Macro FitWithGuess()
	
	MPF2_AutoMPFit("peaksframe","Gauss","PeakCoefs%d","Constant","BaselineCoefs",trynamelist,xwaveslist,0)
	String boom; boom = "why work?"
	print boom;
EndMacro

Function storethefit()																			//duplicate manual fit results so getit() can use it
	String resultDFBase = "peaksframe"
	String newDFName = resultDFBase+"_0"
	String PeakCoefWaveFormat = "PeakCoefs%d"
	DuplicateDataFolder root:Packages:MultiPeakFit2:MPF_SetFolder_1, root:$(newDFName)
	DFREF newdf = root:$newDFName
	Variable i
	//for (i = 0; i < 19; i += 1)
		//String wname
		//sprintf wname "Peak %d Coefs" i
		//String newname
		//sprintf newname PeakCoefWaveFormat i
		//Rename newdf:$wname, $newname
		//
	//endfor
End