%
%  Name: cmethpop.m
% 
%  Usage: cmethpop.m
% 
%   Description:
%	Sets up window for complex-to-real conversion
%
%  Version SWD970202
%
%  Author(s): Scott Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%		ESA-EA
%
%  Copyright (c) 1997, The Regents of the University
%     	of California. (See top level of code for
%



% ========================================
% Set up Complex to real conversion figure
% ========================================

hcx2rl(1) = figure('visible','off',...
		'units','normal',...
		'position',[0.25 0.3 0.5 0.35],...
		'numbertitle','off',...
		'name','DIAMOND: Complex to Real Conversion');

%  Display text

    uicontrol(hcx2rl(1),...
	'style','text',...
	'units','normal',...
	'position',[0.0 0.8 1.0 0.1],...
	'string','Please Select Real-to-Complex Conversion Method:');

%  Conversion Methods popup

hcx2rl(2) = uicontrol(hcx2rl(1),...
      'style','popup', ...
      'units','normalized', ...
      'position',[0.1 0.4 0.8 0.1], ...
      'string','Imag Part|Phase Rounding|McMillan',...
      'value',1,...
      'callback',['ic2rmeth = get(hcx2rl(2),''value'');',...
		  'set(hcx2rl(1),''visible'',''off''),',...
		  'disp(''Creating Real Modes...''),',...
		   'cpx2real,',...
		  'disp(''Real Modes Created''),']);