Context Navigation

V_DataPlotting.ipf @ 1050

Last change on this file since 1050 was 1050, checked in by srkline, 5 years ago
cleaning up a lot of the TODO items from the code.
File size: 45.9 KB

Line
1	#pragma TextEncoding = "MacRoman" // For details execute DisplayHelpTopic "The TextEncoding Pragma"
2	#pragma rtGlobals=3 // Use modern global access method and strict wave access.
3	#pragma version=1.0
4
5
6	//
7	// functions to plot the averaged data in various views and binning types
8	//
9
10
11
12	//
13	// simple entry procedure
14	//
15	// graph with the 1D representation of the VSANS detectors
16	//
17	// TODO:
18	// -- add multiple options for how to present/rescale the data
19	// -- automatically position the window next to the 2D data
20	// -- color coding of the different panels (data tags/arrows/toggle on/off)?
21	// -- VERIFY accuracy
22	//
23	// -- decide what to add to the control bar
24	// ()()() In SANS, there are only 3 waves (q-i-s) and these are copied over to the plot1D folder, and the copy
25	// of the data is plotted, not the data in the WORK folder. Then for rescaling, a "fresh" copy of the data is
26	// fetched, and then rescaled. The plot automatically reflects these changes.
27	// --- for VSANS, this is much more difficult since there are multiple possibilites of 1D data, depending on the
28	// binning chosen. Currently, the data is plotted directly from the WORK folder, so this would need to be changed
29	// at the start, then deciding which waves to copy over. Messy. Very Messy. For now, simply toggle log/lin
30	//
31	// -- at the very least, add a log/lin toggle for the axes
32	//
33	// -- document, document, document
34	//
35	// -- see Middle_IQ_Graph() and similar for how VCALC does this plot
36	//
37	// -- when/if I want to add phi-averaging to this, go gack to AvgGraphics.ipf for the pink panel
38	// and to the function Draw_Plot1D() for the drawing of the plot
39	//
40	// If -9999 is passed in as the "binType", then read the proper value from the popup on the graph.
41	// otherwise, assume that a proper value has been passed in, say from the reduction protocol
42	//
43	Function V_PlotData_Panel()
44	// Variable binType
45
46	DoWindow/F V_1D_Data
47	if(V_flag==0)
48
49	// NewDataFolder/O root:Packages:NIST:VSANS:Globals:Plot_1D
50	// Variable/G root:Packages:NIST:VSANS:Globals:Plot_1D:gYMode = 1
51	// Variable/G root:Packages:NIST:VSANS:Globals:Plot_1D:gXMode = 1
52	// Variable/G root:Packages:NIST:VSANS:Globals:Plot_1D:gExpA = 1
53	// Variable/G root:Packages:NIST:VSANS:Globals:Plot_1D:gExpB = 1
54	// Variable/G root:Packages:NIST:VSANS:Globals:Plot_1D:gExpC = 1
55
56
57	Display /W=(277,526,748,938)/N=V_1D_Data/K=1
58
59	ControlBar 70
60
61	PopupMenu popup0,pos={16,5},size={71,20},title="Bin Type"
62	PopupMenu popup0,help={"This popup selects how the y-axis will be linearized based on the chosen data"}
63	PopupMenu popup0,value= ksBinTypeStr
64	PopupMenu popup0,mode=1,proc=V_BinningModePopup
65
66	CheckBox check0,pos={18.00,36.00},size={57.00,16.00},proc=V_Plot1D_LogCheckProc,title="Log Axes"
67	CheckBox check0,value= 1
68
69	// PopupMenu ymodel,pos={150,5},size={71,20},title="y-axis"
70	// PopupMenu ymodel,help={"This popup selects how the y-axis will be linearized based on the chosen data"}
71	// PopupMenu ymodel,value= #"\"I;log(I);ln(I);1/I;I^a;Iq^a;I^a q^b;1/sqrt(I);ln(Iq);ln(Iq^2)\""
72	// PopupMenu ymodel,mode=NumVarOrDefault("root:Packages:NIST:VSANS:Globals:Plot_1d:gYMode", 1 ),proc=V_YMode_PopMenuProc
73	// PopupMenu xmodel,pos={220,5},size={74,20},title="x-axis"
74	// PopupMenu xmodel,help={"This popup selects how the x-axis will be linearized given the chosen data"}
75	// PopupMenu xmodel,value= #"\"q;log(q);q^2;q^c\""
76	// PopupMenu xmodel,mode=NumVarOrDefault("root:Packages:NIST:VSANS:Globals:Plot_1d:gXMode", 1 ),proc=V_XMode_PopMenuProc
77	//// Button Rescale,pos={281,5},size={70,20},proc=V_Rescale_Plot_1D_ButtonProc,title="Rescale"
78	//// Button Rescale,help={"Rescale the x and y-axes of the data"},disable=1
79	//
80	// SetVariable expa,pos={120,28},size={80,15},title="pow \"a\""
81	// SetVariable expa,help={"This sets the exponent \"a\" for some y-axis formats. The value is ignored if the model does not use an adjustable exponent"}
82	// SetVariable expa,limits={-2,10,0},value= root:Packages:NIST:VSANS:Globals:Plot_1d:gExpA
83	// SetVariable expb,pos={120,46},size={80,15},title="pow \"b\""
84	// SetVariable expb,help={"This sets the exponent \"b\" for some x-axis formats. The value is ignored if the model does not use an adjustable exponent"}
85	// SetVariable expb,limits={0,10,0},value= root:Packages:NIST:VSANS:Globals:Plot_1d:gExpB
86	//
87	// SetVariable expc,pos={220,28},size={80,15},title="pow \"c\""
88	// SetVariable expc,help={"This sets the exponent \"c\" for some x-axis formats. The value is ignored if the model does not use \"c\" as an adjustable exponent"}
89	// SetVariable expc,limits={-10,10,0},value= root:Packages:NIST:VSANS:Globals:Plot_1d:gExpC
90
91	Button AllQ,pos={320,28},size={70,20},proc=V_AllQ_Plot_1D_ButtonProc,title="All Q"
92	Button AllQ,help={"Show the full q-range of the dataset"}
93
94	Legend/C/N=text0/J/X=72.00/Y=60.00
95	endif
96
97
98	// SVAR workType = root:Packages:NIST:VSANS:Globals:gCurDispType
99	//
100	// if(binType == -9999)
101	// binType = V_GetBinningPopMode() //dummy passed in, replace with value from panel
102	// endif
103	//
104	//
105	// V_QBinAllPanels(workType,binType)
106
107
108
109	End
110
111	//
112	// x- winStr is currently hard-wired, but this may not be an issue
113	Function V_Update1D_Graph(workType,binType)
114	String workType
115	Variable binType
116
117	//
118	// x- "B" detector is currently skipped - Q is not yet calculated
119	String str,winStr="V_1D_Data",workPathStr
120	workPathStr = "root:Packages:NIST:VSANS:"+worktype
121
122	sprintf str,"(\"%s\",%d,\"%s\")",workPathStr,binType,winStr
123
124	Execute ("V_Back_IQ_Graph"+str)
125	// Print "V_Back_IQ_Graph"+str
126	Execute ("V_Middle_IQ_Graph"+str)
127	Execute ("V_Front_IQ_Graph"+str)
128
129
130	return(0)
131	end
132
133	Function V_Plot1D_LogCheckProc(cba) : CheckBoxControl
134	STRUCT WMCheckboxAction &cba
135
136	switch( cba.eventCode )
137	case 2: // mouse up
138	Variable checked = cba.checked
139
140	ModifyGraph log=(checked)
141
142	break
143	case -1: // control being killed
144	break
145	endswitch
146
147	return 0
148	End
149
150	//
151	////function to set the popItem (mode) of the graph, to re-create the graph based on user preferences
152	//Function V_YMode_PopMenuProc(ctrlName,popNum,popStr) : PopupMenuControl
153	// String ctrlName
154	// Variable popNum
155	// String popStr
156	//
157	// Variable/G root:Packages:NIST:VSANS:Globals:Plot_1d:gYMode=popNum
158	// V_Rescale_Plot_1D_ButtonProc("")
159	//End
160	//
161	////function to set the popItem (mode) of the graph, to re-create the graph based on user preferences
162	//Function V_XMode_PopMenuProc(ctrlName,popNum,popStr) : PopupMenuControl
163	// String ctrlName
164	// Variable popNum
165	// String popStr
166	//
167	// Variable/G root:Packages:NIST:VSANS:Globals:Plot_1d:gXMode=popNum
168	// V_Rescale_Plot_1D_ButtonProc("")
169	//End
170
171
172	//function to rescale the axes of the graph as selected from the popups and the
173	// entered values of the exponents
174	//** assumes the current waves are unknown, so it goes and gets a "fresh" copy from
175	//the data folder specified by the waves on the graph, which is the same folder that
176	//contains the "fresh" copy of the 1D data
177	//
178	// for log(10) scaling, simply modify the axes, not the data - gives better plots
179	//
180	//Function V_Rescale_Plot_1D_ButtonProc(ctrlName) : ButtonControl
181	// String ctrlName
182	//
183	// DoWindow/F V_1D_Data
184	////Scaling exponents and background value
185	// Variable pow_a,pow_b,pow_c
186	// ControlInfo expa
187	// pow_a = V_value
188	// ControlInfo expb
189	// pow_b = V_value
190	// ControlInfo expc
191	// pow_c = V_value
192	//
193	////check for physical limits on exponent values, abort if bad values found
194	// if((pow_a < -2) \|\| (pow_a > 10))
195	// Abort "Exponent a must be in the range (-2,10)"
196	// endif
197	// if((pow_b < 0) \|\| (pow_b > 10))
198	// Abort "Exponent b must be in the range (0,10)"
199	// endif
200	// //if q^c is the x-scaling, c must be be within limits and also non-zero
201	// ControlInfo xModel
202	// If (cmpstr("q^c",S_Value) == 0)
203	// if(pow_c == 0)
204	// Abort "Exponent c must be non-zero, q^0 = 1"
205	// endif
206	// if((pow_c < -10) \|\| (pow_c > 10))
207	// Abort "Exponent c must be in the range (-10,10)"
208	// endif
209	// endif //check q^c exponent
210	//
211	//// get the current experimental q, I, and std dev. waves
212	// SVAR curFolder=root:Packages:NIST:VSANS:Globals:gDataDisplayType
213	//
214	//// what is the binning? == what waves do we need to copy over
215	//
216	//
217	// //get the untarnished data, so we can rescale it freshly here
218	// Wave yw = $("root:Packages:NIST:"+curFolder+":aveint")
219	// Wave ew = $("root:Packages:NIST:"+curFolder+":sigave")
220	// //get the correct x values
221	// NVAR isPhiAve= root:myGlobals:Plot_1d:isPhiAve //0 signifies (normal) x=qvals
222	// if(isPhiAve)
223	// //x is angle
224	// Wave xw=$("root:Packages:NIST:"+curFolder+":phival")
225	// else
226	// //x is q-values
227	// Wave xw=$("root:Packages:NIST:"+curFolder+":qval")
228	// endif
229	// Wave yAxisWave=root:myGlobals:Plot_1d:yAxisWave //refs to waves to be modified, hard-wired positions
230	// Wave xAxisWave=root:myGlobals:Plot_1d:xAxisWave
231	// Wave yErrWave=root:myGlobals:Plot_1d:yErrWave
232	//
233	// //variables set for each model to control look of graph
234	// String xlabel,ylabel,xstr,ystr
235	// Variable logLeft=0,logBottom=0
236	// //check for proper y-scaling selection, make the necessary waves
237	// ControlInfo yModel
238	// ystr = S_Value
239	// do
240	// If (cmpstr("I",S_Value) == 0)
241	// SetScale d 0,0,"1/cm",yAxisWave
242	// yErrWave = ew
243	// yAxisWave = yw
244	// ylabel = "I(q)"
245	// break
246	// endif
247	// If (cmpstr("ln(I)",S_Value) == 0)
248	// SetScale d 0,0,"",yAxisWave
249	// yErrWave = ew/yw
250	// yAxisWave = ln(yw)
251	// ylabel = "ln(I)"
252	// break
253	// endif
254	// If (cmpstr("log(I)",S_Value) == 0)
255	// SetScale d 0,0,"",yAxisWave
256	// yAxisWave = yw
257	// yErrWave = ew
258	// logLeft=1 //scale the axis, not the wave
259	// ylabel = "I(q)"
260	//// yErrWave = ew/(2.30*yw)
261	//// yAxisWave = log(yw)
262	//// ylabel = "log(I)"
263	// break
264	// endif
265	// If (cmpstr("1/I",S_Value) == 0)
266	// SetScale d 0,0,"",yAxisWave
267	// yErrWave = ew/yw^2
268	// yAxisWave = 1/yw
269	// ylabel = "1/I"
270	// break
271	// endif
272	// If (cmpstr("I^a",S_Value) == 0)
273	// SetScale d 0,0,"",yAxisWave
274	// yErrWave = ewabs(pow_a(yw^(pow_a-1)))
275	// yAxisWave = yw^pow_a
276	// ylabel = "I^"+num2str(pow_a)
277	// break
278	// endif
279	// If (cmpstr("Iq^a",S_Value) == 0)
280	// SetScale d 0,0,"",yAxisWave
281	// yErrWave = ew*xw^pow_a
282	// yAxisWave = yw*xw^pow_a
283	// ylabel = "I*q^"+num2str(pow_a)
284	// break
285	// endif
286	// If (cmpstr("I^a q^b",S_Value) == 0)
287	// SetScale d 0,0,"",yAxisWave
288	// yErrWave = ewabs(pow_a(yw^(pow_a-1)))*xw^pow_b
289	// yAxisWave = yw^pow_a*xw^pow_b
290	// ylabel = "I^" + num2str(pow_a) + "q^"+num2str(pow_b)
291	// break
292	// endif
293	// If (cmpstr("1/sqrt(I)",S_Value) == 0)
294	// SetScale d 0,0,"",yAxisWave
295	// yErrWave = 0.5ewyw^(-1.5)
296	// yAxisWave = 1/sqrt(yw)
297	// ylabel = "1/sqrt(I)"
298	// break
299	// endif
300	// If (cmpstr("ln(Iq)",S_Value) == 0)
301	// SetScale d 0,0,"",yAxisWave
302	// yErrWave =ew/yw
303	// yAxisWave = ln(xw*yw)
304	// ylabel = "ln(q*I)"
305	// break
306	// endif
307	// If (cmpstr("ln(Iq^2)",S_Value) == 0)
308	// SetScale d 0,0,"",yAxisWave
309	// yErrWave = ew/yw
310	// yAxisWave = ln(xwxwyw)
311	// ylabel = "ln(I*q^2)"
312	// break
313	// endif
314	// //more ifs for each case as they are added
315	//
316	// // if selection not found, abort
317	// DoAlert 0,"Y-axis scaling incorrect. Aborting"
318	// Abort
319	// while(0) //end of "case" statement for y-axis scaling
320	//
321	// //check for proper x-scaling selection
322	// SVAR/Z angst = root:Packages:NIST:gAngstStr
323	// String dum
324	//
325	// ControlInfo xModel
326	// xstr = S_Value
327	// do
328	// If (cmpstr("q",S_Value) == 0)
329	// SetScale d 0,0,"",xAxisWave
330	// xAxisWave = xw
331	// if(isPhiAve)
332	// xlabel="Angle (deg)"
333	// else
334	// xlabel = "q ("+angst+"\\S-1\\M)"
335	// endif
336	// break
337	// endif
338	// If (cmpstr("q^2",S_Value) == 0)
339	// SetScale d 0,0,"",xAxisWave
340	// xAxisWave = xw*xw
341	// if(isPhiAve)
342	// xlabel="(Angle (deg) )^2"
343	// else
344	// xlabel = "q^2 ("+angst+"\\S-2\\M)"
345	// endif
346	// break
347	// endif
348	// If (cmpstr("log(q)",S_Value) == 0)
349	// SetScale d 0,0,"",xAxisWave
350	// xAxisWave = xw //scale the axis, not the wave
351	// //xAxisWave = log(xw)
352	// logBottom=1
353	// if(isPhiAve)
354	// //xlabel="log(Angle (deg))"
355	// xlabel="Angle (deg)"
356	// else
357	// //xlabel = "log(q)"
358	// xlabel = "q ("+angst+"\\S-1\\M)"
359	// endif
360	// break
361	// endif
362	// If (cmpstr("q^c",S_Value) == 0)
363	// SetScale d 0,0,"",xAxisWave
364	// xAxisWave = xw^pow_c
365	// dum = num2str(pow_c)
366	// if(isPhiAve)
367	// xlabel="Angle^"+dum
368	// else
369	// xlabel = "q^"+dum+" ("+angst+"\\S-"+dum+"\\M)"
370	// endif
371	// break
372	// endif
373	//
374	// //more ifs for each case
375	//
376	// // if selection not found, abort
377	// DoAlert 0,"X-axis scaling incorrect. Aborting"
378	// Abort
379	// while(0) //end of "case" statement for x-axis scaling
380	//
381	// Label left ylabel
382	// Label bottom xlabel //E denotes "scaling" - may want to use "units" instead
383	// ModifyGraph log(left)=(logLeft)
384	// ModifyGraph log(bottom)=(logBottom)
385	//
386	//End
387
388
389	//function to restore the graph axes to full scale, undoing any zooming
390	Function V_AllQ_Plot_1D_ButtonProc(ctrlName) : ButtonControl
391	String ctrlName
392
393	SetAxis/A
394	End
395
396
397	//
398	// recalculate the I(q) binning. no need to adjust model function or views
399	// just rebin
400	//
401	// see V_CombineModePopup() in V_Combine_1D.ipf for a duplicate version of this function
402	//
403	Function V_BinningModePopup(ctrlName,popNum,popStr) : PopupMenuControl
404	String ctrlName
405	Variable popNum // which item is currently selected (1-based)
406	String popStr // contents of current popup item as string
407
408	SVAR type = root:Packages:NIST:VSANS:Globals:gCurDispType
409
410	V_QBinAllPanels_Circular(type,popNum)
411
412	String str,winStr="V_1D_Data",workTypeStr
413	workTypeStr = "root:Packages:NIST:VSANS:"+type
414
415	sprintf str,"(\"%s\",%d,\"%s\")",workTypeStr,popNum,winStr
416
417	Execute ("V_Back_IQ_Graph"+str)
418	Execute ("V_Middle_IQ_Graph"+str)
419	Execute ("V_Front_IQ_Graph"+str)
420
421
422	return(0)
423	End
424
425	Function V_GetBinningPopMode()
426
427	Variable binType
428
429	if(WinType("V_1D_Data")==0)
430	DoAlert 0,"V_1D_Data window is not open, called from V_GetBinningPopMode()"
431	return(0)
432	endif
433
434	ControlInfo/W=V_1D_Data popup0
435	binType = V_BinTypeStr2Num(S_Value)
436
437	return(binType)
438	end
439
440	//
441	// duplicated from Middle_IQ_Graph from VCALC
442	// but plotted in a standalone graph window and not the VCALC subwindow
443	//
444	// V_1D_Data
445	//
446	//
447	// x- need to set binType
448	// x- currently hard-wired == 1
449	//
450	// input "fullPathToFolder" is the data type and defines the folder,
451	// i.e. "root:Packages:NIST:VSANS:"+"SAM"
452	//
453	Proc V_Middle_IQ_Graph(fullPathToFolder,binType,winNameStr)
454	String fullPathToFolder
455	Variable binType
456	String winNameStr
457
458	// binType = V_GetBinningPopMode()
459	SetDataFolder $(fullPathToFolder)
460
461	// clear EVERYTHING
462
463
464	if(binType==1)
465	ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr)
466	ClearIQIfDisplayed_AllFldr("MLR",winNameStr)
467	ClearIQIfDisplayed_AllFldr("MTB",winNameStr) //this returns to root:
468	ClearIQIfDisplayed_AllFldr("MT",winNameStr)
469	ClearIQIfDisplayed_AllFldr("ML",winNameStr)
470	ClearIQIfDisplayed_AllFldr("MR",winNameStr)
471	ClearIQIfDisplayed_AllFldr("MB",winNameStr)
472	SetDataFolder $(fullPathToFolder)
473	CheckDisplayed/W=$winNameStr iBin_qxqy_ML
474
475	if(V_flag==0)
476	AppendtoGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML
477	AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR
478	AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT
479	AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB
480	ErrorBars/T=0 iBin_qxqy_ML Y,wave=(:eBin_qxqy_ML,:eBin_qxqy_ML)
481	ErrorBars/T=0 iBin_qxqy_MR Y,wave=(:eBin_qxqy_MR,:eBin_qxqy_MR)
482	ErrorBars/T=0 iBin_qxqy_MT Y,wave=(:eBin_qxqy_MT,:eBin_qxqy_MT)
483	ErrorBars/T=0 iBin_qxqy_MB Y,wave=(:eBin_qxqy_MB,:eBin_qxqy_MB)
484
485	ModifyGraph/W=$winNameStr mode=4
486	ModifyGraph/W=$winNameStr marker=19
487	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535)
488	ModifyGraph/W=$winNameStr msize=2
489	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8}
490	ModifyGraph/W=$winNameStr grid=1
491	ModifyGraph/W=$winNameStr log=1
492	ModifyGraph/W=$winNameStr mirror=2
493	endif
494	endif
495
496	if(binType==2)
497	// clear EVERYTHING
498	ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr)
499	ClearIQIfDisplayed_AllFldr("MLR",winNameStr)
500	ClearIQIfDisplayed_AllFldr("MTB",winNameStr) //this returns to root:
501	ClearIQIfDisplayed_AllFldr("MT",winNameStr)
502	ClearIQIfDisplayed_AllFldr("ML",winNameStr)
503	ClearIQIfDisplayed_AllFldr("MR",winNameStr)
504	ClearIQIfDisplayed_AllFldr("MB",winNameStr)
505
506	// ClearIQIfDisplayed_AllFldr("MLRTB")
507	// ClearIQIfDisplayed_AllFldr("MT")
508	// ClearIQIfDisplayed_AllFldr("ML")
509	// ClearIQIfDisplayed_AllFldr("MR")
510	// ClearIQIfDisplayed_AllFldr("MB")
511
512
513	SetDataFolder $(fullPathToFolder)
514	CheckDisplayed/W=$winNameStr iBin_qxqy_MLR
515
516	if(V_flag==0)
517	AppendtoGraph/W=$winNameStr iBin_qxqy_MLR vs qBin_qxqy_MLR
518	AppendToGraph/W=$winNameStr iBin_qxqy_MTB vs qBin_qxqy_MTB
519	ErrorBars/T=0 iBin_qxqy_MLR Y,wave=(:eBin_qxqy_MLR,:eBin_qxqy_MLR)
520	ErrorBars/T=0 iBin_qxqy_MTB Y,wave=(:eBin_qxqy_MTB,:eBin_qxqy_MTB)
521
522	ModifyGraph/W=$winNameStr mode=4
523	ModifyGraph/W=$winNameStr marker=19
524	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR)=(65535,0,0),rgb(iBin_qxqy_MTB)=(1,16019,65535)
525	ModifyGraph/W=$winNameStr msize=2
526	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MLR)={0,2}
527	ModifyGraph/W=$winNameStr grid=1
528	ModifyGraph/W=$winNameStr log=1
529	ModifyGraph/W=$winNameStr mirror=2
530	Label/W=$winNameStr left "Intensity (1/cm)"
531	Label/W=$winNameStr bottom "Q (1/A)"
532	endif
533
534	endif
535
536	if(binType==3)
537	// clear EVERYTHING
538	ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr)
539	ClearIQIfDisplayed_AllFldr("MLR",winNameStr)
540	ClearIQIfDisplayed_AllFldr("MTB",winNameStr) //this returns to root:
541	ClearIQIfDisplayed_AllFldr("MT",winNameStr)
542	ClearIQIfDisplayed_AllFldr("ML",winNameStr)
543	ClearIQIfDisplayed_AllFldr("MR",winNameStr)
544	ClearIQIfDisplayed_AllFldr("MB",winNameStr)
545
546	// ClearIQIfDisplayed_AllFldr("MLR")
547	// ClearIQIfDisplayed_AllFldr("MTB")
548	// ClearIQIfDisplayed_AllFldr("MT")
549	// ClearIQIfDisplayed_AllFldr("ML")
550	// ClearIQIfDisplayed_AllFldr("MR")
551	// ClearIQIfDisplayed_AllFldr("MB")
552
553	SetDataFolder $(fullPathToFolder)
554	CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB
555
556	if(V_flag==0)
557	AppendtoGraph/W=$winNameStr iBin_qxqy_MLRTB vs qBin_qxqy_MLRTB
558	ErrorBars/T=0 iBin_qxqy_MLRTB Y,wave=(:eBin_qxqy_MLRTB,:eBin_qxqy_MLRTB)
559
560	ModifyGraph/W=$winNameStr mode=4
561	ModifyGraph/W=$winNameStr marker=19
562	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLRTB)=(65535,0,0)
563	ModifyGraph/W=$winNameStr msize=2
564	ModifyGraph/W=$winNameStr grid=1
565	ModifyGraph/W=$winNameStr log=1
566	ModifyGraph/W=$winNameStr mirror=2
567	Label/W=$winNameStr left "Intensity (1/cm)"
568	Label/W=$winNameStr bottom "Q (1/A)"
569	endif
570
571	endif
572
573	if(binType==4) // slit aperture binning - MT, ML, MR, MB are averaged
574	// clear EVERYTHING
575	ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr)
576	ClearIQIfDisplayed_AllFldr("MLR",winNameStr)
577	ClearIQIfDisplayed_AllFldr("MTB",winNameStr) //this returns to root:
578	ClearIQIfDisplayed_AllFldr("MT",winNameStr)
579	ClearIQIfDisplayed_AllFldr("ML",winNameStr)
580	ClearIQIfDisplayed_AllFldr("MR",winNameStr)
581	ClearIQIfDisplayed_AllFldr("MB",winNameStr)
582
583
584	// ClearIQIfDisplayed_AllFldr("MLRTB")
585	// ClearIQIfDisplayed_AllFldr("MLR")
586	// ClearIQIfDisplayed_AllFldr("MTB")
587
588	SetDataFolder $(fullPathToFolder)
589	CheckDisplayed/W=$winNameStr iBin_qxqy_ML
590
591	if(V_flag==0)
592	AppendToGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML
593	AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR
594	AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT
595	AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB
596	ErrorBars/T=0 iBin_qxqy_ML Y,wave=(:eBin_qxqy_ML,:eBin_qxqy_ML)
597	ErrorBars/T=0 iBin_qxqy_MR Y,wave=(:eBin_qxqy_MR,:eBin_qxqy_MR)
598	ErrorBars/T=0 iBin_qxqy_MT Y,wave=(:eBin_qxqy_MT,:eBin_qxqy_MT)
599	ErrorBars/T=0 iBin_qxqy_MB Y,wave=(:eBin_qxqy_MB,:eBin_qxqy_MB)
600
601	ModifyGraph/W=$winNameStr mode=4
602	ModifyGraph/W=$winNameStr marker=19
603	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535)
604	ModifyGraph/W=$winNameStr msize=2
605	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8}
606	ModifyGraph/W=$winNameStr grid=1
607	ModifyGraph/W=$winNameStr log=1
608	ModifyGraph/W=$winNameStr mirror=2
609	endif
610
611	endif
612
613	SetDataFolder root:
614	End
615
616	//
617	// duplicated from Middle_IQ_Graph from VCALC
618	// but plotted in a standalone graph window and not the VCALC subwindow
619	//
620	// V_1D_Data
621	//
622	//
623	// x- need to set binType
624	// x- currently hard-wired == 1
625	// x- error bars on the data
626	//
627	Proc V_Front_IQ_Graph(fullPathToFolder,binType,winNameStr)
628	String fullPathToFolder
629	Variable binType
630	String winNameStr
631
632
633	// binType = V_GetBinningPopMode()
634	SetDataFolder $(fullPathToFolder)
635
636	// clear EVERYTHING
637	// ClearIQIfDisplayed_AllFldr("FLRTB")
638	//
639	// ClearIQIfDisplayed_AllFldr("FLR")
640	// ClearIQIfDisplayed_AllFldr("FTB")
641	//
642	// ClearIQIfDisplayed_AllFldr("FT")
643	// ClearIQIfDisplayed_AllFldr("FL")
644	// ClearIQIfDisplayed_AllFldr("FR")
645	// ClearIQIfDisplayed_AllFldr("FB")
646
647	if(binType==1)
648	ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr)
649
650	ClearIQIfDisplayed_AllFldr("FLR",winNameStr)
651	ClearIQIfDisplayed_AllFldr("FTB",winNameStr)
652
653	ClearIQIfDisplayed_AllFldr("FT",winNameStr)
654	ClearIQIfDisplayed_AllFldr("FL",winNameStr)
655	ClearIQIfDisplayed_AllFldr("FR",winNameStr)
656	ClearIQIfDisplayed_AllFldr("FB",winNameStr)
657
658	SetDataFolder $(fullPathToFolder)
659	CheckDisplayed/W=$winNameStr iBin_qxqy_FL
660
661	if(V_flag==0)
662	AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL
663	AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR
664	AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT
665	AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB
666	ErrorBars/T=0 iBin_qxqy_FL Y,wave=(:eBin_qxqy_FL,:eBin_qxqy_FL)
667	ErrorBars/T=0 iBin_qxqy_FR Y,wave=(:eBin_qxqy_FR,:eBin_qxqy_FR)
668	ErrorBars/T=0 iBin_qxqy_FT Y,wave=(:eBin_qxqy_FT,:eBin_qxqy_FT)
669	ErrorBars/T=0 iBin_qxqy_FB Y,wave=(:eBin_qxqy_FB,:eBin_qxqy_FB)
670
671	ModifyGraph/W=$winNameStr mode=4
672	ModifyGraph/W=$winNameStr marker=19
673	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1)
674	ModifyGraph/W=$winNameStr msize=2
675	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8}
676	ModifyGraph/W=$winNameStr grid=1
677	ModifyGraph/W=$winNameStr log=1
678	ModifyGraph/W=$winNameStr mirror=2
679	Label/W=$winNameStr left "Intensity (1/cm)"
680	Label/W=$winNameStr bottom "Q (1/A)"
681	endif
682	endif
683
684	if(binType==2)
685	// clear EVERYTHING
686	ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr)
687
688	ClearIQIfDisplayed_AllFldr("FLR",winNameStr)
689	ClearIQIfDisplayed_AllFldr("FTB",winNameStr)
690
691	ClearIQIfDisplayed_AllFldr("FT",winNameStr)
692	ClearIQIfDisplayed_AllFldr("FL",winNameStr)
693	ClearIQIfDisplayed_AllFldr("FR",winNameStr)
694	ClearIQIfDisplayed_AllFldr("FB",winNameStr)
695	// ClearIQIfDisplayed_AllFldr("FLRTB")
696	// ClearIQIfDisplayed_AllFldr("FT")
697	// ClearIQIfDisplayed_AllFldr("FL")
698	// ClearIQIfDisplayed_AllFldr("FR")
699	// ClearIQIfDisplayed_AllFldr("FB")
700
701	SetDataFolder $(fullPathToFolder)
702	CheckDisplayed/W=$winNameStr iBin_qxqy_FLR
703
704	if(V_flag==0)
705	AppendtoGraph/W=$winNameStr iBin_qxqy_FLR vs qBin_qxqy_FLR
706	AppendToGraph/W=$winNameStr iBin_qxqy_FTB vs qBin_qxqy_FTB
707	ErrorBars/T=0 iBin_qxqy_FLR Y,wave=(:eBin_qxqy_FLR,:eBin_qxqy_FLR)
708	ErrorBars/T=0 iBin_qxqy_FTB Y,wave=(:eBin_qxqy_FTB,:eBin_qxqy_FTB)
709
710	ModifyGraph/W=$winNameStr mode=4
711	ModifyGraph/W=$winNameStr marker=19
712	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1)
713	ModifyGraph/W=$winNameStr msize=2
714	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR)={0,2}
715	ModifyGraph/W=$winNameStr grid=1
716	ModifyGraph/W=$winNameStr log=1
717	ModifyGraph/W=$winNameStr mirror=2
718	// Label/W=$winNameStr left "Intensity (1/cm)"
719	// Label/W=$winNameStr bottom "Q (1/A)"
720	endif
721
722	endif
723
724	if(binType==3)
725	// clear EVERYTHING
726	ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr)
727
728	ClearIQIfDisplayed_AllFldr("FLR",winNameStr)
729	ClearIQIfDisplayed_AllFldr("FTB",winNameStr)
730
731	ClearIQIfDisplayed_AllFldr("FT",winNameStr)
732	ClearIQIfDisplayed_AllFldr("FL",winNameStr)
733	ClearIQIfDisplayed_AllFldr("FR",winNameStr)
734	ClearIQIfDisplayed_AllFldr("FB",winNameStr)
735
736	// ClearIQIfDisplayed_AllFldr("FLR")
737	// ClearIQIfDisplayed_AllFldr("FTB")
738	// ClearIQIfDisplayed_AllFldr("FT")
739	// ClearIQIfDisplayed_AllFldr("FL")
740	// ClearIQIfDisplayed_AllFldr("FR")
741	// ClearIQIfDisplayed_AllFldr("FB")
742
743	SetDataFolder $(fullPathToFolder)
744	CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB
745
746	if(V_flag==0)
747	AppendtoGraph/W=$winNameStr iBin_qxqy_FLRTB vs qBin_qxqy_FLRTB
748	ErrorBars/T=0 iBin_qxqy_FLRTB Y,wave=(:eBin_qxqy_FLRTB,:eBin_qxqy_FLRTB)
749
750	ModifyGraph/W=$winNameStr mode=4
751	ModifyGraph/W=$winNameStr marker=19
752	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLRTB)=(39321,26208,1)
753	ModifyGraph/W=$winNameStr msize=2
754	ModifyGraph/W=$winNameStr grid=1
755	ModifyGraph/W=$winNameStr log=1
756	ModifyGraph/W=$winNameStr mirror=2
757	Label/W=$winNameStr left "Intensity (1/cm)"
758	Label/W=$winNameStr bottom "Q (1/A)"
759	endif
760
761	endif
762
763	if(binType==4) // slit aperture binning - MT, ML, MR, MB are averaged
764	// clear EVERYTHING
765	ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr)
766
767	ClearIQIfDisplayed_AllFldr("FLR",winNameStr)
768	ClearIQIfDisplayed_AllFldr("FTB",winNameStr)
769
770	ClearIQIfDisplayed_AllFldr("FT",winNameStr)
771	ClearIQIfDisplayed_AllFldr("FL",winNameStr)
772	ClearIQIfDisplayed_AllFldr("FR",winNameStr)
773	ClearIQIfDisplayed_AllFldr("FB",winNameStr)
774
775
776	// ClearIQIfDisplayed_AllFldr("FLRTB")
777	// ClearIQIfDisplayed_AllFldr("FLR")
778	// ClearIQIfDisplayed_AllFldr("FTB")
779
780	SetDataFolder $(fullPathToFolder)
781	CheckDisplayed/W=$winNameStr iBin_qxqy_FL
782
783	if(V_flag==0)
784	AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL
785	AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR
786	AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT
787	AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB
788	ErrorBars/T=0 iBin_qxqy_FL Y,wave=(:eBin_qxqy_FL,:eBin_qxqy_FL)
789	ErrorBars/T=0 iBin_qxqy_FR Y,wave=(:eBin_qxqy_FR,:eBin_qxqy_FR)
790	ErrorBars/T=0 iBin_qxqy_FT Y,wave=(:eBin_qxqy_FT,:eBin_qxqy_FT)
791	ErrorBars/T=0 iBin_qxqy_FB Y,wave=(:eBin_qxqy_FB,:eBin_qxqy_FB)
792
793	ModifyGraph/W=$winNameStr mode=4
794	ModifyGraph/W=$winNameStr marker=19
795	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1)
796	ModifyGraph/W=$winNameStr msize=2
797	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8}
798	ModifyGraph/W=$winNameStr grid=1
799	ModifyGraph/W=$winNameStr log=1
800	ModifyGraph/W=$winNameStr mirror=2
801	endif
802
803	endif
804
805	SetDataFolder root:
806	End
807
808
809	//
810	// x- need to set binType
811	// x- currently hard-wired == 1
812	// x- error bars on the data
813	//
814	// type = the data folder
815	// binType = numerical index of the bin type (1->4)
816	// one;two;four;slit
817	// winNameStr = the name of the target window
818	//
819	////////////to plot the back panel I(q)
820	Proc V_Back_IQ_Graph(fullPathToFolder,binType,winNameStr)
821	String fullPathToFolder
822	Variable binType
823	String winNameStr
824
825	// SetDataFolder root:Packages:NIST:VSANS:VCALC:entry:instrument:detector_B
826
827	// Variable binType
828
829	// binType = V_GetBinningPopMode()
830
831
832	SetDataFolder $(fullPathToFolder)
833
834	if(binType==1 \|\| binType==2 \|\| binType==3)
835
836	ClearIQIfDisplayed_AllFldr("B",winNameStr)
837	SetDataFolder $(fullPathToFolder)
838	CheckDisplayed/W=$winNameStr iBin_qxqy_B
839
840	if(V_flag==0)
841	AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B
842	ErrorBars/T=0 iBin_qxqy_B Y,wave=(:eBin_qxqy_B,:eBin_qxqy_B)
843	ModifyGraph/W=$winNameStr mode(iBin_qxqy_B)=4
844	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428)
845	ModifyGraph/W=$winNameStr grid=1
846	ModifyGraph/W=$winNameStr log=1
847	ModifyGraph/W=$winNameStr mirror=2
848	ModifyGraph/W=$winNameStr marker(iBin_qxqy_B)=19,msize(iBin_qxqy_B)=2
849	// ModifyGraph/W=$winNameStr msize(iBin_qxqy_B)=3,textMarker(iBin_qxqy_B)={"B","default",1,0,5,0.00,0.00}
850
851	endif
852
853	// ClearIQIfDisplayed_AllFldr("B")
854	// SetDataFolder $(fullPathToFolder)
855	// CheckDisplayed/W=V_1D_Data iBin_qxqy_B
856	//
857	// if(V_flag==0)
858	// AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B
859	// ModifyGraph/W=V_1D_Data mode=4
860	// ModifyGraph/W=V_1D_Data marker=19
861	// ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428)
862	// ModifyGraph/W=V_1D_Data msize=2
863	// ModifyGraph/W=V_1D_Data grid=1
864	// ModifyGraph/W=V_1D_Data log=1
865	// ModifyGraph/W=V_1D_Data mirror=2
866	// endif
867
868	endif
869
870	//nothing different here since there is ony a single detector to display, but for the future...
871	if(binType==4)
872
873	ClearIQIfDisplayed_AllFldr("B",winNameStr)
874	SetDataFolder $(fullPathToFolder) // ClearIQIfDisplayed_AllFldr() resets to root:
875	CheckDisplayed/W=$winNameStr iBin_qxqy_B
876
877	if(V_flag==0)
878	AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B
879	ModifyGraph/W=$winNameStr mode(iBin_qxqy_B)=4
880	ModifyGraph/W=$winNameStr marker(iBin_qxqy_B)=19
881	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428)
882	ModifyGraph/W=$winNameStr msize(iBin_qxqy_B)=2
883	ModifyGraph/W=$winNameStr grid=1
884	ModifyGraph/W=$winNameStr log=1
885	ModifyGraph/W=$winNameStr mirror=2
886	endif
887	endif
888
889
890	SetDataFolder root:
891	End
892
893
894
895	// type = the data folder
896	// binType = numerical index of the bin type (1->4)
897	// one;two;four;slit
898	// winNameStr = the name of the target window
899	//
900	////////////to plot the back panel I(q)
901	Proc V_Back_IQ_Graph_trim(fullPathToFolder,binType,winNameStr)
902	String fullPathToFolder
903	Variable binType
904	String winNameStr
905
906	// SetDataFolder root:Packages:NIST:VSANS:VCALC:entry:instrument:detector_B
907
908	// Variable binType
909
910	// binType = V_GetBinningPopMode()
911
912
913	SetDataFolder $(fullPathToFolder)
914
915	if(binType==1 \|\| binType==2 \|\| binType==3)
916
917	// ClearIQIfDisplayed_AllFldr("B_trim",winNameStr)
918	CheckDisplayed/W=$winNameStr $("iBin_qxqy_B_trim")
919	if(V_flag==1)
920	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_B_trim")
921	endif
922	SetDataFolder $(fullPathToFolder)
923	CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim
924
925	if(V_flag==0)
926	AppendtoGraph/W=$winNameStr iBin_qxqy_B_trim vs qBin_qxqy_B_trim
927	ErrorBars/T=0 iBin_qxqy_B_trim Y,wave=(:eBin_qxqy_B_trim,:eBin_qxqy_B_trim)
928	ModifyGraph/W=$winNameStr mode(iBin_qxqy_B_trim)=4
929	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B_trim)=(1,52428,52428)
930	ModifyGraph/W=$winNameStr grid=1
931	ModifyGraph/W=$winNameStr log=1
932	ModifyGraph/W=$winNameStr mirror=2
933	ModifyGraph/W=$winNameStr marker(iBin_qxqy_B_trim)=19,msize(iBin_qxqy_B_trim)=3
934	// ModifyGraph/W=$winNameStr msize(iBin_qxqy_B_trim)=3,textMarker(iBin_qxqy_B_trim)={"B","default",1,0,5,0.00,0.00}
935
936	endif
937
938	// ClearIQIfDisplayed_AllFldr("B_trim")
939	// SetDataFolder $(fullPathToFolder)
940	// CheckDisplayed/W=V_1D_Data iBin_qxqy_B_trim
941	//
942	// if(V_flag==0)
943	// AppendtoGraph/W=V_1D_Data iBin_qxqy_B_trim vs qBin_qxqy_B_trim
944	// ModifyGraph/W=V_1D_Data mode=4
945	// ModifyGraph/W=V_1D_Data marker=19
946	// ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B_trim)=(1,52428,52428)
947	// ModifyGraph/W=V_1D_Data msize=2
948	// ModifyGraph/W=V_1D_Data grid=1
949	// ModifyGraph/W=V_1D_Data log=1
950	// ModifyGraph/W=V_1D_Data mirror=2
951	// endif
952
953	endif
954
955	//nothing different here since there is ony a single detector to display, but for the future...
956	if(binType==4)
957
958	// ClearIQIfDisplayed_AllFldr("B_trim",winNameStr)
959	CheckDisplayed/W=$winNameStr $("iBin_qxqy_B_trim")
960	if(V_flag==1)
961	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_B_trim")
962	endif
963	SetDataFolder $("root:Packages:NIST:VSANS:"+type)
964	CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim
965
966	if(V_flag==0)
967	AppendtoGraph/W=$winNameStr iBin_qxqy_B_trim vs qBin_qxqy_B_trim
968	ModifyGraph/W=$winNameStr mode(iBin_qxqy_B_trim)=4
969	ModifyGraph/W=$winNameStr marker(iBin_qxqy_B_trim)=19
970	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B_trim)=(1,52428,52428)
971	ModifyGraph/W=$winNameStr msize(iBin_qxqy_B_trim)=3
972	ModifyGraph/W=$winNameStr grid=1
973	ModifyGraph/W=$winNameStr log=1
974	ModifyGraph/W=$winNameStr mirror=2
975	endif
976	endif
977
978
979	SetDataFolder root:
980	End
981
982
983	//
984	// x- need to set binType
985	// x- currently hard-wired == 1
986	//
987	// input "fullPathToFolder" is the data type and defines the folder,
988	// i.e. "root:Packages:NIST:VSANS:"+"SAM"
989	//
990	Proc V_Middle_IQ_Graph_trim(fullPathToFolder,binType,winNameStr)
991	String fullPathToFolder
992	Variable binType
993	String winNameStr
994
995	// binType = V_GetBinningPopMode()
996	SetDataFolder $(fullPathToFolder)
997
998	String midList = "ML;MR;MT;MB;MLR;MTB;MLRTB;"
999	String type
1000	Variable ii
1001
1002
1003	if(binType==1)
1004	ii=0
1005	do
1006	type = StringFromList(ii, midlist, ";")
1007	CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1008	if(V_flag==1)
1009	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1010	endif
1011	ii+=1
1012	while(ii<ItemsInList(midList))
1013
1014
1015	SetDataFolder $(fullPathToFolder)
1016	CheckDisplayed/W=$winNameStr iBin_qxqy_ML_trim
1017
1018	if(V_flag==0)
1019	AppendtoGraph/W=$winNameStr iBin_qxqy_ML_trim vs qBin_qxqy_ML_trim
1020	AppendToGraph/W=$winNameStr iBin_qxqy_MR_trim vs qBin_qxqy_MR_trim
1021	AppendToGraph/W=$winNameStr iBin_qxqy_MT_trim vs qBin_qxqy_MT_trim
1022	AppendToGraph/W=$winNameStr iBin_qxqy_MB_trim vs qBin_qxqy_MB_trim
1023	ErrorBars/T=0 iBin_qxqy_ML_trim Y,wave=(:eBin_qxqy_ML_trim,:eBin_qxqy_ML_trim)
1024	ErrorBars/T=0 iBin_qxqy_MR_trim Y,wave=(:eBin_qxqy_MR_trim,:eBin_qxqy_MR_trim)
1025	ErrorBars/T=0 iBin_qxqy_MT_trim Y,wave=(:eBin_qxqy_MT_trim,:eBin_qxqy_MT_trim)
1026	ErrorBars/T=0 iBin_qxqy_MB_trim Y,wave=(:eBin_qxqy_MB_trim,:eBin_qxqy_MB_trim)
1027
1028	ModifyGraph/W=$winNameStr mode(iBin_qxqy_ML_trim)=4
1029	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MR_trim)=4
1030	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MT_trim)=4
1031	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MB_trim)=4
1032	ModifyGraph/W=$winNameStr marker(iBin_qxqy_ML_trim)=19
1033	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MR_trim)=19
1034	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MT_trim)=19
1035	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MB_trim)=19
1036	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML_trim)=(65535,0,0),rgb(iBin_qxqy_MB_trim)=(1,16019,65535),rgb(iBin_qxqy_MR_trim)=(65535,0,0),rgb(iBin_qxqy_MT_trim)=(1,16019,65535)
1037	ModifyGraph/W=$winNameStr msize(iBin_qxqy_ML_trim)=3
1038	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MR_trim)=3
1039	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MT_trim)=3
1040	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MB_trim)=3
1041	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML_trim)={0,4},muloffset(iBin_qxqy_MB_trim)={0,2},muloffset(iBin_qxqy_MR_trim)={0,8}
1042	ModifyGraph/W=$winNameStr grid=1
1043	ModifyGraph/W=$winNameStr log=1
1044	ModifyGraph/W=$winNameStr mirror=2
1045	endif
1046	endif
1047
1048	if(binType==2)
1049	// clear EVERYTHING
1050	ii=0
1051	do
1052	type = StringFromList(ii, midlist, ";")
1053	CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1054	if(V_flag==1)
1055	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1056	endif
1057	ii+=1
1058	while(ii<ItemsInList(midList))
1059
1060
1061
1062
1063	SetDataFolder $(fullPathToFolder)
1064	CheckDisplayed/W=$winNameStr iBin_qxqy_MLR_trim
1065
1066	if(V_flag==0)
1067	AppendtoGraph/W=$winNameStr iBin_qxqy_MLR_trim vs qBin_qxqy_MLR_trim
1068	AppendToGraph/W=$winNameStr iBin_qxqy_MTB_trim vs qBin_qxqy_MTB_trim
1069	ErrorBars/T=0 iBin_qxqy_MLR_trim Y,wave=(:eBin_qxqy_MLR_trim,:eBin_qxqy_MLR_trim)
1070	ErrorBars/T=0 iBin_qxqy_MTB_trim Y,wave=(:eBin_qxqy_MTB_trim,:eBin_qxqy_MTB_trim)
1071
1072	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MLR_trim)=4
1073	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MTB_trim)=4
1074	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MLR_trim)=19
1075	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MTB_trim)=19
1076	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR_trim)=(65535,0,0),rgb(iBin_qxqy_MTB_trim)=(1,16019,65535)
1077	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MLR_trim)=3
1078	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MTB_trim)=3
1079	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MLR_trim)={0,2}
1080	ModifyGraph/W=$winNameStr grid=1
1081	ModifyGraph/W=$winNameStr log=1
1082	ModifyGraph/W=$winNameStr mirror=2
1083	Label/W=$winNameStr left "Intensity (1/cm)"
1084	Label/W=$winNameStr bottom "Q (1/A)"
1085	endif
1086
1087	endif
1088
1089	if(binType==3)
1090	// clear EVERYTHING
1091	ii=0
1092	do
1093	type = StringFromList(ii, midlist, ";")
1094	CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1095	if(V_flag==1)
1096	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1097	endif
1098	ii+=1
1099	while(ii<ItemsInList(midList))
1100
1101
1102	SetDataFolder $(fullPathToFolder)
1103	CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB_trim
1104
1105	if(V_flag==0)
1106	AppendtoGraph/W=$winNameStr iBin_qxqy_MLRTB_trim vs qBin_qxqy_MLRTB_trim
1107	ErrorBars/T=0 iBin_qxqy_MLRTB_trim Y,wave=(:eBin_qxqy_MLRTB_trim,:eBin_qxqy_MLRTB_trim)
1108
1109	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MLRTB_trim)=4
1110	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MLRTB_trim)=19
1111	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLRTB_trim)=(65535,0,0)
1112	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MLRTB_trim)=3
1113	ModifyGraph/W=$winNameStr grid=1
1114	ModifyGraph/W=$winNameStr log=1
1115	ModifyGraph/W=$winNameStr mirror=2
1116	Label/W=$winNameStr left "Intensity (1/cm)"
1117	Label/W=$winNameStr bottom "Q (1/A)"
1118	endif
1119
1120	endif
1121
1122	if(binType==4) // slit aperture binning - MT, ML, MR, MB are averaged
1123	// clear EVERYTHING
1124	ii=0
1125	do
1126	type = StringFromList(ii, midlist, ";")
1127	CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1128	if(V_flag==1)
1129	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1130	endif
1131	ii+=1
1132	while(ii<ItemsInList(midList))
1133
1134
1135
1136	SetDataFolder $(fullPathToFolder)
1137	CheckDisplayed/W=$winNameStr iBin_qxqy_ML_trim
1138
1139	if(V_flag==0)
1140	AppendToGraph/W=$winNameStr iBin_qxqy_ML_trim vs qBin_qxqy_ML_trim
1141	AppendToGraph/W=$winNameStr iBin_qxqy_MR_trim vs qBin_qxqy_MR_trim
1142	AppendToGraph/W=$winNameStr iBin_qxqy_MT_trim vs qBin_qxqy_MT_trim
1143	AppendToGraph/W=$winNameStr iBin_qxqy_MB_trim vs qBin_qxqy_MB_trim
1144	ErrorBars/T=0 iBin_qxqy_ML_trim Y,wave=(:eBin_qxqy_ML_trim,:eBin_qxqy_ML_trim)
1145	ErrorBars/T=0 iBin_qxqy_MR_trim Y,wave=(:eBin_qxqy_MR_trim,:eBin_qxqy_MR_trim)
1146	ErrorBars/T=0 iBin_qxqy_MT_trim Y,wave=(:eBin_qxqy_MT_trim,:eBin_qxqy_MT_trim)
1147	ErrorBars/T=0 iBin_qxqy_MB_trim Y,wave=(:eBin_qxqy_MB_trim,:eBin_qxqy_MB_trim)
1148
1149	ModifyGraph/W=$winNameStr mode(iBin_qxqy_ML_trim)=4
1150	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MR_trim)=4
1151	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MT_trim)=4
1152	ModifyGraph/W=$winNameStr mode(iBin_qxqy_MB_trim)=4
1153	ModifyGraph/W=$winNameStr marker(iBin_qxqy_ML_trim)=19
1154	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MR_trim)=19
1155	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MT_trim)=19
1156	ModifyGraph/W=$winNameStr marker(iBin_qxqy_MB_trim)=19
1157	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML_trim)=(65535,0,0),rgb(iBin_qxqy_MB_trim)=(1,16019,65535),rgb(iBin_qxqy_MR_trim)=(65535,0,0),rgb(iBin_qxqy_MT_trim)=(1,16019,65535)
1158	ModifyGraph/W=$winNameStr msize(iBin_qxqy_ML_trim)=3
1159	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MR_trim)=3
1160	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MT_trim)=3
1161	ModifyGraph/W=$winNameStr msize(iBin_qxqy_MB_trim)=3
1162	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML_trim)={0,4},muloffset(iBin_qxqy_MB_trim)={0,2},muloffset(iBin_qxqy_MR_trim)={0,8}
1163	ModifyGraph/W=$winNameStr grid=1
1164	ModifyGraph/W=$winNameStr log=1
1165	ModifyGraph/W=$winNameStr mirror=2
1166	endif
1167
1168	endif
1169
1170	SetDataFolder root:
1171	End
1172
1173
1174
1175
1176	//
1177	// x- need to set binType
1178	// x- currently hard-wired == 1
1179	// x- error bars on the data
1180	//
1181	Proc V_Front_IQ_Graph_trim(fullPathToFolder,binType,winNameStr)
1182	String fullPathToFolder
1183	Variable binType
1184	String winNameStr
1185
1186
1187	String frontList = "FL;FR;FT;FB;FLR;FTB;FLRTB;"
1188	String type
1189	Variable ii
1190	// binType = V_GetBinningPopMode()
1191	SetDataFolder $(fullPathToFolder)
1192
1193
1194
1195	if(binType==1)
1196	ii=0
1197	do
1198	type = StringFromList(ii, frontList, ";")
1199	CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1200	if(V_flag==1)
1201	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1202	endif
1203	ii+=1
1204	while(ii<ItemsInList(frontList))
1205
1206
1207
1208	SetDataFolder $(fullPathToFolder)
1209	CheckDisplayed/W=$winNameStr iBin_qxqy_FL_trim
1210
1211	if(V_flag==0)
1212	AppendtoGraph/W=$winNameStr iBin_qxqy_FL_trim vs qBin_qxqy_FL_trim
1213	AppendToGraph/W=$winNameStr iBin_qxqy_FR_trim vs qBin_qxqy_FR_trim
1214	AppendToGraph/W=$winNameStr iBin_qxqy_FT_trim vs qBin_qxqy_FT_trim
1215	AppendToGraph/W=$winNameStr iBin_qxqy_FB_trim vs qBin_qxqy_FB_trim
1216	ErrorBars/T=0 iBin_qxqy_FL_trim Y,wave=(:eBin_qxqy_FL_trim,:eBin_qxqy_FL_trim)
1217	ErrorBars/T=0 iBin_qxqy_FR_trim Y,wave=(:eBin_qxqy_FR_trim,:eBin_qxqy_FR_trim)
1218	ErrorBars/T=0 iBin_qxqy_FT_trim Y,wave=(:eBin_qxqy_FT_trim,:eBin_qxqy_FT_trim)
1219	ErrorBars/T=0 iBin_qxqy_FB_trim Y,wave=(:eBin_qxqy_FB_trim,:eBin_qxqy_FB_trim)
1220
1221	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FL_trim)=4
1222	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FR_trim)=4
1223	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FT_trim)=4
1224	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FB_trim)=4
1225	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FL_trim)=19
1226	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FR_trim)=19
1227	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FT_trim)=19
1228	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FB_trim)=19
1229	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL_trim)=(39321,26208,1),rgb(iBin_qxqy_FB_trim)=(2,39321,1),rgb(iBin_qxqy_FR_trim)=(39321,26208,1),rgb(iBin_qxqy_FT_trim)=(2,39321,1)
1230	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FL_trim)=3
1231	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FR_trim)=3
1232	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FT_trim)=3
1233	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FB_trim)=3
1234	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL_trim)={0,4},muloffset(iBin_qxqy_FB_trim)={0,2},muloffset(iBin_qxqy_FR_trim)={0,8}
1235	ModifyGraph/W=$winNameStr grid=1
1236	ModifyGraph/W=$winNameStr log=1
1237	ModifyGraph/W=$winNameStr mirror=2
1238	Label/W=$winNameStr left "Intensity (1/cm)"
1239	Label/W=$winNameStr bottom "Q (1/A)"
1240	endif
1241	endif
1242
1243	if(binType==2)
1244	// clear EVERYTHING
1245	ii=0
1246	do
1247	type = StringFromList(ii, frontList, ";")
1248	CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1249	if(V_flag==1)
1250	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1251	endif
1252	ii+=1
1253	while(ii<ItemsInList(frontList))
1254
1255
1256
1257	SetDataFolder $(fullPathToFolder)
1258	CheckDisplayed/W=$winNameStr iBin_qxqy_FLR_trim
1259
1260	if(V_flag==0)
1261	AppendtoGraph/W=$winNameStr iBin_qxqy_FLR_trim vs qBin_qxqy_FLR_trim
1262	AppendToGraph/W=$winNameStr iBin_qxqy_FTB_trim vs qBin_qxqy_FTB_trim
1263	ErrorBars/T=0 iBin_qxqy_FLR_trim Y,wave=(:eBin_qxqy_FLR_trim,:eBin_qxqy_FLR_trim)
1264	ErrorBars/T=0 iBin_qxqy_FTB_trim Y,wave=(:eBin_qxqy_FTB_trim,:eBin_qxqy_FTB_trim)
1265
1266	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FLR_trim)=4
1267	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FTB_trim)=4
1268	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FLR_trim)=19
1269	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FTB_trim)=19
1270	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR_trim)=(39321,26208,1),rgb(iBin_qxqy_FTB_trim)=(2,39321,1)
1271	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FLR_trim)=3
1272	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FTB_trim)=3
1273	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR_trim)={0,2}
1274	ModifyGraph/W=$winNameStr grid=1
1275	ModifyGraph/W=$winNameStr log=1
1276	ModifyGraph/W=$winNameStr mirror=2
1277	// Label/W=$winNameStr left "Intensity (1/cm)"
1278	// Label/W=$winNameStr bottom "Q (1/A)"
1279	endif
1280
1281	endif
1282
1283	if(binType==3)
1284	// clear EVERYTHING
1285	ii=0
1286	do
1287	type = StringFromList(ii, frontList, ";")
1288	CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1289	if(V_flag==1)
1290	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1291	endif
1292	ii+=1
1293	while(ii<ItemsInList(frontList))
1294
1295
1296
1297	SetDataFolder $(fullPathToFolder)
1298	CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB_trim
1299
1300	if(V_flag==0)
1301	AppendtoGraph/W=$winNameStr iBin_qxqy_FLRTB_trim vs qBin_qxqy_FLRTB_trim
1302	ErrorBars/T=0 iBin_qxqy_FLRTB_trim Y,wave=(:eBin_qxqy_FLRTB_trim,:eBin_qxqy_FLRTB_trim)
1303
1304	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FLRTB_trim)=4
1305	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FLRTB_trim)=19
1306	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLRTB_trim)=(39321,26208,1)
1307	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FLRTB_trim)=3
1308	ModifyGraph/W=$winNameStr grid=1
1309	ModifyGraph/W=$winNameStr log=1
1310	ModifyGraph/W=$winNameStr mirror=2
1311	Label/W=$winNameStr left "Intensity (1/cm)"
1312	Label/W=$winNameStr bottom "Q (1/A)"
1313	endif
1314
1315	endif
1316
1317	if(binType==4) // slit aperture binning - MT, ML, MR, MB are averaged
1318	// clear EVERYTHING
1319	ii=0
1320	do
1321	type = StringFromList(ii, frontList, ";")
1322	CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1323	if(V_flag==1)
1324	RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim")
1325	endif
1326	ii+=1
1327	while(ii<ItemsInList(frontList))
1328
1329
1330
1331	SetDataFolder $(fullPathToFolder)
1332	CheckDisplayed/W=$winNameStr iBin_qxqy_FL_trim
1333
1334	if(V_flag==0)
1335	AppendtoGraph/W=$winNameStr iBin_qxqy_FL_trim vs qBin_qxqy_FL_trim
1336	AppendToGraph/W=$winNameStr iBin_qxqy_FR_trim vs qBin_qxqy_FR_trim
1337	AppendToGraph/W=$winNameStr iBin_qxqy_FT_trim vs qBin_qxqy_FT_trim
1338	AppendToGraph/W=$winNameStr iBin_qxqy_FB_trim vs qBin_qxqy_FB_trim
1339	ErrorBars/T=0 iBin_qxqy_FL_trim Y,wave=(:eBin_qxqy_FL_trim,:eBin_qxqy_FL_trim)
1340	ErrorBars/T=0 iBin_qxqy_FR_trim Y,wave=(:eBin_qxqy_FR_trim,:eBin_qxqy_FR_trim)
1341	ErrorBars/T=0 iBin_qxqy_FT_trim Y,wave=(:eBin_qxqy_FT_trim,:eBin_qxqy_FT_trim)
1342	ErrorBars/T=0 iBin_qxqy_FB_trim Y,wave=(:eBin_qxqy_FB_trim,:eBin_qxqy_FB_trim)
1343
1344	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FL_trim)=4
1345	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FR_trim)=4
1346	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FT_trim)=4
1347	ModifyGraph/W=$winNameStr mode(iBin_qxqy_FB_trim)=4
1348	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FL_trim)=19
1349	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FR_trim)=19
1350	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FT_trim)=19
1351	ModifyGraph/W=$winNameStr marker(iBin_qxqy_FB_trim)=19
1352	ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL_trim)=(39321,26208,1),rgb(iBin_qxqy_FB_trim)=(2,39321,1),rgb(iBin_qxqy_FR_trim)=(39321,26208,1),rgb(iBin_qxqy_FT_trim)=(2,39321,1)
1353	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FL_trim)=3
1354	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FR_trim)=3
1355	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FT_trim)=3
1356	ModifyGraph/W=$winNameStr msize(iBin_qxqy_FB_trim)=3
1357	ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL_trim)={0,4},muloffset(iBin_qxqy_FB_trim)={0,2},muloffset(iBin_qxqy_FR_trim)={0,8}
1358	ModifyGraph/W=$winNameStr grid=1
1359	ModifyGraph/W=$winNameStr log=1
1360	ModifyGraph/W=$winNameStr mirror=2
1361	endif
1362
1363	endif
1364
1365	SetDataFolder root:
1366	End
1367

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format