Export to EPS for LaTeX

 Exports a graph, sub-graph, or layout to an encapsulated postscript (EPS) file that LaTeX can read by exporting to EPS (SavePICT), then stripping out the part of the header that starts before "%%BoundingBox". The function "ExportEPS" does the work, and ExportEPS_GUI provides a graphical interface. 


// GUI for ExportEPS.  Supports everything ExportEPS does, except it doesn't do sub-windows.
Function ExportEPS_GUI()
	NewDataFolder/O root:Utilities
	NewDataFolder/O root:Utilities:ExportEPS
	
	// Load defaults
	Variable WidthCM = NumVarOrDefault("root:Utilities:ExportEPS:V_WidthCM",NaN)
	Variable HeightCM = NumVarOrDefault("root:Utilities:ExportEPS:V_HeightCM",NaN)
	String GraphName = StrVarOrDefault("root:Utilities:ExportEPS:S_GraphName","")
	
	String WdwList =  "_TOP GRAPH or LAYOUT_;"+SortList(WinList("*",";","WIN:1"),";",16) + SortList(WinList("*",";","WIN:4"),";",16)
	Variable WhichGraph =WhichListItem(GraphName,WdwList)
	if (WhichGraph<0)
		WhichGraph = 0
	endif
	
	Prompt WhichGraph,"Graph or Layout to Export",popup,WdwList
	Prompt WidthCM,"Exported width (cm)  (NaN to preserve aspect ratio and set height)"
	Prompt HeightCM,"Exported height (cm)  (NaN to preserve aspect ratio and set width)"
	WhichGraph+=1
	DoPrompt "Export Graph to EPS",WhichGraph,WidthCM,HeightCM
	WhichGraph-=1
	if (V_Flag)
		return 1 // user canceled
	endif
	
	// Set defaults
	GraphName = StringFromList(WhichGraph,WdwList)
	String/G root:Utilities:ExportEPS:S_GraphName = GraphName
	Variable/G root:Utilities:ExportEPS:V_WidthCM = WidthCM
	Variable/G root:Utilities:ExportEPS:V_HeightCM = HeightCM
	
	if (WhichGraph==0) // top graph
		GraphName = ""
	endif
	
	return ExportEPS(GraphName,WidthCM=WidthCM,HeightCM=HeightCM)
End

