Save Wave as General Binary

// SaveWaveAsGeneralBinary(pathName, filePath, dataType, byteOrder, w)
// Saves the wave's raw data only. This is of use to export to another program.
// This works on numeric waves only, not on text waves, DFREF waves, etc.
// NOTE: This overwrites the file if it already exists.
// Example:
//  Make/N=128/S jack = sin(x/8)
//  SaveWaveAsGeneralBinary("", "jack.bin", 0, 0, jack)
// This writes 4 bytes per point of single-precision floating point data for a total of 512 bytes.
Function SaveWaveAsGeneralBinary(pathName, filePath, dataType, byteOrder, w)
    String pathName     // Name of Igor symbolic path or ""
    String filePath         // Full path, relative path or file name relative to symbolic path
    Variable dataType       // 0 for default; See FBinWrite documentation for other types
    Variable byteOrder      // 0 for default; See FBinWrite documentation for other types
    Wave w                  // The wave to save
   
    Variable refNum

    // First get a valid reference to a file.
    if ((strlen(pathName)==0) || (strlen(filePath)==0))
        // Display dialog looking for file.
        String fileFilters = "Binary File (*.bin):.bin;"
        Open/D/P=$pathName/F=fileFilters/M="Save wave to file" refNum as filePath
        filePath = S_fileName           // S_fileName is set by Open/D
        if (strlen(filePath) == 0)          // User cancelled?
            return -1
        endif
    endif

    Open/P=$pathName refNum as filePath
    FBinWrite /F=(dataType) /B=(byteOrder) refNum, w
    Close refNum
    return 0
End