% Object Builder -- calls MakeSurface, Plot2D, ResetSpline<BR>
% function MakeSurface(fx,fy,fz,size,edgeflag,styleflag,alt,azm,res)<BR>
% function [X,Y] = Plot2D(f1,f2,res)<BR>
% function [X,Y] = ResetSpline;
<P>
clear all;<BR>
close;
<P>
% Default values
<P>
% Axis size<BR>
size = 2;
<P>
% No edges<BR>
edgeflag = 0 ;
<P>
% Create body by rotation (rather than by scaling)<BR>
styleflag = 0;
<P>
% View angles<BR>
alt = 30 ;<BR>
azm = 120;
<P>
% Resolution<BR>
res = 30;
<P>
% Function strings<BR>
% sf1 and sf2 define the shape of rotation<BR>
% pf1 and pf2 define the path of rotation<BR>
sf1 = 'sin(t)';<BR>
sf2 = 'cos(t)';<BR>
pf1 = 'sin(t)';<BR>
pf2 = 'cos(t)';
<PRE>
<P>
<P>
<P>
</PRE>
%== Shape window ==========================<BR>
sfig=figure(1);<BR>
clf;
<P>
%== Window setup ===========================<BR>
set(sfig,'Position',[10,100,235,450],...<BR>
   'Name','Shape of Rotation',...<BR>
   'NumberTitle','off',...<BR>
   'Resize', 'off', ...<BR>
   'Color','white');
<P>
%== Drawing square ==============================<BR>
set(0, 'DefaultAxesCreateFcn',...<BR>
   '[sX,sY] = Plot2D(sf1,sf2,res);');
<P>
%== Shape funtion string 1 input ===========================<BR>
[sX,sY] = Plot2D(sf1,sf2,res);<BR>
ss1 = uicontrol(gcf,'Style','edit', ...<BR>
   'String', sf1 ,...<BR>
   'HorizontalAlignment','Center', ...<BR>
   'Position',[10,410,215,30], ...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize', 14, ...<BR>
   'CallBack', ...<BR>
   ['sf1 = get(ss1,''String'');' ...<BR>
    '[sX,sY] = Plot2D(sf1,sf2,res);' ...<BR>
   ] );
<P>
%== Shape funtion string 2 input ===========================<BR>
ss2 = uicontrol(gcf,'Style','edit', ...<BR>
   'String', sf2 ,...<BR>
   'HorizontalAlignment','Center', ...<BR>
   'Position',[10,370,215,30], ...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize', 14, ...<BR>
   'CallBack', ...<BR>
   ['sf2 = get(ss2,''String'');' ...<BR>
    '[sX,sY] = Plot2D(sf1,sf2,res);' ...<BR>
   ] );   
<P>
%== Spline button ===========================<BR>
ssp = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   'String','Reset Spline',...<BR>
   'Position',[30,25,70,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'CallBack', ...<BR>
   '[sX,sY] = ResetSpline;' );
<P>
%== Close button ===========================<BR>
sc = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   'String','Close',...<BR>
   'Position',[135,25,70,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'CallBack', ...<BR>
   'close' );
<PRE>
<P>
<P>
<P>
</PRE>
%== Path window ==========================<BR>
pfig=figure(2);<BR>
clf
<P>
%== Window setup ===========================<BR>
set(pfig,'Position',[250,100,235,450],...<BR>
   'Name','Path of Rotation',...<BR>
   'NumberTitle','off',...<BR>
   'Resize', 'off', ...<BR>
   'Color','white');
<P>
%== Drawing square ==============================<BR>
set(0, 'DefaultAxesCreateFcn',...<BR>
   '[pX,pY] = Plot2D(pf1,pf2,res);');
<P>
%== Path funtion string 1 input ===========================<BR>
[pX,pY] = Plot2D(pf1,pf2,res);<BR>
ps1 = uicontrol(gcf,'Style','edit', ...<BR>
   'String', pf1 ,...<BR>
   'HorizontalAlignment','Center', ...<BR>
   'Position',[10,410,215,30], ...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize', 14, ...<BR>
   'CallBack', ...<BR>
   ['pf1 = get(ps1,''String'');' ...<BR>
    '[pX,pY] = Plot2D(pf1,pf2,res);' ...<BR>
   ] );
<P>
%== Path funtion string 2 input ===========================<BR>
ps2 = uicontrol(gcf,'Style','edit', ...<BR>
   'String', pf2 ,...<BR>
   'HorizontalAlignment','Center', ...<BR>
   'Position',[10,370,215,30], ...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize', 14, ...<BR>
   'CallBack', ...<BR>
   ['pf2 = get(ps2,''String'');' ...<BR>
    '[pX,pY] = Plot2D(pf1,pf2,res);' ...<BR>
   ] );
<P>
%== Spline button ===========================<BR>
psp = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   'String','Reset Spline',...<BR>
   'Position',[30,25,70,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'CallBack', ...<BR>
   '[pX,pY] = ResetSpline;' );
<P>
%== Close button ===========================<BR>
pc = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   'String','Close',...<BR>
   'Position',[135,25,70,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'CallBack', ...<BR>
   'close' );
<PRE>
<P>
<P>
<P>
</PRE>
%== The main window ==========================<BR>
fig=figure(3);<BR>
clf
<P>
%== Window setup ===========================<BR>
set(fig,'Position',[490,100,320,450],...<BR>
   'Name','Parametric Surface Maker',...<BR>
   'NumberTitle','off',...<BR>
   'Resize', 'off', ...<BR>
   'Color','white');