// Exports a graph or layout into an EPS file that LaTeX can use.
// 
// Set GraphName to "" to select the top graph or layout.
//   Subwindows are also supported (but not sub-subwindows).
//
// If both WidthCM and/or HeightCM are specified and valid, they will be used to set
//   the width and height of the exported figure. (And if only one is given and valid, the 
//   other will be calculated so as to preserve the aspect ratio.)
//   If neither is specified (and valid), the graph is used to set the size.
//
// If sub-windows are available but unspecified, the user will be prompted whether to
//   choose a sub-window or the host window -- unless DisableSubWinPrompt is true.
Function ExportEPS(GraphName,[WidthCM,HeightCM,DisableSubWinPrompt])
	String GraphName
	Variable WidthCM,HeightCM // in centimeters
	Variable DisableSubWinPrompt // option do disable prompt for sub-window (occurs if child windows present)
	
	if (ParamIsDefault(DisableSubWinPrompt))
		DisableSubWinPrompt = 0
	endif
	
	Variable SpecifiedWidth = ( !ParamIsDefault(WidthCM) && WidthCM>0 )
	Variable SpecifiedHeight = ( !ParamIsDefault(HeightCM) && HeightCM>0 )
	Variable SizeSpecified = SpecifiedWidth || SpecifiedHeight

	// Pick graph
	String GraphList = SortList(WinList("*",";","WIN:1"),";",16)
	String LayoutList = SortList(WinList("*",";","WIN:4"),";",16)
	String WdwList = GraphList+LayoutList
	if (strlen(GraphName)==0) // top graph or layout
		GraphName = WinName(0,5)
		if (strlen(GraphName)==0)
			return 2 // no graphs / layouts present
		endif
	else
		Variable PoundLoc = strsearch(GraphName,"#",0)
		String HostName = SelectString( PoundLoc >=0,GraphName,GraphName[0,PoundLoc-1])
		Variable PromptForGraph = 0
		if (WhichListItem(HostName,WdwList)<0) // graph doesn't exist!
			PromptForGraph = 1
		elseif (PoundLoc >=0) // sub-window specified.... does it exist?
			String SubWindow = GraphName[PoundLoc+1,strlen(GraphName)-1]
			String ChildList = ChildWindowList(HostName)
			if (WhichListItem(SubWindow,ChildList)<0)
				PromptForGraph = 2 // DisableSubWinPrompt doesn't apply here, because user attempted to specify a sub-window that doesn't exist.
			endif
		endif
		if (PromptForGraph>0) // graph or subwindow doesn't exist
			String PopupList = SelectString(PromptForGraph==1,ChildList,WdwList)
			String PromptMsg = "Select "+SelectString(PromptForGraph==1,"subwindow of "+HostName,"graph or layout")+" to export"
			Variable WhichGraph = 0
			Prompt WhichGraph,PromptMsg,popup, PopupList
			WhichGraph+=1
			DoPrompt "Export EPS", WhichGraph
			WhichGraph-=1
			
			if (V_Flag)
				return 1 // user canceled
			endif
			GraphName = SelectString(PromptForGraph==1,HostName+"#","")+StringFromList(WhichGraph,PopupList)
			if (strlen(GraphName)==0) // no graphs
				return 2
			endif
		endif
	endif
	
	// If GraphName doesn't specify a sub-window and there are sub-windows available, ask
	// (but only if PromptForGraph!=2, in which case user didn't already select a subwindow,
	// and only if DisableSubWinPrompt is false)
	if (PromptForGraph!=2 && !DisableSubWinPrompt) 
		PoundLoc = strsearch(GraphName,"#",0)
		if (PoundLoc<0) // no sub-window specified
			ChildList = SortList(ChildWindowList(HostName),";",16)
			if (strlen(ChildList)>0) // has subwindows available
				WhichGraph = 1
				Prompt WhichGraph,"Select main window or sub-window to export",popup,"HOST WINDOW;"+ChildList
				DoPrompt "Export EPS", WhichGraph
				WhichGraph-=1
				
				if (V_Flag)
					return 1 // user canceled
				endif
				GraphName += SelectString(WhichGraph==0,"#"+StringFromList(WhichGraph-1,ChildList),"")
			endif
		endif
	endif
	
	String FileName = GraphName+".eps"
	
	// Ask for file name / path
	Variable refNum
	Open/D/T=".eps"/M="Export graph to EPS figure" refNum as FileName
	String OutputFilePath = S_fileName
	if (strlen(OutputFilePath)==0)
		return 1 // user canceled
	endif

	// Set height or width according to aspect ratio, if only one quantity is specified
	if (SizeSpecified && !(SpecifiedWidth && SpecifiedHeight))
		GetWindow $GraphName, gsize // works for host or sub-windows
		Variable AspectRatio = (V_Right - V_Left) /  (V_bottom - V_Top) // width / height
		if (SpecifiedWidth)
			HeightCM = WidthCM / AspectRatio
		else
			WidthCM = HeightCM * AspectRatio
		endif
	endif

	// ---- Write to temporary file, then read contents ----
	// (Code from Howard Rodstein 3/7/13)
	String pathToTemp = SpecialDirPath("Temporary", 0, 0, 0)
	String fullPath = pathToTemp + "TempEPSForLatexWork.eps"
	
	if (SizeSpecified)
		SavePICT/O/EF=1/E=-3/M/W=(0,0,WidthCM,HeightCM)/WIN=$GraphName as fullPath
	else
		SavePICT/O/EF=1/E=-3/WIN=$GraphName as fullPath
	endif
	
	// Get binary file contents
	Open/R refNum as fullPath
	FStatus refNum
	Variable numBytes = V_logEOF
	
	String EPScontents = PadString("", numBytes, 32)
	FBinRead refNum, EPScontents
	Close refNum
	DeleteFile /Z fullPath
	// --------------------------------------------------------------------------
	
	// Remove stuff before "%%BoundingBox"
	Variable iLoc = strsearch(EPScontents,"%%BoundingBox",0)
	if (iLoc>=0)
		EPScontents = EPScontents[iLoc-1,strlen(EPScontents)-1]
	else
		DoAlert 0, "Export EPS error: Location of \"%%BoundingBox\" not found."
		return 3
	endif
	
	// Write the file
	Open refNum as OutputFilePath
	FBinWrite refNum, EPScontents // write the EPS file
	Close refNum
	String sWdwType = SelectString (WinType(GraphName)==1,"Layout","Graph")
	print sWdwType+" \""+GraphName+"\" written to "+OutputFilePath
	return 0 // no error
End
A suggestion here is to use the standard Packages folder and set a DFREF ...


Function ExportEPS_GUI()

	NewDataFolder/O root:Packages
	NewDataFolder/O root:Packages:ExportEPS

        ...
 	GraphName = StringFromList(WhichGraph,WdwList)
        DFREF XEPS = root: Packages:ExportEPS
	String/G XEPS:S_GraphName = GraphName
	Variable/G XEPS:V_WidthCM = WidthCM
	Variable/G XEPS:V_HeightCM = HeightCM


--
J. J. Weimer
Chemistry / Chemical & Materials Engineering, UAHuntsville

March 14, 2013 at 11:09 am - Permalink

Forum

Support

Gallery

Igor Pro 10

Learn More

Igor XOP Toolkit

Learn More

Igor NIDAQ Tools MX

Learn More