function BuildInterfaceSpectral(ECGCallb, SICallb, AltSCallb)
% BuildInterfaceMMA.m
% Author: Alexander Khaustov; alexander dot khaustov at gmail dot com 
% Copyright (C) 2008 St.-Petersburg Institute of Cardiological Technics (Incart), www.incart.ru
% This software is released under the terms of the GNU General
% Public License (http://www.gnu.org/copyleft/gpl.html).
% 
% Contructs interface to view SM analysis
% subplot 1: ECG and the superimposed landmarks
% subplot 2: two successive beats and template superimposed on the same graph
% subplot 3: TWA series for an analysis window of 128 beats, for the
%            selected point in subplot 2 (S-Tend)
% subplot 4: Power Spectral Density of the selected point in subplot 2
%            (S-Tend) across all 128 points and lomb periodogram if
%            necessary
% subplot 5: Power Spectral Density averaged over S-Tend segment
% See LeadBtnCallback.m, BtnDownCallback, DoTWASpectral.m   for more information


    global graph;

    f = figure('Units','normalized','Position',[0.1 0.3 0.8 0.65]);
        
    graph(1) = subplot('Position',[0.05 0.5 0.91 0.4]);
    graph(2) = subplot('Position',[0.05 0.05 0.19 0.4]);
    graph(3) = subplot('Position',[0.29 0.05 0.19 0.4]);
    graph(4) = subplot('Position',[0.53 0.05 0.19 0.4]);
    graph(5) = subplot('Position',[0.77 0.05 0.19 0.4]);

    set(f, 'WindowButtonDownFcn', {@BtnDownCallback, graph, ECGCallb, SICallb, AltSCallb})
    
    global stext;
    for i = 1:3
        stext(i) = uicontrol('Style', 'text', 'Units', 'normalized', 'Position',[0.05 (1 - 0.033 * i) 0.9 0.03], ...
            'String','', 'HorizontalAlignment', 'left');
    end;
    leadbtn = uicontrol('Style', 'pushbutton', 'Units', 'normalized', 'Position',[0.91 0.91 0.05 0.08], ...
        'String','lead is 1', 'Callback', 'LeadBtnCallback');
    global record recordbtn
    recordbtn = uicontrol('Style', 'pushbutton', 'Units', 'normalized', 'Position',[0.70 0.91 0.2 0.08], ...
        'String',record, 'Callback', 'DoTWASpectral');

    set(gcf, 'Toolbar', 'figure');
return;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function BtnDownCallback(obj, eventdata, graph, ECGCallb, SICallb, AltSCallb)

    if (gca == graph(1))
        feval(ECGCallb);
    elseif (gca == graph(2))
        feval(SICallb);
    elseif (gca == graph(3))
        feval(AltSCallb);
    end;
	
return;