#pragma rtGlobals= 2
DefaultFont "Helvetica"


Menu "Analysis"
	Submenu "Packages"
		"Physical Constants",Execute/P "INSERTINCLUDE  \"PhysicalConstants\"";Execute/P "COMPILEPROCEDURES ";Execute/P "PhysicalConstantsInitPackage()";Execute/P "DELETEINCLUDE  \"PhysicalConstants\"";Execute/P "COMPILEPROCEDURES "
		help = {"Load Package of Physical Constants."}
		"FWHM",Execute/P "INSERTINCLUDE  \"FWHM\"";Execute/P "COMPILEPROCEDURES "
		help = {"Load commands for getting FWHM."}
		"spec files",Execute/P "INSERTINCLUDE  \"spec\"";Execute/P "INSERTINCLUDE  \"specMore\"";Execute/P "COMPILEPROCEDURES ";Execute/P "specInitPackage()"
		help = {"Load everything for reading spec files."}
		"Image Display Range", Execute/P "INSERTINCLUDE \"ImageDisplayScaling\", version>=1.47" ; 	Execute/P "COMPILEPROCEDURES "
		help = {"Load procedures that set range of color table based on a Marquee region"}
		// "WinView Reader", Execute/P "INSERTINCLUDE \"WinView\", version>=1.82" ; 	Execute/P "INSERTINCLUDE \"ImageDisplayScaling\", version>=1.41" ; 	Execute/P "COMPILEPROCEDURES "
		"WinView Reader", Execute/P "INSERTINCLUDE \"WinView\", version>=1.90"
		help = {"Load procedures reading and looking at WinView images"}
		SubMenu "X-ray"
			"X-ray Data",Execute/P "INSERTINCLUDE  \"Xray\", version>=2.2";Execute/P "COMPILEPROCEDURES ";Execute/P "ElementDataInitPackage()"
			help = {"Load procedures for providing X-ray data"}
			"  Elements Data",Execute/P "INSERTINCLUDE  \"Elements\", version>=1.61";Execute/P "COMPILEPROCEDURES ";Execute/P "ElementDataInitPackage()"
			help = {"Load procedures for providing data on the elements"}
			"  Cromer-Liberman",Execute/P "INSERTINCLUDE  \"CromerLiberman\", version>=1.6";Execute/P "COMPILEPROCEDURES "
			help = {"Load procedures for providing Cromer-Liberman"}
			"Multi-Layer Reflectivity",Execute/P "INSERTINCLUDE  \"MultiLayerReflectivity\", version>=1.0";Execute/P "COMPILEPROCEDURES "
			help = {"Load procedures calculating x-ray reflectivity from multilayers"}
			"Multiple Reflections",Execute/P "INSERTINCLUDE  \"Umwegs\", version>=1.0";Execute/P "COMPILEPROCEDURES "
			help = {"Load procedures for analyzing Umwegs"}
			"Ion Chamber",Execute/P "INSERTINCLUDE  \"IonChamber\", version>=2.2";Execute/P "COMPILEPROCEDURES ";Execute/P "ionChamberInitPackage()"
			help = {"Load procedures for evaluating ion chamber output"}
			"Lattices",Execute/P "INSERTINCLUDE  \"LatticeSym\", version>=3.32";Execute/P "COMPILEPROCEDURES ";Execute/P "InitLatticeSymPackage()"
			help = {"Load lattice symmetry procedures"}
		End
		"Neutron Scattering Data",Execute/P "INSERTINCLUDE  \"Neutron\", version>=1.0";Execute/P "COMPILEPROCEDURES ";Execute/P "NeutronDataInitPackage()"
		help = {"Load procedures for providing Neutron Scattering Data"}
		"-"
	End
End


Proc spec_GraphGenericStyle() : GraphStyle
	Silent 1
	specGraphGenericStyle()
EndMacro
Function specGraphGenericStyle() : GraphStyle
	if (NumberByKey("IGORVERS",IgorInfo(0))>=5.01)