<P>
%== Drawing box ==============================<BR>
set(0, 'DefaultAxesCreateFcn', ...<BR>
	'MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res)')<BR>
ah = axes( 'Position', [0.1 0.15, 0.8 0.6],...<BR>
   'Box', 'on', ...<BR>
   'Color','white',...<BR>
   'XColor',[0,0,0],'YColor',[0,0,0]);<BR>
axis square
<P>
%=== Header text ==========================<BR>
t1 = uicontrol(gcf,'Style','text', ...<BR>
   'String',...<BR>
   'Parametric Surface Maker ',...<BR>
   'HorizontalAlignment','Center',...<BR>
   'Position',[120,460,290,30],...<BR>
   'BackgroundColor','white', ...<BR>
   'FontSize', 18 ...<BR>
   );
<P>
%== Plot button ===========================<BR>
pt = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   'String','Plot',...<BR>
   'Position',[30,25,70,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'CallBack', ...<BR>
   'MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);' );
<P>
%== Close button ===========================<BR>
c = uicontrol(gcf,'Style','Pushbutton', ...<BR>
   'String','Close',...<BR>
   'Position',[220,25,70,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'CallBack', ...<BR>
   'close' );
<P>
%== Axis size slider ===========================<BR>
s1 = uicontrol(gcf,'Style','text', ...<BR>
   'String','Axis size',...<BR>
   'Position',[5,420,75,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'FontSize', 12 );<BR>
s2 = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(size,1),...<BR>
   'FontSize', 12, ...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'Position',[5,400,75,20]);<BR>
s3 = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'Min' ,0.1 ,'Max', 10, ...<BR>
   'Position',[5,380,75,20], ...<BR>
   'Value', size,...<BR>
   'CallBack', ...<BR>
   ['size = (get(s3,''Value''));' ...<BR>
    'set(s2, ''String'',num2str(size));' ...<BR>
	'MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);' ...<BR>
   ] );
<P>
%== Altitude slider ===========================<BR>
a1 = uicontrol(gcf,'Style','text', ...<BR>
   'String','Altitude',...<BR>
   'Position',[83,420,75,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'FontSize', 12 );<BR>
a2 = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(alt,2),...<BR>
   'FontSize', 12, ...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'Position',[83,400,75,20]);<BR>
a3 = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'Min' ,0 ,'Max', 90, ...<BR>
   'Position',[83,380,75,20], ...<BR>
   'Value', alt,...<BR>
   'CallBack', ...<BR>
   ['alt = (get(a3,''Value''));' ...<BR>
    'set(a2, ''String'',num2str(alt));' ...<BR>
	'MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);' ...<BR>
   ] );
<P>
%== Azimuth slider ===========================<BR>
az1 = uicontrol(gcf,'Style','text', ...<BR>
   'String','Azimuth',...<BR>
   'Position',[161,420,75,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'FontSize', 12 );<BR>
az2 = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(azm,2),...<BR>
   'FontSize', 12, ...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'Position',[161,400,75,20]);<BR>
az3 = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'Min' ,0 ,'Max', 180, ...<BR>
   'Position',[161,380,75,20], ...<BR>
   'Value', azm,...<BR>
   'CallBack', ...<BR>
   ['azm = (get(az3,''Value''));' ...<BR>
    'set(az2, ''String'',num2str(azm));' ...<BR>
	'MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);' ...<BR>
   ] );
<P>
%== Resolution slider ===========================<BR>
r1 = uicontrol(gcf,'Style','text', ...<BR>
   'String','Resolution',...<BR>
   'Position',[239,420,75,20],...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'FontSize', 12 );<BR>
r2 = uicontrol(gcf,'Style','text',...<BR>
   'String',num2str(res,2),...<BR>
   'FontSize', 12, ...<BR>
   'BackgroundColor',[0.8,0.8,0.8], ...<BR>
   'Position',[239,400,75,20]);<BR>
r3 = uicontrol(gcf,...<BR>
   'Style','slider',...<BR>
   'Min' ,5 ,'Max', 100, ...<BR>
   'Position',[239,380,75,20], ...<BR>
   'Value', res,...<BR>
   'CallBack', ...<BR>
   ['res = (get(r3,''Value''));' ...<BR>
    'set(r2, ''String'',num2str(res));' ...<BR>
    '[sX,sY] = Plot2D(sf1,sf2,res);' ...<BR>
    '[pX,pY] = Plot2D(pf1,pf2,res);' ...<BR>
	'MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);' ...<BR>
   ] );
<P>
%== Edge Menu ===========================<BR>
m1 = uimenu (gcf,'Label', 'Shading') ;<BR>
uimenu (m1, 'Label', 'Light Surface', ...<BR>
	    'CallBack', 'edgeflag=0; MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);')<BR>
uimenu (m1, 'Label', 'Show Edges', ...<BR>
	    'CallBack', 'edgeflag=1; MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);')
<P>   
%== Style Menu ===========================<BR>
m2 = uimenu (gcf,'Label', 'Creation Style') ;<BR>
uimenu (m2, 'Label', 'Rotate Body', ...<BR>
	    'CallBack', 'styleflag=0; MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);')<BR>
uimenu (m2, 'Label', 'Scale Body', ...<BR>
	    'CallBack', 'styleflag=1; MakeSurface(sX,sY,pX,pY,size,edgeflag,styleflag,alt,azm,res);')