source: sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DataPlotting.ipf @ 1042

Last change on this file since 1042 was 1042, checked in by srkline, 6 years ago

moved dead time correction to before the solid angle correction, so that the dead time would be correcting counts, not counts per solid angle

added a routine to kill all of the waves and folders possible, if the overall DF kill failed. This is to prevent stray folders and waves from being present if different data files are loaded - since different data blocks are present for say, 3He data, data with temperature logging, etc.
This kill routine is used every time, before raw data is loaded, DIV or MASK loaded, or data is converted to WORK.

changed the "Save I(q)" button on the data display panel to save as ITX format, since the data has not been processed, and data can more easily be used for trimming input.

picking protocols in dialogs now excludes/includes appropriate waves

menus are consolidated

Fixed bug in SANS macros where the DRK[] item in the protocol could be null, and force the read of a DRK file, even if it was not desired.

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//
43Function 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       
109End
110
111// TODO
112// -- winStr is currently hard-wired, but this may not be an issue
113Function V_Update1D_Graph(workType,binType)
114        String workType
115        Variable binType
116       
117        // TODO:
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)
131end
132
133Function 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
148End
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 = ew*abs(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 = ew*abs(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.5*ew*yw^(-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(xw*xw*yw)
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
390Function V_AllQ_Plot_1D_ButtonProc(ctrlName) : ButtonControl
391        String ctrlName
392       
393        SetAxis/A
394End
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//
403Function 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(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)       
423End
424
425Function 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)
438end
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// TODO
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//
453Proc 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:
614End
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// TODO
623// x- need to set binType
624// x- currently  hard-wired == 1
625// x- error bars on the data
626//
627Proc 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:
806End
807
808
809// TODO
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)
820Proc 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:
891End
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)
901Proc 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:
980End
981
982
983// TODO
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//
990Proc 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:
1171End
1172
1173
1174
1175
1176// TODO
1177// x- need to set binType
1178// x- currently  hard-wired == 1
1179// x- error bars on the data
1180//
1181Proc 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:
1366End
1367
Note: See TracBrowser for help on using the repository browser.