Tiny planet

作者: chungyuandye (養花種魚數月亮賞星星)   2016-03-11 16:09:23
(*
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}
作者: Frobenius (▽.(▽×▽φ)=0)   2016-03-16 01:41:00
http://tinyurl.com/zzg2uebDuring evaluation of In[1]:= ImageRotate::imginv:Expecting an image or graphics instead of mypic. >>
作者: chungyuandye (養花種魚數月亮賞星星)   2016-03-18 18:10:00
作者: acehkr (Black hawk)   2016-03-20 12:46:00
不錯,但不知道可不可以把圖片映射到3D球體上
作者: Frobenius (▽.(▽×▽φ)=0)   2016-03-22 01:01:00
http://tinyurl.com/z7hxfg4 (我少打了 "mypic=" ><")

Links booklink

Contact Us: admin [ a t ] ucptt.com