new user distribution of PEARL procedures

pearl/pearl-data-export.ipf

@@ -0,0 +1,28 @@
+#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