mypic=your pic; ParametricPlot3D[{v*Cos[u],v*Sin[u],0.0035v},{u,0,2Pi},{v,0,1}, Mesh->0,BoundaryStyle->None,PlotStyle->Texture[mypic], ViewPoint->{0,0,1},Boxed->False,Axes->None,PlotPoints->50, ImagePadding->None, Lighting->{{"Directional",White,{{0,3,2},{0,3,0}}}}] ParametricPlot3D[{v*Cos[u],v*Sin[u],0.0035v},{u,0,2Pi},{v,0,1}, Mesh->0,BoundaryStyle->None,PlotStyle->Texture[ImageRotate[mypic,Pi]], ViewPoint->{0,0,1},Boxed->False,Axes->None,PlotPoints->50, ImagePadding->None, Lighting->{{"Directional",White,{{0,3,2},{0,3,0}}}}]
Mathematica 教學:Generate a Tiny Planet Photo
由 戴忠淵 於 2016年2月28日星期日
下午9:04 發表
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助,那請留個訊息給我~