truerefimport.m

function truerefimport(varargin)
% TRUEREFIMPORT Called by trueref to import data.
%
% Copyright 2004, Zhang Jiang

hMainFig = findall(0,'Tag','trueref_Fig');
hFigSpecr = findall(0,'Tag','specr_Fig');

settings = getappdata(hFigSpecr,'settings');
openfiles = settings.trueref.openfiles;

% --- figure layout for truerefimport request
figSize = get(hMainFig,'position');
figWidth = 300;
figHeight = 300;
figTruerefimportSize = [figSize(1)+5,(figSize(2)+figSize(4))-figHeight+10,figWidth,figHeight];
hFigTruerefimport = figure(...
    'Units','pixels',...
    'MenuBar','none',...
    'Units','pixels',...
    'Name','Import ASCII Data',...
    'NumberTitle','off',...
    'IntegerHandle','off',...
    'Position',figTruerefimportSize,...
    'HandleVisibility','callback',...
    'Tag','figTruerefimport',...
    'Resize','off',...
    'WindowStyle','modal',...
    'UserData',[]);
panelHeight = 115;
panelSize = [10 figHeight-panelHeight-10 figTruerefimportSize(3)-20 panelHeight];
hPanel = uipanel(...
    'Parent',hFigTruerefimport,...
    'BackgroundColor',get(hFigTruerefimport,'Color'),...
    'Title','Import as',...
    'Units','pixels',...
    'Position',panelSize);
hRadiobutton1 = uicontrol(...
    'Parent',hPanel,...
    'Style','radiobutton',...
    'BackgroundColor',get(hFigTruerefimport,'Color'),...
    'Position',[10 panelSize(4)-40 panelSize(3)-10 25],...
    'String','Reflectivity',...
    'Tag','truerefimport_radiobuttion1',...
    'Value',1,...
    'callback',@radiobuttonFcn);
hRadiobutton2 = uicontrol(...
    'Parent',hPanel,...
    'Style','radiobutton',...
    'BackgroundColor',get(hFigTruerefimport,'Color'),...
    'Position',[10 panelSize(4)-70 panelSize(3)-10 25],...
    'String','Positive longitudinal diffuse (Optional)',...
    'Tag','truerefimport_radiobuttion2',...
    'Value',0,...
    'callback',@radiobuttonFcn);
hRadiobutton3 = uicontrol(...
    'Parent',hPanel,...
    'Style','radiobutton',...
    'BackgroundColor',get(hFigTruerefimport,'Color'),...
    'Position',[10 panelSize(4)-100 panelSize(3)-10 25],...
    'String','Negative longitudinal diffuse (Optional)',...
    'Tag','truerefimport_radiobuttion3',...
    'Value',0,...
    'callback',@radiobuttonFcn);
buttonHeight = 25;
hPushbuttonOK = uicontrol(...
    'Parent',hFigTruerefimport,...
    'Style','pushbutton',...
    'String','Import',...
    'Position',[40 panelSize(2)-40 (figWidth-100)/2 buttonHeight],...
    'callback',{@truerefimport_OKRequestFcn,hMainFig});
hPushbuttonCancel = uicontrol(...
    'Parent',hFigTruerefimport,...
    'Style','pushbutton',...
    'String','Cancel',...
    'Position',[figWidth/2+10 panelSize(2)-40 (figWidth-100)/2 buttonHeight],...
    'Callback',@truerefimport_CloseRequestFcn);
% --- display panel
panelDisplaySize = [10 10 figWidth-20 figHeight-panelHeight-buttonHeight-45];
hPanelDisplay = uipanel(...
    'Parent',hFigTruerefimport,...
    'BackgroundColor',get(hFigTruerefimport,'Color'),...
    'Title','Already imported files',...
    'Units','pixels',...
    'Position',panelDisplaySize);
 hEditDisplayFile = uicontrol(...
    'Parent',hPanelDisplay,...
    'HorizontalAlignment','left',...
    'BackgroundColor','w',...
    'Style','edit',...
    'String',openfiles,...
    'Max',2,...
    'Min',0,...
    'Position',[10 10 panelDisplaySize(3)-15 panelDisplaySize(4)-30],...
    'Enable','on');


%================================================================
% --- radiobutton callback fcn (choose import type)
%================================================================
function radiobuttonFcn(hObject,eventdata)
hFigTruerefimport = gcf;
hRadiobutton1 = findall(hFigTruerefimport,'Tag','truerefimport_radiobuttion1');
hRadiobutton2 = findall(hFigTruerefimport,'Tag','truerefimport_radiobuttion2');
hRadiobutton3 = findall(hFigTruerefimport,'Tag','truerefimport_radiobuttion3');
set(hRadiobutton1,'Value',0);
set(hRadiobutton2,'Value',0);
set(hRadiobutton3,'Value',0);
set(hObject,'Value',1);


