Changeset 800 for sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker/FFT_KR_Parser.ipf

Timestamp:

May 4, 2011 9:47:33 AM (12 years ago)

Author:

srkline

Message:

Changed the 2D resolution calculation to include gravity. This seems to work, but will still require some testing. It requires no modifications to the smearing calculation, still using parallel and perpendicular directions.

Added a Fake Update feature to the RealTime? update. There are specific, separate instructions for how to set this up. Usef (possibly) for summer schools or demos.

Adjusted the 2D MonteCarlo? simulation to a corrected beam center. The Gauss Peak was not symmetric around the old beam center.

Corrected the AAO resolution smearing functions to work with cursors.

File:

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker/FFT_KR_Parser.ipf (modified) (2 diffs)

sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker/FFT_KR_Parser.ipf

@@ -383 +383 @@
         Variable/G root:KR_Npt = 100
 
+        FFT_MakeMatrixButtonProc("")
+
         NewPanel /W=(241,44,1169,458)/N=MultiCyl/K=1 as "Multi-Cylinder"
         ModifyPanel cbRGB=(49825,57306,65535)
 
-        Button button_0,pos={45,79},size={100,20},proc=KR_Show3DButtonProc,title="Show 3D"
+        Button button_0,pos={45,80},size={100,20},proc=KR_Show3DButtonProc,title="Show 3D"
         Button button_1,pos={46,51},size={100,20},proc=KR_Plot1DButtonProc,title="Plot 1D"
         Button button_2,pos={178,80},size={120,20},proc=KR_DoCalcButtonProc,title="Do Calculation"
+        Button button_3,pos={600,50},size={120,20},proc=KR_DeleteRow,title="Delete Row(s)"
         ValDisplay valdisp_0,pos={339,16},size={80,13},title="FFT_T"
         ValDisplay valdisp_0,limits={0,0,0},barmisc={0,1000},value= #"root:FFT_T"
@@ -433 +436 @@
                         endif
         
+                        break
+        endswitch
+
+        return 0
+End
+
+Function KR_DeleteRow(ba) : ButtonControl
+        STRUCT WMButtonAction &ba
+
+        switch( ba.eventCode )
+                case 2: // mouse up
+                        
+                        GetSelection table, MultiCyl#T0,3
+//                      Print V_flag, V_startRow, V_startCol, V_endRow, V_endCol
+                        DoAlert 1, "Do want to delete rows "+num2Str(V_StartRow)+" through "+num2str(V_endRow)+" ?"
+                        if(V_flag==1)                   
+                                DeletePoints V_StartRow,(V_endRow-V_StartRow+1),xx,yy,zz,rri,hti,sbp,rotx,roty,sld
+                        endif
+                        
                         break
         endswitch