Changeset 846 for sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha

Timestamp:

Mar 15, 2012 11:11:10 AM (11 years ago)

Author:

srkline

Message:

adding another utility procedure to the Real-Space Modeling. FFT_FillTests.ipf contains some examples of how to build different geometries and script the calculations, especially save/load of previously defined structures.

Location:

sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker

Files:

• FFT_FillTests.ipf (added)
• FFT_Panel.ipf (modified) (2 diffs)

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

@@ -12 +12 @@
 //               rather than "1"
 //
+//
+// -- incorporate utility function that reads the wave note from a binary file 
+//                      Function/S LoadNoteFunc(PName,FName[,FileRef]) - use this as an "inspector?"
 ////////////
 
@@ -196 +199 @@
                 endif                   
                 
+                Print "Loaded matrix parameters = ",str
                 Execute "NumberOfPoints()"
                         
         return(0)
 end
+
+// utility function that reads the wave note from a binary file
+//
+Function/S LoadNoteFunc(PName,FName[,FileRef])
+        String PName, FName
+        Variable FileRef
+        
+        Variable noteStart, noteLength, version, dependLength
+        String noteStr, typeStr = ".ibw"
+        if (ParamIsDefault(FileRef))
+                Open/R/P=$PName/T=typeStr fileRef, as FName     //open the file
+        endif
+        FSetPos fileRef, 0
+        FBinRead/F=2 fileRef, version
+        
+        
+        if (version == 5)
+        
+                FSetPos fileRef, 4
+                Make/N=(3)/I/Free SizeWave
+                FBinRead FileRef,SizeWave
+                noteStart = SizeWave[0]
+                DependLength = SizeWave[1]
+                NoteLength = SizeWave[2]
+                noteStart += dependLength+64
+                
+        elseif (version == 2)
+        
+                FBinRead/F=3 fileRef, noteStart
+//              FBinRead/F=4 fileRef, dependLength
+                FBinRead/F=3 fileRef, noteLength
+                noteStart += 16
+                
+        else
+        
+                if (ParamIsDefault(FileRef))
+                        Close(FileRef)          //close the file
+                endif
+                return ""
+        
+        endif
+        if (!NoteLength)
+                if (ParamIsDefault(FileRef))
+                        Close(FileRef)          //close the file
+                endif
+                return("")
+        endif
+        FSetPos fileRef, noteStart
+        NoteStr = PadString("",NoteLength,0)
+        FBinRead FileRef,NoteStr
+        
+        if (ParamIsDefault(FileRef))
+                Close(FileRef)          //close the file
+        endif
+        return noteStr
+        
+End //LoadNoteFunc
+
 
 Function FFTHelpButton(ba) : ButtonControl