Tiny planet

[chungyuandye (養花種魚數月亮賞星星)]

(*
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
推 Frobenius: http://tinyurl.com/zzg2ueb
推 Frobenius: During evaluation of In[1]:= ImageRotate::imginv:
推 Frobenius: Expecting an image or graphics instead of mypic. >>
※ 編輯: chungyuandye (1.174.179.142), 03/18/2016 18:01:47
→ chungyuandye: mypic = Import["http://tinyurl.com/gwb9lwk"]
推 acehkr: 不錯，但不知道可不可以把圖片映射到3D球體上
推 Frobenius: http://tinyurl.com/z7hxfg4 (我少打了 "mypic="  ><")