Changeset 47 for sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/Transmission.ipf

Timestamp:

Feb 6, 2007 3:58:38 PM (16 years ago)

Author:

srkline

Message:

bug fixes and performance tweaks

File:

• sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/Transmission.ipf (modified) (5 diffs)

sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/Transmission.ipf

@@ -622 +622 @@
 //also writes a trans=1 value back to the sample file
 //
-Function fClearSelectedAssignments(startRow,endRow)
-        Variable startRow,endRow
-
-//      GetSelection table,ScatterFileTable,1
+// DEC 2006 - now also writes blank suffix to clear trans->empty assignment, and Twhole=1
+//
+// target = 1 = ScatterFileTable
+// target = 2 = TransFileTable
+Function fClearSelectedAssignments(startRow,endRow,target)
+        Variable startRow,endRow,target
         
         Wave/T S_TRANS_Filenames = $"root:myGlobals:TransHeaderInfo:S_TRANS_Filenames"
@@ -632 +634 @@
         Wave/T S_GSuffix = $"root:myGlobals:TransHeaderInfo:S_Suffix"
         Wave S_GTransmission =  $"root:myGlobals:TransHeaderInfo:S_Transmission"
+        Wave/T T_EMP_Filenames = $"root:myGlobals:TransHeaderInfo:T_EMP_Filenames"
+        Wave/T T_GFilenames = $"root:myGlobals:TransHeaderInfo:T_Filenames"
+        Wave/T T_GSuffix = $"root:myGlobals:TransHeaderInfo:T_Suffix"
+        Wave T_GTransmission =  $"root:myGlobals:TransHeaderInfo:T_Transmission"
+        Wave T_GTWhole =  $"root:myGlobals:TransHeaderInfo:T_Whole"
+        
         
         Variable num_s_files, num_t_files, ii, jj
-        Variable refnum
+        Variable refnum,zero=0
         num_t_files = numpnts(T_GFilenames)
         String suffix = "    "          //4 blank spaces
@@ -641 +649 @@
         String filename
 
-// don't do anything with the trans file -> empty beam file correspondence
-
+// If the selection is from the TransFileTable
+// - wipe out the box coordinates
+// - wipe out the suffix
+// - wipe out the transmission
+// - wipe out T_whole 
+// - update the waves in the table
+
+        if(target == 2)
+                ii= startRow
+                do
+                        filename = pathname + T_GFilenames[ii]
+                        
+                        // write in zeros for the box coordinates
+                        Open/A/T="????TEXT" refnum as filename
+                        FSetPos refnum,478
+                        FBinWrite/F=3/B=3 refNum, zero
+                        FBinWrite/F=3/B=3 refNum, zero
+                        FBinWrite/F=3/B=3 refNum, zero
+                        FBinWrite/F=3/B=3 refNum, zero
+                        FStatus refnum                                  //move to the end of the file before closing
+                        FSetPos refnum,V_logEOF
+                        Close refnum
+        
+                        // write in a null suffix
+                        Open/A/T="????TEXT" refnum as filename
+                        FSetPos refnum,404                      //suffix start byte is 404
+                        FBinWrite refnum, suffix
+                        FStatus refnum
+                        FSetPos refnum,V_logEOF
+                        Close refnum
+                        
+                        //write a trans==1 to the file header of the raw data (open/close done in function)
+                        ReWriteReal(filename,1,158)             //transmission start byte is 158
+                        ReWriteReal(filename,1,392)             //WholeTrans start byte is 392
+                        
+                        //then update the table that is displayed
+                        T_EMP_Filenames[ii] = ""
+                        T_GTransmission[ii] = 1
+                        T_GTWhole[ii] = 1
+                        
+                        ii+=1
+                while(ii<=endRow)
+        endif
+        
 //      // Write suffix of empty beam file into transmission files
 //      ii= 0
@@ -666 +716 @@
 //      while(ii<num_t_files)
  
-        // Write null suffix of transmission files into scattering files
-        ii= startRow
-        do
-                filename = pathname + S_GFilenames[ii]
-                Open/A/T="????TEXT" refnum as filename
-                //FSetPos refnum,91             //wrong position
-                FSetPos refnum,404
-                FBinWrite refnum, suffix
-                FStatus refnum
-                FSetPos refnum,V_logEOF
-                Close refnum
-                
-                //write a trans==1 to the file header of the raw data (open/close done in function)
-                ReWriteReal(filename,1,158)             //transmission start byte is 158
-                
-                //then update the table that is displayed
-                S_TRANS_Filenames[ii] = ""
-                S_GTransmission[ii] = 1
-                
-                ii+=1
-        while(ii<=endRow)
+        if(target == 1)
+                // Write null suffix of transmission files into scattering files
+                ii= startRow
+                do
+                        filename = pathname + S_GFilenames[ii]
+                        Open/A/T="????TEXT" refnum as filename
+                        //FSetPos refnum,91             //wrong position
+                        FSetPos refnum,404
+                        FBinWrite refnum, suffix
+                        FStatus refnum
+                        FSetPos refnum,V_logEOF
+                        Close refnum
+                        
+                        //write a trans==1 to the file header of the raw data (open/close done in function)
+                        ReWriteReal(filename,1,158)             //transmission start byte is 158
+                        
+                        //then update the table that is displayed
+                        S_TRANS_Filenames[ii] = ""
+                        S_GTransmission[ii] = 1
+                        
+                        ii+=1
+                while(ii<=endRow)
+        endif
+        
         return(0)
 End
@@ -2134 +2187 @@
 Function ClearSelectedAssignments()
         
-        Variable ii
-        Variable scatterTableExists
-        scatterTableExists = WinType("ScatterFileTable")
-        if (scatterTableExists != 0)
+        String winStr = WinList("*", ";", "WIN:" )              //returns the target window
+        Variable scatterTableExists, transTableExists
+        Print winStr
+        scatterTableExists = cmpstr(winStr,"ScatterFileTable;")
+        if (scatterTableExists == 0)
                 GetSelection table,ScatterFileTable,1   
-                fClearSelectedAssignments(V_startRow,V_endRow)
+                fClearSelectedAssignments(V_startRow,V_endRow,1)
         endif
+        
+        transTableExists = cmpstr(winStr,"TransFileTable;")
+        if (transTableExists == 0)
+                GetSelection table,TransFileTable,1     
+                fClearSelectedAssignments(V_startRow,V_endRow,2)
+        endif
+        
         return(0)
 End