% Create a randomized landscape<BR>
% Calls:  Build, BuildCustomized, ChangeOptions<BR>
clear;<BR>
close;
<P>
% win1H contains, in order: main window, size1, size2,  size3, iter1, iter2, iter3,<BR>
%							replot, close, rand1, rand2, rand3, height1, height2, height3,<BR>
%							decay1, decay2, decay3<BR>
% win2H contains, in order: custom window, smooth1, smooth2, jag1, jag2, jag3, trees1,<BR>
%							trees2, detail1, detail2, detail3, water1, water2, water3<BR>
% mi contains the nine menu items
<P>
% Default variable values<BR>
method = 'simple';<BR>
sz = 15;<BR>
iters = 15;<BR>
randm = 0;<BR>
peak = 0;<BR>
decay = 0;<BR>
dim(1) = 0;
<P>
% Default variable values for custom window<BR>
jag = 0;<BR>
detail = 10;<BR>
water = 30;
<PRE>
<P>
<P>
<P>
</PRE>
%== The customizing window ==========================<BR>
win2H(1) = figure(2);<BR>
clf;
<P>
%== Window setup ===========================<BR>
set(win2H(1),'Position',[568,294,300,256],...<BR>
	'Name','Lanscape Customizer',...<BR>
	'Color','black',...<BR>
	'NumberTitle','off',...<BR>
	'Visible','off');
<P>
%== Smooth checkbox ===========================<BR>
win2H(2) = uicontrol(gcf,'Style','text',...<BR>
	'String','Smooth landscape',...<BR>
	'Position',[15,210,112,16],...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
	'FontSize',12);<BR>
win2H(3) = uicontrol(gcf,'Style','Checkbox', ...<BR>
	'Position',[132,210,16,16],...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
	'Value',1,...<BR>
	'Callback',...<BR>
	['if get(win2H(3),''Value'')',...<BR>
		'set(win2H(6),''Enable'',''off'');',...<BR>
		'jag = 0;',...<BR>
		'set(win2H(5),''String'',num2str(jag));',...<BR>
		'set(win2H(6),''Value'',jag);',...<BR>
	 'else ',...<BR>
	 	'set(win2H(6),''Enable'',''on'');',...<BR>
	'end',...<BR>
	] );
<P>
%== Jaggedness slider ===========================<BR>
win2H(4) = uicontrol(gcf,'Style','text', ...<BR>
	'String','Jaggedness:',...<BR>
   	'Position',[15,140,74,20],...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
   	'FontSize',12);<BR>
win2H(5) = uicontrol(gcf,'Style','text',...<BR>
   	'String',num2str(jag,'%1d'),...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
	'HorizontalAlignment','left',...<BR>
   	'FontSize',12,...<BR>
   	'Position',[94,140,56,20]);<BR>
win2H(6) = uicontrol(gcf,...<BR>
   	'Style','slider',...<BR>
   	'SliderStep',[.1 .5],...<BR>
   	'Min',0,'Max',10,...<BR>
   	'Position',[15,120,135,20],...<BR>
   	'Value',jag,...<BR>
   	'Enable','off',...<BR>
   	'CallBack',...<BR>
   	['jag = (get(win2H(6),''Value''));'...<BR>
	 'set(win2H(5),''String'',num2str(jag));'...<BR>
   	] );
<P>
%== Trees checkbox ===========================<BR>
win2H(7) = uicontrol(gcf,'Style','text',...<BR>
	'String','Add trees',...<BR>
	'Position',[180,210,61,16],...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
	'FontSize',12);<BR>
win2H(8) = uicontrol(gcf,'Style','Checkbox', ...<BR>
	'Position',[246,210,16,16],...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
	'Value',0);
<P>
%== Detail slider ===========================<BR>
win2H(9) = uicontrol(gcf,'Style','text', ...<BR>
   	'String','Detail:',...<BR>
   	'Position',[15,50,42,20],...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
   	'FontSize',12);<BR>
win2H(10) = uicontrol(gcf,'Style','text',...<BR>
   	'String',num2str(detail,'%1d'),...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
	'HorizontalAlignment','left',...<BR>
   	'FontSize',12, ...<BR>
   	'Position',[62,50,88,20]);<BR>
win2H(11) = uicontrol(gcf,...<BR>
   	'Style','slider',...<BR>
   	'SliderStep',[.1 .5],...<BR>
   	'Min',0,'Max',10, ...<BR>
   	'Position',[15,30,135,20],...<BR>
   	'Value',detail,...<BR>
   	'CallBack',...<BR>
   	['detail = (get(win2H(11),''Value''));'...<BR>
     'set(win2H(10),''String'',num2str(detail));'...<BR>
   	] );
<P>
%== Water slider ===========================<BR>
win2H(12) = uicontrol(gcf,'Style','text', ...<BR>
   	'String','Percent water:',...<BR>
   	'Position',[165,140,93,20],...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
   	'FontSize',12);<BR>