%================================================================
% --- truerefimport Ok button callback function
%================================================================
function truerefimport_OKRequestFcn(hObject,eventdata,hMainFig)
% --- get handles of radiobuttons 
hFigTruerefimport = gcf;
hRadiobutton1 = findall(hFigTruerefimport,'Tag','truerefimport_radiobuttion1');
hRadiobutton2 = findall(hFigTruerefimport,'Tag','truerefimport_radiobuttion2');
hRadiobutton3 = findall(hFigTruerefimport,'Tag','truerefimport_radiobuttion3');

hFigSpecr = findall(0,'Tag','specr_Fig');
settings = getappdata(hFigSpecr,'settings');
openfiles = settings.trueref.openfiles;
openpath  = settings.trueref.openpath;

% --- go the previous save path
prePath = pwd;
if isempty(openpath)
    openpath = pwd;
end
go_openpath_str = ['cd ','''',openpath,''''];
eval(go_openpath_str);
% --- open file dlg
[filename, filepath] = uigetfile( ...
    {'*.dat','Data Files (*.dat)';'*.txt','Text Documents (*.txt)';'*.*','All Files (*.*)'}, ...
    'Select ASCII file','MultiSelect','on');
% If "Cancel" is selected then return
if isequal(filepath,0)
    restorePath(prePath);
    return;
end

settings.trueref.openpath = filepath;
setappdata(hFigSpecr,'settings',settings);
settings = getappdata(hFigSpecr,'settings');
openfiles = settings.trueref.openfiles;
openpath  = settings.trueref.openpath;

% --- get data from main figure or generate new data structure
if isappdata(hMainFig,'data')
    data = getappdata(hMainFig,'data');
else
    data.ref = {};
    data.pos = {};
    data.neg = {};
end
% --- reset merge data and true reflectivity
data.mrg = cell(1,3);
data.tru = [];
setappdata(hMainFig,'data',data);
% --- determine whether multifiles are selected
if iscell(filename)
    nFiles = length(filename);
    for iFiles = 1:nFiles
        file = fullfile(filepath,filename{iFiles});
        try
            imported = load(file);
        catch
            uiwait(msgbox('Invalid ASCII file.','File Open Error','error','modal'));
            rmappdata(hMainFig,'data');
            restorePath(prePath);
            return;
        end
        if size(imported,2)~=3 & size(imported,2)~=2
            uiwait(msgbox('Data should have 2 or 3 columns.','File Open Error','error','modal'));
            rmappdata(hMainFig,'data');
            restorePath(prePath);
            return;
        end
        importFcn(imported,hMainFig,hRadiobutton1,hRadiobutton2,hRadiobutton3,filename{iFiles},filepath);
    end
else
    file = fullfile(filepath,filename);
    try
        imported = load(file);
    catch
        uiwait(msgbox('Invalid ASCII file.','File Open Error','error','modal'));
        restorePath(prePath);
        return;
    end
    if size(imported,2)~=3 & size(imported,2)~=2
        uiwait(msgbox('Data should have 2 or 3 columns.','File Open Error','error','modal'));
        restorePath(prePath);
        return;
    end
    importFcn(imported,hMainFig,hRadiobutton1,hRadiobutton2,hRadiobutton3,filename,filepath);
end
restorePath(prePath);
truerefplot;
%assignin('base','data',data);
delete(gcf);


%================================================================
% --- function called by truerefimport Ok button callback function
%================================================================
function importFcn(imported,hMainFig,hRadiobutton1,hRadiobutton2,hRadiobutton3,filename,filepath);
hFigSpecr = findall(0,'Tag','specr_Fig');
settings = getappdata(hFigSpecr,'settings');
openfiles = settings.trueref.openfiles;
openpath  = settings.trueref.openpath;
% --- get data
data = getappdata(hMainFig,'data');
% --- determine the third column (error)
if size(imported,2) == 2
    try
        imported(:,3) = sqrt(imported(:,2));
    catch
        imported(:,3) = 0;
    end 
end
switch 1
    case get(hRadiobutton1,'Value')
        data.ref{length(data.ref)+1} = imported;
        openfiles{length(openfiles)+1} = ['Ref:   ',filename];
    case get(hRadiobutton2,'Value')
        data.pos{length(data.pos)+1} = imported;
        openfiles{length(openfiles)+1} = ['Pos:   ',filename];
    case get(hRadiobutton3,'Value')
        data.neg{length(data.neg)+1} = imported;
        openfiles{length(openfiles)+1} = ['Neg:   ',filename];
end
settings.trueref.openfiles = openfiles;
settings.trueref.openpath  = openpath;
setappdata(hMainFig,'data',data);
setappdata(hFigSpecr,'settings',settings);
return;


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


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