第利用Matlab實現繪制中秋山間秋月和皓月當空效果hold(ax,'on');

%=========================================================================

%顏色預定義，注意此處是hsv格式

cClouds=[330,25,100];%云的顏色

cSky=[220,50,50];%天空的顏色

cFurther=[230,25,90];%遠山的顏色

cCloser=[210,70,10];%近山的顏色

%=========================================================================

%繪圖函數調用

ax.Color=hsv2rgb(cFurther./[360,100,100]);%背景為遠山的顏色

drawSky(cSky,cFurther)%畫出天空顏色漸變效果

drawClouds(cClouds)%畫出彩色云朵效果

drawMountains(cFurther,cCloser)%畫出山脈效果

%=========================================================================

%功能函數：

%-------------------------------------------------------------------------

%漸變背景生成函數

functiondrawSky(colSky,colFurther)

%顏色由hsv轉rgb

colSky=hsv2rgb(colSky./[360,100,100]);

colFurther=hsv2rgb(colFurther./[360,100,100]);

%構建漸變色網格

[XMesh,YMesh]=meshgrid(1:800,301:600);

ZMesh=zeros(size(XMesh));

CMesh=vColorMat([800,300],[colFurther;colSky]);

surf(XMesh,YMesh,ZMesh,'CData',CMesh,'EdgeColor','none');

%-------------------------------------------------------------------------

%云繪制函數

functiondrawClouds(colClouds)

colClouds=hsv2rgb(colClouds./[360,100,100]);

%隨機噪聲生成

[X,Y]=meshgrid(linspace(0,1,500));

CLX=(-cos(X.*2.*pi)+1).^.2;

CLY=(-cos(Y.*2.*pi)+1).^.2;

r=(X-.5).^2+(Y-.5).^2;

alp=abs(ifftn(exp(3i*rand(500))./r.^.8)).*(CLX.*CLY);

alp=alp./max(alp,[],'all');

CMesh=zeros([size(alp),3]);

CMesh(:,:,1)=colClouds(1);

CMesh(:,:,2)=colClouds(2);

CMesh(:,:,3)=colClouds(3);

%越向下、云越透明

dy=(1:500)./500.*0.8+0.2;

image([0,800],[350,600],CMesh,'AlphaData',alp.*(dy'));

%-------------------------------------------------------------------------

%山峰繪制函數

functiondrawMountains(colFurther,colCloser)

[X,Y]=meshgrid(linspace(0,1,800));

CLX=(-cos(X.*2.*pi)+1).^.2;

CLY=(-cos(Y.*2.*pi)+1).^.2;

r=(X-.5).^2+(Y-.5).^2;

%8層山

fori=1:8

%每次都生成一次二維隨機噪聲，并取其中一行的數據

h=abs(ifftn(exp(5i*rand(800))./r.^1.05)).*(CLX.*CLY).*10;

nh=(8-i)*30+h(400,:);

ifi==1,nh=nh.*.8;end

hm=ceil(max(nh));

CMesh=zeros([hm,800,3]);

%顏色矩陣構造，

tcol=colFurther+(colCloser-colFurther)./8.*(i);

tcol=hsv2rgb(tcol./[360,100,100]);

CMesh(:,:,1)=tcol(1);

CMesh(:,:,2)=tcol(2);

CMesh(:,:,3)=tcol(3);

%用nan數值框出山的輪廓

alp=ones(hm,800);

alp((1:hm)'nh)=nan;

%繪制山峰

image([-50,850],[0,hm],CMesh,'AlphaData',alp.*0.98);

%=========================================================================

%一個線性插值的漸變圖生成函數

functioncolorMat=vColorMat(matSize,colorList)

yList=((0:(matSize(2)-1))./(matSize(2)-1))';

xList=ones(1,matSize(1));

%線性插值

colorMat(:,:,1)=(colorList(1,1)+yList.*(colorList(2,1)-colorList(1,1)))*xList;

colorMat(:,:,2)=(colorList(1,2)+yList.*(colorList(2,2)-colorList(1,2)))*xList;

colorMat(:,:,3)=(colorList(1,3)+yList.*(colorList(2,3)-colorList(1,3)))*xList;

本人將代碼再次略作改編，貼合中秋主題，又寫了山間秋月的代碼，能夠動態展示變換的云霧以及慢慢變圓的月亮：

functionautumoon_2

%@author:slandarer

%gzh:slandarer隨筆

%axes設置

ax=gca;

ax.XTick=[];

ax.YTick=[];

ax.XLim=[0,800];

ax.YLim=[0,600];

ax.DataAspectRatio=[111];

hold(ax,'on');

%=========================================================================

%顏色預定義，注意此處是hsv格式

cFurther=[225,35,70];%遠山的顏色

cCloser=[210,70,10];%近山的顏色

cClouds=[2502643];%云的顏色

cSky=[21510018];%天空的顏色

%月亮顏色格式為rgb

cMoon=[253,252,222]./255;

%=========================================================================

%繪圖函數調用

ax.Color=hsv2rgb(cFurther./[360,100,100]);%背景為遠山的顏色

drawSky(cSky,cFurther)%畫出天空顏色漸變效果

%基礎繪制月亮

t1=linspace(-pi/2,pi/2,100);

t2=linspace(pi/2,3*pi/2,100);

X1=cos(t1).*35;Y1=sin(t1).*35;

X2=cos(t2).*35;Y2=sin(t2).*35;

moonHdl=fill([X1,X2]+600,[Y1,Y2]+500,cMoon,'E