//		ModifyGraph gfMult=130
//		ModifyGraph gfMult=125
		ModifyGraph gfMult=115
	endif
	ModifyGraph/Z tick=2, minor=1, standoff=0
	ModifyGraph lowTrip=0.001

	Wave xwave = XWaveRefFromTrace("",StringFromList(0,TraceNameList("",";",1)))
	if (WaveExists(xwave) && xwave[0]*xwave[Inf]<0)
		ModifyGraph zero(bottom)=2		// if it spans zero, put in zero line
	endif

	if (strlen(AxisInfo("", "top"))<1)
		ModifyGraph/Z mirror(bottom)=1
	endif  
  	if (strlen(AxisInfo("", "right"))<1)
		ModifyGraph/Z mirror(left)=1
	endif

	String list = ImageNameList("",";")
	if (ItemsInList(list)>0)				// there is an image on the plot
		Variable i
		String item=StringFromList(0,list)
		for (i=0;strlen(item)>0;i+=1,item=StringFromList(i,list))
//			ModifyImage $item ctab= {*,*,PlanetEarth,1}
			ModifyImage $item ctab= {*,*,Terrain256,1}
		endfor
	endif

	// find the top wave on graph, and try to label the axes
	String wList = ImageNameList("",";")		// first assum an image
	if (strlen(wList))
		Wave w=ImageNameToWaveRef("",StringFromList(0,wList) )
	else												// next try a line plot
		wList = TraceNameList("",";",1)
		Wave w=TraceNameToWaveRef("",StringFromList(0,wList))
	endif
	if (WaveExists(w))
		String wnote=note(w)
		String left = StringByKey("GraphAxisLabelVert", wnote ,"=" )			// get default labels from wave note
		String bot = StringByKey("GraphAxisLabelHoriz", wnote ,"=" )
		String infoStr=ImageInfo("",NameOfWave(w),0)							// used to get axis names actually used
		if (strlen(infoStr)<1)
			infoStr = TraceInfo("",NameOfWave(w),0)
		endif
		String leftName = StringByKey("YAXIS",infoStr)							// get axis name from infoStr
		String botName = StringByKey("XAXIS",infoStr)
		Variable setHoriz = strlen(AxisLabelFromGraph("",w,botName))==0	// do not re-set if alreay labeled
		Variable setVert = strlen(AxisLabelFromGraph("",w,leftName))==0
		if (strlen(left) && setVert && strlen(leftName))
			Label $leftName left
		endif
		if (strlen(bot) && setHoriz && strlen(botName))
			Label $botName bot
		endif
	endif
End
//Function specGraphGenericStyle() : GraphStyle
//	if (NumberByKey("IGORVERS",IgorInfo(0))>=5.01)
////		ModifyGraph gfMult=130
//		ModifyGraph gfMult=125
//	endif
//	ModifyGraph/Z tick=2, minor=1, standoff=0
//	ModifyGraph lowTrip=0.001
//
//	Wave xwave = XWaveRefFromTrace("",StringFromList(0,TraceNameList("",";",1)))
//	if (WaveExists(xwave) && xwave[0]*xwave[Inf]<0)
//		ModifyGraph zero(bottom)=2		// if it spans zero, put in zero line
//	endif
//
//	if (strlen(AxisInfo("", "top"))<1)
//		ModifyGraph/Z mirror(bottom)=1
//	endif  
//  	if (strlen(AxisInfo("", "right"))<1)
//		ModifyGraph/Z mirror(left)=1
//	endif
//
//	String list = ImageNameList("",";")
//	if (ItemsInList(list)>0)				// there is an image on the plot
//		Variable i
//		String item=StringFromList(0,list)
//		for (i=0;strlen(item)>0;i+=1,item=StringFromList(i,list))
////			ModifyImage $item ctab= {*,*,PlanetEarth,1}
//			ModifyImage $item ctab= {*,*,Terrain256,1}
//		endfor
//	endif
//End