spec file reader: print2figure(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.

print2figure(varargin)

function print2figure(varargin)
% PRINT2FIGURE Called by specr and trueref to print current plot to another
%   new figure or existing figure.
%
% Copyright 2004, Zhang Jiang

hCurrentFig = gcf;
hAxes = gca;

% --- find handles of current figures with integer handles
hFigs = findall(0,'Type','Figure');
hFigs = sort(hFigs(find(hFigs == round(hFigs))));
hFigsCell = {};
for iFigs = 1:length(hFigs)
    if isempty(get(hFigs(iFigs),'name'))
        hFigsCell{iFigs} = num2str(hFigs(iFigs));
    else
        hFigsCell{iFigs} = [num2str(hFigs(iFigs)),' : ',get(hFigs(iFigs),'name')];
    end
end

% --- figure layout for print2figure request
figSize = get(hCurrentFig,'position');
figPrint2figureSize = [figSize(1)+5,(figSize(2)+figSize(4))-170,240,170];
hFigPrint2figure = figure(...
    'Units','pixels',...
    'MenuBar','none',...
    'Units','pixels',...
    'Name','Print to Figure',...
    'NumberTitle','off',...
    'IntegerHandle','off',...
    'Position',figPrint2figureSize,...
    'HandleVisibility','callback',...
    'Tag','figPrint2figure',...
    'Resize','off',...
    'WindowStyle','modal',...
    'UserData',[]);
panelSize = [10 60 figPrint2figureSize(3)-20 figPrint2figureSize(4)-70];
hPanel = uipanel(...
    'Parent',hFigPrint2figure,...
    'BackgroundColor',get(hFigPrint2figure,'Color'),...
    'Title','Print current plot to',...
    'Units','pixels',...
    'Position',panelSize);
hRadiobutton1 = uicontrol(...
    'Parent',hPanel,...
    'Style','radiobutton',...
    'BackgroundColor',get(hFigPrint2figure,'Color'),...
    'Position',[10 panelSize(4)-45 panelSize(3)/2 25],...
    'String','New figure',...
    'Tag','print2figure_radiobuttion1',...
    'Value',1,...
    'callback',@radiobutton1Fcn);
hRadiobutton2 = uicontrol(...
    'Parent',hPanel,...
    'Style','radiobutton',...
    'BackgroundColor',get(hFigPrint2figure,'Color'),...
    'Position',[10 panelSize(4)-80 panelSize(3)/3 25],...
    'String','Figure',...
    'Tag','print2figure_radiobuttion2',...
    'Value',0,...
    'callback',@radiobutton2Fcn);
hPopupmenu = uicontrol(...
    'Parent',hPanel,...
    'Style','popupmenu',...
    'BackgroundColor','w',...
    'Units','pixels',...
    'Position',[panelSize(3)/3+10 panelSize(4)-80 panelSize(3)*2/3-20 25],...
    'String','No figure',...
    'HorizontalAlignment','left',...
    'Enable','off',...
    'Value',1,...
    'Tag','print2figure_popupmenu');
if isempty(hFigs)
    set(hRadiobutton2,'Enable','off');
    set(hPopupmenu,'Enable','off');
else
    set(hPopupmenu,'String',hFigsCell);
end

hPushbuttonOK = uicontrol(...
    'Parent',hFigPrint2figure,...
    'Style','pushbutton',...
    'String','OK',...
    'Position',[20 20 (figPrint2figureSize(3)-60)/2 25],...
    'callback',{@print2figure_OKRequestFcn,hCurrentFig,hAxes});
hPushbuttonCancel = uicontrol(...
    'Parent',hFigPrint2figure,...
    'Style','pushbutton',...
    'String','Cancel',...
    'Position',[figPrint2figureSize(3)/2+10 20 (figPrint2figureSize(3)-60)/2 25],...
    'Callback',@print2figure_CloseRequestFcn);


%================================================================
% --- radiobutton1 callback fcn (export to new figure)
%================================================================
function radiobutton1Fcn(hObject,eventdata)
hFigPrint2figure = gcf;
hRadiobutton1 = findall(hFigPrint2figure,'Tag','print2figure_radiobuttion1');
hRadiobutton2 = findall(hFigPrint2figure,'Tag','print2figure_radiobuttion2');
hPopupmenu = findall(hFigPrint2figure,'Tag','print2figure_popupmenu');
set(hRadiobutton1,'Value',1);
set(hRadiobutton2,'Value',0);
set(hPopupmenu,'Enable','off');


%================================================================
% --- radiobutton1 callback fcn (export to old figure)
%================================================================
function radiobutton2Fcn(hObject,eventdata)
hFigPrint2figure = gcf;
hRadiobutton1 = findall(hFigPrint2figure,'Tag','print2figure_radiobuttion1');
hRadiobutton2 = findall(hFigPrint2figure,'Tag','print2figure_radiobuttion2');
hPopupmenu = findall(hFigPrint2figure,'Tag','print2figure_popupmenu');
set(hRadiobutton1,'Value',0);
set(hRadiobutton2,'Value',1);
set(hPopupmenu,'Enable','on');


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


%================================================================
% --- print to figure
%================================================================
function print2figure_OKRequestFcn(hObject,eventdata,hCurrentFig,hAxes)
% --- get handles of print2figure
hFigPrint2figure = gcf;
hRadiobutton1 = findall(hFigPrint2figure,'Tag','print2figure_radiobuttion1');
hRadiobutton2 = findall(hFigPrint2figure,'Tag','print2figure_radiobuttion2');
hPopupmenu = findall(hFigPrint2figure,'Tag','print2figure_popupmenu');
% --- get handles of lines in main figure with plots
hLine = findall(hAxes,'Type','line');
% --- determine whether to open a new or existing figure
if get(hRadiobutton1,'Value') == 1
    hNewFigure = figure;
    hNewAxes = axes('Parent',hNewFigure,'Box','on');
else 
    hPopupmenuStr = get(hPopupmenu,'String');
    hNewFigure = sscanf(hPopupmenuStr{get(hPopupmenu,'Value')},'%d');
    figure(hNewFigure);
    hOldAxes = findall(hNewFigure,'Type','Axes');
    if isempty(hOldAxes)
        hNewAxes = axes('Parent',hNewFigure,'Box','on');
    else
        hNewAxes = hOldAxes(end);
        set(hNewAxes,'Box','on');
    end
end
hNewLine = [];
holdState = ishold(hNewFigure);
for iLine = length(hLine):-1:1
    xdata = get(hLine(iLine),'XData');
    ydata = get(hLine(iLine),'YData');
    hold on;
    hNewLine(iLine) = plot(hNewAxes,xdata,ydata);
    hold off;
    if holdState == 1
        hold on;
    elseif holdState == 0
        hold off;
    end
    get(hLine(iLine),'Tag');
    set(hNewLine(iLine),'Tag',get(hLine(iLine),'Tag'),'DisplayName',get(hLine(iLine),'Tag'));
end
% --- set line properties
set(hNewLine,...
    'Color','b',...
    'LineStyle','-',...
    'Marker','o',...
    'MarkerSize',3,...
    'MarkerFaceColor','m'...
    );
set(hNewAxes,...
    'XGrid',get(hAxes,'XGrid'),...
    'YGrid',get(hAxes,'YGrid'),...
    'XScale',get(hAxes,'XScale'),...
    'YScale',get(hAxes,'YScale')...
    );
delete(hFigPrint2figure);   % quit print2figure

Highlights from spec file reader

Highlights from
spec file reader