如何移动照相机穿过场景
东西/原料
- 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
- 阅读 ( 718 )
- 分类：其他类型
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章