function fig = noise_create()

load noise_create

h0 = figure('Color',[0.8 0.8 0.8], ...
	'Colormap',mat0, ...
	'PointerShapeCData',mat1, ...
	'Position',[415 109 560 420], ...
	'Tag','Fig1');
h1 = uicontrol('Parent',h0, ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'Callback','level=get(gco,''Value'');save Noise level', ...
	'ListboxTop',0, ...
	'Max',300, ...
	'Position',[21 20 20 320], ...
	'Style','slider', ...
	'Tag','Slider1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'FontSize',22, ...
	'ListboxTop',0, ...
	'Position',[202.5 128.25 133.5 93], ...
	'String','Enter desired level of clutter', ...
	'Style','text', ...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',[42.75 225 46.5 20.25], ...
	'String','300', ...
	'Style','text', ...
	'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',[42 6.75 45 25.5], ...
	'String','0', ...
	'Style','text', ...
	'Tag','StaticText3');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',[43.5 75 47.25 25.5], ...
	'String','100', ...
	'Style','text', ...
	'Tag','StaticText5');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',[43.5 152.25 48 32.25], ...
	'String','200', ...
	'Style','text', ...
	'Tag','StaticText6');
if nargout > 0, fig = h0; end