source: MML/trunk/mml/savegoldenorbit.m @ 4

function savegoldenorbit(FileName)
%SAVEGOLDENORBIT - Save present orbit as golden orbit into a file
%
%  INPUTS
%  1. FileName 
%
%  See Also saveoffsetorbit, getgolden, plotgoldenorbit

%
%  Written by Gregory J. Portmann
%  Adapted by Laurent S. Nadolski

BPMxFamily = 'BPMx';
BPMyFamily = 'BPMz';

Xgolden = getgolden(BPMxFamily,'Struct');
Ygolden = getgolden(BPMyFamily,'Struct');

if nargin < 1
    FileName = '';
end

if isempty(FileName)
    FileName = appendtimestamp([getfamilydata('Default', 'BPMArchiveFile'), '_Golden'], clock);
    DirectoryName = getfamilydata('Directory', 'BPMData');
    if isempty(DirectoryName)
        DirectoryName = [getfamilydata('Directory','DataRoot') 'BPM', filesep];
    end

    % Make sure default directory exists
    DirStart = pwd;
    [DirectoryName, ErrorFlag] = gotodirectory(DirectoryName);
    cd(DirStart);

    [FileName, DirectoryName] = uiputfile('*.mat', 'Save Golden BPM File to ...', [DirectoryName FileName]);
    if FileName == 0
        FileName = '';
        return
    end
    FileName = [DirectoryName, FileName];
end

save(FileName, 'Xgolden', 'Ygolden');