win2H(13) = uicontrol(gcf,'Style','text',...<BR>
   	'String',num2str(water,'%1d'),...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
	'HorizontalAlignment','left',...<BR>
   	'FontSize',12, ...<BR>
   	'Position',[263,140,37,20]);<BR>
win2H(14) = uicontrol(gcf,...<BR>
   	'Style','slider',...<BR>
   	'SliderStep',[.025 .25],...<BR>
   	'Min',30,'Max',70, ...<BR>
   	'Position',[165,120,135,20],...<BR>
   	'Value',water,...<BR>
   	'CallBack',...<BR>
   	['water = (get(win2H(14),''Value''));'...<BR>
     'set(win2H(13),''String'',num2str(water));'...<BR>
   	] );
<P>
%== Done button ===========================<BR>
win1H(9) = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   	'String','Done',...<BR>
   	'Position',[198,30,70,30],...<BR>
	'BackgroundColor','black',...<BR>
	'ForegroundColor','yellow',...<BR>
   	'CallBack',...<BR>
   	['set(win2H(1),''Visible'',''off'');',...<BR>
   	 'figure(win1H(1));',...<BR>
	 '[method,sz,iters,randm,peak,decay,dim,jag,water] = BuildCustomized(win1H,win2H,dim);',...<BR>
   	] );
<PRE>
<P>
<P>
<P>
</PRE>
%== The main window ==========================<BR>
win1H(1) = figure(1);<BR>
clf;
<P>
%== Window setup ===========================<BR>
set(win1H(1),'Position',[50,50,500,500],...<BR>
   'Name','Landscape Builder',...<BR>
   'NumberTitle','off');
<P>
%== Drawing box ==============================<BR>
set(0,'DefaultAxesCreateFcn', ...<BR>
	'[sz,iters,dim] = Build(method,sz,iters,randm,peak,decay,dim,jag,water,0);');<BR>
ah = axes('Position',[0.1 0.1, 0.8 0.75],...<BR>
   'Box', 'on', ...<BR>
   'Color','white',...<BR>
   'XColor',[0,0,0],'YColor',[0,0,0]);<BR>
axis square;
<P>
%== Grid size slider ===========================<BR>
win1H(2) = uicontrol(gcf,'Style','text', ...<BR>
   'String','Grid size',...<BR>
   'Position',[15,470,90,20],...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize',12);<BR>
win1H(3) = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(sz,'%1d'),...<BR>
   'FontSize',12, ...<BR>
   'BackgroundColor','white', ...<BR>
   'Position',[15,450,90,20]);<BR>
win1H(4) = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'SliderStep',[.01 .1],...<BR>
   'Min',5,'Max',55, ...<BR>
   'Position',[15,430,90,20], ...<BR>
   'Value',sz,...<BR>
   'CallBack', ...<BR>
   ['sz = round(get(win1H(4),''Value''));' ...<BR>
    'set(win1H(4),''Value'',sz);' ...<BR>
    'set(win1H(3),''String'',num2str(sz));' ...<BR>
	'[sz,iters,dim] = Build(method,sz,iters,randm,peak,decay,dim,jag,water,method == ''custom'');' ...<BR>
   ] );
<P>
%== Iterations slider ===========================<BR>
win1H(5) = uicontrol(gcf,'Style','text', ...<BR>
   'String','Iterations',...<BR>
   'Position',[114,470,90,20],...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize',12);<BR>
win1H(6) = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(iters,'%1d'),...<BR>
   'FontSize',12, ...<BR>
   'BackgroundColor','white', ...<BR>
   'Position',[114,450,90,20]);<BR>
win1H(7) = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'SliderStep',[.04 .2],...<BR>
   'Min',1,'Max',26, ...<BR>
   'Position',[114,430,90,20], ...<BR>
   'Value',iters,...<BR>
   'CallBack', ...<BR>
   ['iters = round(get(win1H(7),''Value''));' ...<BR>
    'set(win1H(7),''Value'',iters);' ...<BR>
    'set(win1H(6),''String'',num2str(iters));' ...<BR>
	'[sz,iters,dim] = Build(method,sz,iters,randm,peak,decay,dim,jag,water,method == ''custom'');' ...<BR>
   ] );
<P>
%== Randomness slider ===========================<BR>
win1H(10) = uicontrol(gcf,'Style','text', ...<BR>
   'String','Randomness',...<BR>
   'Position',[312,470,90,20],...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize',12);<BR>
win1H(11) = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(randm,'%1d'),...<BR>
   'FontSize',12, ...<BR>
   'BackgroundColor','white', ...<BR>
   'Position',[312,450,90,20]);<BR>
win1H(12) = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'SliderStep',[.01 .1],...<BR>
   'Min',0,'Max',10, ...<BR>
   'Position',[312,430,90,20], ...<BR>
   'Value',randm,...<BR>
   'CallBack', ...<BR>
   ['randm = (get(win1H(12),''Value''));' ...<BR>
    'set(win1H(11),''String'',num2str(randm));' ...<BR>
	'[sz,iters,dim] = Build(method,sz,iters,randm,peak,decay,dim,jag,water,method == ''custom'');' ...<BR>
   ] );
