spec file reader: curvesave(varargin) - File Exchange

Code covered by the BSD License

Highlights from
spec file reader

curvesave(varargin) CURVESAVE Called by specr and trueref to save current curves to files.
engwave ENGWAVE GUI to convert between energy and wavelength (X-ray)
foldxaxis FOLDXAXIS Fold the x axis along a user-defined center line. Called by
georocking Perform geometric correction for rocking scans. Called by specr
print2figure(varargin) PRINT2FIGURE Called by specr and trueref to print current plot to another
showmotorposition SHOWMOTORPOSITION Called by specr to show the current motor positions
showscan SHOWSCAN Called by specr to show the current scan data.
specr(varargin) SPECR Program to read spec files
specrsetting(varargin) GUI for specr settings
timebar(message,name,update_r... TIMEBAR Progress bar with estimated time remaining
truerefimport(varargin) TRUEREFIMPORT Called by trueref to import data.
ColorSet=varycolor(NumberOfPl... VARYCOLOR Produces colors with maximum variation on plots with multiple
convert2theta2qz(varargin)
curvederivative CURVEDERIVATIVE Called by specr to calculate curve gradient
curvelegend(hCurrentFig) CURVELENGEND Called by specr and trueref
curvenormalize(varargin) CURVENORMALIZE Called by specr and trueref
curvesmooth(varargin) CURVESMOOTH Called by specr to smooth current scans
footprint(varargin) FOOTPRINTGUI Called by specr and trueref.
invertxaxis(varargin)
litcount(filename, literal) Search for number of string matches per line.
mergescan(varargin) MERGESCAN Merge and plot scans from the same spec file.
monitorscan OPENSPEC Called by specr to load fids of scans in a selected spec file
mrgker(varargin) MRGKER Merge kernel function.
norm2maxi(varargin) NORM2MAXI Normalize reflectivity to maximum intensity
openspec(varargin) OPENSPEC Called by specr to load fids of scans in a selected spec file
params(scan) PARAMS Calculate peak,COM and FWHM of a scan
plotstyle(varargin)
rdspec(varargin) RDSPEC Non-interactive function to load a single scan from spec file.
refreshscanplot(varargin) REFRESHSCANPLOT Called by specr to reload scan(s) and plot.
resetfigspecr(varargin) Reset all the plots in specr
resettoolbar(hCurrentFig)
resettrueref(varargin)
save2workspace(varargin) SAVE2WORKSPACE Called by specr and trueref to save current plot data to
scanmerge(varargin) SCANMERGE Called by specr to read scans from current plot to call mrgker
scanplot(varargin) SCANPLOT Called by specr to plot scans.
selectscan(varargin) SELECTSCAN Called by specr to open scan listbox and load scans to plot.
smooth(varargin) SMOOTH Smooth data.
subtractbkg(varargin) SUBTRACTBKG GUI to subtract constant background; called by specr.
titlestr(a) TITLESTR Convert a string with underscores to a string that can be
trueref(varargin) TRUEREF GUI to calculate true reflectivity by subtracting longitudinal
truerefcal(varargin) TRUEREFCAL Called by trueref to calculate true reflectivity.
truerefmerge(varargin) TRUEREFMERGE Called by trueref to load current plots and call mrgker to
truerefplot(varargin) TRUEREFPLOT Called by trueref to plot data
View all files

from spec file reader by Zhang Jiang
Monitor, read, save scans from SPEC files and calculate true reflectivity.

curvesave(varargin)

function curvesave(varargin)
% CURVESAVE Called by specr and trueref to save current curves to files.
%
% Copyright 2004, Zhang Jiang

hCurrentFig = gcf;
hCurrentAxes = gca;
hLine = findall(gca,'Type','line');

if isempty(hLine)
    return;
end

% --- get tags of lines and remove datatipmarkers from hLine
tempHLine = [];;
lineTags = {};
for iLine = 1:length(hLine)
    if ~strcmp(get(hLine(iLine),'Tag'),'DataTipMarker')
        tempHLine(length(tempHLine)+1) = hLine(iLine);
        lineTags{length(lineTags)+1} = get(hLine(iLine),'Tag');
    end
end
hLine = tempHLine';
lineTags = fliplr(lineTags);

% --- figure layout for specrsave request
figSize = get(hCurrentFig,'position');
figCenter = [(figSize(1)+figSize(3)/2),...
                  (figSize(1)+figSize(4)/2)];
figSaveSize = [figSize(1)+5,(figSize(2)+figSize(4))-210,240,210];
hFigSave = figure(...
    'Units','pixels',...
    'MenuBar','none',...
    'Units','pixels',...
    'Name','Save to File',...
    'NumberTitle','off',...
    'IntegerHandle','off',...
    'Position',figSaveSize,...
    'HandleVisibility','callback',...
    'Tag','figsave',...
    'Resize','off',...
    'WindowStyle','modal',...
    'UserData',[]);
% --- layeout panel select curve
panelSelectCurveSize = [10 figSaveSize(4)-70 figSaveSize(3)-20 60];
hPanelSelectCurve = uipanel(...
    'Parent',hFigSave,...
    'BackgroundColor',get(hFigSave,'Color'),...
    'Title','Select curve',...
    'Units','pixels',...
    'Position',panelSelectCurveSize);
hPopupmenuSelectCurve = uicontrol(...
    'Parent',hPanelSelectCurve,...
    'Style','popupmenu',...
    'BackgroundColor','w',...
    'Units','pixels',...
    'Position',[10 12.5 panelSelectCurveSize(3)-20 25],...
    'String',lineTags,...
    'HorizontalAlignment','left',...
    'Value',1,...
    'Tag','figsave_PopupmenuSelectCurve');
% --- layout panel saving format
panelSelectFormatSize = [10 figSaveSize(4)-panelSelectCurveSize(4)-90 figSaveSize(3)-20 70];
hPanelSelectFormat = uipanel(...
    'Parent',hFigSave,...
    'BackgroundColor',get(hFigSave,'Color'),...
    'Title','Format',...
    'Units','pixels',...
    'Position',panelSelectFormatSize);
hRadiobutton1 = uicontrol(...
    'Parent',hPanelSelectFormat,...
    'Style','radiobutton',...
    'BackgroundColor',get(hFigSave,'Color'),...
    'Position',[10 panelSelectFormatSize(4)-40 panelSelectFormatSize(3)-20 25],...
    'String','xdata   ydata   error',...
    'Tag','figsave_radiobuttion1',...
    'Value',1,...
    'callback',@radiobutton1Fcn);
hRadiobutton2 = uicontrol(...
    'Parent',hPanelSelectFormat,...
    'Style','radiobutton',...
    'BackgroundColor',get(hFigSave,'Color'),...
    'Position',[10 panelSelectFormatSize(4)-65 panelSelectFormatSize(3)-20 25],...
    'String','xdata   ydata',...
    'Tag','figsave_radiobuttion2',...
    'Value',0,...
    'callback',@radiobutton2Fcn);
% --- layout OK and Cancel buttons
hPushbuttonOK = uicontrol(...
    'Parent',hFigSave,...
    'Style','pushbutton',...
    'String','Next',...
    'Position',[20 20 (figSaveSize(3)-60)/2 25],...
    'callback',{@figsave_OKRequestFcn,hCurrentFig,hCurrentAxes});
hPushbuttonCancel = uicontrol(...
    'Parent',hFigSave,...
    'Style','pushbutton',...
    'String','Cancel',...
    'Position',[figSaveSize(3)/2+10 20 (figSaveSize(3)-60)/2 25],...
    'Callback',@figsave_CloseRequestFcn);


%================================================================
% --- radiobutton1 callback fcn (save without error)
%================================================================
function radiobutton1Fcn(hObject,eventdata)
hFigSave = gcf;
hRadiobutton1 = findall(hFigSave,'Tag','figsave_radiobuttion1');
hRadiobutton2 = findall(hFigSave,'Tag','figsave_radiobuttion2');
set(hRadiobutton1,'Value',1);
set(hRadiobutton2,'Value',0);


%================================================================
% --- radiobutton1 callback fcn (save with error)
%================================================================
function radiobutton2Fcn(hObject,eventdata)
hFigSave = gcf;
hRadiobutton1 = findall(hFigSave,'Tag','figsave_radiobuttion1');
hRadiobutton2 = findall(hFigSave,'Tag','figsave_radiobuttion2');
set(hRadiobutton1,'Value',0);
set(hRadiobutton2,'Value',1);


%================================================================
% --- close function
%================================================================
function figsave_CloseRequestFcn(hObject,eventdata)
delete(gcf);
return;


%================================================================
% --- print to figure
%================================================================
function figsave_OKRequestFcn(hObject,eventdata,hCurrentFig,hCurrentAxes)
% --- determine the curve to save
hFigSave = gcf;
hRadiobutton1 = findall(hFigSave,'Tag','figsave_radiobuttion1');
hRadiobutton2 = findall(hFigSave,'Tag','figsave_radiobuttion2');
hPopupmenuSelectCurve = findobj(hFigSave,'Tag','figsave_PopupmenuSelectCurve');
curveStrList = get(hPopupmenuSelectCurve,'String');
curveStr = curveStrList{get(hPopupmenuSelectCurve,'Value')};
hLine = findall(hCurrentAxes,'Type','line');
hLine2Save = findall(hLine,'Tag',curveStr);

% --- get setting parameters
hFigSpecr = findall(0,'Tag','specr_Fig');
settings = getappdata(hFigSpecr,'settings');
savepath = settings.savepath;

% --- get data from curve
xdata = get(hLine2Save,'xdata');
ydata = get(hLine2Save,'ydata');
ydataError = getappdata(hLine2Save,'ydataError');
if get(hRadiobutton1,'Value') == 1      % determine saving w/t error
    data2save = [xdata' ydata' ydataError];
else
    data2save = [xdata' ydata'];
end
% --- go the previous save path
prePath = pwd;
if isempty(savepath)
    savepath = pwd;
end

try
    go_savepath_str = ['cd ','''',savepath,''''];
    eval(go_savepath_str);
catch
    go_savepath_str = ['cd ','''',pwd,''''];
    eval(go_savepath_str);
end
% --- user choose a file to save
filter={'*.dat','Data File (*.dat)';...
        '*.txt','Text Documents (*.txt)';...
        '*.*','All Files (*.*)'};
[filename, pathname,filterIndex] = uiputfile(filter,'Save Data As',[curveStr,'.dat']);	
% If 'Cancel' was selected then return
if isequal([filename,pathname],[0,0])
    restorePath(prePath);
    return
else
    % Construct the full path and save
    File = fullfile(pathname,filename);
    switch filterIndex
        case 1
            if ~ strcmp(File(end-3:end),'.dat')
                File=[File '.dat'];
            end
        case 2
            if ~ strcmp(File(end-3:end),'.txt')
                File=[File '.txt'];
            end
        case 3
    end
    go_savepath_str = ['cd ','''',pathname,''''];    % change path
    eval(go_savepath_str);
    save_str=['save ',filename,' data2save -ascii -tabs'];
    eval(save_str);
end
restorePath(prePath);
settings.savepath = pathname;
setappdata(hFigSpecr,'settings',settings);
settings = getappdata(hFigSpecr,'settings');
delete(hFigSave);


%=========================================================
% --- restore to previous path
%=========================================================
function restorePath(prePath)
path_str = ['cd ','''',prePath,''''];
eval(path_str);

Highlights from spec file reader

Highlights from
spec file reader