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

Last change on this file since 1070 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//
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//
112// x- 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        //
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_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)       
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//
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//
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//
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//
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//
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.