IDEAL_gui.m

%IDE@L version 1.0
%Image DEndrochronology @ Liama
%GUI for extract rings
%2 parameters: 
%Threshold for edge detection 
%     T_edge=[0.1 0.2];
%Rings indicator for ring detection
%     threshold=25;
%Joseph Morlier LIAMA Summer 2006
%***********************************************

%*******************************
clear all;
close all;

%*******************************
%Default Values
    compt=0; 
    T_edge=[0.1 0.2];
    threshold=25;
    

%**************************************************************************************
%caracteristique de la figure :))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     
h0 = figure('Color',[0.6 0.6 0.6], ...
   'MenuBar','none', ...
   'Name','IDE@L V 1.0', ...
   'NumberTitle','off', ...
   'PaperType','A4','PaperPositionMode','Manual', ...
   'PaperUnits','centimeters', ...
   'PaperPosition',[1 5 19 17], ...
   'Position',[400 400 800 2], ...
   'Tag','principale');

%**************************************************************************************
%premier menu :Charger fichier et exporter image !
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
h1 = uimenu('Parent',h0, ...
   'Label','File', ...
   'Tag','fichier');

h2 = uimenu('Parent',h1, ...
   'Label','Load Image', ...
    'Tag','charger','Accelerator','F', ...
'Callback','loadfile;');%

h2 = uimenu('Parent',h1, ...
   'Separator','on', ...
   'callback','cla;', 'Accelerator','E',...
   'Label','Clear Image');

h2 = uimenu('Parent',h1, ...
   'Separator','on',...
   'Callback','filemenufcn(gcbf,''FileExport'');', ...
   'Label','Export Image');

h2 = uimenu('Parent',h1, ...
    'Label','Quit','Callback','finishdlg',...
     'Separator','on','Accelerator','Q');


%**************************************************************************************
%deuxieme menu Setup!!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

h1 = uimenu('Parent',h0, ...
   'Label','Setup', ...
   'Tag','Setup');

h2 = uimenu('Parent',h1, ...
   'Label','Setup Edge Detection', ...
   'Callback', 'T_edge=edge_parameter(imo);', ...
   'Tag','inputs','Accelerator','D');
h2 = uimenu('Parent',h1, ...
   'Label','Setup Curve Detection', ...
   'Separator','on', ...
   'Callback', 'threshold=perimeter_parameter(imo);', ...
   'Tag','inputs','Accelerator','P');



%**************************************************************************************
%Troisieme menu Analysis!!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

h1 = uimenu('Parent',h0, ...
   'Label','Analysis', ...
   'Tag','Analysis');

h2 = uimenu('Parent',h1, ...
   'Label','Ring', ...
   'Tag','in');
h3 = uimenu('Parent',h2, ...
   'Label','Ring Detection', ...
   'Callback', 'Ring_label2;', ...
   'Tag','inputs','Accelerator','R');
h3 = uimenu('Parent',h2, ...
   'Label','Export data to excel', ...
   'Callback', 'Ring_export;', ...
   'Tag','inputs','Accelerator','S');

h2 = uimenu('Parent',h1, ...
    'Separator','on', ...
   'Label','Visual Indicators ');
h3 = uimenu('Parent',h2, ...
    'Separator','on', ...
   'Label','Rings indicator ', ...
   'Callback', 'figure(2);plot(P);hold on ;plot(Pu,''ro'');title(''Rings Indicator '');', ...
   'Tag','RI','Accelerator','I');

h3 = uimenu('Parent',h2, ...
   'Label','Display Labelled Region', ...
   'Callback', 'figure(3), imagesc(labelededgeim); colormap(vga), axis image, axis off;', ...
   'Tag','LR','Accelerator','L');

%**************************************************************************************
%4ieme menu Processing!!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

h1 = uimenu('Parent',h0, ...
   'Label','Processing', ...
   'Tag','Procs');
h2 = uimenu('Parent',h1, ...
   'Label','Partial Ring Reconstruction', ...
   'Callback', 'Ring_Reconstruction;', ...
   'Tag','RP');
h2 = uimenu('Parent',h1, ...
   'Label','Not Implemented ', ...
   'Tag','RFI');

h3 = uimenu('Parent',h2, ...
   'Label','Del False Ring ', ...
   'Callback', 'Ring_F;', ...
   'Tag','RF');
h3 = uimenu('Parent',h2, ...
   'Label','Del Double Ring ', ...
   'Callback', 'Ring_E;', ...
   'Tag','RE');



%**************************************************************************************
%5ieme menu Help!!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

h1 = uimenu('Parent',h0, ...
   'Label','Help', ...
   'Tag','Hs');

h2 = uimenu('Parent',h1, ...
   'Label','?', ...
   'Callback', 'Ring_V;', ...
   'Tag','RVV');