红装素裹，
碧水一方。
function sun_0(X,Y,Z)
%[0 0 0]黑,[1 1 1]白；
% 1 0 0――红
% 0 1 0――绿
% 0 0 1――兰；
% 1 0 1――粉红=红+兰;
% 1 1 0――黄 =红+绿；
% 0 1 1――天兰=绿+兰；
%0<N<1=中间色；
surf(X,Y,Z);hold on;%树(H=0.3)
for I=1:100
II=100-I;
YG(I,1:3)=[1-I*0.01 1-I*0.001 0+I*0.00];
KG(I,1:3)=[0-I*0.00 0+I*0.01 0+I*0.00];
KbK(I,1:3)=[0-I*0.00 0+I*0.001 0.5+I*0.001];
KbW(I,1:3)=[0+I*0.001 0+I*0.001 0+I*0.01];
WR(I,1:3)=[1+I*0.00 1-I*0.01 1-I*0.01 ];
BW(I,1:3)=[1-I*0.01 1-I*0.01 1+I*0.00];
GY(I,1:3)=[1-II*0.01 1-II*0.001 0+0*0.00];
WB(I,1:3)=[1-II*0.01 1-II*0.01 1+II*0.00];
WKb(I,1:3)=[0+II*0.001 0+II*0.001 0+II*0.01];
KgK(I,1:3)=[0-I*0.00 0+II*0.001 0+I*0.00];
end
%h=[YG;KgK;KG];
%h=[KgK;KgK;KG;GY];
h=[WB;WKb;WB;WR];
colormap(h);
brighten(.5);
%darken(0.5);
%light('color','w');
%light('color','y');
%
%surf(X,Y,z);hold on;%海平面
%light('color','g');
评论