<P>
%== High peaks slider ===========================<BR>
win1H(13) = uicontrol(gcf,'Style','text', ...<BR>
   'String','High Peaks',...<BR>
   'Position',[411,470,90,20],...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize',12);<BR>
win1H(14) = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(peak,'%1d'),...<BR>
   'FontSize',12, ...<BR>
   'BackgroundColor','white', ...<BR>
   'Position',[411,450,90,20]);<BR>
win1H(15) = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'SliderStep',[.01 .1],...<BR>
   'Min',0,'Max',10, ...<BR>
   'Position',[411,430,90,20], ...<BR>
   'Value',peak,...<BR>
   'CallBack', ...<BR>
   ['peak = (get(win1H(15),''Value''));' ...<BR>
    'set(win1H(14),''String'',num2str(peak));' ...<BR>
	'[sz,iters,dim] = Build(method,sz,iters,randm,peak,decay,dim,jag,water,method == ''custom'');' ...<BR>
   ] );
<P>
%== Decay slider ===========================<BR>
win1H(16) = uicontrol(gcf,'Style','text', ...<BR>
   'String','Decay',...<BR>
   'Position',[213,470,90,20],...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize',12);<BR>
win1H(17) = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(decay,'%1d'),...<BR>
   'FontSize',12, ...<BR>
   'BackgroundColor','white', ...<BR>
   'Position',[213,450,90,20]);<BR>
win1H(18) = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'SliderStep',[.01 .1],...<BR>
   'Min',0,'Max',10, ...<BR>
   'Position',[213,430,90,20], ...<BR>
   'Value',decay,...<BR>
   'CallBack', ...<BR>
   ['decay = (get(win1H(18),''Value''));' ...<BR>
    'set(win1H(17),''String'',num2str(decay));' ...<BR>
	'[sz,iters,dim] = Build(method,sz,iters,randm,peak,decay,dim,jag,water,method == ''custom'');' ...<BR>
   ] );
<P>
%== Dimension label ===========================<BR>
d = uicontrol(gcf,'Style','frame',...<BR>
   'Position',[171,10,172,18]);<BR>
dim(2) = uicontrol(gcf,'Style','text', ...<BR>
   'String','Fractal dimension:',...<BR>
   'Position',[172,11,120,16],...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize',12);<BR>
dim(3) = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(dim(1),'%1d'),...<BR>
   'FontSize',12, ...<BR>
   'BackgroundColor','white', ...<BR>
   'Position',[292,11,50,16]);
<P>
%== Replot button ===========================<BR>
win1H(8) = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   'String','Replot',...<BR>
   'Position',[35,10,70,30],...<BR>
   'BackgroundColor','white', ...<BR>
   'CallBack', ...<BR>
   '[sz,iters,dim] = Build(method,sz,iters,randm,peak,decay,dim,jag,water,method == ''custom'');' );
<P>
%== Close button ===========================<BR>
win1H(9) = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   'String','Close',...<BR>
   'Position',[410,10,70,30],...<BR>
   'BackgroundColor','white', ...<BR>
   'CallBack', ...<BR>
   ['close;',...<BR>
    'figure(win2H(1));',...<BR>
	'close;',...<BR>
   ] );
<PRE>
<P>
<P>
<P>
</PRE>
%== Method Menu ===========================<BR>
m1 = uimenu (gcf,'Label','Method') ;<BR>
mi(1) = uimenu (m1, 'Label','Simple', ...<BR>
		'Checked','on',...<BR>
	    'CallBack', 'method = ''simple''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,2,30,mi,win1H);');<BR>
mi(2) = uimenu (m1, 'Label','Fractal', ...<BR>
	    'CallBack','method = ''fractl''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,2,30,mi,win1H);');<BR>
mi(3) = uimenu (m1, 'Label','Subdivided', ...<BR>
	    'CallBack', 'method = ''subdiv''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,2,30,mi,win1H);');<BR>
mi(4) = uimenu (m1, 'Label','Spline', ...<BR>
	    'CallBack','method = ''spline''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,2,30,mi,win1H);');<BR>
mi(5) = uimenu (m1, 'Label','Spline with Superimposition', ...<BR>
	    'CallBack', 'method = ''spplus''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,2,30,mi,win1H);');<BR>
mi(6) = uimenu (m1, 'Label','Randomized', ...<BR>
	    'CallBack','method = ''random''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,2,30,mi,win1H);');<BR>
mi(7) = uimenu (m1, 'Label','Spline with Randomized Superimposition', ...<BR>
	    'CallBack', 'method = ''randsp''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,2,30,mi,win1H);');<BR>
mi(8) = uimenu (m1, 'Label','Randomized with Randomized Superimposition', ...<BR>
	    'CallBack','method = ''rndpls''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,2,30,mi,win1H);');<BR>
mi(9) = uimenu (m1, 'Label','CUSTOMIZED', ...<BR>
	    'CallBack','method = ''custom''; [sz,iters,dim] = ChangeOptions(method,sz,iters,randm,peak,decay,dim,jag,water,mi,win1H,win2H);');