set(handles.radiobutton5,'value',0) colormap(jet)
% -------------------------------------------------------------------- function varargout = radiobutton2_Callback(h, eventdata, handles, varargin) set(handles.radiobutton1,'value',0) set(handles.radiobutton2,'value',1) set(handles.radiobutton3,'value',0) set(handles.radiobutton4,'value',0) set(handles.radiobutton5,'value',0) colormap(hsv)
% -------------------------------------------------------------------- function varargout = radiobutton3_Callback(h, eventdata, handles, varargin) set(handles.radiobutton1,'value',0) set(handles.radiobutton2,'value',0) set(handles.radiobutton3,'value',1) set(handles.radiobutton4,'value',0) set(handles.radiobutton5,'value',0) colormap(hot)
% -------------------------------------------------------------------- function varargout = radiobutton4_Callback(h, eventdata, handles, varargin) set(handles.radiobutton1,'value',0) set(handles.radiobutton2,'value',0) set(handles.radiobutton3,'value',0) set(handles.radiobutton4,'value',1) set(handles.radiobutton5,'value',0) colormap(pink)
% -------------------------------------------------------------------- function varargout = radiobutton5_Callback(h, eventdata, handles, varargin) set(handles.radiobutton1,'value',0) set(handles.radiobutton2,'value',0) set(handles.radiobutton3,'value',0) set(handles.radiobutton4,'value',0) set(handles.radiobutton5,'value',1) colormap(copper)
7.5 制作一个曲面光照效果的演示界面，如图所示，三个弹出式菜单分别用于选择曲面形式、色彩图、光照模式和反射模式，三个滚动条用于确定光源的位置，一个按钮用于退出演示。
提示：
（1）建立一个静态文本，用于显示界面的标题：光照效果演示； （2）建立坐标轴对象，用于显示图形；
（3）建立四个下拉菜单，分别用于选择绘图表面的形状、色图、光照模式和反射模式，每个下拉菜单的上方都有一个静态文本用于说明菜单的作用；
（4）在一个frame上建立三个滑条用于确定光源的位置，并在frame上方加一说明； （5）建立一个按钮用于退出演示； （6）callback函数的内容为：
function varargout = pushbutton1_Callback(h, eventdata, handles, varargin) delete(handles.figure1)
% -------------------------------------------------------------------- function varargout = popupmenu1_Callback(h, eventdata, handles, varargin) val=get(h,'value'); switch val case 1
surf(peaks); case 2
sphere(30); case 3 membrane case 4
[x,y]=meshgrid(-4:.1:4); r=sqrt(x.^2+y.^2)+eps; z=sinc(r); surf(x,y,z) case 5
[x,y]=meshgrid([-1.5:.3:1.5],[-1:0.2:1]); z=sqrt(4-x.^2/9-y.^2/4); surf(x,y,z); case 6
t=0:pi/12:3*pi;
r=abs(exp(-t/4).*sin(t)); [x,y,z]=cylinder(r,30);
surf(x,y,z); end
shading interp
light('Position',[-3 -2 1]); axis off
% -------------------------------------------------------------------- function varargout = radiobutton1_Callback(h, eventdata, handles, varargin) set(h,'value',1)
set(handles.radiobutton2,'value',0) set(handles.radiobutton3,'value',0) set(handles.radiobutton4,'value',0)
lighting flat
% -------------------------------------------------------------------- function varargout = radiobutton2_Callback(h, eventdata, handles, varargin) set(h,'value',1)
set(handles.radiobutton1,'value',0) set(handles.radiobutton3,'value',0) set(handles.radiobutton4,'value',0)
lighting gouraud
% -------------------------------------------------------------------- function varargout = radiobutton3_Callback(h, eventdata, handles, varargin) set(h,'value',1)
set(handles.radiobutton1,'value',0) set(handles.radiobutton2,'value',0) set(handles.radiobutton4,'value',0)
lighting phong
% -------------------------------------------------------------------- function varargout = radiobutton4_Callback(h, eventdata, handles, varargin) set(h,'value',1)
set(handles.radiobutton1,'value',0) set(handles.radiobutton3,'value',0) set(handles.radiobutton3,'value',0)
lighting none
% -------------------------------------------------------------------- function varargout = popupmenu2_Callback(h, eventdata, handles, varargin) val=get(h,'value'); switch val
case 1
colormap(jet) case 2
colormap(hot) case 3
colormap(cool) case 4
colormap(copper) case 5
colormap(pink) case 6
colormap(spring) case 7
colormap(summer) case 8
colormap(autumn) case 9
colormap(winter) end
% -------------------------------------------------------------------- function varargout = popupmenu3_Callback(h, eventdata, handles, varargin) val=get(h,'value'); switch val case 1
lighting flat case 2
lighting gouraud case 3
lighting phong case 4
lighting none end
% -------------------------------------------------------------------- function varargout = popupmenu4_Callback(h, eventdata, handles, varargin) val=get(h,'value'); switch val case 1
material shiny case 2
material dull case 3
material metal case 4
material default
end
% -------------------------------------------------------------------- function varargout = slider1_Callback(h, eventdata, handles, varargin) val=get(h,'value');
set(handles.edit1,'string',num2str(val));
lx==val; ly=get(handles.slider2,'value'); ly=get(handles.slider3,'value'); light('Position',[x y z]);
% -------------------------------------------------------------------- function varargout = edit1_Callback(h, eventdata, handles, varargin) str=get(h,'string');
set(handles.slider1,'value',str2num(str));
lx==str2num(str); ly=get(handles.slider2,'value'); ly=get(handles.slider3,'value'); light('Position',[x y z]);
% -------------------------------------------------------------------- function varargout = slider2_Callback(h, eventdata, handles, varargin) val=get(h,'value');
set(handles.edit2,'string',num2str(val));
lx=get(handles.slider1,'value'); lx==val; ly=get(handles.slider3,'value'); light('Position',[x y z]);
% -------------------------------------------------------------------- function varargout = edit2_Callback(h, eventdata, handles, varargin) str=get(h,'string');
set(handles.slider2,'value',str2num(str));
% -------------------------------------------------------------------- function varargout = slider3_Callback(h, eventdata, handles, varargin) val=get(h,'value');
set(handles.edit3,'string',num2str(val));
% -------------------------------------------------------------------- function varargout = edit3_Callback(h, eventdata, handles, varargin) str=get(h,'string');
set(handles.slider3,'value',str2num(str));