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

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

many additions.

Moved unused igor/nexus testing files to Vx_ prefix since they're garbage. Pulled out the useful bits for mask and div R/W and moved those to theire appropriate procedures.

Testing the simple correction of data, only tested basic subtraction. All of it still needs to be verified since I don't have any real header numbers and units yet.

Adjusted the columns on the file catalog to be more appropriate, and added a hook to allow loading of raw data files directly from the table and a popup contextual menu. May add more functionality to it later.

Corrected how the 1D data is plotted so that it correctly uses the binning type. I(q) save now also uses the binning as specified.

File size: 16.5 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.
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// -- decide what to add to the control bar
23// -- at the very least, add a log/lin toggle for the axes
24//
25// -- document, document, document
26//
27// -- see Middle_IQ_Graph() and similar for how VCALC does this plot
28//
29// -- when/if I want to add phi-averaging to this, go gack to AvgGraphics.ipf for the pink panel
30//    and to the function Draw_Plot1D() for the drawing of the plot
31//
32Function V_PlotData_Panel()
33
34
35        DoWindow/F V_1D_Data
36        if(V_flag==0)
37       
38                Display /W=(277,526,748,938)/N=V_1D_Data/K=1
39//              Display /W=(476,96,850,429)/N=V_1D_Data/K=1
40                ControlBar 70
41               
42                PopupMenu popup0,pos={16,5},size={71,20},title="Bin Type"
43                PopupMenu popup0,help={"This popup selects how the y-axis will be linearized based on the chosen data"}
44                PopupMenu popup0,value= "One;Two;Four;Slit Mode;"
45                PopupMenu popup0,mode=1,proc=V_BinningModePopup
46//              PopupMenu ymodel,pos={16,5},size={71,20},title="y-axis"
47//              PopupMenu ymodel,help={"This popup selects how the y-axis will be linearized based on the chosen data"}
48//              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)\""
49//              PopupMenu ymodel,mode=NumVarOrDefault("root:myGlobals:Plot_1d:gYMode", 1 ),proc=YMode_PopMenuProc
50//              PopupMenu xmodel,pos={150,5},size={74,20},title="x-axis"
51//              PopupMenu xmodel,help={"This popup selects how the x-axis will be linearized given the chosen data"}
52//              PopupMenu xmodel,value= #"\"q;log(q);q^2;q^c\""
53//              PopupMenu xmodel,mode=NumVarOrDefault("root:myGlobals:Plot_1d:gXMode", 1 ),proc=XMode_PopMenuProc
54//              Button Rescale,pos={281,4},size={70,20},proc=Rescale_Plot_1D_ButtonProc,title="Rescale"
55//              Button Rescale,help={"Rescale the x and y-axes of the data"},disable=1
56
57//              SetVariable expa,pos={28,28},size={80,15},title="pow \"a\""
58//              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"}
59//              SetVariable expa,limits={-2,10,0},value= root:myGlobals:Plot_1d:gExpA
60//              SetVariable expb,pos={27,46},size={80,15},title="pow \"b\""
61//              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"}
62//              SetVariable expb,limits={0,10,0},value= root:myGlobals:Plot_1d:gExpB
63//
64//              SetVariable expc,pos={167,28},size={80,15},title="pow \"c\""
65//              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"}
66//              SetVariable expc,limits={-10,10,0},value= root:myGlobals:Plot_1d:gExpC
67               
68                Button AllQ,pos={281,28},size={70,20},proc=V_AllQ_Plot_1D_ButtonProc,title="All Q"
69                Button AllQ,help={"Show the full q-range of the dataset"}
70               
71        endif
72               
73       
74        SVAR type = root:Packages:NIST:VSANS:Globals:gCurDispType
75
76        V_QBinAllPanels(type)
77
78// TODO:
79// x- "B" detector is currently skipped - Q is not yet calculated
80        Execute ("V_Back_IQ_Graph(\""+type+"\")")
81        Execute ("V_Middle_IQ_Graph(\""+type+"\")")
82        Execute ("V_Front_IQ_Graph(\""+type+"\")")
83       
84       
85End
86
87//function to restore the graph axes to full scale, undoing any zooming
88Function V_AllQ_Plot_1D_ButtonProc(ctrlName) : ButtonControl
89        String ctrlName
90       
91        SetAxis/A
92End
93
94
95//
96// recalculate the I(q) binning. no need to adjust model function or views
97// just rebin
98//
99Function V_BinningModePopup(ctrlName,popNum,popStr) : PopupMenuControl
100        String ctrlName
101        Variable popNum // which item is currently selected (1-based)
102        String popStr           // contents of current popup item as string
103
104        SVAR type = root:Packages:NIST:VSANS:Globals:gCurDispType
105
106        V_QBinAllPanels(type)
107
108        Execute ("V_Back_IQ_Graph(\""+type+"\")")
109        Execute ("V_Middle_IQ_Graph(\""+type+"\")")
110        Execute ("V_Front_IQ_Graph(\""+type+"\")")
111       
112        return(0)       
113End
114
115Function V_GetBinningPopMode()
116
117        Variable binType
118        ControlInfo/W=V_1D_Data popup0
119        strswitch(S_Value)      // string switch
120                case "One":
121                        binType = 1
122                        break           // exit from switch
123                case "Two":
124                        binType = 2
125                        break           // exit from switch
126                case "Four":
127                        binType = 3
128                        break           // exit from switch
129                case "Slit Mode":
130                        binType = 4
131                        break           // exit from switch
132
133                default:                        // optional default expression executed
134                        binType = 0
135                        Abort "Binning mode not found in        V_QBinAllPanels() "// when no case matches
136        endswitch
137       
138        return(binType)
139end
140
141//
142// duplicated from Middle_IQ_Graph from VCALC
143// but plotted in a standalone graph window and not the VCALC subwindow
144//
145// V_1D_Data
146//
147// TODO
148// x- need to set binType
149// x- currently  hard-wired == 1
150//
151// input "type" is the data type and defines the folder
152//
153Proc V_Middle_IQ_Graph(type)
154        String type
155
156        Variable binType
157
158        binType = V_GetBinningPopMode()
159        SetDataFolder $("root:Packages:NIST:VSANS:"+type)
160
161// clear EVERYTHING
162//              ClearAllIQIfDisplayed("MLRTB")
163//              ClearAllIQIfDisplayed("MLR")
164//              ClearAllIQIfDisplayed("MTB")            //this returns to root:
165//              ClearAllIQIfDisplayed("MT")     
166//              ClearAllIQIfDisplayed("ML")     
167//              ClearAllIQIfDisplayed("MR")     
168//              ClearAllIQIfDisplayed("MB")     
169
170        if(binType==1)
171                ClearAllIQIfDisplayed("MLRTB")
172                ClearAllIQIfDisplayed("MLR")
173                ClearAllIQIfDisplayed("MTB")            //this returns to root:
174                ClearAllIQIfDisplayed("MT")     
175                ClearAllIQIfDisplayed("ML")     
176                ClearAllIQIfDisplayed("MR")     
177                ClearAllIQIfDisplayed("MB")                     
178                SetDataFolder $("root:Packages:NIST:VSANS:"+type)
179                CheckDisplayed/W=V_1D_Data iBin_qxqy_ML
180               
181                if(V_flag==0)
182                        AppendtoGraph/W=V_1D_Data iBin_qxqy_ML vs qBin_qxqy_ML
183                        AppendToGraph/W=V_1D_Data iBin_qxqy_MR vs qBin_qxqy_MR
184                        AppendToGraph/W=V_1D_Data iBin_qxqy_MT vs qBin_qxqy_MT
185                        AppendToGraph/W=V_1D_Data iBin_qxqy_MB vs qBin_qxqy_MB
186                        ModifyGraph/W=V_1D_Data mode=4
187                        ModifyGraph/W=V_1D_Data marker=19
188                        ModifyGraph/W=V_1D_Data 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)
189                        ModifyGraph/W=V_1D_Data msize=2
190                        ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8}
191                        ModifyGraph/W=V_1D_Data grid=1
192                        ModifyGraph/W=V_1D_Data log=1
193                        ModifyGraph/W=V_1D_Data mirror=2
194                endif           
195        endif
196       
197        if(binType==2)
198// clear EVERYTHING
199                ClearAllIQIfDisplayed("MLRTB")
200                ClearAllIQIfDisplayed("MLR")
201                ClearAllIQIfDisplayed("MTB")            //this returns to root:
202                ClearAllIQIfDisplayed("MT")     
203                ClearAllIQIfDisplayed("ML")     
204                ClearAllIQIfDisplayed("MR")     
205                ClearAllIQIfDisplayed("MB")             
206       
207//              ClearAllIQIfDisplayed("MLRTB")
208//              ClearAllIQIfDisplayed("MT")     
209//              ClearAllIQIfDisplayed("ML")     
210//              ClearAllIQIfDisplayed("MR")     
211//              ClearAllIQIfDisplayed("MB")
212       
213
214                SetDataFolder $("root:Packages:NIST:VSANS:"+type)
215                CheckDisplayed/W=V_1D_Data iBin_qxqy_MLR
216               
217                if(V_flag==0)
218                        AppendtoGraph/W=V_1D_Data iBin_qxqy_MLR vs qBin_qxqy_MLR
219                        AppendToGraph/W=V_1D_Data iBin_qxqy_MTB vs qBin_qxqy_MTB
220                        ModifyGraph/W=V_1D_Data mode=4
221                        ModifyGraph/W=V_1D_Data marker=19
222                        ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_MLR)=(65535,0,0),rgb(iBin_qxqy_MTB)=(1,16019,65535)
223                        ModifyGraph/W=V_1D_Data msize=2
224                        ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_MLR)={0,2}
225                        ModifyGraph/W=V_1D_Data grid=1
226                        ModifyGraph/W=V_1D_Data log=1
227                        ModifyGraph/W=V_1D_Data mirror=2
228                        Label/W=V_1D_Data left "Intensity (1/cm)"
229                        Label/W=V_1D_Data bottom "Q (1/A)"
230                endif   
231                       
232        endif
233       
234        if(binType==3)
235// clear EVERYTHING
236                ClearAllIQIfDisplayed("MLRTB")
237                ClearAllIQIfDisplayed("MLR")
238                ClearAllIQIfDisplayed("MTB")            //this returns to root:
239                ClearAllIQIfDisplayed("MT")     
240                ClearAllIQIfDisplayed("ML")     
241                ClearAllIQIfDisplayed("MR")     
242                ClearAllIQIfDisplayed("MB")             
243       
244//              ClearAllIQIfDisplayed("MLR")
245//              ClearAllIQIfDisplayed("MTB")   
246//              ClearAllIQIfDisplayed("MT")     
247//              ClearAllIQIfDisplayed("ML")     
248//              ClearAllIQIfDisplayed("MR")     
249//              ClearAllIQIfDisplayed("MB")     
250       
251                SetDataFolder $("root:Packages:NIST:VSANS:"+type)
252                CheckDisplayed/W=V_1D_Data iBin_qxqy_MLRTB
253               
254                if(V_flag==0)
255                        AppendtoGraph/W=V_1D_Data iBin_qxqy_MLRTB vs qBin_qxqy_MLRTB
256                        ModifyGraph/W=V_1D_Data mode=4
257                        ModifyGraph/W=V_1D_Data marker=19
258                        ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_MLRTB)=(65535,0,0)
259                        ModifyGraph/W=V_1D_Data msize=2
260                        ModifyGraph/W=V_1D_Data grid=1
261                        ModifyGraph/W=V_1D_Data log=1
262                        ModifyGraph/W=V_1D_Data mirror=2
263                        Label/W=V_1D_Data left "Intensity (1/cm)"
264                        Label/W=V_1D_Data bottom "Q (1/A)"
265                endif   
266                       
267        endif
268
269        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged
270// clear EVERYTHING
271                ClearAllIQIfDisplayed("MLRTB")
272                ClearAllIQIfDisplayed("MLR")
273                ClearAllIQIfDisplayed("MTB")            //this returns to root:
274                ClearAllIQIfDisplayed("MT")     
275                ClearAllIQIfDisplayed("ML")     
276                ClearAllIQIfDisplayed("MR")     
277                ClearAllIQIfDisplayed("MB")             
278       
279       
280//              ClearAllIQIfDisplayed("MLRTB")
281//              ClearAllIQIfDisplayed("MLR")
282//              ClearAllIQIfDisplayed("MTB")
283               
284                SetDataFolder $("root:Packages:NIST:VSANS:"+type)
285                CheckDisplayed/W=V_1D_Data iBin_qxqy_ML
286               
287                if(V_flag==0)
288                        AppendToGraph/W=V_1D_Data iBin_qxqy_ML vs qBin_qxqy_ML
289                        AppendToGraph/W=V_1D_Data iBin_qxqy_MR vs qBin_qxqy_MR
290                        AppendToGraph/W=V_1D_Data iBin_qxqy_MT vs qBin_qxqy_MT
291                        AppendToGraph/W=V_1D_Data iBin_qxqy_MB vs qBin_qxqy_MB
292                        ModifyGraph/W=V_1D_Data mode=4
293                        ModifyGraph/W=V_1D_Data marker=19
294                        ModifyGraph/W=V_1D_Data 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)
295                        ModifyGraph/W=V_1D_Data msize=2
296                        ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8}
297                        ModifyGraph/W=V_1D_Data grid=1
298                        ModifyGraph/W=V_1D_Data log=1
299                        ModifyGraph/W=V_1D_Data mirror=2
300                endif           
301                       
302        endif
303       
304        SetDataFolder root:
305End
306
307//
308// duplicated from Middle_IQ_Graph from VCALC
309// but plotted in a standalone graph window and not the VCALC subwindow
310//
311// V_1D_Data
312//
313// TODO
314// x- need to set binType
315// x- currently  hard-wired == 1
316//
317//
318Proc V_Front_IQ_Graph(type)
319        String type
320
321        Variable binType
322
323
324        binType = V_GetBinningPopMode()
325        SetDataFolder $("root:Packages:NIST:VSANS:"+type)
326
327// clear EVERYTHING
328//              ClearAllIQIfDisplayed("FLRTB")
329//             
330//              ClearAllIQIfDisplayed("FLR")
331//              ClearAllIQIfDisplayed("FTB")
332//
333//              ClearAllIQIfDisplayed("FT")     
334//              ClearAllIQIfDisplayed("FL")     
335//              ClearAllIQIfDisplayed("FR")     
336//              ClearAllIQIfDisplayed("FB")
337               
338        if(binType==1)
339                ClearAllIQIfDisplayed("FLRTB")
340               
341                ClearAllIQIfDisplayed("FLR")
342                ClearAllIQIfDisplayed("FTB")
343
344                ClearAllIQIfDisplayed("FT")     
345                ClearAllIQIfDisplayed("FL")     
346                ClearAllIQIfDisplayed("FR")     
347                ClearAllIQIfDisplayed("FB")
348                               
349                SetDataFolder $("root:Packages:NIST:VSANS:"+type)
350                CheckDisplayed/W=V_1D_Data iBin_qxqy_FL
351               
352                if(V_flag==0)
353                        AppendtoGraph/W=V_1D_Data iBin_qxqy_FL vs qBin_qxqy_FL
354                        AppendToGraph/W=V_1D_Data iBin_qxqy_FR vs qBin_qxqy_FR
355                        AppendToGraph/W=V_1D_Data iBin_qxqy_FT vs qBin_qxqy_FT
356                        AppendToGraph/W=V_1D_Data iBin_qxqy_FB vs qBin_qxqy_FB
357                        ModifyGraph/W=V_1D_Data mode=4
358                        ModifyGraph/W=V_1D_Data marker=19
359                        ModifyGraph/W=V_1D_Data 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)
360                        ModifyGraph/W=V_1D_Data msize=2
361                        ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8}
362                        ModifyGraph/W=V_1D_Data grid=1
363                        ModifyGraph/W=V_1D_Data log=1
364                        ModifyGraph/W=V_1D_Data mirror=2
365                endif           
366        endif
367       
368        if(binType==2)
369        // clear EVERYTHING
370                ClearAllIQIfDisplayed("FLRTB")
371               
372                ClearAllIQIfDisplayed("FLR")
373                ClearAllIQIfDisplayed("FTB")
374
375                ClearAllIQIfDisplayed("FT")     
376                ClearAllIQIfDisplayed("FL")     
377                ClearAllIQIfDisplayed("FR")     
378                ClearAllIQIfDisplayed("FB")
379//              ClearAllIQIfDisplayed("FLRTB")
380//              ClearAllIQIfDisplayed("FT")     
381//              ClearAllIQIfDisplayed("FL")     
382//              ClearAllIQIfDisplayed("FR")     
383//              ClearAllIQIfDisplayed("FB")     
384
385                SetDataFolder $("root:Packages:NIST:VSANS:"+type)
386                CheckDisplayed/W=V_1D_Data iBin_qxqy_FLR
387               
388                if(V_flag==0)
389                        AppendtoGraph/W=V_1D_Data iBin_qxqy_FLR vs qBin_qxqy_FLR
390                        AppendToGraph/W=V_1D_Data iBin_qxqy_FTB vs qBin_qxqy_FTB
391                        ModifyGraph/W=V_1D_Data mode=4
392                        ModifyGraph/W=V_1D_Data marker=19
393                        ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1)
394                        ModifyGraph/W=V_1D_Data msize=2
395                        ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FLR)={0,2}
396                        ModifyGraph/W=V_1D_Data grid=1
397                        ModifyGraph/W=V_1D_Data log=1
398                        ModifyGraph/W=V_1D_Data mirror=2
399                        Label/W=V_1D_Data left "Intensity (1/cm)"
400                        Label/W=V_1D_Data bottom "Q (1/A)"
401                endif   
402                       
403        endif
404       
405        if(binType==3)
406// clear EVERYTHING
407                ClearAllIQIfDisplayed("FLRTB")
408               
409                ClearAllIQIfDisplayed("FLR")
410                ClearAllIQIfDisplayed("FTB")
411
412                ClearAllIQIfDisplayed("FT")     
413                ClearAllIQIfDisplayed("FL")     
414                ClearAllIQIfDisplayed("FR")     
415                ClearAllIQIfDisplayed("FB")     
416       
417//              ClearAllIQIfDisplayed("FLR")
418//              ClearAllIQIfDisplayed("FTB")   
419//              ClearAllIQIfDisplayed("FT")     
420//              ClearAllIQIfDisplayed("FL")     
421//              ClearAllIQIfDisplayed("FR")     
422//              ClearAllIQIfDisplayed("FB")     
423       
424                SetDataFolder $("root:Packages:NIST:VSANS:"+type)
425                CheckDisplayed/W=V_1D_Data iBin_qxqy_FLRTB
426               
427                if(V_flag==0)
428                        AppendtoGraph/W=V_1D_Data iBin_qxqy_FLRTB vs qBin_qxqy_FLRTB
429                        ModifyGraph/W=V_1D_Data mode=4
430                        ModifyGraph/W=V_1D_Data marker=19
431                        ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_FLRTB)=(39321,26208,1)
432                        ModifyGraph/W=V_1D_Data msize=2
433                        ModifyGraph/W=V_1D_Data grid=1
434                        ModifyGraph/W=V_1D_Data log=1
435                        ModifyGraph/W=V_1D_Data mirror=2
436                        Label/W=V_1D_Data left "Intensity (1/cm)"
437                        Label/W=V_1D_Data bottom "Q (1/A)"
438                endif   
439                       
440        endif
441
442        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged
443// clear EVERYTHING
444                ClearAllIQIfDisplayed("FLRTB")
445               
446                ClearAllIQIfDisplayed("FLR")
447                ClearAllIQIfDisplayed("FTB")
448
449                ClearAllIQIfDisplayed("FT")     
450                ClearAllIQIfDisplayed("FL")     
451                ClearAllIQIfDisplayed("FR")     
452                ClearAllIQIfDisplayed("FB")     
453       
454       
455//              ClearAllIQIfDisplayed("FLRTB")
456//              ClearAllIQIfDisplayed("FLR")
457//              ClearAllIQIfDisplayed("FTB")
458               
459                SetDataFolder $("root:Packages:NIST:VSANS:"+type)
460                CheckDisplayed/W=V_1D_Data iBin_qxqy_FL
461               
462                if(V_flag==0)
463                        AppendtoGraph/W=V_1D_Data iBin_qxqy_FL vs qBin_qxqy_FL
464                        AppendToGraph/W=V_1D_Data iBin_qxqy_FR vs qBin_qxqy_FR
465                        AppendToGraph/W=V_1D_Data iBin_qxqy_FT vs qBin_qxqy_FT
466                        AppendToGraph/W=V_1D_Data iBin_qxqy_FB vs qBin_qxqy_FB
467                        ModifyGraph/W=V_1D_Data mode=4
468                        ModifyGraph/W=V_1D_Data marker=19
469                        ModifyGraph/W=V_1D_Data 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)
470                        ModifyGraph/W=V_1D_Data msize=2
471                        ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8}
472                        ModifyGraph/W=V_1D_Data grid=1
473                        ModifyGraph/W=V_1D_Data log=1
474                        ModifyGraph/W=V_1D_Data mirror=2
475                endif           
476                       
477        endif
478       
479        SetDataFolder root:
480End
481
482
483// TODO
484// x- need to set binType
485// x- currently  hard-wired == 1
486//
487////////////to plot the back panel I(q)
488Proc V_Back_IQ_Graph(type)
489        String type
490       
491//      SetDataFolder root:Packages:NIST:VSANS:VCALC:entry:instrument:detector_B
492
493        Variable binType
494
495        binType = V_GetBinningPopMode()
496       
497        SetDataFolder $("root:Packages:NIST:VSANS:"+type)       
498
499        if(binType==1 || binType==2 || binType==3)
500       
501                ClearAllIQIfDisplayed("B")
502                SetDataFolder $("root:Packages:NIST:VSANS:"+type)       
503                CheckDisplayed/W=V_1D_Data iBin_qxqy_B
504               
505                if(V_flag==0)
506                        AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B
507                        ModifyGraph/W=V_1D_Data mode=4
508                        ModifyGraph/W=V_1D_Data marker=19
509                        ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428)
510                        ModifyGraph/W=V_1D_Data msize=2
511                        ModifyGraph/W=V_1D_Data grid=1
512                        ModifyGraph/W=V_1D_Data log=1
513                        ModifyGraph/W=V_1D_Data mirror=2
514                endif
515        endif
516
517        //nothing different here since there is ony a single detector to display, but for the future...
518        if(binType==4)
519       
520                ClearAllIQIfDisplayed("B")
521                SetDataFolder $("root:Packages:NIST:VSANS:"+type)       
522                CheckDisplayed/W=V_1D_Data iBin_qxqy_B
523               
524                if(V_flag==0)
525                        AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B
526                        ModifyGraph/W=V_1D_Data mode=4
527                        ModifyGraph/W=V_1D_Data marker=19
528                        ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428)
529                        ModifyGraph/W=V_1D_Data msize=2
530                        ModifyGraph/W=V_1D_Data grid=1
531                        ModifyGraph/W=V_1D_Data log=1
532                        ModifyGraph/W=V_1D_Data mirror=2
533                endif
534        endif
535
536       
537        SetDataFolder root:
538End
539
Note: See TracBrowser for help on using the repository browser.