如何移動照相機穿過場景
東西/原料
- MATLAB
- 電腦
方式/步調
- 1
號令行鍵入：
load wind
%加載圖形。
- 2
號令行鍵入：
wind_speed = sqrt(u.^2 + v.^2 + w.^2);
%界說風速。
- 3
號令行鍵入：
figure
%給出圖形窗口。
- 4
號令行鍵入：
p = patch(isosurface(x,y,z,wind_speed,35));
%繪圖。
- 5
號令行鍵入：
isonormals(x,y,z,wind_speed,p)
- 6
號令行鍵入：
p.FaceColor = [0.75,0.25,0.25];
p.EdgeColor = [0.6,0.4,0.4];
%改變概況和邊框的顏色。
- 7
號令行鍵入：
[f,vt] = reducepatch(isosurface(x,y,z,wind_speed,45),0.05);
%削減拼圖
- 8
號令行鍵入：
daspect([1,1,1]);
%縮小
- 9
號令行鍵入：
hcone = coneplot(x,y,z,u,v,w,vt(:,1),vt(:,2),vt(:,3),2);
%添加指示。
- 10
號令行鍵入：
hcone.FaceColor = 'blue';
%設置為藍色。
- 11
號令行鍵入：
hcone.EdgeColor = 'none';
%設置為none。
- 12
號令行鍵入：
camproj perspective
camva(25)
%設置視圖
- 13
號令行鍵入：
hlight = camlight('headlight');
p.AmbientStrength = 1;
p.SpecularStrength = 1;
p.DiffuseStrength = 1;
hcone.SpecularStrength = 1;
set(gcf,'Color','k')
set(gca,'Color',[0,0,0.25])
%指定光源。
- 14
號令行鍵入：
lighting gouraud
%利用 gouraud 光照可獲得更光滑的光照結果。
- 15
號令行鍵入：
hsline = streamline(x,y,z,u,v,w,80,30,11);
xd = hsline.XData;
yd = hsline.YData;
zd = hsline.ZData;
delete(hsline)
%將拍照機路徑界說為流線
- 16
號令行鍵入：
for i=1:length(xd)-5
campos([xd(i),yd(i),zd(i)])
camtarget([xd(i+5)+min(xd)/500,yd(i),zd(i)])
camlight(hlight,'headlight')
drawnow
end
%實現漫游
END
- 發表于 2020-04-19 17:00
- 閱讀 ( 721 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章