Tiny planet
(*
mypic=your pic;
*)
mypic=
Import["http://ext.pimg.tw/rick12424/f1352d227b5d70f8b40d271702e302f0.jpg"]
ParametricPlot3D[{v*Cos[u],v*Sin[u],0.0035v},{u,0,2Pi},{v,0,1},
Mesh->0,BoundaryStyle->None,PlotStyle->Texture[ImageRotate[mypic,#]],
ViewPoint->{0,0,1},Boxed->False,Axes->None,PlotPoints->50,
ImagePadding->None,
Lighting->{{"Directional",White,{{0,3,2},{0,3,0}}}}]&/@{0,Pi}
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.175.73.65
※ 文章網址: https://www.ptt.cc/bbs/Mathematica/M.1457683774.A.C09.html
推
03/16 01:41, , 1F
03/16 01:41, 1F
推
03/16 01:42, , 2F
03/16 01:42, 2F
推
03/16 01:42, , 3F
03/16 01:42, 3F
※ 編輯: chungyuandye (1.174.179.142), 03/18/2016 18:01:47
→
03/18 18:10, , 4F
03/18 18:10, 4F
推
03/20 12:46, , 5F
03/20 12:46, 5F
推
03/22 01:01, , 6F
03/22 01:01, 6F
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
