#pragma rtGlobals=3		// Use modern global access method and strict wave access.

function export_otf()
	// export OTF folders to text files
	
	string objname
	variable index= 0

	setdatafolder root:
	dfref parentfolder = getdatafolderdfr()
	string filename
	
	do
		objname = GetindexedObjNameDFR(parentfolder, 4, index)
		if (strlen(objname) > 0)
			if (cmpstr(StringFromList(0, objname,  "_"), "otf") == 0)
				setdatafolder parentfolder
				setdatafolder $objname
				wave ringcurrent,photonenergy,current_ch1,current_ch2
				filename = objname + ".txt"
				Save/G/M="\r\n"/W/P=pearl_explorer_filepath photonenergy,current_ch1,current_ch2,ringcurrent as filename
			endif
			index += 1
		else
			break
		endif
	while(1)
end