% Adjust the landscape parameters according to which method was chosen<BR>
% Calls:  Build<BR>
function [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,jag,water,menuH,win1H,win2H);
<P>
% If 'custom' was chosen, display the custom window<BR>
% Otherwise, set sz and iters appropriate to the method<BR>
% Also, adjust the sz and iters sliders in the main window, and record<BR>
% which method number was chosen<BR>
switch method<BR>
	case 'fractl',<BR>
		sz = 6;<BR>
		iters = 3;<BR>
		choice = 2;<BR>
		set(win1H(4),'SliderStep',[.5 1],...<BR>
   			'Min',4,'Max',6,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.25 1],...<BR>
   			'Min',1,'Max',5,...<BR>
			'Value',iters);<BR>
	case 'subdiv',<BR>
		sz = 8;<BR>
		iters = 15;<BR>
		choice = 3;<BR>
		set(win1H(4),'SliderStep',[.2 1],...<BR>
   			'Min',6,'Max',11,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.04 .2],...<BR>
   			'Min',1,'Max',26,...<BR>
			'Value',iters);<BR>
	case 'spline',<BR>
		sz = 10;<BR>
		iters = 15;<BR>
		choice = 4;<BR>
		set(win1H(4),'SliderStep',[.05 .2],...<BR>
   			'Min',5,'Max',25,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.04 .2],...<BR>
   			'Min',1,'Max',26,...<BR>
			'Value',iters);<BR>
	case 'spplus',<BR>
		sz = 8;<BR>
		iters = 15;<BR>
		choice = 5;<BR>
		set(win1H(4),'SliderStep',[.2 1],...<BR>
   			'Min',6,'Max',11,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.04 .2],...<BR>
   			'Min',1,'Max',26,...<BR>
			'Value',iters);<BR>
	case 'random',<BR>
		sz = 8;<BR>
		iters = 15;<BR>
		choice = 6;<BR>
		set(win1H(4),'SliderStep',[.2 1],...<BR>
   			'Min',6,'Max',11,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.04 .2],...<BR>
   			'Min',1,'Max',26,...<BR>
			'Value',iters);<BR>
	case 'randsp',<BR>
		sz = 8;<BR>
		iters = 15;<BR>
		choice = 7;<BR>
		set(win1H(4),'SliderStep',[.2 1],...<BR>
   			'Min',6,'Max',11,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.04 .2],...<BR>
   			'Min',1,'Max',26,...<BR>
			'Value',iters);<BR>
	case 'rndpls',<BR>
		sz = 8;<BR>
		iters = 15;<BR>
		choice = 8;<BR>
		set(win1H(4),'SliderStep',[.2 1],...<BR>
   			'Min',6,'Max',11,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.04 .2],...<BR>
   			'Min',1,'Max',26,...<BR>
			'Value',iters);<BR>
	case 'custom',<BR>
		set(win2H(1),'Visible','on');<BR>
		choice = 9;<BR>
		set(win1H(4),'SliderStep',[.2 1],...<BR>
   			'Min',6,'Max',11,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.04 .2],...<BR>
   			'Min',1,'Max',26,...<BR>
			'Value',iters);<BR>
	otherwise,<BR>
		sz = 15;<BR>
		iters = 15;<BR>
		choice = 1;<BR>
		set(win1H(4),'SliderStep',[.02 .1],...<BR>
   			'Min',5,'Max',55,...<BR>
			'Value',sz);<BR>
		set(win1H(7),'SliderStep',[.04 .2],...<BR>
   			'Min',1,'Max',26,...<BR>
			'Value',iters);<BR>
end
<P>
% Refresh the sz and iters displays in the main window<BR>
set(win1H(3),'String',num2str(sz));<BR>
set(win1H(6),'String',num2str(iters));
<P>
% Check only the menu item chosen<BR>
for i = 1:9<BR>
	set(menuH(i),'Checked','off');<BR>
end<BR>
set(menuH(choice),'Checked','on');
<P>
% If any method other than custom was chosen, create the landscape<BR>
if (method ~= 'custom') | (method == 'subdiv') | (method == 'random')<BR>
	[sz,iters,dim] = Build(method,sz,iters,randm,peak,decay,dim,2,30,0);<BR>
end